fabs/cartridges
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

wolf: format lua

Browse source
This commit is contained in:
Fabien Freling 2026-02-11 21:44:35 +01:00
parent 43cc2a179e
commit 01f27d1076
3 changed files with 54 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

36
picotron/wolfenstein_src/main.lua
View file

@ -2,9 +2,9 @@
player = {
origin = {
x = nil,
y = nil
y = nil,
},
dir = nil
dir = nil,
}
col_bg = 1
@ -12,22 +12,22 @@ 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
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) break
if player.x then
break
end
end
end
function cast_ray(origin, angle)
end
function cast_ray(origin, angle) end
function draw_minimap()
local tile_size = 4
@ -48,9 +48,9 @@ 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 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()
@ -58,13 +58,17 @@ end
function _update()
local speed = 0.1
if (btn(0)) player.dir -= speed
if (btn(1)) player.dir += speed
if (btn(2)) then
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
if btn(3) then
player.origin.x -= math.cos(player.dir) * speed
player.origin.y -= math.sin(player.dir) * speed
end