0
"setup"
Auto Assembler Script
[ENABLE]
globalalloc(__,$4000)
__:
dq __
__+10:
db 08 12
__+12:
dd __+40
__+16:
db 33 44 ff 99
__+40:
dw 1
dw 2
dw 3
dw 4
[DISABLE]
1
"test setAndFreeze"
Auto Assembler Script
{$lua}
-- paste into your script
local bDebug = true
function setAndFreeze(OnOff,delay,mrs)
if type(delay)~='number' then
delay,mrs = 1,delay
end
delay = type(delay)=='number' and delay or 1
if type(mrs)=='string' then
local list
list,mrs = mrs,{}
list:gsub('[%w ]+',function(w)mrs[1+#mrs]=w end)
end
if type(mrs)~='table' or #mrs==0 or #mrs % 2 ~= 0 then
error('memory record list not valid')
end
local act = function()
local al = getAddressList()
for i=1,#mrs,2 do
local mr = al.getMemoryRecordByDescription(mrs[i])
if mr~=nil then
if OnOff == true then -- active and freeze
mr.Value = mrs[i+1]
mr.Active = true
else
mr.Active = false
end
else
if bDebug then
print('Check Memory Record with Description: '..mrs[i])
end
end
end
end
if OnOff == true then
local t = createTimer()
t.Interval = delay
t.OnTimer = function(sender)
sender.Destroy()
act()
end
else
act()
end
end
{$asm}
[ENABLE]
// demo setup to get myforce, replace yours
aobscan(aobmyforce,08 12 = = = = 33 44 ?? 99)
alloc(myforce,8)
myforce:
readmem(aobmyforce+2,4)
dd 0
registersymbol(myforce)
// delay = 2000ms here, no meaning on OFF mode, it can be omit to use defauult 1 milliseconds
// add this line in your script ,
LuaCall(setAndFreeze(true,2000, "shield up=9999;shield down=9999;laser up=45;laser down=45"))
[DISABLE]
// add this line in your script
LuaCall(setAndFreeze(false,"shield up=9999;shield down=9999;laser up=45;laser down=45"))
[myforce]:
//dq -1,-1
dealloc(myforce)
unregistersymbol(myforce)
2
"rec-base"
String
0
0
1
[myforce]
3
"shield up"
2 Bytes
+2
6
"shield down"
2 Bytes
+4
5
"laser up"
2 Bytes
+8
4
"laser down"
2 Bytes
+a