var points : array 1 .. 4 of int
for x : 1 .. 4
    points (x) := 0
end for

fcn CumulatedPoints (answer : string) : int
    if answer = "a" then
        result 1
    elsif answer = "b" then
        result 2
    elsif answer = "c" then
        result 3
    elsif answer = "d" then
        result 4
    end if
end CumulatedPoints

proc getIt
    loop
        var ans : string (1)
        getch (ans)
        if ans = "a" or ans = "b" or ans = "c" or ans = "d" then
            points (CumulatedPoints (ans)) += 1
            exit
        else
            put "invalid answer"
        end if
    end loop
    cls
end getIt
proc question (q, a1, a2, a3, a4 : string)
    put q
    put "a). ", a1
    put "b). ", a2
    put "c). ", a3
    put "d). ", a4
    getIt
end question

question ("Which of the following European countries is your favorite, or with which do you most closely identify?", "Canada", "England",
    "Germany", "The big awesome disco country")
question ("You see a baby with some candy and you are really hungry. Do you:", "walkaway",
    "leer at the candy, evily", "smack the baby and take the friggin candy", "go home and party")
question ("A big huge spaceship lands in your backyard. What do you do?", "warn the whole town", "run away and get yourself to safety", "join the aliens and destroy the whole world",
    "party, because you know that mankind is doomed")
question ("You have woken up, only to find out that you are a monster. What do you do?",
    "try to become human again", "smash all the bulidings", "kill EVERYONE in your way!!!", "party like an animal")
question ("You have been found guilty for murdering 25 people, so now you are getting the death penalty.What do you do?",
    "confess and sa you are sorry, because it is the right thing to do", "plead insane", "kill those ***king ***kers who want you dead!!!", "party in your last few moments of life")
question ("You have found a time machine.What do you do?", "go back in time to see your parents as children", "go back to ancient egyptian and watch the slaves build the pyramids",
    "warn the Germans about d-day", "go back to the 70s and party")

fcn Max (num1, num2, num3, num4 : int) : int
    var MaxNum := num1
    var realVal : int := 1
    if num2 > MaxNum then
        MaxNum := num2
        realVal := 2
    end if

    if num3 > MaxNum then
        MaxNum := num3
        realVal := 3
    end if

    if num4 > MaxNum then
        MaxNum := num4
        realVal := 4
    end if
    result realVal
end Max
var score : int := Max (points (1), points (2), points (3), points (4))

if score = 1 then
    put "You are a good person. Congradulatins! You laugh all the time, even if no one"
    put "said anything...even if no one is around."
elsif score = 2 then
    put "You hate the world and have come to hate yourself too. You have self-inflicted"
    put "cuts all along your wrists."
elsif score = 3 then
    put "You are as evil as Hitler, but not quiet as charismatic. "
    put "You are a horrible horrible person, you are more evil than santa himself."
elsif score = 4 then
    put "You are not evil, but you are a party animal. You party like it's"
    put "your Birthday everyday."
end if

question ("You see a red telephone. What do you do?", "call your parents, and tell them you love them",
    "prank call some random people", "somehow start world war 3", "call your friends for a wild party")
question ("You see a kid being bullied. What do you do?", "help him out, because you are a good citizen", "just watch, because you really don't care",
    "join in because you are an awful,awful person", "go home and party")
question ("You are Link from the legend of Zelda.You are given a quest to save Hyrule(again) from Gannon. What do you do?", "get on with your quest", "behead Zelda, and go home to sleep",
    "join forces with Gannon and destroy Hyrule", "party with the other elves, and invite Gannon too")
question ("Your careers teacher has assigned you another stupid presentation. What do you do?", "just do it, and get it over with", "don't do it and accept a zero",
    "throw a fit and tell them that you are friggin sick of this friggin course", "go home and party")
question ("Someone you stongly dislike insults you to your face, aggressively. What do you do?", "Ignore them totally. Why bother?", "start crying",
    "at night,when they are sleeping, plant some drugs under their bed and reprot him to the police", "invite him to a party")
question ("A friend of yours turns out to be sleeping with underage girls/boys. What do you do?", "report him/her but be nice about it", "ignore their child lovin' ways...",
    "blackmail them THEN report them anyway",
    "invite the children and your friend to a party")
question ("Your friends'lover tries to turn on you.You find them attractive.What do you do?", "turn them down, and tell your friend for their own good",
    "kiss them just to see what it feels like", "have a secrete affair with them", "invite them to a wild party")

var score : int := max (max (points (1), points (2)), max (points (3), points (4)))