require("funktioner.pl");

skriv("Hej och välkommen till Dr Frankenstein.\n");
skriv("Jag är en jävlit ful psykolog med rosa byxor.\n");
skriv("Svara 1 för ja, 0 för nej.\n\n");

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

if($svar == 0)
{
  $svar = fraga("Ajajaj. Är det för att du är så ful, kanske? ");
  
  if($svar == 0)
  {
    skriv("Men du är ju fet som en brevlåda!\n");
  }
  elsif($svar == 1)
  {
    skriv("men om du mår bra va fan jör du här då. gå hem.\n");
  }
}
elsif($svar == 1)
{
  $svar = fraga("Men du är ju så ful... Är det för att du äter bullar? ");
  
  if($svar == 0)
  {
    skriv("Du måste vara tokig!\n");
  }
  elsif($svar == 1)
  {
    skriv("Då förstår jag!\n");
  }
}
else
{
  skriv("\nDu måste prata tydligt, jag sticker!\n");
  avsluta();
}

$svar = fraga("\nDå går vi vidare. Du luktar gammal ost, är du en knarkare? ");

if($svar == 0)
{
  $svar = fraga("Har du låg iq. jobbar du på Mackdonalds?\n");
  
  if($svar == 1)
  {
    skriv("Jick det dåligt i skolan för dig eller gorde du inte dina läxor din skit stövell i så fall rätt åt dig!");
  }
  elsif($svar == 0)
  {
    skriv("I så fall vet jag inte vad ditt problem är. NÄSTA!!!");
  }
}
elsif($svar == 1)
{
  skriv("Kann jag få lite jag är däsperat!!!\n");
}


avsluta();