#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Term::ANSIScreen qw(cls);

STARTMENU:
print
"___________________________________________
|                                         |
|        Generic Text Adventure           |
|                                         |
|                                         |
|                                         |
|         How far will you go?            |
|                                         |
|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
|                                         |
| [1] Start Game          [2] Load Game   |
|                                         |
|               [3] Help                  |
|                                         |
|                                    V1.0 |
------------------------------------------- \n";
my $gamechoise = <STDIN>;

if ($gamechoise == "1"){
goto GAME}
elsif ($gamechoise == "2"){
goto LOAD}
else {goto HELP};

HELP:
print "helptext \n
This is help for this game. \n
This is just a generic text adventure, nothing really special. \n
It's rather a smol excercise / perl training for meh. \n
So since it's a text adventure, use your keyboard to enter commands to trigger certain actions to continue the journey. \n
If an input is required, you are seeing a field that tells you which actions and which items can be used. Those fields look something like this: \n
_________\n
ACTIONS: ACTION1 \n
OBJECTS: OBJECT1, OBJECT2\n
--------- \n
Every command you type in has to consist of maximum 1 action and at least 1 object.\n
For Example, to do ACTION 1 WITH OBJECT 1, just type following and apply with enter: \n
ACTION1 OBJECT1 \n
Note that you have to use caps lock for your input. To use several objects at once, just put an AND in between the objects you want to use, for example: \n
ACTION1 OBJECT1 AND OBJECT2 \n
This is what a command should look like with real values: \n
EAT SPAGHETTI AND PIZZA \n
And this is basically how this game works. Now it's your turn. Start the game and enjoy :)\n
[1] Main Menu \n";
$gamechoise = <STDIN>;
if ($gamechoise == 1){
goto STARTMENU;}

GAME:
print "You wake up in a dark room. Of course, and just like in any other generic RPG, you don't know what happened or what led you to this situation.
You take a look in you bag. Inside your bag you find a matchbox..\n";
ONE: print "_________\n
ACTIONS: USE \n
OBJECTS: MATCHES\n
--------- \n";
chomp (my $action = <STDIN>);
if ($action eq "USE MATCHES"){
print "\n You are lighting one match to get a hint of your surroundings. The light your match creates is not very bright and didn't last long. But you were able to recognise a candle standing on a table next to you.. \n"}
else {print "\nthis doesn't work \n \n "; goto ONE};

TWO: print "_________\n
ACTIONS: USE \n
OBJECTS: MATCHES, CANDLES\n
--------- \n";
chomp ($action = <STDIN>);
if ($action eq "USE MATCHES AND CANDLES"){print "\n You are lighting the candle to get a better view of your surroundings. You seem to be in a bigger room since the candlelight doesn't illuminate the whole room you're in. It's enough tho to see following contruction next to you:
There's a light switch mounted to the wall. Two open, non insulated copper wires connect that light switch to a lightbulb hanging several feet above you. Your feet are bound to the ground via a rope that you can't loosen
with your bare hands.. \n"}
else {print "\nthis doesn't work \n \n"; goto TWO};

THREE: print "_________\n
ACTIONS: USE \n
OBJECTS: SWITCH\n
--------- \n";
chomp ($action = <STDIN>);
if ($action eq "USE SWITCH"){print "\nAs you press the switch to turn on the light bulb, a loud bang and a bright flash emerge from the bulb above you, before it gets dark again.
As the bulb explodes, the glass of the bulb shatters and bigger pieces of glass shards land around you..\n";}
else {print "\nthis doesn't work"; goto THREE}

FOUR: print "_________\n
ACTIONS: USE \n
OBJECTS: SHARDS, ROPE\n
--------- \n";
chomp ($action = <STDIN>);
if ($action eq "USE SHARDS AND ROPE"){print "\nYou use the glass shards to cut the rope that keeps you from moving around freely.
You pick up the lit candle and start to investigate the room you're in.\n"}
else { print"\nthis doesn't work\n"; goto FOUR}

FIVE: print "_________\n
ACTIONS: GO \n
OBJECTS: NORTH\n
--------- \n";
chomp ($action = <STDIN>);
if ($action eq "GO NORTH"){print "\nOn the other side of the room there's a locked door. It has a keyhole, where, obviously, dear player, a key is supposed to be inserted into in order to proceed. As you look down, you can find a kind of drainage hole in the floor.
Luckily, our weak candlelight reveals a weak reflecting thing on the bottom of that hole. Sadly, your arm is just too thick in order to reach that object you suspect to be a key. If only there was a hook or someting to fish it out..\n"}
else { print"\nthis doesn't work\n"; goto FIVE}

SIX: print "_________\n
ACTIONS: GO \n
OBJECTS: SOUTH\n
--------- \n";
chomp ($action = <STDIN>);
if ($action eq "GO SOUTH"){print "\nNow you are where you were tied to the floor and that weird lamp connected to those 2 flexible bare copper cables was connected to exploded due to what seemed to be overvoltage..\n";}
else { print"\nthis doesn't work\n"; goto SIX}

SEVEN: print "_________\n
ACTIONS: TAKE, TURN OFF \n
OBJECTS: CABLES, SWITCH\n
--------- \n";
chomp ($action = <STDIN>);
if ($action eq "TURN OFF SWITCH"){print "\nYes, it was a good decision to turn off that switch..\n"}
elsif ($action eq "TAKE CABLES") {print "\nAs you touch the cables, 230 volts run through your body, leaving you dead. Game Over. Didn't they teach you not to mess around with electricyty? \n";
goto STARTMENU;} else {print "this doesn't work \n"; goto SEVEN;}

print "You picked up the cables that seem like you could use as some kind of hook and head back to that hole..\n";

EIGHT: print "_________\n
ACTIONS: USE \n
OBJECTS: CABLES, HOLE\n
--------- \n";
chomp ($action = <STDIN>);
if ($action eq "USE CABLES AND HOLE"){print "You obtained the key to open the locked door. You open the door to find youself in a well-lit room. You enter that room, but there are metal bars between you and the rest of the room. You notice a strange guy standing near
to the bars that lock you down, facing away from you. There also is a kind of door that leads out of your cage, that of course requires keys to open. You notice a keychain hanging from the guys pocket. You try to talk to
that guy but he just ignores you. You notice a table a couple feet away from your cell. On that table is a glass of water that the guys is drinking from every couple minutes. He doesn't seem to even look at the glass when he's
drinking from it. Maybe he is blind or whatever. What a strange occasion.
you notice that your bagpack feels pretty heavy. As you take a look inside it, you find what is causing this weight. You have a container full of heavy lead dust..\n";}
else {print "this doesn't work"; goto EIGHT;}

NINE: print "_________\n
ACTIONS: USE, SWALLOW \n
OBJECTS: LEAD, GLASS\n
--------- \n";
chomp ($action = <STDIN>);
if ($action eq "USE LEAD AND GLASS"){print "Tho you can't directly pour the dust into that glass because it's too far away to reach with your hands, you try to throw some dust into the glass. Luckily, a fair amount of dust particles actually land in the glass.
A few moments later, the guy drinks from the glass again, of course not knowing that you messed with it. He doesn't even seem to notice that dust you added. A few minutes after drinking that water, the guy falls on the floor.
You killed him via lead poisoning. You freaking genious. End of Demo :) GG. To be continued.. \n"}
elsif ($action eq "SWALLOW LEAD") {print "For some reason, you decided to swallow this poisonous element. Several minutes later, you die due to lead poisoning. Congrats. \n"; goto STARTMENU;}
else {print "\nthis doesn't work"; goto NINE}


exit;

LOAD:
print "load";
exit;