Hacer Que Unos Sprites Se Muevan Al mando de la Consola PSP
aqui les dejo el codigo
----------------------------------------
--Sprites
--By Pedro A. Rodríguez (Tanos)
--30/03/08
----------------------------------------
s1f=Image.load("1f.png")
s2f=Image.load("2f.png")
s3f=Image.load("3f.png")
s4f=Image.load("4f.png")
s1d=Image.load("1d.png")
s2d=Image.load("2d.png")
s3d=Image.load("3d.png")
s4d=Image.load("4d.png")
s1i=Image.load("1i.png")
s2i=Image.load("2i.png")
s3i=Image.load("3i.png")
s4i=Image.load("4i.png")
s1a=Image.load("1a.png")
s2a=Image.load("2a.png")
s3a=Image.load("3a.png")
s4a=Image.load("4a.png")
S={}
S[1]={x=100,y=100}
sprite=s1f
pasosd=0
pasosi=0
pasosf=0
pasosa=0
function mov()
if pad:right() then
S[1].x = S[1].x +1
pasosd = pasosd + 1
end
if pad:left() then
S[1].x = S[1].x -1
pasosi = pasosi + 1
end
if pad:up() then
S[1].y = S[1].y -1
pasosa = pasosa + 1
end
if pad:down() then
S[1].y = S[1].y +1
pasosf = pasosf + 1
end
end
function sprd()
if pasosd >= 0 and pasosd < 10 and pad:right() then
sprite=s1d
end
if pasosd >= 10 and pasosd < 20 and pad:right() then
sprite=s2d
end
if pasosd >= 20 and pasosd < 30 and pad:right() then
sprite=s3d
end
if pasosd >= 30 and pasosd < 40 and pad:right() then
sprite=s4d
end
if pasosd >= 40 then
pasosd=0
end
end
function spri()
if pasosi >= 0 and pasosi < 10 and pad:left() then
sprite=s1i
end
if pasosi >= 10 and pasosi < 20 and pad:left() then
sprite=s2i
end
if pasosi >= 20 and pasosi < 30 and pad:left() then
sprite=s3i
end
if pasosi >= 30 and pasosi < 40 and pad:left() then
sprite=s4i
end
if pasosi >= 40 then
pasosi=0
end
end
function sprf()
if pasosf >= 0 and pasosf < 10 and pad:down() then
sprite=s1f
end
if pasosf >= 10 and pasosf < 20 and pad:down() then
sprite=s2f
end
if pasosf >= 20 and pasosf < 30 and pad:down() then
sprite=s3f
end
if pasosf >= 30 and pasosf < 40 and pad:down() then
sprite=s4f
end
if pasosf >= 40 then
pasosf=0
end
end
function spra()
if pasosa >= 0 and pasosa < 10 and pad:up() then
sprite=s1a
end
if pasosa >= 10 and pasosa < 20 and pad:up() then
sprite=s2a
end
if pasosa >= 20 and pasosa < 30 and pad:up() then
sprite=s3a
end
if pasosa >= 30 and pasosa < 40 and pad:up() then
sprite=s4a
end
if pasosa >= 40 then
pasosa=0
end
end
while true do
pad = Controls.read()
screen:clear()
mov()
sprd()
spri()
spra()
sprf()
screen:blit(S[1].x,S[1].y,sprite)
if pad:start() then
break
end
screen.waitVblankStart()
screen.flip()
end
Eh Aqui los Sprites
http://www.mediafire.com/download.php?yytdwjqzvmo