require("funktioner.pl");

skriv("Hej och välkommen till Dr Frankenstein.\n");
skriv("Jag är en snäll psykolog med rosa byxor och lila shorta.\n");
skriv("Svara 1 för ja, 0 för nej och 2 för kanske .\n\n");

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

if($svar == 0)
{
  $svar = fraga("Ajajaj. Är det för att du är så fet, kanske? ");
  
  if($svar == 0)
  {
    skriv("Men du är ju äkligt fet som en elefant!!!!!\n");
  }
  elsif($svar == 1)
  {
    skriv("Ok... Du ser ut som en stor fet slemmig muterad grillad kyckling!\n");
  }
}
elsif($svar == 1)
{
  $svar = fraga("Men du är ju så ful... Är det för att jag kom till dig igår och muterade dig i ugnen??? ");
  
  if($svar == 0)
  {
    skriv("Du måste vara tokig!\n");
  }
  elsif($svar == 1)
  {
    skriv("Då förstår jag!\n");
  }
}
elsif($svar == 2)
{
  skriv("\nsynd för dig att du inte vet då, vi ses loser!\n");
  avsluta();
}

$svar = fraga("\nDå går vi vidare. Du luktar gammalt hästskit, är du det?!?!? ");

if($svar == 0)
{
  skriv("I så fall har du aldrig sett en dusch!!!, din slemhög!\n");
}
elsif($svar == 1)
{
  skriv("Mums, jag gillar äkligt feta och slemmiga hästar!\n");
}
elsif
($svar == 2)
{
  skriv("idiot det är vel klart att du är det!!\n");
}

avsluta();