35 procedure ScriptClearStack; |
35 procedure ScriptClearStack; |
36 |
36 |
37 procedure ScriptLoad(name : shortstring); |
37 procedure ScriptLoad(name : shortstring); |
38 procedure ScriptOnGameInit; |
38 procedure ScriptOnGameInit; |
39 procedure ScriptOnScreenResize; |
39 procedure ScriptOnScreenResize; |
|
40 procedure ScriptSetInteger(name : shortstring; value : LongInt); |
40 |
41 |
41 procedure ScriptCall(fname : shortstring); |
42 procedure ScriptCall(fname : shortstring); |
42 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt; |
43 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt; |
43 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt; |
44 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt; |
44 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt; |
45 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt; |
222 L:= L; // avoid compiler hint |
223 L:= L; // avoid compiler hint |
223 HideMission; |
224 HideMission; |
224 lc_hidemission:= 0; |
225 lc_hidemission:= 0; |
225 end; |
226 end; |
226 |
227 |
|
228 function lc_enablegameflags(L : Plua_State) : LongInt; Cdecl; |
|
229 var i : integer; |
|
230 begin |
|
231 for i:= 1 to lua_gettop(L) do |
|
232 if (GameFlags and lua_tointeger(L, i)) = 0 then |
|
233 GameFlags := GameFlags + LongWord(lua_tointeger(L, i)); |
|
234 ScriptSetInteger('GameFlags', GameFlags); |
|
235 lc_enablegameflags:= 0; |
|
236 end; |
|
237 |
|
238 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl; |
|
239 var i : integer; |
|
240 begin |
|
241 for i:= 1 to lua_gettop(L) do |
|
242 if (GameFlags and lua_tointeger(L, i)) <> 0 then |
|
243 GameFlags := GameFlags - LongWord(lua_tointeger(L, i)); |
|
244 ScriptSetInteger('GameFlags', GameFlags); |
|
245 lc_disablegameflags:= 0; |
|
246 end; |
|
247 |
|
248 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl; |
|
249 begin |
|
250 // Silence hint |
|
251 L:= L; |
|
252 GameFlags:= 0; |
|
253 ScriptSetInteger('GameFlags', GameFlags); |
|
254 lc_cleargameflags:= 0; |
|
255 end; |
|
256 |
227 function lc_addcaption(L : Plua_State) : LongInt; Cdecl; |
257 function lc_addcaption(L : Plua_State) : LongInt; Cdecl; |
228 begin |
258 begin |
229 if lua_gettop(L) = 1 then |
259 if lua_gettop(L) = 1 then |
230 AddCaption(lua_tostring(L, 1), cWhiteColor, capgrpMessage) |
260 AddCaption(lua_tostring(L, 1), cWhiteColor, capgrpMessage) |
231 else if lua_gettop(L) = 3 then |
261 else if lua_gettop(L) = 3 then |
2335 lua_register(luaState, _P'bnot', @lc_bnot); |
2364 lua_register(luaState, _P'bnot', @lc_bnot); |
2336 lua_register(luaState, _P'div', @lc_div); |
2365 lua_register(luaState, _P'div', @lc_div); |
2337 lua_register(luaState, _P'GetInputMask', @lc_getinputmask); |
2366 lua_register(luaState, _P'GetInputMask', @lc_getinputmask); |
2338 lua_register(luaState, _P'SetInputMask', @lc_setinputmask); |
2367 lua_register(luaState, _P'SetInputMask', @lc_setinputmask); |
2339 lua_register(luaState, _P'AddGear', @lc_addgear); |
2368 lua_register(luaState, _P'AddGear', @lc_addgear); |
|
2369 lua_register(luaState, _P'EnableGameFlags', @lc_enablegameflags); |
|
2370 lua_register(luaState, _P'DisableGameFlags', @lc_disablegameflags); |
|
2371 lua_register(luaState, _P'ClearGameFlags', @lc_cleargameflags); |
2340 lua_register(luaState, _P'DeleteGear', @lc_deletegear); |
2372 lua_register(luaState, _P'DeleteGear', @lc_deletegear); |
2341 lua_register(luaState, _P'AddVisualGear', @lc_addvisualgear); |
2373 lua_register(luaState, _P'AddVisualGear', @lc_addvisualgear); |
2342 lua_register(luaState, _P'DeleteVisualGear', @lc_deletevisualgear); |
2374 lua_register(luaState, _P'DeleteVisualGear', @lc_deletevisualgear); |
2343 lua_register(luaState, _P'GetVisualGearValues', @lc_getvisualgearvalues); |
2375 lua_register(luaState, _P'GetVisualGearValues', @lc_getvisualgearvalues); |
2344 lua_register(luaState, _P'SetVisualGearValues', @lc_setvisualgearvalues); |
2376 lua_register(luaState, _P'SetVisualGearValues', @lc_setvisualgearvalues); |