cartridges/picotron/wolfenstein_src/main.lua
2026-02-12 22:31:51 +01:00

75 lines
1.5 KiB
Lua

--[[pod_format="raw",created="2026-02-10 12:09:44",modified="2026-02-10 12:27:08",revision=2]]
player = {
origin = {
x = nil,
y = nil,
},
dir = nil,
}
col_bg = 1
col_ground = 6
fov = (120 / 180) * math.pi -- 120 horizontal
function _init()
for i = 0, 31 do
for j = 0, 31 do
if mget(i, j) == 5 then -- player id
player.origin.x = i + 0.5
player.origin.y = j + 0.5
player.dir = 0
break
end
end
if player.x then
break
end
end
end
function cast_ray(origin, angle) end
function draw_minimap()
local tile_size = 4
local offset = 20
map(0, 0, offset, offset, 31, 31, 0x0000, tile_size, tile_size)
-- player
local px = offset + (player.origin.x * tile_size)
local py = offset + (player.origin.y * tile_size)
circfill(px, py, 1, 5)
local len = 3
local px2 = px + math.cos(player.dir) * len
local py2 = py + math.sin(player.dir) * len
line(px, py, px2, py2, 6)
end
function _draw()
cls(col_bg)
rectfill(0, 135, 480, 270, col_ground)
local angle_step = (fov / 480) / 360 * math.pi
for x = 0, 480 - 1 do
local angle = (player.dir - (fov / 2) + x * angle_step) % (2 * math.pi)
local bloc, dist = cast_ray(player.origin, angle)
end
draw_minimap()
end
function _update()
local speed = 0.1
if btn(0) then
player.dir -= speed
end
if btn(1) then
player.dir += speed
end
if btn(2) then
player.origin.x += math.cos(player.dir) * speed
player.origin.y += math.sin(player.dir) * speed
end
if btn(3) then
player.origin.x -= math.cos(player.dir) * speed
player.origin.y -= math.sin(player.dir) * speed
end
end