require("funktioner.pl");

skriv("Hej, jag är Dr. Éfertex.\n");
skriv("Jag är en psykolog som inte kan tänka, men jag ska försöka hjälpa dig.\n");
skriv("Svara 1 för ja, 0 för nej och 2 för vet ej/kanske.\n\n");

$svar = fraga("Mår du bra? ");

if($svar == 0 || $svar == 2)
{
  $svar = fraga("Är det för att du sovit för länge? \n ");
  
  if($svar == 0)
  {
    $svar = fraga("Har du ätit för mycket gröt?\n");
    
    if($svar == 0)
    {
      skriv("Ät mer gröt, jag kan rekommendera \"zapomentasins beska gröt\".\n");
    }
    else
    {
      skriv("Det är Bra at äta gröt!\n");
    }
  }
  elsif($svar == 1)
  {
    skriv("Sov mindre då!\n");
  }
}
else
{
  skriv("Vad gör du här då??\n\n");
  avsluta();
}

$svar = fraga("Vill du ha bulle?\n");

if ($svar == 1)
{
  skriv("Då får du köpa min med gurkmjöl.\n\n");
}
elsif ($svar == 2)
{
  skriv("Då får du ingen! HAHA.\n\n");
}
else
{
  skriv("OKdå, du har väl ändå redan fått två!\n\n");
}

skriv("\nMen nu skiter jag i det här skitjobbet med alla skitiga personer som skitar ner min redan allt för skitiga skitkvalitets-stol!");


avsluta();