primer commit

3d_monster_jail/3d_monster_jail.lua

@@ -0,0 +1,196 @@
+laberinto = {}
+primera_fila = 2
+ultima_fila = 28
+primera_columna = 1
+ultima_columna = 38
+jugador = {
+    x = primera_columna,
+    y = primera_fila,
+    velocitat = 0
+}
+malos = {{
+    x = 0,
+    y = 0,
+    velocitat = 0,
+    dx = 0,
+    dy = 0
+}, {
+    x = 0,
+    y = 0,
+    velocitat = 0,
+    dx = 0,
+    dy = 0
+}, {
+    x = 0,
+    y = 0,
+    velocitat = 0,
+    dx = 0,
+    dy = 0
+}, {
+    x = 0,
+    y = 0,
+    velocitat = 0,
+    dx = 0,
+    dy = 0
+}, {
+    x = 0,
+    y = 0,
+    velocitat = 0,
+    dx = 0,
+    dy = 0
+}}
+rellotge = 0
+num_malos = 1
+
+function init()
+    mode(1)
+    color(10, 15, 15)
+    cls()
+    crea_laberinto()
+    pinta_laberinto()
+    crea_malos()
+    -- play("o4v5l1crcl4dcferl1crcl4dcgfr")
+    -- print("hola",0,0)
+end
+
+function update()
+    rellotge = rellotge + 1
+    mou_jugador()
+    pinta_laberinto()
+    pinta_jugador()
+    pinta_malos()
+end
+
+function crea_laberinto()
+    -- Rellenalo todo a partir de la primera_fila-1
+    for i = 0, 1199 do
+        if i < ((primera_fila - 1) * 40) then
+            laberinto[i] = 0x20
+            -- laberinto[i] = 0xD8
+        else
+            laberinto[i] = 0x8F
+        end
+    end
+
+    -- Pon camino en la primera y última fila
+    for i = primera_columna, ultima_columna do
+        laberinto[(40 * primera_fila) + i] = 0x20
+        laberinto[(40 * ultima_fila) + i] = 0x20
+    end
+
+    -- Pon camino en la primera y última columna
+    for i = primera_fila, ultima_fila do
+        laberinto[(40 * i) + primera_columna] = 0x20
+        laberinto[(40 * i) + ultima_columna] = 0x20
+    end
+
+    -- Crea filas aleatorios
+    i = primera_fila
+    while i < ultima_fila - 1 do
+        if rnd(10) % 10 > 4 then
+            -- 60% de probabilidad de pintar la fila entera
+            for j = primera_columna, ultima_columna do
+                laberinto[(40 * i) + j] = 0x20
+            end
+        else
+            -- 40% de probabilidad de pintar solo un segmento
+            longitud = max(15, rnd(ultima_columna - primera_columna) + 1)
+            -- ink(0)
+            -- print(i, 0, i)
+            inicio = rnd(ultima_columna - longitud) + primera_columna
+            for j = 1, longitud do
+                laberinto[(40 * i) + j + inicio] = 0x20
+                -- print("X", j + inicio, i + 1)
+            end
+            -- print(inicio, 5, i)
+            -- print(longitud, 10, i)
+        end
+        i = i + rnd(3) + 3
+    end
+
+    -- Crea columnas aleatorias
+    i = primera_columna
+    while i < ultima_columna - 1 do
+        if rnd(10) % 10 > 4 then
+            -- 60% de probabilidad de pintar la columna entera
+            for j = primera_fila, ultima_fila do
+                laberinto[(40 * j) + i] = 0x20
+            end
+        else
+            -- 40% de probabilidad de pintar solo un segmento
+            longitud = max(5, rnd(ultima_fila - primera_fila) + 1)
+            -- ink(0)
+            -- print(i, i, 0)
+            inicio = rnd(ultima_fila - longitud) + primera_fila - 1
+            for j = 1, longitud do
+                laberinto[(40 * (j + inicio)) + i] = 0x20
+                -- print("X", i, j + inicio)
+            end
+            -- print(inicio, i, 1)
+            -- print(longitud, i, 2)
+            -- print(longitud + inicio, i, 3)
+        end
+        i = i + rnd(2) + 2
+    end
+end
+
+function pinta_laberinto()
+    for i = 0, 1199 do
+        ink(10)
+        print(chr(laberinto[i]), i % 40, flr(i / 40))
+        -- Crea el efecto 3D pintando un caracter encima
+        if laberinto[i] == 0x8F then
+            -- color(15,10)
+            -- print(chr(0xCF), i % 40, flr(i / 40)-1)
+            -- print(chr(0xCF), i % 40, flr(i / 40)-2)
+        end
+    end
+end
+
+function pinta_jugador()
+    ink(0)
+    print(chr(0xF8), jugador.x, jugador.y)
+end
+
+function mou_jugador()
+    if jugador.velocitat == 0 then
+        if btn(KEY_UP) then
+            coloca_jugador(jugador.x, jugador.y - 1)
+        elseif btn(KEY_DOWN) then
+            coloca_jugador(jugador.x, jugador.y + 1)
+        end
+        if btn(KEY_LEFT) then
+            coloca_jugador(jugador.x - 1, jugador.y)
+        elseif btn(KEY_RIGHT) then
+            coloca_jugador(jugador.x + 1, jugador.y)
+        end
+    else
+        -- if jugador.velocitat > 0 then
+        jugador.velocitat = jugador.velocitat - 1
+        -- end
+    end
+end
+
+function coloca_jugador(x, y)
+    if laberinto[y * 40 + x] == 0x20 then
+        jugador.x = x
+        jugador.y = y
+        jugador.velocitat = 8
+    end
+end
+
+function pinta_malos()
+    ink(4)
+    for i = 1, num_malos do
+        print(chr(0x07), malos[i].x, malos[i].y)
+    end
+end
+
+function crea_malos()
+    for i = 1, num_malos do
+        malos[i].x = ultima_columna
+        malos[i].y = primera_fila
+        malos[i].dx = 0
+        malos[i].dy = 0
+    end
+end