How evil are you?

[CodeMonkey2000]

This quiz was inspired by somehing my fried did last year. I did this in like 10 minutes, because I was really really really bored.There is no uber 1337 grfx, it's just a simple quiz to determin how evil you are. Feel free to add questions.

Turing:

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

[CodeMonkey2000]

Some more questions. By he way, please post what you got on the quiz, I'm just curious.

Turing:

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")

[DemonZ]

I took your quiz and it said Im as evil as hitler, then it told me Im a horrible person. I like it very much, thanks for the compliment, good program, even though theres not much excitment to it.

[Clayton]

your whole max function to determine the score could simply have been cut down to:

Turing:

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

this is a pretty repetetive test.... all you have to do is answer c every time and you're evil, d every time and you're a partygoer... but meh.

[CodeMonkey2000]

Turing has a max function!!!! Anyway I didn't feel like randomizing the answers. It was something I did while I was bored. Was the test at least slightly funny/witty?

[lilmizeminem]

haha i liked this quiz.

[program_x]

haha.. loved the game, and i love being evil, i better not say anymore, or clayton 'll get me deleted

[Nick]

lmao i like how being canadian makes u good eh:P
nice program made me laugh like inviting the underaged children to a party

[SNIPERDUDE]

roflmfao
PARTY!!!

[Clayton]

...