
-----------------------------------
Krocker
Thu Dec 02, 2010 4:30 pm

Trivia Game Help
-----------------------------------
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  :D. 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
Thu Dec 02, 2010 5:06 pm

RE:Trivia Game Help
-----------------------------------
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
Thu Dec 02, 2010 8:13 pm

Re: RE:Trivia Game Help
-----------------------------------
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 :mrgreen:

-----------------------------------
livingheaven
Mon Dec 06, 2010 12:05 pm

RE:Trivia Game Help
-----------------------------------
lol.. 
 xD

-----------------------------------
lufthansa747
Mon Dec 06, 2010 4:19 pm

Re: Trivia Game Help
-----------------------------------
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
