require("funktioner.pl");

$dubloner = 100;

skriv("Äventyraren Bernt McManus har ramlat ner i en pyramid\n");
skriv("Du har $dubloner gulddubloner, en hatt och en piska\n\n");

skriv("Framför dig har du två dörrar och en lucka i golvet.\n");
skriv("Från den vänstra dörren hör du ett hemskt morr.\n");
skriv("Genom luckan sipprar det upp en grönaktig gas som lyser.\n");
skriv("Du hör ljuvlig änglasång från den högra dörren.\n\n");

skriv("   1. Öppna den högra dörren.\n");
skriv("   2. Öppna den vänstra dörren.\n");
skriv("   3. Öppna den hemliga luckan i golvet.\n\n");

$svar = fraga("Vad gör du? ");

if($svar == 1)
{
  skriv("\nSju tusen hungriga änglar sliter dig i stycken. Börja om!\n");
  avsluta();
}
elsif($svar == 2)
{
  skriv("\nDu snubblar över en gullig liten griskulting som\n");
  skriv("hostar upp 50 gulddubloner. Du går vidare.\n");
  $dubloner = $dubloner + 50;
}
elsif($svar == 3)
{
  skriv("\nGrön gas är giftig, pucko. Börja om.\n");
  avsluta();
}

skriv("\nFramför dig har ett hemskt odjur med arton huvuden.\n");
skriv("Du minns din träning med munkarna i Tibet och mumlar tyst.\n");
skriv("På marken ligger en ballonghund, tre kinapinnar och en yxa.\n\n");
skriv("   1. Gör om ballonghunden till en giraff\n");
skriv("   2. Vässa kinapinnarna med yxan och anfall!\n");
skriv("   3. Töm ballongen på luft och trä den över huvudet\n\n");

$svar = fraga("Vad gör du? ");

if($svar == 1)
{
  skriv("\nMonstret minns sin hemska barndom som giraff och flyr.\n");
  skriv("Du hittar 118 dubloner och går vidare.\n");
  $dubloner = $dubloner + 118;
}
elsif($svar == 2)
{
  skriv("\nOdjuret visar sig vara en muterad kanin som blir glad för pinnarna\n");
  skriv("eftersom den saknar tänder.\n");
  skriv("Djuret ger dig 50 dubloner och du går vidare.\n");
  $dubloner = $dubloner + 50;
}
elsif($svar == 3)
{
  skriv("\nOdjuret tittar på medan du långsamt kvävs. Man kan inte andas\n");
  skriv("med en ballong över huvudet. Gör om, gör rätt.\n");
  avsluta();
}

skriv("\nDu ser ljus i änden av en tunnel och känner lukten av grillad korv.\n");
skriv("Grattis, du överlevde och kom ut med $dubloner gulddubloner.\n");

avsluta();