MANUAL DE CHIVO-8

-- Tu sprite #1 se mueve con las flechas sobre tu nivel.
local x, y = 20, 20

function _update()
  if btn(0) then x = x - 1 end -- izquierda
  if btn(1) then x = x + 1 end -- derecha
  if btn(2) then y = y - 1 end -- arriba
  if btn(3) then y = y + 1 end -- abajo
end

function _draw()
  cls(1)                  -- fondo azul oscuro
  map(0, 0, 0, 0, 16, 16) -- tu nivel
  spr(1, x, y)            -- tu sprite #1
end

-- Ya no atraviesa paredes: revisa la bandera 0
-- (sólido) del bloque a donde va. Suena sfx(0) al chocar.
local x, y = 20, 20

local function solido(px, py)
  return fget(mget(px // 8, py // 8), 0)
end

local function libre(nx, ny)
  return not (solido(nx, ny) or solido(nx + 7, ny)
    or solido(nx, ny + 7) or solido(nx + 7, ny + 7))
end

local function mover(dx, dy)
  if libre(x + dx, y + dy) then x, y = x + dx, y + dy
  else sfx(0) end
end

function _init() music(0) end

function _update()
  if btn(0) then mover(-1, 0) end
  if btn(1) then mover(1, 0) end
  if btn(2) then mover(0, -1) end
  if btn(3) then mover(0, 1) end
end

function _draw()
  cls(1)
  map(0, 0, 0, 0, 16, 16)
  spr(1, x, y)
  print('MI JUEGO', 2, 2, 7)
end

-- Junta monedas: cada una da 10 puntos.
local x, y = 60, 60      -- tu personaje
local mx, my = 20, 20    -- la moneda
local puntos = 0

local function nuevaMoneda()
  mx = math.random(8, 112)
  my = math.random(16, 112)
end

function _update()
  if btn(0) then x = x - 2 end
  if btn(1) then x = x + 2 end
  if btn(2) then y = y - 2 end
  if btn(3) then y = y + 2 end
  -- ¿la toca? (distancia menor a 8 en x y en y)
  if math.abs(x - mx) < 8 and math.abs(y - my) < 8 then
    puntos = puntos + 10
    sfx(0)
    nuevaMoneda()
  end
end

function _draw()
  cls(1)
  circfill(mx + 3, my + 3, 3, 10)  -- moneda amarilla
  rectfill(x, y, 8, 8, 11)         -- personaje verde
  print('PUNTOS: ' .. puntos, 2, 2, 7)
end

-- Enemigos que rebotan. Si te tocan, pierdes una vida.
local x, y = 60, 100
local vidas, invencible = 3, 0
local enemigos = {}

function _init()
  for i = 1, 4 do
    -- cada enemigo es una tabla con posición y velocidad
    enemigos[i] = { x = math.random(0, 120), y = math.random(0, 60),
                    vx = math.random(1, 2), vy = math.random(1, 2) }
  end
end

local function choca(a, b) -- dos cuadros de 8x8 se enciman
  return math.abs(a.x - b.x) < 8 and math.abs(a.y - b.y) < 8
end

function _update()
  if vidas <= 0 then return end
  if btn(0) then x = x - 2 end
  if btn(1) then x = x + 2 end
  if btn(2) then y = y - 2 end
  if btn(3) then y = y + 2 end
  if invencible > 0 then invencible = invencible - 1 end
  for _, e in ipairs(enemigos) do
    e.x, e.y = e.x + e.vx, e.y + e.vy
    if e.x < 0 or e.x > 120 then e.vx = -e.vx end
    if e.y < 0 or e.y > 120 then e.vy = -e.vy end
    if invencible == 0 and choca(e, { x = x, y = y }) then
      vidas = vidas - 1
      invencible = 60 -- 2 segundos sin daño
    end
  end
end

function _draw()
  cls(0)
  for _, e in ipairs(enemigos) do rectfill(e.x, e.y, 8, 8, 8) end
  if invencible % 6 < 3 then rectfill(x, y, 8, 8, 12) end -- parpadea
  print('VIDAS: ' .. vidas, 2, 2, 7)
  if vidas <= 0 then print('FIN DEL JUEGO', 38, 60, 8) end
end

-- Gravedad y salto: Z salta, flechas para moverte.
local x, y, vy = 20, 20, 0
local enSuelo = false
local plataformas = {
  { x = 0,  y = 120, w = 128 }, -- el piso
  { x = 20, y = 92,  w = 30 },
  { x = 70, y = 70,  w = 30 },
  { x = 30, y = 46,  w = 24 },
}

function _update()
  if btn(0) then x = x - 2 end
  if btn(1) then x = x + 2 end
  if btnp(4) and enSuelo then vy = -5 end -- saltar
  vy = math.min(vy + 0.3, 4)                -- la gravedad jala hacia abajo
  y = y + vy
  enSuelo = false
  for _, p in ipairs(plataformas) do
    -- cae sobre una plataforma: se queda parado encima
    if vy >= 0 and x + 7 >= p.x and x <= p.x + p.w and y + 8 >= p.y and y + 8 <= p.y + 6 then
      y, vy, enSuelo = p.y - 8, 0, true
    end
  end
end

function _draw()
  cls(12)
  for _, p in ipairs(plataformas) do rectfill(p.x, p.y, p.w, 4, 4) end
  rectfill(x, y, 8, 8, 8)
  print('Z: SALTAR', 2, 2, 1)
end

-- Un juego tiene pantallas: título, juego y fin.
local estado = 'titulo'
local tiempo, puntos = 0, 0

function _update()
  if estado == 'titulo' then
    if btnp(4) then estado, tiempo, puntos = 'juego', 0, 0 end
  elseif estado == 'juego' then
    tiempo = tiempo + 1
    if btnp(4) then puntos = puntos + 1 end -- aprieta Z rápido
    if tiempo >= 300 then estado = 'fin' end -- 10 segundos
  elseif estado == 'fin' then
    if btnp(5) then estado = 'titulo' end
  end
end

function _draw()
  cls(1)
  if estado == 'titulo' then
    print('MI JUEGO', 48, 50, 10)
    print('Z: EMPEZAR', 44, 70, 7)
  elseif estado == 'juego' then
    print('¡APRIETA Z!', 42, 50, 7)
    print('PUNTOS: ' .. puntos, 42, 62, 11)
    rectfill(14, 100, 100 - tiempo // 3, 4, 8) -- barra de tiempo
  else
    print('FIN', 58, 50, 8)
    print('HICISTE ' .. puntos, 46, 62, 7)
    print('X: OTRA VEZ', 42, 80, 6)
  end
end

-- El récord se guarda aunque cierres la página.
cartdata('mi_juego')      -- el nombre de tu "memoria"
local record = dget(0)     -- casilla 0: el récord guardado
local puntos, tiempo = 0, 300

function _update()
  if tiempo > 0 then
    tiempo = tiempo - 1
    if btnp(4) then puntos = puntos + 1 end
    if tiempo == 0 and puntos > record then
      record = puntos
      dset(0, record)       -- guardarlo
    end
  elseif btnp(5) then puntos, tiempo = 0, 300 end
end

function _draw()
  cls(0)
  print('APRIETA Z RÁPIDO', 30, 40, 7)
  print('PUNTOS: ' .. puntos, 30, 56, 11)
  print('RÉCORD: ' .. math.floor(record), 30, 66, 10)
  if tiempo == 0 then print('X: OTRA VEZ', 30, 86, 6) end
end

-- Partículas: Z hace una explosión y la pantalla tiembla.
local chispas, temblor = {}, 0

local function explosion(x, y)
  for i = 1, 30 do
    local a, v = math.random() * 6.28, math.random() * 3
    chispas[#chispas + 1] = { x = x, y = y, vx = math.cos(a) * v,
                              vy = math.sin(a) * v, vida = math.random(15, 30) }
  end
  temblor = 8
end

function _update()
  if btnp(4) then explosion(math.random(30, 98), math.random(30, 98)) end
  for i = #chispas, 1, -1 do -- de atrás hacia adelante para poder borrar
    local c = chispas[i]
    c.x, c.y, c.vy = c.x + c.vx, c.y + c.vy, c.vy + 0.1
    c.vida = c.vida - 1
    if c.vida <= 0 then table.remove(chispas, i) end
  end
  if temblor > 0 then temblor = temblor - 1 end
end

function _draw()
  camera(math.random(-temblor, temblor) // 2, math.random(-temblor, temblor) // 2)
  cls(0)
  for _, c in ipairs(chispas) do
    pset(c.x, c.y, c.vida > 20 and 10 or (c.vida > 10 and 9 or 8)) -- amarillo, naranja, rojo
  end
  camera()
  print('Z: EXPLOSIÓN', 2, 2, 7)
end

-- title:  mi juego estilo TIC-80
-- script: lua
-- Así se escribe un juego de TIC-80: todo pasa en TIC(),
-- la pantalla es de 240x136 y los botones son 0 arriba,
-- 1 abajo, 2 izquierda, 3 derecha, 4 = Z y 5 = X.
x, y = 116, 64

function TIC()
  if btn(0) then y = y - 1 end
  if btn(1) then y = y + 1 end
  if btn(2) then x = x - 1 end
  if btn(3) then x = x + 1 end
  cls(13)
  rect(x, y, 8, 8, 2)          -- en TIC-80 rect es relleno
  print('HOLA DESDE TIC-80', 70, 20, 0)
end

-- Sonido en tu juego: Z = láser, X = música sí/no, flechas = notas.
-- Antes escribe SONIDOS PONER y CANCION ALEGRE en la línea de comandos.
local musica = false
local nota = ''
local NOTAS = { [0] = { 'DO', 262 }, [1] = { 'MI', 330 }, [2] = { 'SOL', 392 }, [3] = { 'DO ALTO', 523 } }

function _update()
  if btnp(4) then sfx(5) end              -- 5 = LÁSER de la biblioteca
  if btnp(5) then
    musica = not musica
    if musica then track() else music(-1) end
  end
  for b = 0, 3 do
    if btnp(b) then tono(NOTAS[b][2], 0.2, 1); nota = NOTAS[b][1] end  -- 1 = onda triangular
  end
end

function _draw()
  cls(1)
  print('Z: LÁSER   X: MÚSICA', 4, 4, 7)
  print('FLECHAS: NOTAS', 4, 14, 7)
  print('MÚSICA: ' .. (musica and 'SÍ' or 'NO'), 4, 30, musica and 11 or 8)
  print(nota, 50, 60, 10)
end

-- Tu personaje: la plantilla SALTO con tu sprite #1 en vez del cuadro rojo.
-- Dibuja el #1 en Sprites (F2): lo negro (color 0) no se dibuja.
-- ── CAMBIA AQUÍ ──────────────────────────
local VELOCIDAD = 2     -- qué tan rápido caminas
local SALTO = -5        -- más negativo = salto más alto
local GRAVEDAD = 0.3    -- más grande = cae más rápido
local COLOR_CIELO = 12
-- ─────────────────────────────────────────
local x, y, vy, enSuelo = 10, 100, 0, false
local mira = 1               -- 1 = derecha, -1 = izquierda
local puntos = 0
local plataformas = {
  { x = 0,  y = 120, w = 128 },
  { x = 20, y = 92,  w = 30 },
  { x = 70, y = 70,  w = 30 },
  { x = 30, y = 46,  w = 24 },
}
local monedas = {}

function _init()
  for _, p in ipairs(plataformas) do
    monedas[#monedas + 1] = { x = p.x + p.w / 2, y = p.y - 8 }
  end
end

function _update()
  if btn(0) then x = x - VELOCIDAD; mira = -1 end
  if btn(1) then x = x + VELOCIDAD; mira = 1 end
  if btnp(4) and enSuelo then vy = SALTO; tono(440, 0.08) end
  vy = math.min(vy + GRAVEDAD, 4)
  y = y + vy
  enSuelo = false
  for _, p in ipairs(plataformas) do
    if vy >= 0 and x + 7 >= p.x and x <= p.x + p.w and y + 8 >= p.y and y + 8 <= p.y + 6 then
      y, vy, enSuelo = p.y - 8, 0, true
    end
  end
  for i = #monedas, 1, -1 do
    local m = monedas[i]
    if math.abs(x + 4 - m.x) < 6 and math.abs(y + 4 - m.y) < 6 then
      table.remove(monedas, i); puntos = puntos + 1; tono(880, 0.1)
    end
  end
  if y > 140 then x, y, vy = 10, 100, 0 end -- se cayó: vuelve al inicio
end

function _draw()
  cls(COLOR_CIELO)
  for _, p in ipairs(plataformas) do rectfill(p.x, p.y, p.w, 4, 4) end
  for _, m in ipairs(monedas) do circfill(m.x, m.y, 2, 10) end
  palt(0, true)                    -- el negro (color 0) se vuelve transparente
  spr(1, x, y, 1, 1, mira < 0)     -- tu sprite #1; mira < 0 lo voltea
  palt()                           -- los colores vuelven a la normalidad
  print('MONEDAS: ' .. puntos, 2, 2, 7)
  if #monedas == 0 then print('¡GANASTE!', 46, 30, 10) end
end

-- Un mundo más grande que la pantalla: la cámara sigue al personaje.
local MUNDO = 512                 -- ancho del mundo en pixeles (4 pantallas)
local x, y, vy, enSuelo = 10, 100, 0, false
local cx = 0                      -- dónde está la cámara
local plataformas = { { x = 0, y = 120, w = MUNDO } }
local monedas = {}

function _init()
  for i = 1, 14 do
    local p = { x = 40 + i * 32, y = 100 - (i % 3) * 18, w = 24 }
    plataformas[#plataformas + 1] = p
    monedas[#monedas + 1] = { x = p.x + 12, y = p.y - 8 }
  end
end

function _update()
  if btn(0) then x = math.max(0, x - 2) end
  if btn(1) then x = math.min(MUNDO - 8, x + 2) end
  if btnp(4) and enSuelo then vy = -5 end
  vy = math.min(vy + 0.3, 4)
  y = y + vy
  enSuelo = false
  for _, p in ipairs(plataformas) do
    if vy >= 0 and x + 7 >= p.x and x <= p.x + p.w and y + 8 >= p.y and y + 8 <= p.y + 6 then
      y, vy, enSuelo = p.y - 8, 0, true
    end
  end
  for i = #monedas, 1, -1 do
    local m = monedas[i]
    if math.abs(x + 4 - m.x) < 6 and math.abs(y + 4 - m.y) < 6 then table.remove(monedas, i); tono(880, 0.08) end
  end
  -- la cámara sigue al personaje sin salirse del mundo
  cx = math.max(0, math.min(MUNDO - 128, x - 60))
end

function _draw()
  cls(12)
  camera(cx, 0)                   -- desde aquí todo se dibuja corrido
  for _, p in ipairs(plataformas) do rectfill(p.x, p.y, p.w, 4, 4) end
  for _, m in ipairs(monedas) do circfill(m.x, m.y, 2, 10) end
  rectfill(x, y, 8, 8, 8)
  camera()                        -- lo de aquí abajo queda fijo en la pantalla
  print('FALTAN: ' .. #monedas, 2, 2, 7)
  if #monedas == 0 then print('¡LAS JUNTASTE TODAS!', 24, 30, 10) end
end