#!usr/bin/perl -w
$wizard=50;
$wizardl=1;
$gold=5;
$damage=2;
print"Welcome to Wizard!  Type your wizard's name...";
$name=<STDIN>;
print "Welcome $name to Wizard.  You are now in the Merlins castle.  Y
+ou are surrounded  by other mages and disscussion flows back\n";
print "and forth in the room.   Suddenly Merlin stands up in front of 
+all and says, I need a powerful man to go out and slay all the monste
+rs that have been plauging my land.\n";
print "Which one of you can raise to the challenge.  Slowly all those 
+in the room rise, including yourself.\n\n";
print "Good, good merlin utters.  Then be off.\n\n\n";
sub die{
if($wizard==0){
print "Thanks for playing";
die;
}
sub toad{
my $toad=int (rand 4)+1;
if($toad<=$wizardl){
print "The goblins have been zapped into toads!\n";
$gold=$gold+3;
print "good job you got 3 gold!\n";
&freedale
}elsif($toad>$wizardl){
print "your spell has failed! -2 health\n";
$wizard=$wizard-2;
&battle;
}
    }
sub battle{
my $goblin=12;
print "What do you want to do...press 1 for spells or 2 for combat\n";
$choice=<STDIN>;
if($choice==1){
    &toad;
}elsif($choice==2){
do{
$goblin=$goblin-$damage;
$wizard=$wizard-2;
print "wizard health: $wizard\t";
print "goblin health: $goblin\n";
}until($goblin==0 || $wizard==0);
if($wizard>0){
print "good job you got 3 gold!\n";
$gold=$gold+3;
&freedale;
}elsif($wizard<=0){
 &die;
}
    }
        }

sub forest {
    print "The forest is dark and smells of old mold and rotton fish. 
+ The foul waters have turned this once peaceful place in to a\n";    
+ print "dark evil place.\n";
    my $gobbo=int (rand 6)+1;
            if ($gobbo>=5){
        print "goblins attack\n";
        &battle;
        }elsif($gobbo!=5 || $gobbo!=6){
        print "There are no monsters here now.\n";
        &freedale
        }
    }

sub mountain {
    print "Its pretty cold up here, but from this altitude you can see
+ the whole town below you.\n"; 
    print "Although it is clear that you are not the first one here!\n
+";
    my $gobbo=int (rand 6)+1;
            if ($gobbo>=4){
        print "goblins attack\n";
        &battle;
        }elsif($gobbo!=4 || $gobbo!=5 || $gobbo!=6){
        print "There are no monsters here now.\n";
        &freedale
        }
    }

sub dungeon {
    print "There is a heavy feeling in the air, it's very dark and mus
+ty down here.\n"; 
    print "You can see clear signs that goblins have been here, and ma
+ybe worse things!\n";
    my $gobbo=int (rand 6)+1;
            if ($gobbo>=3){
        print "goblins attack\n";
        &battle;
        }elsif($gobbo!=3 || $gobbo!=4 || $gobbo!=5 || $gobbo!=6){
        print "There are no monsters here now.\n";
        &freedale
        }
    }
sub shop {
    print "Hello welcome to freedale market may I help you?\n";
    print "type 1 for healing.........................................
+.....10 gold\n";
    print "type 2 for daggers.........................................
+....15 gold\n";
    print "type 3 for magic wands.....................................
+30 gold\n";
    $shop=<STDIN>;
    if($shop==1){
        if($gold<10){
        print "you don't have enough gold\n";
        &freedale;
        }
    print "Thank you\n";
    $gold=$gold-10;
    $wizard=50;
    &freedale;
        
    }elsif($shop==2){
        if($gold<15){
        print "you don't have enough gold\n";
        &freedale;
        }
    print "thank you\n";
    $gold=$gold-15;
    $damage=3;
    &freedale;
    }elsif($shop==3){
        if($gold<15){
        print "you don't have enough gold\n";
        &freedale;
        }
    print "thank you\n";
    $gold=$gold-30;
    $wizardl=$wizardl+1;
    }
}
sub stat{
    print "health:\t$wizard\n";
    print "magic level:\t$wizardl\n";
    print "gold:\t$gold\n";
    &freedale
}
sub freedale{
print "you are in freedale\n";
print "where do you want to go\n";
print "type 1 for the forest, 2 for the mountain, or 3  for the dungeo
+n\n 4 for the shop or 5 to view stats.\n ";
$room=<STDIN>;
if($room==1){
&forest;
}elsif($room==2){
&mountain;
}elsif($room==3){
&dungeon;
}elsif($room==4){
&shop
}elsif($room==5){
&stat
}
}
}
&freedale
[download]