hiya, im creating a trivia game for my engineering class, i need help thought, i got the basic done but i wanted to make it better graphically too
. buy im not sure what i can do. plz, some one help m. not thet the codes uses parallelget/put so ya. Here is my coding:
import GUI
setscreen ("graphics:max;max,nobuttonbar")
var font1, font2, font3, font4, font5, font6, score : int
var value : int
parallelput (1)
delay (500)
parallelput (2)
delay (500)
parallelput (4)
delay (500)
parallelput (8)
delay (500)
parallelput (15)
delay (500)
parallelput (8)
delay (500)
parallelput (4)
delay (500)
parallelput (2)
delay (500)
parallelput (1)
delay (500)
parallelput (0)
GUI.SetBackgroundColor (black)
font1 := Font.New ("Tekton Pro Cond:50")
Font.Draw ("TO KNOW OR NOT TO KNOW?", 190, 345, font1, 7)
delay (500)
Font.Draw ("TO KNOW OR NOT TO KNOW?", 190, 345, font1, 18)
delay (500)
Font.Draw ("TO KNOW OR NOT TO KNOW?", 190, 345, font1, 20)
delay (500)
Font.Draw ("TO KNOW OR NOT TO KNOW?", 190, 345, font1, 22)
delay (500)
Font.Draw ("TO KNOW OR NOT TO KNOW?", 190, 345, font1, 24)
delay (500)
Font.Draw ("TO KNOW OR NOT TO KNOW?", 190, 345, font1, 25)
loop
% Creates the flashing border on the right
drawfilloval (975, 645, 20, 20, red)
delay (25)
drawfilloval (975, 645, 20, 20, grey)
delay (25)
drawfilloval (975, 595, 20, 20, red)
delay (25)
drawfilloval (975, 595, 20, 20, grey)
delay (25)
drawfilloval (975, 545, 20, 20, red)
delay (25)
drawfilloval (975, 545, 20, 20, grey)
delay (25)
drawfilloval (975, 495, 20, 20, red)
delay (25)
drawfilloval (975, 495, 20, 20, grey)
delay (25)
drawfilloval (975, 445, 20, 20, red)
delay (25)
drawfilloval (975, 445, 20, 20, grey)
delay (25)
drawfilloval (975, 395, 20, 20, red)
delay (25)
drawfilloval (975, 395, 20, 20, grey)
delay (25)
drawfilloval (975, 345, 20, 20, red)
delay (25)
drawfilloval (975, 345, 20, 20, grey)
delay (25)
drawfilloval (975, 295, 20, 20, red)
delay (25)
drawfilloval (975, 295, 20, 20, grey)
delay (25)
drawfilloval (975, 245, 20, 20, red)
delay (25)
drawfilloval (975, 245, 20, 20, grey)
delay (25)
drawfilloval (975, 195, 20, 20, red)
delay (25)
drawfilloval (975, 195, 20, 20, grey)
delay (25)
drawfilloval (975, 145, 20, 20, red)
delay (25)
drawfilloval (975, 145, 20, 20, grey)
delay (25)
drawfilloval (975, 95, 20, 20, red)
delay (25)
drawfilloval (975, 95, 20, 20, grey)
delay (25)
drawfilloval (975, 45, 20, 20, red)
delay (25)
drawfilloval (975, 45, 20, 20, grey)
delay (25)
% Creates the border on the bottom
drawfilloval (975, 45, 20, 20, red)
delay (25)
drawfilloval (975, 45, 20, 20, grey)
delay (25)
drawfilloval (925, 45, 20, 20, red)
delay (25)
drawfilloval (925, 45, 20, 20, grey)
delay (25)
drawfilloval (875, 45, 20, 20, red)
delay (25)
drawfilloval (875, 45, 20, 20, grey)
delay (25)
drawfilloval (825, 45, 20, 20, red)
delay (25)
drawfilloval (825, 45, 20, 20, grey)
delay (25)
drawfilloval (775, 45, 20, 20, red)
delay (25)
drawfilloval (775, 45, 20, 20, grey)
delay (25)
drawfilloval (725, 45, 20, 20, red)
delay (25)
drawfilloval (725, 45, 20, 20, grey)
delay (25)
drawfilloval (675, 45, 20, 20, red)
delay (25)
drawfilloval (675, 45, 20, 20, grey)
delay (25)
drawfilloval (625, 45, 20, 20, red)
delay (25)
drawfilloval (625, 45, 20, 20, grey)
delay (25)
drawfilloval (575, 45, 20, 20, red)
delay (25)
drawfilloval (575, 45, 20, 20, grey)
delay (25)
drawfilloval (525, 45, 20, 20, red)
delay (25)
drawfilloval (525, 45, 20, 20, grey)
delay (25)
drawfilloval (475, 45, 20, 20, red)
delay (25)
drawfilloval (475, 45, 20, 20, grey)
delay (25)
drawfilloval (425, 45, 20, 20, red)
delay (25)
drawfilloval (425, 45, 20, 20, grey)
delay (25)
drawfilloval (375, 45, 20, 20, red)
delay (25)
drawfilloval (375, 45, 20, 20, grey)
delay (25)
drawfilloval (325, 45, 20, 20, red)
delay (25)
drawfilloval (325, 45, 20, 20, grey)
delay (25)
drawfilloval (275, 45, 20, 20, red)
delay (25)
drawfilloval (275, 45, 20, 20, grey)
delay (25)
drawfilloval (225, 45, 20, 20, red)
delay (25)
drawfilloval (225, 45, 20, 20, grey)
delay (25)
drawfilloval (175, 45, 20, 20, red)
delay (25)
drawfilloval (175, 45, 20, 20, grey)
delay (25)
drawfilloval (125, 45, 20, 20, red)
delay (25)
drawfilloval (125, 45, 20, 20, grey)
delay (25)
drawfilloval (75, 45, 20, 20, red)
delay (25)
drawfilloval (75, 45, 20, 20, grey)
delay (25)
drawfilloval (25, 45, 20, 20, red)
delay (25)
drawfilloval (25, 45, 20, 20, grey)
delay (25)
% Askes the users to given an input in order to continue
locate (35, 80)
colourback (black)
colour (white)
put "HOLD A TO CONTINUE" ..
%Creates the border on the left side
drawfilloval (25, 95, 20, 20, red)
delay (25)
drawfilloval (25, 95, 20, 20, grey)
delay (25)
drawfilloval (25, 145, 20, 20, red)
delay (25)
drawfilloval (25, 145, 20, 20, grey)
delay (25)
drawfilloval (25, 195, 20, 20, red)
delay (25)
drawfilloval (25, 195, 20, 20, grey)
delay (25)
drawfilloval (25, 245, 20, 20, red)
delay (25)
drawfilloval (25, 245, 20, 20, grey)
delay (25)
drawfilloval (25, 295, 20, 20, red)
delay (25)
drawfilloval (25, 295, 20, 20, grey)
delay (25)
drawfilloval (25, 345, 20, 20, red)
delay (25)
drawfilloval (25, 345, 20, 20, grey)
delay (25)
drawfilloval (25, 395, 20, 20, red)
delay (25)
drawfilloval (25, 395, 20, 20, grey)
delay (25)
drawfilloval (25, 445, 20, 20, red)
delay (25)
drawfilloval (25, 445, 20, 20, grey)
delay (25)
drawfilloval (25, 495, 20, 20, red)
delay (25)
drawfilloval (25, 495, 20, 20, grey)
delay (25)
drawfilloval (25, 545, 20, 20, red)
delay (25)
drawfilloval (25, 545, 20, 20, grey)
delay (25)
drawfilloval (25, 595, 20, 20, red)
delay (25)
drawfilloval (25, 595, 20, 20, grey)
delay (25)
drawfilloval (25, 645, 20, 20, red)
delay (25)
drawfilloval (25, 645, 20, 20, grey)
delay (25)
%Creates the border on the top
drawfilloval (75, 645, 20, 20, red)
delay (25)
drawfilloval (75, 645, 20, 20, grey)
delay (25)
drawfilloval (125, 645, 20, 20, red)
delay (25)
drawfilloval (125, 645, 20, 20, grey)
delay (25)
drawfilloval (175, 645, 20, 20, red)
delay (25)
drawfilloval (175, 645, 20, 20, grey)
delay (25)
drawfilloval (225, 645, 20, 20, red)
delay (25)
drawfilloval (225, 645, 20, 20, grey)
delay (25)
drawfilloval (275, 645, 20, 20, red)
delay (25)
drawfilloval (275, 645, 20, 20, grey)
delay (25)
drawfilloval (325, 645, 20, 20, red)
delay (25)
drawfilloval (325, 645, 20, 20, grey)
delay (25)
drawfilloval (375, 645, 20, 20, red)
delay (25)
drawfilloval (375, 645, 20, 20, grey)
delay (25)
drawfilloval (425, 645, 20, 20, red)
delay (25)
drawfilloval (425, 645, 20, 20, grey)
delay (25)
drawfilloval (475, 645, 20, 20, red)
delay (25)
drawfilloval (475, 645, 20, 20, grey)
delay (25)
drawfilloval (525, 645, 20, 20, red)
delay (25)
drawfilloval (525, 645, 20, 20, grey)
delay (25)
drawfilloval (575, 645, 20, 20, red)
delay (25)
drawfilloval (575, 645, 20, 20, grey)
delay (25)
drawfilloval (625, 645, 20, 20, red)
delay (25)
drawfilloval (625, 645, 20, 20, grey)
delay (25)
drawfilloval (675, 645, 20, 20, red)
delay (25)
drawfilloval (675, 645, 20, 20, grey)
delay (25)
drawfilloval (725, 645, 20, 20, red)
delay (25)
drawfilloval (725, 645, 20, 20, grey)
delay (25)
drawfilloval (775, 645, 20, 20, red)
delay (25)
drawfilloval (775, 645, 20, 20, grey)
delay (25)
drawfilloval (825, 645, 20, 20, red)
delay (25)
drawfilloval (825, 645, 20, 20, grey)
delay (25)
drawfilloval (875, 645, 20, 20, red)
delay (25)
drawfilloval (875, 645, 20, 20, grey)
delay (25)
drawfilloval (925, 645, 20, 20, red)
delay (25)
drawfilloval (925, 645, 20, 20, grey)
delay (25)
drawfilloval (975, 645, 20, 20, red)
delay (25)
drawfilloval (975, 645, 20, 20, grey)
delay (25)
value := parallelget
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
exit
end if
end loop
cls
loop
% Instructions on how to play the game
value := parallelget
font2 := Font.New ("Times New Roman:15")
Font.Draw ("THE TARGET OF THIS GAME IS TO GET AT LEAST 100 POINTS AFTER THE 10 QUESTIONS.", 4, 600, font2, black)
Font.Draw ("EACH CORRECT ANSWER IS WORTH 10 POINTS AND FOR EVERY WRONG ASNWER, YOU GET -5 POINTS.", 4, 560, font2, black)
Font.Draw ("SIMPLY WAIT FOR THE ANSWERS TO APEAR, THEN CLICK", 4, 520, font2, black)
Font.Draw ("THE CORRECT BUTTON THAT CORESPONDS TO THE CORRECT LETTER.", 4, 480, font2, black)
Font.Draw ("GOOD LUCK AND HAVE FUN!!!!", 4, 440, font2, blue)
% Waits for the input form the user to continue
locate (40, 80)
put "HOLD B TO CONTINUE" ..
exit when
value = 88
end loop
cls
% Now comes the questions and the answers
font3 := Font.New ("Arial Black:25")
font4 := Font.New ("Arial Black:15")
font5 := Font.New ("Arial Black :20")
score := 0
delay (500)
loop
value := parallelget
% Question 1
locate (1, 2)
put "Score ", score
Font.Draw ("1. World War 2 (WWII) ended in what year?", 100, 450, font3, black)
Font.Draw ("a) 1945", 280, 400, font4, black)
Font.Draw ("b) 1845", 280, 360, font4, black)
Font.Draw ("c) 1950", 580, 400, font4, black)
Font.Draw ("d) None of the Above", 580, 360, font4, black)
if value = 56
then
parallelput (1)
delay (8)
parallelput (0)
Font.Draw ("Correct : The answer is a) 1945", 190, 190, font5, green)
delay (3000)
cls
score := score + 10
exit
end if
if value = 88
then
parallelput (2)
delay (8)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 104
then
parallelput (4)
delay (8)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 112
then
parallelput (8)
delay (8)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
end loop
%Question 2
loop
value := parallelget
locate (1, 2)
put "Score ", score
Font.Draw ("2. Nunavut was established in _______?", 100, 450, font3, black)
Font.Draw ("a) 2000", 280, 400, font4, black)
Font.Draw ("b) 1993", 280, 360, font4, black)
Font.Draw ("c) 1890", 580, 400, font4, black)
Font.Draw ("d) 1990", 580, 360, font4, black)
if value = 88
then
parallelput (2)
delay (1000)
parallelput (0)
Font.Draw ("Correct : The answer is b) 1993", 190, 190, font5, green)
delay (3000)
cls
score := score + 10
exit
end if
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
cls
score := score - 5
delay (500)
end if
if value = 104
then
parallelput (4)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
cls
score := score - 5
delay (500)
end if
if value = 112
then
parallelput (8)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
cls
score := score - 5
delay (500)
end if
end loop
% Question 3
loop
value := parallelget
locate (1, 2)
put "Score ", score
Font.Draw ("3. (3x10)**2+5", 190, 450, font3, black)
Font.Draw ("a) 905", 280, 400, font4, black)
Font.Draw ("b) 931", 280, 360, font4, black)
Font.Draw ("c) 200", 580, 400, font4, black)
Font.Draw ("d) 50", 580, 360, font4, black)
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
Font.Draw ("Correct : The answer is a) 905", 190, 190, font5, green)
delay (3000)
cls
score := score + 10
exit
end if
if value = 88
then
parallelput (2)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
cls
score := score - 5
delay (500)
end if
if value = 104
then
parallelput (4)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
cls
score := score - 5
delay (500)
end if
if value = 112
then
parallelput (8)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
cls
score := score - 5
delay (500)
end if
end loop
% Question 4
loop
value := parallelget
locate (1, 2)
put "Score ", score
Font.Draw ("4. RH stands for the following type of ", 100, 450, font3, black)
Font.Draw (" transition metal?", 250, 415, font3, black)
Font.Draw ("a) Rhiadon", 280, 350, font4, black)
Font.Draw ("b) Rhenium", 280, 310, font4, black)
Font.Draw ("c) Rubidium", 580, 350, font4, black)
Font.Draw ("d) Rhodium", 580, 310, font4, black)
if value = 112
then
parallelput (8)
delay (1000)
parallelput (0)
Font.Draw ("Correct : The answer is d) Rhodium", 190, 190, font5, green)
delay (3000)
cls
score := score + 10
exit
end if
if value = 88
then
parallelput (2)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
cls
score := score - 5
delay (500)
end if
if value = 104
then
parallelput (4)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
end loop
% Question 5
loop
value := parallelget
locate (1, 2)
put "Score ", score
Font.Draw ("5. What president was shot while walking ", 100, 450, font3, black)
Font.Draw ("to California Governor Jerry Brown's office?", 180, 415, font3, black)
Font.Draw ("a) George Washington", 280, 350, font4, black)
Font.Draw ("b) Jimmy Carter", 280, 310, font4, black)
Font.Draw ("c) George Bush", 580, 350, font4, black)
Font.Draw ("d) Gerald Ford", 580, 310, font4, black)
if value = 112
then
parallelput (8)
delay (1000)
parallelput (0)
Font.Draw ("Correct : The answer is d) Gerald Ford", 190, 190, font5, green)
delay (3000)
cls
score := score + 10
exit
end if
if value = 88
then
parallelput (2)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 104
then
parallelput (4)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
end loop
% Question 6
loop
value := parallelget
locate (1, 2)
put "Score ", score
Font.Draw ("6. Which wars started the slogan ", 100, 450, font3, black)
Font.Draw ("'Better Dead Than RED' and 'Better Red Than Dead'?", 150, 415, font3, black)
Font.Draw ("a) American Revolution", 280, 350, font4, black)
Font.Draw ("b) WWI", 280, 310, font4, black)
Font.Draw ("c) Cold War", 580, 350, font4, black)
Font.Draw ("d) WWII", 580, 310, font4, black)
if value = 104
then
parallelput (4)
delay (1000)
parallelput (0)
Font.Draw ("Correct : The answer is c) Cold War", 190, 190, font5, green)
delay (3000)
cls
score := score + 10
exit
end if
if value = 88
then
parallelput (2)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
end if
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
end if
if value = 112
then
parallelput (8)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
end if
end loop
% Question 7
loop
value := parallelget
locate (1, 2)
put "Score ", score
Font.Draw ("3. Solve for x: 14400=(4x+2)6x**2", 100, 450, font3, black)
Font.Draw ("a) 2", 280, 400, font4, black)
Font.Draw ("b) 10", 280, 360, font4, black)
Font.Draw ("c) 2.5", 580, 400, font4, black)
Font.Draw ("d) 35", 580, 360, font4, black)
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
Font.Draw ("Correct : The answer is a) 2", 190, 190, font5, green)
delay (3000)
cls
score := score + 10
exit
end if
if value = 88
then
parallelput (2)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 104
then
parallelput (4)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 112
then
parallelput (8)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
end loop
%Question 8
loop
value := parallelget
locate (1, 2)
put "Score ", score
Font.Draw ("8. What planet is the brightest object in the sky,", 100, 450, font3, black)
Font.Draw (" after the Sun and Moon?", 250, 415, font3, black)
Font.Draw ("a) Mars", 280, 350, font4, black)
Font.Draw ("b) Polaris", 280, 310, font4, black)
Font.Draw ("c) Venus", 580, 350, font4, black)
Font.Draw ("d) Jupiter", 580, 310, font4, black)
if value = 104
then
parallelput (4)
delay (1000)
parallelput (0)
Font.Draw ("Correct : The answer is a) 1945", 190, 190, font5, green)
delay (3000)
cls
score := score + 10
exit
end if
if value = 88
then
parallelput (2)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 112
then
parallelput (8)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
end loop
%Question 9
loop
value := parallelget
locate (1, 2)
put "Score ", score
Font.Draw ("9. What did William Stanley invent in 1885 to transfer", 100, 450, font3, black)
Font.Draw (" the current of one circuit to another?", 250, 415, font3, black)
Font.Draw ("a) Conductor", 280, 350, font4, black)
Font.Draw ("b) Transformer", 280, 310, font4, black)
Font.Draw ("c) Microchip", 580, 350, font4, black)
Font.Draw ("d) Microprocessor", 580, 310, font4, black)
if value = 88
then
parallelput (2)
delay (1000)
parallelput (0)
Font.Draw ("Correct : The answer is b) Transformer", 190, 190, font5, green)
delay (3000)
cls
score := score + 10
exit
end if
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 104
then
parallelput (4)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 112
then
parallelput (8)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
end loop
% Question 10
loop
value := parallelget
locate (1, 2)
put "Score ", score
Font.Draw ("10. What is the name of the elected lower house ", 100, 450, font3, black)
Font.Draw ("of Canadian parliament?", 250, 415, font3, black)
Font.Draw ("a) House of Commons", 280, 350, font4, black)
Font.Draw ("b) The Round Table", 280, 310, font4, black)
Font.Draw ("c) Senate", 580, 350, font4, black)
Font.Draw ("d) Parliment House", 580, 310, font4, black)
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
Font.Draw ("Correct : The answer is a) House of Commons", 190, 190, font5, green)
delay (3000)
cls
score := score + 10
exit
end if
if value = 88
then
parallelput (2)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 104
then
parallelput (4)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
if value = 112
then
parallelput (8)
delay (1000)
parallelput (0)
Font.Draw ("INCORRECT", 190, 190, font5, red)
score := score - 5
delay (500)
cls
end if
end loop
delay (500)
% At the end of the game, the game asks for the user input to continue
loop
value := parallelget
put "Please Press A to Continue" ..
if value = 56
then
parallelput (1)
delay (1000)
parallelput (0)
delay (500)
exit
end if
end loop
cls
% The end of the game. Pretends to Calculates the total score
font6 := Font.New ("BankGothic Md BT:15")
Font.Draw ("Please wait while your score is tallied", 200, 345, font6, 53)
%Creates dots at then end of the above statment to show that it is loading
drawfilloval (200, 350, 5, 5, 53)
delay (1000)
drawfilloval (200, 350, 5, 5, white)
delay (1000)
drawfilloval (200, 355, 5, 5, 53)
delay (1000)
drawfilloval (200, 355, 5, 5, white)
delay (1000)
drawfilloval (200, 360, 5, 5, 53)
delay (1000)
drawfilloval (200, 360, 5, 5, white)
delay (1000)
% Repeat 1
drawfilloval (200, 350, 5, 5, 53)
delay (1000)
drawfilloval (200, 350, 5, 5, white)
delay (1000)
drawfilloval (200, 355, 5, 5, 53)
delay (1000)
drawfilloval (200, 355, 5, 5, white)
delay (1000)
drawfilloval (200, 360, 5, 5, 53)
delay (1000)
drawfilloval (200, 360, 5, 5, white)
%Repeat 2
drawfilloval (200, 350, 5, 5, 53)
delay (1000)
drawfilloval (200, 350, 5, 5, white)
delay (1000)
drawfilloval (200, 355, 5, 5, 53)
delay (1000)
drawfilloval (200, 355, 5, 5, white)
delay (1000)
drawfilloval (200, 360, 5, 5, 53)
delay (1000)
drawfilloval (200, 360, 5, 5, white)
delay (2000)
cls
% Displays the score and a statment to whether you won or lost
put "Your Score :", score
if score >= 100
then
parallelput (15)
delay (500)
parallelput (0)
delay (500)
parallelput (15)
delay (500)
parallelput (0)
delay (500)
parallelput (15)
delay (500)
parallelput (0)
Font.Draw ("YOU WIN!!!!!!!!", 399, 630, font7, green)
end if
if score < 100
then
parallelput (15)
Font.Draw ("OH NO!!!! YOU LOST!!!!!", 399, 630, font7, red)
end if
