50 lines
No EOL
1.1 KiB
Lua
50 lines
No EOL
1.1 KiB
Lua
function dump(o)
|
|
if type(o) == 'table' then
|
|
local s = '{ '
|
|
for k,v in pairs(o) do
|
|
if type(k) ~= 'number' then k = '"'..k..'"' end
|
|
s = s .. '['..k..'] = ' .. dump(v) .. ','
|
|
end
|
|
return s .. '} '
|
|
else
|
|
return tostring(o)
|
|
end
|
|
end
|
|
|
|
TICK_DELAY = 1 / 25
|
|
|
|
local cursor = color_surface(8, 8, 0, 0, 0)
|
|
|
|
function exercise1()
|
|
print("Hello World!")
|
|
warning("Hello Warning!")
|
|
|
|
|
|
img = fill_surface(VRESW, VRESH, 0xff, 0x77, 0x00)
|
|
cursor_setstorage(WORLDID)
|
|
|
|
show_image(img)
|
|
show_image(cursor)
|
|
end
|
|
|
|
|
|
function exercise1_input(evtbl)
|
|
if evtbl.source ~= "mouse" then return end
|
|
if evtbl.samples == nil then return end
|
|
x, y = cursor_position()
|
|
sample = evtbl.samples[1]
|
|
if evtbl.subid == 0 then
|
|
move_cursor(sample, y)
|
|
elseif evtbl.subid == 1 then
|
|
move_cursor(x, sample)
|
|
else
|
|
warning("Unknown subid " .. evtbl.subid)
|
|
end
|
|
|
|
end
|
|
|
|
function exercise1_input_end()
|
|
x, y = cursor_position()
|
|
move_image(cursor, x, y, TICK_DELAY)
|
|
warning("" .. x .. ", " .. y)
|
|
end |