fase 1: render estàtic del mapa

2026-05-15 10:07:54 +02:00
parent ff6881b6a0
commit 4e638ce7f5
12 changed files with 106 additions and 0 deletions
@@ -0,0 +1,106 @@
+-- Pepe Runner — port a ascii/Lua del joc original en Turbo Pascal (JailDesigner, 2000)
+-- Fase 1: render estatic d'un mapa
+
+-- Codis CP437 dels sprites del joc original (de TIPOS.PAS)
+BUIT   = 0
+DINERS = 36   -- $
+PEDRA  = 219  -- bloc solid
+ESCALA = 205  -- ═ (linia doble horitzontal, formant graons d'escala)
+CORDA  = 196  -- ─ (linia simple horitzontal)
+BLOC1  = 176  -- ░
+BLOC2  = 177  -- ▒
+BLOC3  = 178  -- ▓
+PEPE_C = 2    -- sprite del Pepe
+MALO_C = 88   -- 'X' enemics
+
+-- Colors (de TIPOS.PAS, paleta CGA — coincideix amb la d'ascii)
+COL_PEDRA  = COLOR_BROWN        -- 6
+COL_DINERS = COLOR_YELLOW       -- 14
+COL_ESCALA = COLOR_LIGHT_GRAY   -- 7
+COL_CORDA  = COLOR_LIGHT_GRAY   -- 7
+COL_BUIT   = COLOR_BLACK        -- 0
+
+-- Mida del mapa (del joc original)
+MAP_W = 40
+MAP_H = 25
+
+-- Estat
+mapa = {}   -- mapa[x][y] = { tipo=, color=, temps= }
+level = 1
+
+function definir_glifs()
+    -- Cel·la buida (sobreescrivim el glif 0 del ROM, que no es buit)
+    setchar(BUIT,   0,0,0,0,0,0,0,0)
+
+    -- Pedra (█) — bloc solid
+    setchar(PEDRA,  0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF)
+
+    -- Diners ($) — signe dolar classic
+    setchar(DINERS, 0x18,0x3E,0x60,0x3C,0x06,0x7C,0x18,0x00)
+
+    -- Escala (═) — doble linia horitzontal
+    setchar(ESCALA, 0x00,0x00,0xFF,0x00,0x00,0xFF,0x00,0x00)
+
+    -- Corda (─) — linia horitzontal simple
+    setchar(CORDA,  0x00,0x00,0x00,0x00,0xFF,0x00,0x00,0x00)
+
+    -- Blocs degradats (per al fade dels forats)
+    setchar(BLOC1,  0x44,0x11,0x44,0x11,0x44,0x11,0x44,0x11) -- ░ light
+    setchar(BLOC2,  0xAA,0x55,0xAA,0x55,0xAA,0x55,0xAA,0x55) -- ▒ medium
+    setchar(BLOC3,  0xBB,0xEE,0xBB,0xEE,0xBB,0xEE,0xBB,0xEE) -- ▓ dark
+
+    -- Pepe (cara feliç tipus CP437 char 2 ☻)
+    setchar(PEPE_C, 0x7E,0x81,0xA5,0x81,0xBD,0x99,0x81,0x7E)
+
+    -- Enemic — una 'X' marcada
+    setchar(MALO_C, 0x00,0xC3,0x66,0x3C,0x18,0x3C,0x66,0xC3)
+end
+
+-- Retorna el color associat a un tipus de cel·la
+function color_de(tipo)
+    if tipo == PEDRA  then return COL_PEDRA  end
+    if tipo == DINERS then return COL_DINERS end
+    if tipo == ESCALA then return COL_ESCALA end
+    if tipo == CORDA  then return COL_CORDA  end
+    return COL_BUIT
+end
+
+-- Carrega un mapa des d'un fitxer .map (1000 bytes, column-major: byte[x*25+y])
+-- Estrategia: filein() a l'adreca 0 (sobreescriu char_screen), llegim amb peek()
+-- a una taula Lua, i despres fem cls() per netejar la pantalla.
+function carregar_mapa(num)
+    filein("maps/"..tostr(num)..".map", 0, MAP_W*MAP_H)
+    for x = 0, MAP_W-1 do
+        mapa[x] = {}
+        for y = 0, MAP_H-1 do
+            local tipo = peek(x*MAP_H + y)
+            mapa[x][y] = { tipo=tipo, color=color_de(tipo), temps=-1 }
+        end
+    end
+end
+
+function pintar_mapa()
+    for x = 0, MAP_W-1 do
+        for y = 0, MAP_H-1 do
+            local c = mapa[x][y]
+            if c.tipo ~= BUIT then
+                color(c.color, COL_BUIT)
+                print(chr(c.tipo), x, y)
+            end
+        end
+    end
+end
+
+function init()
+    mode(1)            -- 40x30 chars, color per cel·la
+    border(COLOR_BLUE)
+    color(COLOR_LIGHT_GRAY, COLOR_BLACK)
+    definir_glifs()
+    carregar_mapa(level)
+    cls()              -- neteja despres del filein (que ha escrit a char_screen)
+    pintar_mapa()
+end
+
+function update()
+    -- Fase 1: nomes render estatic, res que actualitzar encara
+end