114 function lc_hidemission(L : Plua_State) : LongInt; Cdecl; |
114 function lc_hidemission(L : Plua_State) : LongInt; Cdecl; |
115 begin |
115 begin |
116 L:= L; // avoid compiler hint |
116 L:= L; // avoid compiler hint |
117 HideMission; |
117 HideMission; |
118 lc_hidemission:= 0; |
118 lc_hidemission:= 0; |
|
119 end; |
|
120 |
|
121 function lc_campaignlock(L : Plua_State) : LongInt; Cdecl; |
|
122 begin |
|
123 if lua_gettop(L) = 1 then |
|
124 begin |
|
125 // to be done |
|
126 end |
|
127 else |
|
128 LuaError('Lua: Wrong number of parameters passed to CampaignLock!'); |
|
129 lc_campaignlock:= 0; |
|
130 end; |
|
131 |
|
132 function lc_campaignunlock(L : Plua_State) : LongInt; Cdecl; |
|
133 begin |
|
134 if lua_gettop(L) = 1 then |
|
135 begin |
|
136 // to be done |
|
137 end |
|
138 else |
|
139 LuaError('Lua: Wrong number of parameters passed to CampaignUnlock!'); |
|
140 lc_campaignunlock:= 0; |
119 end; |
141 end; |
120 |
142 |
121 function lc_spawnhealthcrate(L: Plua_State) : LongInt; Cdecl; |
143 function lc_spawnhealthcrate(L: Plua_State) : LongInt; Cdecl; |
122 var gear: PGear; |
144 var gear: PGear; |
123 begin |
145 begin |
1054 lua_register(luaState, 'GetHealth', @lc_gethealth); |
1076 lua_register(luaState, 'GetHealth', @lc_gethealth); |
1055 lua_register(luaState, 'SetZoom', @lc_setzoom); |
1077 lua_register(luaState, 'SetZoom', @lc_setzoom); |
1056 lua_register(luaState, 'GetZoom', @lc_getzoom); |
1078 lua_register(luaState, 'GetZoom', @lc_getzoom); |
1057 lua_register(luaState, 'HogSay', @lc_hogsay); |
1079 lua_register(luaState, 'HogSay', @lc_hogsay); |
1058 lua_register(luaState, 'HogTurnLeft', @lc_hogturnleft); |
1080 lua_register(luaState, 'HogTurnLeft', @lc_hogturnleft); |
|
1081 lua_register(luaState, 'CampaignLock', @lc_campaignlock); |
|
1082 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock); |
1059 |
1083 |
1060 |
1084 |
1061 ScriptClearStack; // just to be sure stack is empty |
1085 ScriptClearStack; // just to be sure stack is empty |
1062 ScriptLoaded:= false; |
1086 ScriptLoaded:= false; |
1063 end; |
1087 end; |