require("funktioner.pl");

skriv("Hej, jag är Dr. Fluxxo! Bläääh!\n");
skriv("Jag är elektronisk.\nSvara 1 för ja, 0 för nej eller 2 om du inte vet.\n\n");

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

if ($svar == 1)
{
  skriv("Härligt, du måste gå i datorklubben. Då kan du gå hem!\n");
  avsluta();
}
else
{
  skriv("Jag är bara djurpsykolog, men ska göra mitt bästa.\n");
}

$svar = fraga("Är du aggressiv?? ");

if ($svar == 1)
{
  skriv("Det är inte bra. Spela mera My Little Potty.\n");
}
elsif ($svar == 0)
{
  skriv("Bra. Du äter nog ordentligt med kolasås.\n");
}
else
{
  $svar = fraga("Vet du inte? Tycker andra att du är aggressiv? ");
  
  if ($svar == 1)
  {
    skriv("Gå med i datorklubben. Där får du bullar.\n");
  }
  else
  {
    skriv("Fråga någon du känner, ditt nöt!\n");
  }
}

avsluta();