-----------------------------------

ruscutie

Fri Jan 19, 2007 2:04 am


game help ~ ASAP

-----------------------------------

well.... i figured out some stuff and the game is actually working... the user answers science questions.... but if the user chose the wrong answer, it doesn't say that this is the wrong answer and it should start it all over again but instead it shows the next question.... here is my code...plzz help me 2 fix it...

thnx 4 helpin in advance






var reply : string
var font1, font2, font3, font4, font5 : int
var x, y, btn, updown, c : int



procedure question1

    font1 := Font.New ("arial black:18")
    assert font1 > 0
    font2 := Font.New ("Comic sans MS :15")
    assert font2 > 0
    font3 := Font.New ("Comic sans MS :15")
    assert font3 > 0
    font4 := Font.New ("Comic sans MS :15")
    assert font4 > 0
    font5 := Font.New ("Comic sans MS :15")
    assert font5 > 0
    Font.Draw ("The chemical symbol C represents the element...", 10, 350, font1, black)
    Font.Draw ("a) Carbon", 50, 200, font2, brightblue)
    Font.Draw ("b) Calcium", 300, 200, font3, brightblue)
    Font.Draw ("c) Chlorine", 50, 100, font4, brightblue)
    Font.Draw ("d) Chromium", 300, 100, font5, brightblue)
    Font.Free (font1)
    Font.Free (font2)
    Font.Free (font3)
    Font.Free (font4)
    Font.Free (font5)
    Draw.Box (30, 190, 190, 230, 12)
    Draw.Box (290, 190, 420, 230, 12)
    Draw.Box (30, 90, 190, 130, 12)
    Draw.Box (290, 90, 420, 130, 12)


end question1


procedure question2

    font1 := Font.New ("arial black:18")
    assert font1 > 0
    font2 := Font.New ("Comic sans MS :15")
    assert font2 > 0
    font3 := Font.New ("Comic sans MS :15")
    assert font3 > 0
    font4 := Font.New ("Comic sans MS :15")
    assert font4 > 0
    font5 := Font.New ("Comic sans MS :15")
    assert font5 > 0
    Font.Draw ("Which one of the following measurements is the largest?", 10, 350, font1, black)
    Font.Draw ("a) One millimeter", 50, 200, font2, brightblue)
    Font.Draw ("b) One meter", 300, 200, font3, brightblue)
    Font.Draw ("c) One centimeter", 50, 100, font4, brightblue)
    Font.Draw ("d) One kilometer", 300, 100, font5, brightblue)
    Font.Free (font1)
    Font.Free (font2)
    Font.Free (font3)
    Font.Free (font4)
    Font.Free (font5)
    Draw.Box (30, 190, 230, 230, 12)
    Draw.Box (290, 190, 420, 230, 12)
    Draw.Box (30, 90, 250, 130, 12)
    Draw.Box (290, 90, 460, 130, 12)
end question2

procedure question3

    font1 := Font.New ("arial black:18")
    assert font1 > 0
    font2 := Font.New ("Comic sans MS :15")
    assert font2 > 0
    font3 := Font.New ("Comic sans MS :15")
    assert font3 > 0
    font4 := Font.New ("Comic sans MS :15")
    assert font4 > 0
    font5 := Font.New ("Comic sans MS :15")
    assert font5 > 0
    Font.Draw ("What is the product of 8 and 4?", 10, 350, font1, black)
    Font.Draw ("a) 32", 50, 200, font2, brightblue)
    Font.Draw ("b) 4", 300, 200, font3, brightblue)
    Font.Draw ("c) 12", 50, 100, font4, brightblue)
    Font.Draw ("d) -4", 300, 100, font5, brightblue)
    Font.Free (font1)
    Font.Free (font2)
    Font.Free (font3)
    Font.Free (font4)
    Font.Free (font5)
    Draw.Box (30, 190, 190, 230, 12)
    Draw.Box (290, 190, 420, 230, 12)
    Draw.Box (30, 90, 190, 130, 12)
    Draw.Box (290, 90, 420, 130, 12)

end question3

procedure question4

    font1 := Font.New ("arial black:18")
    assert font1 > 0
    font2 := Font.New ("Comic sans MS :15")
    assert font2 > 0
    font3 := Font.New ("Comic sans MS :15")
    assert font3 > 0
    font4 := Font.New ("Comic sans MS :15")
    assert font4 > 0
    font5 := Font.New ("Comic sans MS :15")
    assert font5 > 0
    Font.Draw ("Which of the following symbols means multiply?", 10, 350, font1, black)
    Font.Draw ("a) +", 50, 200, font2, brightblue)
    Font.Draw ("b) -", 300, 200, font3, brightblue)
    Font.Draw ("c) *", 50, 100, font4, brightblue)
    Font.Draw ("d) /", 300, 100, font5, brightblue)
    Font.Free (font1)
    Font.Free (font2)
    Font.Free (font3)
    Font.Free (font4)
    Font.Free (font5)
    Draw.Box (30, 190, 230, 230, 12)
    Draw.Box (290, 190, 420, 230, 12)
    Draw.Box (30, 90, 250, 130, 12)
    Draw.Box (290, 90, 460, 130, 12)

end question4

procedure question5

    font1 := Font.New ("arial black:18")
    assert font1 > 0
    font2 := Font.New ("Comic sans MS :15")
    assert font2 > 0
    font3 := Font.New ("Comic sans MS :15")
    assert font3 > 0
    font4 := Font.New ("Comic sans MS :15")
    assert font4 > 0
    font5 := Font.New ("Comic sans MS :15")
    assert font5 > 0
    Font.Draw ("Which of the following expressions is the largest?", 10, 350, font1, black)
    Font.Draw ("a) 12+3", 50, 200, font2, brightblue)
    Font.Draw ("b) 12+8", 300, 200, font3, brightblue)
    Font.Draw ("c) 1*0", 50, 100, font4, brightblue)
    Font.Draw ("d) 4*100*0", 300, 100, font5, brightblue)
    Font.Free (font1)
    Font.Free (font2)
    Font.Free (font3)
    Font.Free (font4)
    Font.Free (font5)
    Draw.Box (30, 190, 230, 230, 12)
    Draw.Box (290, 190, 420, 230, 12)
    Draw.Box (30, 90, 250, 130, 12)
    Draw.Box (290, 90, 460, 130, 12)

end question5

procedure question6

    font1 := Font.New ("arial black:18")
    assert font1 > 0
    font2 := Font.New ("Comic sans MS :15")
    assert font2 > 0
    font3 := Font.New ("Comic sans MS :15")
    assert font3 > 0
    font4 := Font.New ("Comic sans MS :15")
    assert font4 > 0
    font5 := Font.New ("Comic sans MS :15")
    assert font5 > 0
    Font.Draw ("What instrument is used to observe distant objects??", 10, 350, font1, black)
    Font.Draw ("a) Telescope", 50, 200, font2, brightblue)
    Font.Draw ("b) Microscope", 300, 200, font3, brightblue)
    Font.Draw ("c) Microphone", 50, 100, font4, brightblue)
    Font.Draw ("d) Telephone", 300, 100, font5, brightblue)
    Font.Free (font1)
    Font.Free (font2)
    Font.Free (font3)
    Font.Free (font4)
    Font.Free (font5)
    Draw.Box (30, 190, 230, 230, 12)
    Draw.Box (290, 190, 420, 230, 12)
    Draw.Box (30, 90, 250, 130, 12)
    Draw.Box (290, 90, 460, 130, 12)

end question6

procedure question7

    font1 := Font.New ("arial black:18")
    assert font1 > 0
    font2 := Font.New ("Comic sans MS :15")
    assert font2 > 0
    font3 := Font.New ("Comic sans MS :15")
    assert font3 > 0
    font4 := Font.New ("Comic sans MS :15")
    assert font4 > 0
    font5 := Font.New ("Comic sans MS :15")
    assert font5 > 0
    Font.Draw ("In a triangle angle1 = 90, angle2 = 20, find angle3", 10, 350, font1, black)
    Font.Draw ("a) 10", 50, 200, font2, brightblue)
    Font.Draw ("b) 30", 300, 200, font3, brightblue)
    Font.Draw ("c) 80", 50, 100, font4, brightblue)
    Font.Draw ("d) 70", 300, 100, font5, brightblue)
    Font.Free (font1)
    Font.Free (font2)
    Font.Free (font3)
    Font.Free (font4)
    Font.Free (font5)
    Draw.Box (30, 190, 230, 230, 12)
    Draw.Box (290, 190, 420, 230, 12)
    Draw.Box (30, 90, 250, 130, 12)
    Draw.Box (290, 90, 460, 130, 12)

end question7

procedure question8

    font1 := Font.New ("arial black:18")
    assert font1 > 0
    font2 := Font.New ("Comic sans MS :15")
    assert font2 > 0
    font3 := Font.New ("Comic sans MS :15")
    assert font3 > 0
    font4 := Font.New ("Comic sans MS :15")
    assert font4 > 0
    font5 := Font.New ("Comic sans MS :15")
    assert font5 > 0
    Font.Draw ("What do plants use pollen for?", 10, 350, font1, black)
    Font.Draw ("a) To make people sneeze.", 50, 200, font2, brightblue)
    Font.Draw ("b) To reproduce", 300, 200, font3, brightblue)
    Font.Draw ("c) To attract bees", 50, 100, font4, brightblue)
    Font.Draw ("d) To smell good.", 300, 100, font5, brightblue)
    Font.Free (font1)
    Font.Free (font2)
    Font.Free (font3)
    Font.Free (font4)
    Font.Free (font5)
    Draw.Box (30, 190, 230, 230, 12)
    Draw.Box (290, 190, 420, 230, 12)
    Draw.Box (30, 90, 250, 130, 12)
    Draw.Box (290, 90, 460, 130, 12)


end question8

procedure question9

font1 := Font.New ("arial black:18")
    assert font1 > 0
    font2 := Font.New ("Comic sans MS :15")
    assert font2 > 0
    font3 := Font.New ("Comic sans MS :15")
    assert font3 > 0
    font4 := Font.New ("Comic sans MS :15")
    assert font4 > 0
    font5 := Font.New ("Comic sans MS :15")
    assert font5 > 0
    Font.Draw ("What is the product of the binary numbers 0110 and 0011?", 10, 350, font1, black)
    Font.Draw ("a) 01111.", 50, 200, font2, brightblue)
    Font.Draw ("b) 10000", 300, 200, font3, brightblue)
    Font.Draw ("c) 10001", 50, 100, font4, brightblue)
    Font.Draw ("d) 10010", 300, 100, font5, brightblue)
    Font.Free (font1)
    Font.Free (font2)
    Font.Free (font3)
    Font.Free (font4)
    Font.Free (font5)
    Draw.Box (30, 190, 230, 230, 12)
    Draw.Box (290, 190, 420, 230, 12)
    Draw.Box (30, 90, 250, 130, 12)
    Draw.Box (290, 90, 460, 130, 12)


end question9

procedure question10

font1 := Font.New ("arial black:18")
    assert font1 > 0
    font2 := Font.New ("Comic sans MS :15")
    assert font2 > 0
    font3 := Font.New ("Comic sans MS :15")
    assert font3 > 0
    font4 := Font.New ("Comic sans MS :15")
    assert font4 > 0
    font5 := Font.New ("Comic sans MS :15")
    assert font5 > 0
    Font.Draw ("What is the maximum number of electrons an atom can have in it's first orbit?", 10, 350, font1, black)
    Font.Draw ("a) 12", 50, 200, font2, brightblue)
    Font.Draw ("b) 2", 300, 200, font3, brightblue)
    Font.Draw ("c) 8", 50, 100, font4, brightblue)
    Font.Draw ("d) 18", 300, 100, font5, brightblue)
    Font.Free (font1)
    Font.Free (font2)
    Font.Free (font3)
    Font.Free (font4)
    Font.Free (font5)
    Draw.Box (30, 190, 230, 230, 12)
    Draw.Box (290, 190, 420, 230, 12)
    Draw.Box (30, 90, 250, 130, 12)
    Draw.Box (290, 90, 460, 130, 12)

    end question10


%%%%%%%%%%%%%%%%%%%%%%%%%WIN START


procedure win1
cls 
put "workz or not"

delay(6000)

    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("COMIC SANS MS:24")
        assert font1 > 0

        Font.Draw ("Good job, it is the right answer...:-) ", 40, maxy div 2, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to carry on with the game:- 'n' or 'y'?"
        get reply
        if reply = "y" then
            cls

            question2

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end win1

procedure win2
    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("COMIC SANS MS:24")
        assert font1 > 0

        Font.Draw ("Good job, it is the right answer...:-) ", 40, maxy div 2, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to carry on with the game:- 'n' or 'y'?"
        get reply
        if reply = "y" then
            cls

            question3



        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end win2

procedure win3
    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("COMIC SANS MS:24")
        assert font1 > 0

        Font.Draw ("Good job, it is the right answer...:-) ", 40, maxy div 2, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to carry on with the game:- 'n' or 'y'?"
        get reply
        if reply = "y" then
            cls

            question4




        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end win3

procedure win4

    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("COMIC SANS MS:24")
        assert font1 > 0

        Font.Draw ("Good job, it is the right answer...:-) ", 40, maxy div 2, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to carry on with the game:- 'n' or 'y'?"
        get reply
        if reply = "y" then
            cls

            question5


        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop

end win4



procedure win5
    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("COMIC SANS MS:24")
        assert font1 > 0

        Font.Draw ("Good job, it is the right answer...:-) ", 40, maxy div 2, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to carry on with the game:- 'n' or 'y'?"
        get reply
        if reply = "y" then
            cls

            question6


        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop

end win5


procedure win6

    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("COMIC SANS MS:24")
        assert font1 > 0

        Font.Draw ("Good job, it is the right answer...:-) ", 40, maxy div 2, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to carry on with the game:- 'n' or 'y'?"
        get reply
        if reply = "y" then
            cls

            question7


        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end win6


procedure win7


    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("COMIC SANS MS:24")
        assert font1 > 0

        Font.Draw ("Good job, it is the right answer...:-) ", 40, maxy div 2, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to carry on with the game:- 'n' or 'y'?"
        get reply
        if reply = "y" then
            cls

            question8


        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end win7


procedure win8
    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("COMIC SANS MS:24")
        assert font1 > 0

        Font.Draw ("Good job, it is the right answer...:-) ", 40, maxy div 2, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to carry on with the game:- 'n' or 'y'?"
        get reply
        if reply = "y" then
            cls

            question9


        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop

end win8


procedure win9
    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("COMIC SANS MS:24")
        assert font1 > 0

        Font.Draw ("Good job, it is the right answer...:-) ", 40, maxy div 2, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to carry on with the game:- 'n' or 'y'?"
        get reply
        if reply = "y" then
            cls

            question10


        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop

end win9


procedure win10

    
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("COMIC SANS MS:24")
        assert font1 > 0

        Font.Draw ("Congrats, you won the game....:-) ", 40, maxy div 2, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls

    


end win10




%%%%%%%%%%%%%%%%%%%%%%%%%%  WRONGZZZZZZZZZZZZ START%%%%%%%%%%%%%%%%%%%%%%%%%%%%555


procedure wrong1
    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("comic sans ms:24")
        assert font1 > 0
        Font.Draw ("Oh!, it is the wrong answer...", 50, 30, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to play again:- 'n' or 'y'"
        get reply
        if reply = "y" then

            cls

            question1

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end wrong1

procedure wrong2
    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("comic sans ms:24")
        assert font1 > 0
        Font.Draw ("Oh!, it is the wrong answer...", 50, 30, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to play again:- 'n' or 'y'"
        get reply
        if reply = "y" then
            cls

            question1

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end wrong2

procedure wrong3
    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("comic sans ms:24")
        assert font1 > 0
        Font.Draw ("Oh!, it is the wrong answer...", 50, 30, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to play again:- 'n' or 'y'"
        get reply
        if reply = "y" then
            cls

            question1

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end wrong3


procedure wrong4
    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("comic sans ms:24")
        assert font1 > 0
        Font.Draw ("Oh!, it is the wrong answer...", 50, 30, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to play again:- 'n' or 'y'"
        get reply
        if reply = "y" then
            cls

            question1

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop

end wrong4


procedure wrong5

    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("comic sans ms:24")
        assert font1 > 0
        Font.Draw ("Oh!, it is the wrong answer...", 50, 30, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to play again:- 'n' or 'y'"
        get reply
        if reply = "y" then
            cls

            question1

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end wrong5


procedure wrong6

    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("comic sans ms:24")
        assert font1 > 0
        Font.Draw ("Oh!, it is the wrong answer...", 50, 30, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to play again:- 'n' or 'y'"
        get reply
        if reply = "y" then
            cls

            question1

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end wrong6


procedure wrong7

    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("comic sans ms:24")
        assert font1 > 0
        Font.Draw ("Oh!, it is the wrong answer...", 50, 30, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to play again:- 'n' or 'y'"
        get reply
        if reply = "y" then
            cls

            question1

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop

end wrong7


procedure wrong8

    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("comic sans ms:24")
        assert font1 > 0
        Font.Draw ("Oh!, it is the wrong answer...", 50, 30, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to play again:- 'n' or 'y'"
        get reply
        if reply = "y" then
            cls

            question1

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop
end wrong8


procedure wrong9
    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("comic sans ms:24")
        assert font1 > 0
        Font.Draw ("Oh!, it is the wrong answer...", 50, 30, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to play again:- 'n' or 'y'"
        get reply
        if reply = "y" then
            cls

            question1

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop

end wrong9


procedure wrong10


    loop
        cls
        drawfillbox (0, 0, maxx, maxy, black)
        font1 := Font.New ("comic sans ms:24")
        assert font1 > 0
        Font.Draw ("Oh!, it is the wrong answer...", 50, 30, font1, yellow)
        Font.Free (font1)
        delay (1000)
        cls
        put "Do you want to play again:- 'n' or 'y'"
        get reply
        if reply = "y" then
            cls

            question1

        elsif reply = "n" then
            put "goodbye"
        end if
        exit when reply = "n" or reply = "y"
    end loop

end wrong10

%%%%%%%%%%%%%%%%%WRONGZZZZZZZ END%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%MOUSE START%%%%%%%%%%%%%%%%%%%%%%%%



procedure mouse1


    buttonwait ("down", x, y, btn, updown)
    if (x >= 30 and x = 190 and y = 290 and x = 190 and y = 30 and x = 90 and y = 290 and x = 90 and y = 30 and x = 190 and y = 290 and x = 190 and y = 30 and x = 90 and y = 290 and x = 90 and y = 30 and x = 190 and y = 290 and x = 190 and y = 30 and x = 90 and y = 290 and x = 90 and y = 30 and x = 190 and y = 290 and x = 190 and y = 30 and x = 90 and y = 290 and x = 90 and y = 30 and x = 190 and y = 290 and x = 190 and y = 30 and x = 90 and y = 290 and x = 90 and y = 30 and x = 190 and y = 290 and x = 190 and y = 30 and x = 90 and y = 290 and x = 90 and y = 30 and x = 190 and y = 290 and x = 190 and y = 30 and x = 90 and y = 290 and x = 90 and y = 30 and x = 190 and y = 290 and x = 190 and y = 30 and x = 90 and y = 290 and x = 90 and y = 30 and x = 190 and y = 290 and x = 190 and y = 30 and x = 90 and y = 290 and x = 90 and y = 30 and x = 190 and y = 290 and x = 190 and y = 30 and x = 90 and y = 290 and x = 90 and y