$wizard=50; $wizardl=1; $gold=10; $damage=3; $firedmg = $wizardl*2; $diflvl=$wizardl-2; print"Welcome to Wizard! Type your wizard's name..."; $name=<STDIN>; chomp ($name); print "Welcome $name, to Wizard. You are now in the Merlins castle. +You are surrounded by other mages and disscussion flows back and for +th.\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 fireball { if($room==1){ $monster = "bats"; $newgold = 3; }elsif($room==2){ $monster = "orcs"; $newgold = 4; }elsif($room==3){ $monster = "trolls"; $newgold = 5; }elsif($room==6){ $monster = "demons"; $newgold = 6; } $fireball = int (rand 2)+1; if($fireball==1){ $goblin-=$firedmg; if($goblin<=0){ print "The $monster have been torched to death!\n"; $gold+=$newgold; print "You got $newgold gold!\n"; &freedale; }elsif($goblin>0){ print "The $monster took $firedmg damage!\n"; print "$monster health: $goblin\t"; print "$name's health: $wizard\t"; &battle; } }elsif($fireball==2){ print "Your spell failed!\n"; print "Minus two health!\n"; $wizard-=2; print "$name's health: $wizard\t"; &battle; } } sub battle { my $monster=""; print "What do you want to do...press 1 to use fireball, 2 for co +mbat, or r to run.\n"; $choice=<STDIN>; if($choice==1){ &fireball; }elsif($choice=="r"){ &run; }elsif($choice=="q"){ ¨ }elsif($choice==2){ if($room==6){ $monster = "demon"; $newgold = 6; }elsif($room==3){ $monster = "troll"; $newgold = 5; }elsif($room==2){ $monster = "orc"; $newgold = 4; }elsif($room==1){ $monster = "bat"; $newgold = 3; } do{ $goblin=$goblin-$damage; if($goblin<0){ $goblin=0; }if($wizard<0){ $wizard=0; } $dmg = int (rand $room +2); $wizard-=$dmg; print "wizard health: $wizard\t"; print "$monster health: $goblin\n"; }until($goblin<=0 || $wizard<=0); if($wizard>0){ print "good job you got $newgold gold!\n"; $gold+=$newgold; &freedale; }elsif($wizard<=0){ ¨ } }else{ print "Please enter 1, 2, or q...\n"; &battle; } } sub forest { $goblin = 10; 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 "bats attack!\n"; &battle; }elsif($gobbo!=5 || $gobbo!=6){ print "There are no monsters here now.\n"; &freedale } } sub mountain { $goblin = 14; print "Its pretty cold up here, but from this altitude you can se +e + 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 "orcs attack\n"; &battle; }elsif($gobbo!=4 || $gobbo!=5 || $gobbo!=6){ print "There are no monsters here now.\n"; &freedale } } sub dungeon { $goblin = 17; print "There is a heavy feeling in the air, it's very dark and mu +s +ty down here.\n"; print "You can see clear signs that goblins have been here, and m +a +ybe worse things!\n"; my $gobbo=int (rand 6)+1; if ($gobbo>=3){ print "trolls attack\n"; &battle; }elsif($gobbo!=3 || $gobbo!=4 || $gobbo!=5 || $gobbo!=6){ print "There are no monsters here now.\n"; &freedale } } sub splane { $goblin = 20; print "This is a mysterious place full of horribly powerful monst +ers. +..\n"; print "You see tracks unlike any other you have encountered befor +e.\n +"; my $gobbo=int (rand 8)+1; if ($gobbo>=2){ print "Demons attack!\n"; &battle }elsif($gobbo!=2 || $gobbo!=3 || $gobbo!=4 || $gobbo!=5 || + $go +bbo!=6 || $gobbo!=7 || $gobbo!=8){ print "There are no demons here now.\n"; &freedale } } sub shop { print "Hello welcome to freedale market may I help you?\n"; print "type 1 for 20 more health.............................. +...........10 gold\n"; print "type 2 for daggers (increases damage per round by one). +............................................15 gold\n"; print "type 3 for magic wands(increases magic level by one)... +..................................30 gold\n"; print "type 4 to leave the shop\n"; print "You have $gold gold\n"; $shop=<STDIN>; chomp($shop); if($shop==1){ if($gold>=10){ $gold-=10; $wizard+=20; print "$name's health: $wizard\n"; print "Gold: $gold\n"; &freedale; }elsif($gold<$gold){ print "You don't have enough gold!\n"; $shop; } }elsif($shop==2){ if($gold<15){ print "you don't have enough gold\n"; &freedale; }else{ print "thank you\n"; $gold=$gold-15; $damage=$damage + 1; &freedale; } }elsif($shop==3){ if($gold<30){ print "you don't have enough gold\n"; &shop; }else{ print "thank you\n"; $gold=$gold-30; $wizardl=$wizardl+1; &freedale; } }elsif($shop==4){ print "Thank you for coming!\n"; &freedale; }else{ print "Please enter a number between 1 and 4!\n"; &freedale } } sub run{ $chance = int (rand 2); if($chance==0){ print "You failed to get away!\n"; print "Minus two health!\n"; $wizard-=2; print "$name's health: $wizard\t"; print "$monster' health: $goblin\t"; &battle; }elsif($chance==1){ print "You managed to escape!\n"; &freedale; } } sub cheat{ $wizardl += 2; $wizard += 100; $gold += 60; &freedale } sub stat{ print "health:\t$wizard\n"; print "magic level:\t$wizardl\n"; print "gold:\t$gold\n"; print "damage:\t$damage\n"; &freedale } sub freedale{ if($gold < 0){ $gold = 0; &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, 3 for the dun +geon, 4 for the shop, 5 to view stats, 6 for the Shadow Plan +e, or q to quit.\n "; print "press q at anytime to quit.\n"; $room=<STDIN>; if($room==1){ &forest; }elsif($room==2){ &mountain; }elsif($room==3){ &dungeon; }elsif($room==4){ &shop }elsif($room==5){ &stat }elsif($room==6){ if($wizardl < 3){ print "You're level isn't high enough! You must have a + magic lvl o +f 3 to come here.\n"; &freedale }elsif($wizardl => 3){ &splane } }elsif($room==7){ &cheat }elsif($room=="q"){ &die }else{ print "Please enter a number between 1 and 6 or q to quit!\n +"; &freedale; } } } &freedale
In reply to Wizard v1.2 by void_Anthony()
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |