Principal › Foro › PSP: Scene y Homebrew › Programacion

Anuncios Google

Menu cursor (actualizado)

Lun, 2010-05-17 18:31 — auslanderman
Coder
 

-- Cargamos imágenes--
cursor = Image.load("./img/cursor.png")
menu = Image.load("./img/fondo.png")
icono1 = Image.load("./img/ico/icono1.png")
icono1sel = Image.load("./img/ico/icono1sel.png")
icono2 = Image.load("./img/ico/icono2.png")
icono2sel = Image.load("./img/ico/icono2sel.png")
icono3 = Image.load("./img/ico/icono3.png")
icono3sel = Image.load("./img/ico/icono3sel.png")
icono4 = Image.load("./img/ico/icono4.png")
icono4sel = Image.load("./img/ico/icono4sel.png")
icono5 = Image.load("./img/ico/icono5.png")
icono5sel = Image.load("./img/ico/icono5sel.png")
icono6 = Image.load("./img/ico/icono6.png")
icono6sel = Image.load("./img/ico/icono6sel.png")
icono7 = Image.load("./img/ico/icono7.png")
icono7sel = Image.load("./img/ico/icono12sel.png")
icono8 = Image.load("./img/ico/icono8.png")
icono8sel = Image.load("./img/ico/icono12sel.png")
icono9 = Image.load("./img/ico/icono9.png")
icono9sel = Image.load("./img/ico/icono12sel.png")
icono10 = Image.load("./img/ico/icono10.png")
icono10sel = Image.load("./img/ico/icono12sel.png")
icono11 = Image.load("./img/ico/icono11.png")
icono11sel = Image.load("./img/ico/icono12sel.png")
icono12 = Image.load("./img/ico/icono12.png")
icono12sel = Image.load("./img/ico/icono12sel.png")
-- Variables
x = 0
x0 = 235
y0 = 150
x1 = 0
y1 = 0
 
-- Pulsaciones
function LeerPulsacion()
pad = Controls.read()
x1 = x0
y1 = y0
dy = pad:analogY()
dx = pad:analogX()
if math.abs(dx) > 64 then
x0 = x0 + dx / 24
end
if math.abs(dy) > 64 then
y0 = y0 + dy / 24
end
if pad:up() then
y0 = y0 - 10
end
if pad:down() then
y0 = y0 + 10
end
if pad:right() then
x0 = x0 + 10
end
if pad:left() then
x0 = x0 - 10
end
if x0 >= 82 and x0 <= 146 and y0 >= 21 and y0 <= 85 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/creditos.lua")
end
if x0 >= 152 and x0 <= 216 and y0 >= 21 and y0 <= 85 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/Bateria.lua")
end
if x0 >= 222 and x0 <= 286 and y0 >= 21 and y0 <= 85 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/InfoPSP.lua")
end
if x0 >= 292 and x0 <= 356 and y0 >= 21 and y0 <= 85 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/test.lua")
end
if x0 >= 362 and x0 <= 426 and y0 >= 21 and y0 <= 85 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/explorador.lua")
end
if x0 >= 82 and x0 <= 146 and y0 >= 101 and y0 <= 165 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/ups.lua")
end
if x0 >= 152 and x0 <= 216 and y0 >= 101 and y0 <= 165 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/ups.lua")
end
if x0 >= 222 and x0 <= 286 and y0 >= 101 and y0 <= 165 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/ups.lua")
end
if x0 >= 292 and x0 <= 356 and y0 >= 101 and y0 <= 165 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/ups.lua")
end
if x0 >= 362 and x0 <= 426 and y0 >= 101 and y0 <= 165 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/ups.lua")
end
if x0 >= 82 and x0 <= 146 and y0 >= 181 and y0 <= 245 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/ups.lua")
end
if x0 >= 152 and x0 <= 216 and y0 >= 181 and y0 <= 245 and pad:cross() then
fondo = nil
cursor = nil
icono1 = nil
icono1sel = nil
icono2 = nil
icono2sel = nil
icono3 = nil
icono3sel = nil
icono4 = nil
icono4sel = nil
icono5 = nil
icono5 = nil
icono6 = nil
icono6sel = nil
icono7 = nil
icono7sel = nil
icono8 = nil
icono8sel = nil
icono9 = nil
icono9sel = nil
icono10 = nil
icono10sel = nil
icono11 = nil
icono11sel = nil
icono12 = nil
icono12sel = nil
collectgarbage()
dofile ("./sections/ups.lua")
end
end
--Bucle principal--
while true do
if x0<0 then
x0=0
end
if x0>478 then
x0=478
end
if y0<0 then
y0=0
end
if y0>270 then
y0=270
end
--Menu--
screen:clear()
screen:blit (0, 0, menu)
screen:blit (82, 21, icono1)
screen:blit (152, 21, icono2)
screen:blit (222, 21, icono3)
screen:blit (292, 21, icono4)
screen:blit (362, 21, icono5)
screen:blit (82, 101, icono6)
screen:blit (152, 101, icono7)
screen:blit (222, 101, icono8)
screen:blit (292, 101, icono9)
screen:blit (362, 101, icono10)
screen:blit (82, 181, icono11)
screen:blit (152, 181, icono12)
 
--Damos Efecto al pasar el Cursor Encima--
if x0 >= 82 and x0 <= 146 and y0 >= 21 and y0 <= 85 then
 screen:blit(82, 21, icono1sel)
 end
if x0 >= 152 and x0 <= 216 and y0 >= 21 and y0 <= 85 then
 screen:blit(152, 21, icono2sel)
 end
 if x0 >= 222 and x0 <= 286 and y0 >= 21 and y0 <= 85 then
 screen:blit(222, 21, icono3sel)
 end
 if x0 >= 292 and x0 <= 356 and y0 >= 21 and y0 <= 85 then
 screen:blit(292, 21, icono4sel)
 end
 if x0 >= 362 and x0 <= 426 and y0 >= 21 and y0 <= 85 then
 screen:blit(362, 21, icono5sel)
 end
 if x0 >= 82 and x0 <= 146 and y0 >= 101 and y0 <= 165 then
 screen:blit(82, 101, icono6sel)
 end
 if x0 >= 152 and x0 <= 216 and y0 >= 101 and y0 <= 165 then
 screen:blit(152, 101, icono7sel)
 end
 if x0 >= 222 and x0 <= 286 and y0 >= 101 and y0 <= 165 then
 screen:blit(222, 101, icono8sel)
 end
 if x0 >= 292 and x0 <= 356 and y0 >= 101 and y0 <= 165 then
 screen:blit(292, 101, icono9sel)
 end
 if x0 >= 362 and x0 <= 426 and y0 >= 101 and y0 <= 165 then
 screen:blit(362, 101, icono10sel)
 end
 if x0 >= 82 and x0 <= 146 and y0 >= 181 and y0 <= 245 then
 screen:blit(82, 181, icono11sel)
 end
 if x0 >= 152 and x0 <= 216 and y0 >= 181 and y0 <= 245 then
 screen:blit(152, 181, icono12sel)
 end
 screen:blit(x1, x1, cursor)
 screen.waitVblankStart()
 screen.flip()
 LeerPulsacion()
 end

Ese es el código. El cursor solo va en diagonal para la izquierda o.O! Como lo arreglo? Además, tiene un extraño error con los iconos que no se explicar, asi que mejor que lo veais vosotros. Tambien me da un error  muy extraño al pulsar en el icono plástificado:

No querria dejaros la versión nuevo de IphoneV-PSP hasta pulirla un poco, pero como el menu es de el, lo tengo que hacer. Cuando lo arregle me gustaria que pasara a portada. Gracias!

Link: http://www.megaupload.com/?d=R5KLDDAJ

We're off now to seek all our fortunes to the land... of... our dreams

‹ Alguien sabe el porque? Seguimos aprendiendo en la medida que inovamos Problema, Reproducir Script .lua en Linux ›

Anuncios Google

Opciones de visualización de comentarios

Seleccione la forma que prefiera para mostrar los comentarios y haga clic en «Guardar las opciones» para activar los cambios.
Lun, 2010-05-24 19:45 — auslanderman
Coder

Descarguen lo rápido que se

Descarguen lo rápido que se borra, haver si podeis ayudarme  ;)

Dom, 2010-05-23 18:32 — Danieloyoshy09
CoderOld One

puedes

adjuntar el archivo...

Dom, 2010-05-23 18:45 — auslanderman
Coder

ya, pero prefiero adjuntarlo

ya, pero prefiero adjuntarlo sin errores

Dom, 2010-05-23 18:49 — Danieloyoshy09
CoderOld One

Ok..

Ok...

Lun, 2010-05-17 20:42 — ÐαrκSκy
Old One

Dios mio que motón

Dios mio que motón de código para un solo cursor con menu, por eso amo C ^^

Lun, 2010-05-17 20:52 — pspgorrister
Coder
Imagen de pspgorrister

Re: montón de código

Realmente, ese código se puede hacer en no más de 20 o 30 lineas, diría que en C ocuparía un poco más, pero hay que usar arrays en vez de 80 variables. Si se hace en C, "linea a linea" sin usar bucles ni arrays, te ocupará lo mismo o más.

Un saludo.

LuaDiE: Crea en Lua sin teclear código. Compatible HM7, HMv2, LuaPlayer, LuaDEV y PGE.

Mar, 2010-05-18 14:09 — ÐαrκSκy
Old One

Exacto.

Exacto.

Lun, 2010-05-17 18:49 — unai.
Coder
Imagen de unai.

Por favor dinos el fallo que

Por favor dinos el fallo que te da.

Luego, lo de los ceros. Yo entiendo que tu quieras hacer algo así como que el boton cambie de color (o algun efecto parecido) cuando el cursor pase por encima. Entonces lo que tienes que hacer es sustituir el cero por el valor que le has dado a X e Y más el tamaño en pixeles de la imagen cuando has "bliteado" el boton, o sea, así:

screen:blit(x, y, boton) --hemos puesto el boton
 
if x0>=x and x0<=x+boton:weight() --es decir, si x0 es mayor a la x que he usado antes pero menor a x sumandole la anchura del boton...
and y0>=y and y0<=boton:height() then --lo mismo que arriba, pero se le suma la altura, ya que es el valor Y
screen:blit... --el efecto que quieras darle, depende de ti, claro
end

Pero estoy dudando de si he puesto correctamente o al reves height y weight.

Suerte, que estamos en sequia de Homebrews!

 


Offspring - Rise and Fall, Rage and Grace
Dark_AleX
21st Century Breakdown
American Idiot

SceneBET y PSP Euskaraz 2... ¿Pronto?

Lun, 2010-05-17 19:27 — auslanderman
Coder

if x0 >= 1 and x0 <= 0 and y0

  if x0 >= 1 and x0 <= 0 and y0 >= 1 and y0 <= 0 then
 screen:blit(0, 0, icono12sel)
 end

a esos ceros me refiero, no me da ningun error, solo pregunto si hay alguono :P

We're off now to seek all our fortunes to the land... of... our dreams

Lun, 2010-05-17 20:55 — pspgorrister
Coder
Imagen de pspgorrister

Pregunta ilógica

si x0 es mayor o igual a uno Y x0 es menor o igual a 0 ....

Fíjate bien, sergi70, esa pregunta no tiene sentido.

Mar, 2010-05-18 13:52 — auslanderman
Coder

Es que no esta acabado, de

Es que no esta acabado, de momento lo he dejado asi, y he puesto un uno, para que vierais a que ceros me refiero :P

Mar, 2010-05-18 12:23 — unai.
Coder
Imagen de unai.

Pero es que esta

Pero es que esta preguntandonos por que numero hay que sustituirlos XD claro que no tiene sentido

Mar, 2010-05-18 13:10 — pspgorrister
Coder
Imagen de pspgorrister

No te entiendo

No te entiendo, no hablo de números, sino de que esa condición nunca podrá ser verdadera, es absurda.

Mar, 2010-05-18 21:01 — unai.
Coder
Imagen de unai.

Claro que es absurda! Nos

Claro que es absurda! Nos pregunta que poner en lugar de eso! (ya sabes para que tenga sentido)

Lun, 2010-05-17 20:07 — unai.
Coder
Imagen de unai.

OK, bueno, eso ya te lo he

OK, bueno, eso ya te lo he respondido XD A ver si te funciona!

Opciones de visualización de comentarios

Seleccione la forma que prefiera para mostrar los comentarios y haga clic en «Guardar las opciones» para activar los cambios.