- Implementat el moviment dels actors amb rutes

- També el moviment amb teclat del "heroi"

data/actors.lua

@@ -6,51 +6,87 @@ actors={
         table.insert(actors.list, actor)
     end,
 
+    search=function(name)
+        for i,v in ipairs(actors.list) do
+            if v.name and v.name==name then
+                return v
+            end
+        end
+    end,
+
     draw=function()
         for i,v in ipairs(actors.list) do
-            sspr(v.gfx.x,v.gfx.y,16,16,v.x*8+v.dx,v.y*8+v.dy,16,16,v.o)
+            local frame=((v.dx+v.dy)%2)*16
+            --print(v.o)
+            if v.o=='u' then
+                sspr(v.gfx.x+frame,v.gfx.y+16,16,16,v.x*8-4+v.dx*2,v.y*8-12+v.dy*2,16,16)
+            elseif v.o=='d' then
+                sspr(v.gfx.x+frame,v.gfx.y,16,16,v.x*8-4+v.dx*2,v.y*8-12+v.dy*2,16,16)
+            elseif v.o=='l' then
+                sspr(v.gfx.x+frame,v.gfx.y+32,16,16,v.x*8-4+v.dx*2,v.y*8-12+v.dy*2,16,16)
+            elseif v.o=='r' then
+                sspr(v.gfx.x+frame,v.gfx.y+32,16,16,v.x*8-4+v.dx*2,v.y*8-12+v.dy*2,16,16,true)
+            end
         end
     end,
 
     update=function()
+        local needs_sorting=false
         for i,v in ipairs(actors.list) do
             if v.dx==0 and v.dy==0 then
                 if v.path then
                     v.path.pos=v.path.pos+1
-                    if v.path.pos > #v.path.route then
+                    local step=string.sub(v.path.route,v.path.pos,v.path.pos)
-                        v.path=nil
+                    if v.path.pos == #v.path.route then v.path=nil end
-                    else
+                    if step=='u' then
-                        local step=string.sub(v.path.route,v.path.pos,v.path.pos)
+                        --check collision!
-                        if step=='u' then
+                        v.y=v.y-1
-                            --check collision!
+                        v.dy=4
-                            v.y=v.y-1
+                        v.o='u'
-                            v.dy=-8
+                        needs_sorting=true
-                        elseif step=='d' then
+                    elseif step=='d' then
-                            --check collision!
+                        --check collision!
-                            v.y=v.y+1
+                        v.y=v.y+1
-                            v.dy=8
+                        v.dy=-4
-                        elseif step=='l' then
+                        v.o='d'
-                            --check collision!
+                        needs_sorting=true
-                            v.x=v.x-1
+                    elseif step=='l' then
-                            v.dx=-8
+                        --check collision!
-                        elseif step=='r' then
+                        v.x=v.x-1
-                            --check collision!
+                        v.dx=4
-                            v.x=v.x+1
+                        v.o='l'
-                            v.dx=8
+                    elseif step=='r' then
-                        end
+                        --check collision!
+                        v.x=v.x+1
+                        v.dx=-4
+                        v.o='r'
+                    elseif step=='q' then
+                        v.o='u'
+                    elseif step=='a' then
+                        v.o='d'
+                    elseif step=='o' then
+                        v.o='r'
+                    elseif step=='p' then
+                        v.o='l'
                     end
                 end
-            else
+            end
-                if v.dx > 0 then
+            if v.dx > 0 then
-                    v.dx=v.dx-2
+                v.dx=v.dx-1
-                elseif v.dx < 0 then
+            elseif v.dx < 0 then
-                    v.dx=v.dx+2
+                v.dx=v.dx+1
-                elseif v.dy > 0 then
+            elseif v.dy > 0 then
-                    v.dy=v.dy-2
+                v.dy=v.dy-1
-                elseif v.dy < 0 then
+            elseif v.dy < 0 then
-                    v.dy=v.dy+2
+                v.dy=v.dy+1
-                end
             end
         end
+        if needs_sorting then
+            table.sort(actors.list, compare_actors)
+        end
     end
-}
+
+}
+function compare_actors(a,b)
+    return a.y < b.y
+end

data/game.ini

@@ -3,4 +3,4 @@ config=ja2
 width=160
 height=144
 zoom=5
-files=game.lua,mapa.lua,editor.lua,textbox.lua,menu.lua,main.lua
+files=actors.lua,game.lua,mapa.lua,editor.lua,textbox.lua,menu.lua,main.lua

data/game.lua

@@ -3,12 +3,32 @@ game={
     
     init=function()
         mapa.load("test.map")
+        actors.add({name="usufondo",x=11,y=9,o="r",gfx={x=0,y=0},path={pos=0,route='rrrrura'}})
+        actors.add({name="jailer",x=6,y=9,o="r",gfx={x=32,y=0}})
         update=game.update
     end,
 
     update=function()
         camera(game.cam.x, game.cam.y)
+        setsource(tiles)
         map(0,0,0,0,mapa.w, mapa.h)
+        setsource(sprites)
+        actors.draw()
         camera(0,0)
+
+        local hero = actors.search("jailer")
+        if hero and not hero.path and hero.dx+hero.dy==0 then
+            if btn(KEY_DOWN) then
+                hero.path={pos=0,route='d'}
+            elseif btn(KEY_UP) then
+                hero.path={pos=0,route='u'}
+            elseif btn(KEY_LEFT) then
+                hero.path={pos=0,route='l'}
+            elseif btn(KEY_RIGHT) then
+                hero.path={pos=0,route='r'}
+            end
+        end
+
+        if beat() then actors.update() end
     end
 }

data/main.lua

@@ -6,7 +6,7 @@ function _init()
     setsource(tiles)
     local pal=loadpal("tiles.gif")
     setpal(pal)
-
+    beat(6)
     main_init()
 end