98 lines
2 KiB
Lua
98 lines
2 KiB
Lua
require "theme"
|
|
|
|
click = {
|
|
nam = 'click';
|
|
object_type = true;
|
|
system_type = true;
|
|
bg = false;
|
|
press = false;
|
|
button = false;
|
|
save = function(self, name, h, need)
|
|
local s = stead.tostring(self.bg)
|
|
h:write(stead.string.format("click[%q] = %s;\n", 'bg', s))
|
|
s = stead.tostring(self.press)
|
|
h:write(stead.string.format("click[%q] = %s;\n", 'press', s))
|
|
s = stead.tostring(self.button)
|
|
h:write(stead.string.format("click[%q] = %s;\n", 'button', s))
|
|
end;
|
|
}
|
|
|
|
stead.module_init(function()
|
|
input.click = stead.hook(input.click,
|
|
function(f, s, press, mb, x, y, px, py, ...)
|
|
local cmd = 'click '
|
|
local act = false
|
|
if ( press or click.press ) and ( mb == 1 or click.button ) then
|
|
cmd = cmd..tostring(press)..','..tostring(mb);
|
|
|
|
if click.bg or theme.get 'scr.gfx.mode' == 'direct' then
|
|
act = true
|
|
cmd = cmd .. ',' .. x .. ','.. y
|
|
end
|
|
|
|
if px then
|
|
act = true
|
|
cmd = cmd .. ',' .. px .. ',' .. py
|
|
end
|
|
|
|
if act then
|
|
return cmd
|
|
end
|
|
end
|
|
return f(s, press, mb, x, y, px, py, ...)
|
|
end)
|
|
end)
|
|
|
|
game.action = stead.hook(game.action,
|
|
function(f, s, cmd, press, mb, x, y, px, py, ...)
|
|
if cmd == 'click' then
|
|
local r,v
|
|
local x2 = px
|
|
local y2 = py
|
|
|
|
if tonumber(mb) then
|
|
mb = tonumber(mb)
|
|
end
|
|
|
|
if tonumber(px) then
|
|
x2 = tonumber(px)
|
|
end
|
|
|
|
if tonumber(py) then
|
|
y2 = tonumber(py)
|
|
end
|
|
|
|
if here().click then
|
|
s = here()
|
|
end
|
|
|
|
if press == 'true' then
|
|
press = true
|
|
else
|
|
press = false
|
|
end
|
|
|
|
if s.click then
|
|
if click.press then
|
|
if click.button then
|
|
r,v = call(s, 'click', press, mb, tonumber(x), tonumber(y), x2, y2, ...);
|
|
else
|
|
r,v = call(s, 'click', press, tonumber(x), tonumber(y), x2, y2, ...);
|
|
end
|
|
else
|
|
if click.button then
|
|
r,v = call(s, 'click', mb, tonumber(x), tonumber(y), x2, y2, ...);
|
|
else
|
|
r,v = call(s, 'click', tonumber(x), tonumber(y), x2, y2, ...);
|
|
end
|
|
end
|
|
end
|
|
if r == nil and v == nil and stead.api_version < "1.3.5" then
|
|
return nil, true
|
|
end
|
|
return r,v
|
|
end
|
|
return f(s, cmd, x, y, px, py, ...)
|
|
end)
|
|
-- vim:ts=4
|