All pastes #209167 Raw Edit

Untitled

public text v1 · immutable
#209167 ·published 2006-10-19 01:22 UTC
rendered paste body
--Control Test
--End purpose: Muliply choice from buttons. Scores Right, and wrong answers.
--In future will get questions from external file

background = Image.createEmpty(480, 272)
mytext = Color.new (255,0,0)
oldPad = Controls.read()

        screen:clear()
        screen:print(100,100, "Which is not a real Animal?", mytext)
        screen:print(100,130, "Circle: Monkey, Square: Chocobo, Cross: Pig", mytext)
        screen.flip()

while true do
        --Control Test
	pad = Controls.read()
	if pad ~= oldPad then
        end

        if pad:cross() then
        screen:clear()
        screen:print(100, 250, "cross ok", mytext)
        screen.flip()
        end

        if pad:circle() then
        screen:clear()
        screen:print(120, 250, "circle yes", mytext)
        screen.flip()
        end

        if pad:square() then
        screen:clear()
        screen:print(120, 250, "square yes", mytext)
        screen.flip()
        end
        
        if pad:start() then
	break
end     

screen.waitVblankStart()
end