Trivia Game Help

[Krocker]

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

[livingheaven]

i suggest u to use mouse.where instead of GUI .. because GUIs are complicated and at some times limited

also buttons made with mouse.where looks alot better xD

[Krocker]

livingheaven @ Thu Dec 02, 2010 5:06 pm wrote:

i suggest u to use mouse.where instead of GUI .. because GUIs are complicated and at some times limited

also buttons made with mouse.where looks alot better xD

k, but i dont think u looked at my codes properly, the GUI is only for a background, not buttons, so ya. got any other ideas? lol, but next time ill consider what u said

[livingheaven]

lol..
xD

[lufthansa747]

ya first I suggest you make a version that does not need a bread bored to work. Make a version that gets keyboard input for better testing. Second, learn what a for loop is and finally dont use gui