--Dirección derecha
 
s1d = pge.texture.load("./der/1.png", PGE_RAM)
s2d = pge.texture.load("./der/2.png", PGE_RAM)
s3d = pge.texture.load("./der/3.png", PGE_RAM)
s4d = pge.texture.load("./der/4.png", PGE_RAM)
s5d = pge.texture.load("./der/5.png", PGE_RAM)
s6d = pge.texture.load("./der/6.png", PGE_RAM)
s7d = pge.texture.load("./der/7.png", PGE_RAM)
s8d = pge.texture.load("./der/8.png", PGE_RAM

--Dirección arriba:
 
s1a = pge.texture.load("./arb/1.png", PGE_RAM)
s2a = pge.texture.load("./arb/2.png", PGE_RAM)
s3a = pge.texture.load("./arb/3.png", PGE_RAM)
s4a = pge.texture.load("./arb/4.png", PGE_RAM)
s5a = pge.texture.load("./arb/5.png", PGE_RAM)
s6a = pge.texture.load("./arb/6.png", PGE_RAM)
s7a = pge.texture.load("./der/7.png", PGE_RAM)
s8a = pge.texture.load("./arb/8.png", PGE_RAM)

--Dirección izquierda:
 
s1i = pge.texture.load("./izq/1.png", PGE_RAM)
s2i = pge.texture.load("./izq/2.png", PGE_RAM)
s3i = pge.texture.load("./izq/3.png", PGE_RAM)
s4i = pge.texture.load("./izq/4.png", PGE_RAM)
s5i = pge.texture.load("./izq/5.png", PGE_RAM)
s6i = pge.texture.load("./izq/6.png", PGE_RAM)
s7i = pge.texture.load("./izq/7.png", PGE_RAM)
s8i = pge.texture.load("./izq/8.png", PGE_RAM)

--Dirección abajo:
 
s1b = pge.texture.load("./aba/1.png", PGE_RAM)
s2b = pge.texture.load("./aba/2.png", PGE_RAM)
s3b = pge.texture.load("./aba/3.png", PGE_RAM)
s4b = pge.texture.load("./aba/4.png", PGE_RAM)
s5b = pge.texture.load("./aba/5.png", PGE_RAM)
s6b = pge.texture.load("./aba/6.png", PGE_RAM)
s7b = pge.texture.load("./aba/7.png", PGE_RAM)
s8b = pge.texture.load("./aba/8.png", PGE_RAM)

--Aunque sea una tontería no os olvidéis el alpha a 255 o sino el sprite no se verá.
 
alpha = 255

--Definimos en forma de tabla X e Y.
 
S={}
S[1]={x=20,y=100}
sprite=s1n
pasosd=0
pasosi=0
pasosa=0
pasosb=0

function mov()
if pge.controls.held(PGE_CTRL_RIGHT) then
S[1].x = S[1].x +1
pasosd = pasosd + 2
end
if pge.controls.held(PGE_CTRL_LEFT) then
S[1].x = S[1].x -1
pasosi = pasosi + 2
end
if pge.controls.held(PGE_CTRL_UP) then
S[1].y = S[1].y -1
pasosa = pasosa + 2
end
if pge.controls.held(PGE_CTRL_DOWN) then
S[1].x = S[1].x +1
pasosb = pasosb + 2
end
end

function sprd()
if pasosd >= 0 and pasosd < 10 and pge.controls.held(PGE_CTRL_RIGHT) then
sprite=s1d
end
if pasosd >= 10 and pasosd < 20 and pge.controls.held(PGE_CTRL_RIGHT) then
sprite=s2d
end
if pasosd >= 20 and pasosd < 30 and pge.controls.held(PGE_CTRL_RIGHT) then
sprite=s3d
end
if pasosd >= 30 and pasosd < 40 and pge.controls.held(PGE_CTRL_RIGHT) then
sprite=s4d
end
if pasosd >= 40 and pasosd < 50 and pge.controls.held(PGE_CTRL_RIGHT) then
sprite=s5d
end
if pasosd >= 50 and pasosd < 60 and pge.controls.held(PGE_CTRL_RIGHT) then
sprite=s6d
end
if pasosd >= 60 and pasosd < 70 and pge.controls.held(PGE_CTRL_RIGHT) then
sprite=s7d
end
if pasosd >= 70 and pasosd < 80 and pge.controls.held(PGE_CTRL_RIGHT) then
sprite=s8d
end
if pasosd >= 80 then
pasosd=0
end
end

function spri()
if pasosi >= 0 and pasosi < 10 and pge.controls.held(PGE_CTRL_LEFT) then
sprite=s1i
end
if pasosi >= 10 and pasosi < 20 and pge.controls.held(PGE_CTRL_LEFT) then
sprite=s2i
end
if pasosi >= 20 and pasosi < 30 and pge.controls.held(PGE_CTRL_LEFT) then
sprite=s3i
end
if pasosi >= 30 and pasosi < 40 and pge.controls.held(PGE_CTRL_LEFT) then
sprite=s4i
end
if pasosi >= 40 and pasosi < 50 and pge.controls.held(PGE_CTRL_LEFT) then
sprite=s5i
end
if pasosi >= 50 and pasosi < 60 and pge.controls.held(PGE_CTRL_LEFT) then
sprite=s6i
end
if pasosi >= 60 and pasosi < 70 and pge.controls.held(PGE_CTRL_LEFT) then
sprite=s7i
end
if pasosi >= 70 and pasosi < 80 and pge.controls.held(PGE_CTRL_LEFT) then
sprite=s8i
end
if pasosi >= 80 then
pasosi=0
end
end

function spra()
if pasosa >= 0 and pasosa < 10 and pge.controls.held(PGE_CTRL_UP) then
sprite=s1a
end
if pasosa >= 10 and pasosa < 20 and pge.controls.held(PGE_CTRL_UP) then
sprite=s2a
end
if pasosa >= 20 and pasosa < 30 and pge.controls.held(PGE_CTRL_UP) then
sprite=s3a
end
if pasosa >= 30 and pasosa < 40 and pge.controls.held(PGE_CTRL_UP) then
sprite=s4a
end
if pasosa >= 40 and pasosa < 50 and pge.controls.held(PGE_CTRL_UP) then
sprite=s5a
end
if pasosa >= 50 and pasosa < 60 and pge.controls.held(PGE_CTRL_UP) then
sprite=s6a
end
if pasosa >= 60 and pasosa < 70 and pge.controls.held(PGE_CTRL_UP) then
sprite=s7a
end
if pasosa >= 70 and pasosa < 80 and pge.controls.held(PGE_CTRL_UP) then
sprite=s8a
end
if pasosa >= 80 then
pasosa=0
end
end

function sprb()
if pasosb >= 0 and pasosb < 10 and pge.controls.held(PGE_CTRL_DOWN) then
sprite=s1b
end
if pasosb >= 10 and pasosb < 20 and pge.controls.held(PGE_CTRL_DOWN) then
sprite=s2b
end
if pasosb >= 20 and pasosb < 30 and pge.controls.held(PGE_CTRL_DOWN) then
sprite=s3b
end
if pasosb >= 30 and pasosb < 40 and pge.controls.held(PGE_CTRL_DOWN) then
sprite=s4b
end
if pasosb >= 40 and pasosb < 50 and pge.controls.held(PGE_CTRL_DOWN) then
sprite=s5b
end
if pasosb >= 50 and pasosb < 60 and pge.controls.held(PGE_CTRL_DOWN) then
sprite=s6b
end
if pasosb >= 60 and pasosb < 70 and pge.controls.held(PGE_CTRL_DOWN) then
sprite=s7b
end
if pasosb >= 70 and pasosb < 80 and pge.controls.held(PGE_CTRL_DOWN) then
sprite=s8b
end
if pasosb >= 80 then
pasosb=0
end
end

while true do
pge.controls.update()
pge.gfx.startdrawing()
pge.gfx.clearscreen()
mov()
sprd()
spri()
spra()
sprb()
pge.texture.activate(sprite)
pge.texture.draweasy(sprite, S[1].x,S[1].y, 0, alpha)
pge.gfx.enddrawing()
if pge.controls.pressed(PGE_CTRL_START) then
pge.exit()
end
pge.gfx.swapbuffers()
end
sprite = nil 

pge.texture.activate(sprite)
pge.texture.draweasy(sprite, S[1].x,S[1].y, 0, alpha)