%Variables
var answer : int
var question : string
var font1, font2: int
var test : int
font1 := Font.New ("serif:24: Underline")
font2 := Font.New ("serif:34: Bold")
assert font1 > 0
randomize
randint( answer, 1, 8)
loop

%Output & input
Draw.FillBox(0,0,maxx,maxy,red)
Font.Draw ("Ask the magic eight ball a question.", 100, 325, font1, white)

colorback (red)
color (white)
get question:*

%if statements
if question = "Is Connor cool?" then
    Font.Draw ("Yes!", 275, 250, font2, white)
   
elsif question = "Is kyle bad?" then
    Font.Draw ("Yes!", 275, 250, font2, white)
   
elsif answer = 1 then
    Font.Draw ("Lol!", 250, 250, font2, white)
   
elsif answer = 2 then
    Font.Draw ("Maybe", 250, 250, font2, white)
   
elsif answer = 3 then
    Font.Draw ("Please try again later", 125, 250, font2, white)
   
elsif answer = 4 then
    Font.Draw ("", 300, 250, font2, white)
   
elsif answer = 5 then
    Font.Draw ("Kyle!", 300, 250, font2, white)
   
elsif answer = 6 then
    Font.Draw ("is", 300, 250, font2, white)
   
elsif answer = 7 then
    Font.Draw ("bad", 300, 250, font2, white)
   
elsif answer = 8 then
    Font.Draw ("Connor", 225, 250, font2, white)

end if
delay(1000)
end loop