Program flow

[gloomer]

I'm having a bit of trouble with program flow.

I'd love to explain more, but it seems the comments in my code do a better job.

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $left = 'left';
my $right = 'right';
 
print "You\'re walking along, and you see a fork in the road. What do you do\?.\n";
print "To Turn Left(type left)\?\n";
print "To Turn Right(type right)\?\n";
 
my $choice = <STDIN>;
chomp $choice;
 
if ($choice eq $left) { ###### If $choice equals $left then it needs to print LOLOL and then jump down to "If you turned left" section.
    print "LOLOL\n";
 
} elsif ($choice eq $right) { ####### if $choice quals $right then print HAHA and jump down to "If you turned right"
    print "HAHA\n";
 
} else {
    print "PRINT A VALID OPTION MAAAAAN\n"; ######## Jump back my $choice so the user can print a valid option.
}
 
###############- If you turned left -
 
print "You just turned left, and you come to a cliff. What do you do\?.\n";
print "To jump off (type off) \n";
print "To do nothing (tpe nothing) \n";
 
####################### -If you turned right -
 
print "You just turned right, and you come to a village. What do you\?.\n";
print "To burn and sack the village (type sack) \n"; 
print "To run through the village to the church (type church) \n";
 

[KevinADC]

If this is anymore than an excesize to learn some basic coding you should not continue to proceed like you have so far. Trying to code a game like this is not as easy as you might hope. But if it is just an excersize, you need to start using subroutines and passing arguments to them and back from them when the time comes:

#!/usr/bin/perl
 
use strict;
use warnings;
start();
 
sub start {
   print "You\'re walking along, and you see a fork in the road. What do you do\?.\n";
   print "To Turn Left(type left)\?\n";
   print "To Turn Right(type right)\?\n";
   my $choice = <STDIN>;
   chomp $choice;
   fork_in_road($choice);
}
 
sub fork_in_road {
   my $choice = shift;
   if ($choice eq 'left') { ###### If $choice equals $left then it needs to print LOLOL and then jump down to "If you turned left" section.
      print "LOLOL\n";
      fork_left();
 
   }
   elsif ($choice eq 'right') { ####### if $choice quals $right then print HAHA and jump down to "If you turned right"
      print "HAHA\n";
      fork_right();
 
   }
   else {
      print "PRINT A VALID OPTION MAAAAAN\n"; ######## Jump back my $choice so the user can print a valid option.
      start();
   }
}
 
###############- If you turned left -
sub fork_left {
   print "You just turned left, and you come to a cliff. What do you do\?.\n";
   print "To jump off (type off) \n";
   print "To do nothing (type nothing) \n";
}
####################### -If you turned right -
 
sub fork_right {
   print "You just turned right, and you come to a village. What do you\?.\n";
   print "To burn and sack the village (type sack) \n"; 
   print "To run through the village to the church (type church) \n";
}
 

[gloomer]

WOW. Thank you so very much!

I know how to use subs now.

[KevinADC]

That was only a gentle and basic introduction to subs.