Which outsiders character are you quiz

[B-ridly]

% I know tuff is spelled wrong
% this may not work as I made it in google docs
setscreen ( "graphics" )
setscreen ( "graphics:600;1050" )

var intfont : int
var name : string
var impulse_num : nat
var danger_num : nat
var family_num : nat
var tuff_num : nat
var dumb_num : nat
var kill_probability : nat
var rich_num : nat
var carpet_num : nat
var cool_num : nat
var finger_num : nat
var total_num : nat

Draw.FillBox(0,0,maxx,maxy,grey)

intfont := Font.New("Times New Roman:30")
Font.Draw("W", 40, 960, intfont, blue)
intfont := Font.New("Times New Roman:30")
Font.Draw("h", 80, 960, intfont, red)
intfont := Font.New("Times New Roman:30")
Font.Draw("a", 100, 960, intfont, brightred)
intfont := Font.New("Times New Roman:30")
Font.Draw("t", 120, 960, intfont, brown)
intfont := Font.New("Times New Roman:30")
Font.Draw("O", 160, 960, intfont, green)
intfont := Font.New("Times New Roman:30")
Font.Draw("u", 190, 960, intfont, black)
intfont := Font.New("Times New Roman:30")
Font.Draw("t", 210, 960, intfont, brightpurple)
intfont := Font.New("Times New Roman:30")
Font.Draw("s", 222, 960, intfont, magenta)
intfont := Font.New("Times New Roman:30")
Font.Draw("i", 238, 960, intfont, green)
intfont := Font.New("Times New Roman:30")
Font.Draw("d", 250, 960, intfont, blue)
intfont := Font.New("Times New Roman:30")
Font.Draw("e", 270, 960, intfont, brightred)
intfont := Font.New("Times New Roman:30")
Font.Draw("r", 290, 960, intfont, red)
intfont := Font.New("Times New Roman:30")
Font.Draw("s", 304, 960, intfont, brown)
intfont := Font.New("Times New Roman:30")
Font.Draw("C", 350, 960, intfont, magenta)
intfont := Font.New("Times New Roman:30")
Font.Draw("h", 380, 960, intfont, green)
intfont := Font.New("Times New Roman:30")
Font.Draw("a", 400, 960, intfont, brightpurple)
intfont := Font.New("Times New Roman:30")
Font.Draw("r", 420, 960, intfont, red)
intfont := Font.New("Times New Roman:30")
Font.Draw("a", 435, 960, intfont, brightred)
intfont := Font.New("Times New Roman:30")
Font.Draw("c", 455, 960, intfont, blue)
intfont := Font.New("Times New Roman:30")
Font.Draw("t", 475, 960, intfont, green)
intfont := Font.New("Times New Roman:30")
Font.Draw("e", 486, 960, intfont, magenta)
intfont := Font.New("Times New Roman:30")
Font.Draw("r", 506, 960, intfont, blue)
intfont := Font.New("Times New Roman:30")
Font.Draw("a", 230, 920, intfont, black)
intfont := Font.New("Times New Roman:30")
Font.Draw("r", 250, 920, intfont, green)
intfont := Font.New("Times New Roman:30")
Font.Draw("e", 265, 910, intfont, brightpurple)
intfont := Font.New("Times New Roman:30")
Font.Draw("y", 300, 920, intfont, brightred)
intfont := Font.New("Times New Roman:30")
Font.Draw("o", 320, 920, intfont, red)
intfont := Font.New("Times New Roman:30")
Font.Draw("u", 340, 920, intfont, brown)
intfont := Font.New("Times New Roman:30")
Font.Draw("?", 360, 920, intfont, magenta)



intfont := Font.New("Times New Roman:14")
Font.Draw("What is your name? ", 40, 850, intfont, blue)
intfont := Font.New("Times New Roman:30")
locate(15,1)
get name

intfont := Font.New("Times New Roman:14")
Font.Draw("Hello " + name, 42, 780, intfont, blue)
delay (1350)
locate(21,1)
intfont := Font.New("Times New Roman:14")
Font.Draw("How impulsive are you on a scale of 1 to 10? ", 40, 740, intfont, blue)

get impulse_num

delay (1350)
intfont := Font.New("Times New Roman:14")
Font.Draw("How dangerous are you on a scale of 1 to 10? ", 40, 690, intfont, blue)
locate(24,1)
get danger_num

delay (1350)
intfont := Font.New("Times New Roman:14")
Font.Draw("How large is your family? ", 40, 640, intfont, blue)
locate(27,1)
get family_num
delay (1350)
intfont := Font.New("Times New Roman:14")
Font.Draw("How tuff are you on a scale of 1 to 10?", 40, 590, intfont, blue)
locate(30,1)
get tuff_num
delay (1350)
intfont := Font.New("Times New Roman:14")
Font.Draw("How smart are you on a scale of 1 to 10?", 40, 540, intfont, blue)
locate(33,1)
get dumb_num
put "Really, your smarter than that"
delay (1350)
intfont := Font.New("Times New Roman:14")
Font.Draw("How many knives do you own?", 40, 480, intfont, blue)
locate(37,1)
get kill_probability
if kill_probability > 5 then
put “Oh god that’s too many, are you Ben?”
else
end if
delay (1350)
intfont := Font.New("Times New Roman:14")
Font.Draw("How rich are you on a scale of 1 to 10?", 40, 420, intfont, blue)
locate(41,1)
get rich_num
Delay(350)
if rich_num < 4 then
put "Oof"
delay(350)
elsif rich_num > 5 then
delay(350)
put "Richy rich”
else
delay(350)
put "Okay good"
end if
delay (1350)
intfont := Font.New("Times New Roman:14")
Font.Draw("How many times do you wear hair grease weekly", 40, 360, intfont, blue)
locate(45,1)
get carpet_num
delay (1350)
intfont := Font.New("Times New Roman:14")
Font.Draw("How cool are you on a scale of 1 to 10?", 40, 310, intfont, blue)
locate(48,1)
get cool_num
delay (350)
put "10/10 right?"
delay (1350)
intfont := Font.New("Times New Roman:14")
Font.Draw("How many fingers do you have?", 40, 240, intfont, blue)
locate(53,1)
get finger_num
if finger_num < 10 then
delay(350)
put "That might be a problem"
elsif finger_num > 10 then
delay(350)
put "That might be a problem"
else
delay(350)
put "Okay good"
end if

impulse_num := impulse_num
danger_num := danger_num
family_num := family_num
tuff_num := tuff_num
dumb_num := dumb_num
kill_probability := kill_probability
rich_num := rich_num
carpet_num := carpet_num
cool_num := cool_num
finger_num := finger_num

locate(57,1)
total_num := impulse_num + danger_num + family_num + tuff_num + dumb_num + kill_probability + rich_num + carpet_num + cool_num + finger_num
put (total_num)

if total_num > 100 then
delay(500)
put "Please restart as you are stupid"
elsif total_num > 89 and total_num < 100 then
delay(500)
put "Better go to the name change office because you are not " + name + ", your new name is Dally"
elsif total_num < 89 and total_num > 78 then
delay(500)
put "Better go to the name change office because you are not " + name + ", your new name is Two-Bit"
elsif total_num < 78 and total_num > 67 then
delay(500)
put "Better go to the name change office because you are not " + name + ", your new name is Steve"
elsif total_num < 67 and total_num > 56 then
delay(500)
put "Better go to the name change office because you are not " + name + ", your new name is Sodapop"
elsif total_num < 56 and total_num > 45 then
delay(500)
put "Better go to the name change office because you are not " + name + ", your new name is Darry"
elsif total_num < 45 and total_num > 34 then
delay(500)
put "Better go to the name change office because you are not " + name + ", your new name is Ponyboy"
elsif total_num < 34 and total_num > 23 then
delay(500)
put "Better go to the name change office because you are not " + name + ", your new name is Bob"
elsif total_num < 23 and total_num > 13 then
delay(500)
put "Better go to the name change office because you are not " + name + ", your new name is Cherry"
elsif total_num < 12 and total_num > 2 then
delay(500)
put "Better go to the name change office because you are not " + name + ", your new name is Randy"
elsif total_num < 2 and total_num > 0 then
delay(500)
put "Please restart as you are stupid"

end if