Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- InitGFX(720,480)
- while true do
- beginGFX(0x00000)
- presion = 0
- initPads(7)
- if cross(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton X funciona correctamente")
- end
- if circle(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton Circulo funciona correctamente")
- end
- if square(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton Cuadrado funciona correctamente")
- end
- if triangle(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton Triangulo funciona correctamente")
- end
- if up(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton Arriba funciona correctamente")
- end
- if down(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton Abajo funciona correctamente")
- end
- if left(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton Izquierda funciona correctamente")
- end
- if right(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton Derecha funciona correctamente")
- end
- if R1(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton R1 funciona correctamente")
- end
- if R2(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton R2 funciona correctamente")
- end
- if R3(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton R3 funciona correctamente")
- end
- if L1(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton L1 funciona correctamente")
- end
- if L2(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton L2 funciona correctamente")
- end
- if L3(0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton L3 funciona correctamente")
- end
- if select (0) >= 1 and presion == 0 then
- Fuente:Print(540,360,"Boton select funciona correctamente")
- end
- if start(0) >= 1 and presion == 0 then break end
- endGFX
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement