A suggestion for the next update: put all the "places" where you have to fight in one subroutine and the variable things in a hash (similar as you have doen with the fighting routines).

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

Sure. Actually I was thinking about how to give some more depth to the game without making the code any longer... more places, perhaps a "maze", harder monsters (when you reach level 6 you basically never lose anymore)... And what about various "quests"? The first one would be "kill the monsters around Merlin's place", then you'll switch to another...
I'm afraid it may turn into a real app soon :)

I've modified it a bit, adding a third number for the number of coins for each monster:
Read more... (11 kB)
Adding a variable damage could also be a good idea.

Fine :) Actually I'd like to implement a more complete combat system with damage, armor, etc. Also I had started a system to build "places" such as a forest, a castle, a cave so you can wander around a little, find some tresures, etc. Then of course you'll need to be able to save the game state; then why not make it CGI-able, and what about multiplayer game? Mmmmh, i'm afraid it's about to become a real project :)


Here's what I'm working out for the "place generator" :

Forest, mountain, village, castle, cavern maze.

• a forest is a group of connected "rooms" with very little "walls". You can almost always go whichever direction you want. There are some obstacles though : rivers, big trees, rocks.
• mountain is a group of connected "rooms" with walls on a prefered axis (you can easily travel from north to south, but not from east to west) and a top (from which you can go all directions), some rocks and pits. Summit is the preferred place to finc treasures of course.
• village is a village :), with some streets, some houses, with people, treasures or monsters inside, and perhaps shops.
• castle is made of groups of rooms (towers) with several floors (some possibly underground), connected through corridors, with a dungeon (a bigger tower) where the monsters and treasures mostly are :)
• a cavern maze is a maze, haunted by terrible monsters, perhaps even dragons. Wow, big treasures too!
The game would generate a random "world" to be explored. I'd create a set of basic "quests", you'll end the quest by killing a group of defined monsters or finding a set of defined treasures; then it would generate another world, harder, with a new quest, etc.
Yes, As I thought about it, it becames quite clear that this would be easily extended to aclient-server mode, so you can play with a command line, a browser (cgi) interface (possibly graphical) or even a graphic display, and why not, make it multiplayer.
OK, be enthusiast enough and I'll make it :)

How come when I kill Demons in combat, I only get 3 gold, but when I zap them with a spell, I get 6?

Also, I hit a "deep recursion" at one point, which I thought was odd, but it didn't affect gameplay, which is, of course, smooth and realistic. :-)

---

Caution: Contents may have been coded under pressure.

Hmmm, looks like a bug :) For the deep recursion problem, I didn't really understand what happened, but I didn't care too much because it works fine anyway :)
BTW I'm surprised to see that there so few text-based adventure games on perlmonks, and I started working on it more seriously :)

What do you want to do...press 1 to use spells or 2 for combat
2
wizard health: 18       goblin health: 7
wizard health: 16       goblin health: 2
wizard health: 14       goblin health: -3
wizard health: 12       goblin health: -8
wizard health: 10       goblin health: -13
wizard health: 8        goblin health: -18
wizard health: 6        goblin health: -23
wizard health: 4        goblin health: -28
wizard health: 2        goblin health: -33
wizard health: 0        goblin health: -38
Died at wizard.pl line 16, <STDIN> line 102.
[download]

That's one tough, undead goblin! :)

It's a bug in wizard v1.1 (the combat ends ONLY if the goblin's health falls to exactly 0). Try 1.2 :)

I have fixed that 'invincible goblin bug'(including the wizard one as well.) Also took out the extra battle sequence and made it specific for each area you fought in. I liked wazoox's idea of including more enemies but I didn't like the random idea. You might die if you encountered a demon in the forest! So I assigned a specific enemy to each area. Harder the area, harder the monster is to kill (and less success depending on your level with the toad spell.) But, you get more gold for the harder enemies. I like that quest idea, but I think it would be very long, drawn out code to accomplish this. If you have any bright ideas as to how I might get started (initiate here on the forums and novice at perl) I would gladly appreciate the advice. (I have been thinking about incorporating items in the game too. Any feedback is welcome.) See my notepad for the current code. 1.2 won't be released until I'm sure there will be many more things to offer.

 do{
  $goblin=$goblin-$damage;
  if($goblin<0){
  $goblin=0;
  }if($wizard<0){
  $wizard=0;
  }
  if($room==6){
   my  $dmg=int (rand 5)+1;
  }elsif($room==3){
   my  $dmg=int (rand 4)+1;
  }elsif($room==2){
   my  $dmg=int (rand 3)+1;
  }elsif($room==1){
   my  $dmg=int (rand 2)+1;
  }
  $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){
  &die;
}
    }else{
      print "Please enter 1, 2, or q...\n";
      &battle;
        }
           }
[download]

You put my $dmg inside the if block. The my part tells it that when that block ends at the next } to destroy your $dmg variable. In other words teh my part tells it that the variable $dmg should only be available for the current block. To fix it add my $dmg; outside the if and remove the my from inside the block.

my $dmg;
if($room==6){
    $dmg=int (rand 5)+1;
}elsif($room==3){
    $dmg=int (rand 4)+1;
}elsif($room==2){
    $dmg=int (rand 3)+1;
}elsif($room==1){
    $dmg=int (rand 2)+1;
}
[download]

That might be better written as

my $dmg = int (rand $room + 1) + 1;

___________
Eric Hodges

Please, PLEASE, please PlEaSe, pL34Z3, add use strict and perhaps use warnings to your script! That will save you LOTS of headaches, so get used to ALWAYS use them!

I will look into use strict for the next version (I want to have some ideas for 1.3. I'm running low as it is.) But if that's all, this will be it.

[pad://void_Anthony()] void_Anthony()'s scratchpad


holli, /regexed monk/