[WIP] some demos

demos/lorenrunner.lua

@@ -0,0 +1,114 @@
+score=0
+lives=5
+level=1
+tresors=0
+player = {x=0,y=0,oldtile=32,falling=false}
+malos = {
+    {x=0,y=0},
+    {x=0,y=0},
+    {x=0,y=0}
+}
+eixida={x=0,y=0}
+
+function init()
+    mode(2)
+    setchar(33,223,223,223,0,253,253,253,0)
+    setchar(34,255,255,255,255,255,255,255,0)
+    setchar(35,195,255,195,195,195,255,195,195)
+    setchar(36,195,243,195,195,195,207,195,195)
+    setchar(37,0,255,0,0,0,0,0,0)
+    setchar(38,0,0,0,126,66,66,126,0)
+
+    filein("level1.bin",0,600)
+
+    tresors=0
+    player.oldtile=32
+    local m=1
+    for i=0,299 do
+        if peek(i) == 248 then
+            poke(i,32)
+            player.x=i%20
+            player.y=flr(i/20)
+        elseif peek(i) == 249 then
+            poke(i,32)
+            poke(300+i, 0x0f)
+            malos[m].x=i%20 
+            malos[m].y=flr(i/20)
+        elseif peek(i) == 36 then
+            poke(i,32)
+            poke(300+i, 0x0f)
+            eixida.x=i%20 
+            eixida.y=flr(i/20)
+        elseif peek(i) == 38 then
+            tresors=tresors+1
+        end
+    end
+
+    ink(COLOR_YELLOW) print("000000",7,14)
+
+    -- anem a contar els tresors que hi ha, per a saber quan es deu activar l'escala de eixida
+end
+
+function update()
+    if not player.falling then
+        if btnp(KEY_LEFT) and player.x>0 and peek(player.x-1+player.y*20)~=33 then
+            poke(player.x+player.y*20, player.oldtile)
+            player.x=player.x-1
+            player.oldtile = peek(player.x+player.y*20)
+            check_tresors()
+        elseif btnp(KEY_RIGHT) and player.x<19 and peek(player.x+1+player.y*20)~=33 then
+            poke(player.x+player.y*20, player.oldtile)
+            player.x=player.x+1
+            player.oldtile = peek(player.x+player.y*20)
+            check_tresors()
+        elseif btnp(KEY_UP) and player.oldtile==35 then
+            if player.y>0 then 
+                poke(player.x+player.y*20, player.oldtile)
+                player.y=player.y-1
+                player.oldtile = peek(player.x+player.y*20)
+            else
+                -- endgame. Ja vorem, ara que faça el init de nou i au
+                init()
+            end
+        elseif btnp(KEY_DOWN) and (peek(player.x+(player.y+1)*20) == 35 or player.oldtile==37) then
+            poke(player.x+player.y*20, player.oldtile)
+            player.y=player.y+1
+            player.oldtile = peek(player.x+player.y*20)
+        end
+    end
+
+    if cnt()%5 == 0 then
+        if player.oldtile~=37 and (peek(player.x+(player.y+1)*20)==32 or peek(player.x+(player.y+1)*20)==38 or peek(player.x+(player.y+1)*20)==37) then
+            player.falling = true
+            poke(player.x+player.y*20, player.oldtile)
+            player.y=player.y+1
+            player.oldtile = peek(player.x+player.y*20)
+            check_tresors()
+        else
+            player.falling=false
+        end
+    end
+    poke(player.x+player.y*20, 248)
+
+end
+
+function check_tresors()
+    if player.oldtile==38 then
+        player.oldtile=32
+        update_score(100)
+        poke(300+player.x+player.y*20, 0x0f)
+        tresors=tresors-1
+        if tresors==0 then
+            for i=eixida.y,0,-1 do
+                poke(eixida.x+i*20,35)
+            end
+        end
+    end
+end
+
+function update_score(points)
+    score=score+points
+    local str= ""..score
+    while #str < 6 do str = "0"..str end
+    ink(COLOR_YELLOW) print(str,7,14)
+end