1212 end |
1212 end |
1213 end; |
1213 end; |
1214 lc_setgearposition:= 0 |
1214 lc_setgearposition:= 0 |
1215 end; |
1215 end; |
1216 |
1216 |
|
1217 function lc_getgeartarget(L : Plua_State) : LongInt; Cdecl; |
|
1218 var gear: PGear; |
|
1219 begin |
|
1220 if lua_gettop(L) <> 1 then |
|
1221 begin |
|
1222 LuaError('Lua: Wrong number of parameters passed to GetGearTarget!'); |
|
1223 lua_pushnil(L); |
|
1224 lua_pushnil(L) |
|
1225 end |
|
1226 else |
|
1227 begin |
|
1228 gear:= GearByUID(lua_tointeger(L, 1)); |
|
1229 if gear <> nil then |
|
1230 begin |
|
1231 lua_pushinteger(L, gear^.TargetX); |
|
1232 lua_pushinteger(L, gear^.TargetY) |
|
1233 end |
|
1234 end; |
|
1235 lc_getgeartarget:= 2; |
|
1236 end; |
|
1237 |
|
1238 function lc_setgeartarget(L : Plua_State) : LongInt; Cdecl; |
|
1239 var gear: PGear; |
|
1240 begin |
|
1241 if lua_gettop(L) <> 3 then |
|
1242 LuaError('Lua: Wrong number of parameters passed to SetGearTarget!') |
|
1243 else |
|
1244 begin |
|
1245 gear:= GearByUID(lua_tointeger(L, 1)); |
|
1246 if gear <> nil then |
|
1247 begin |
|
1248 gear^.TargetX:= lua_tointeger(L, 2); |
|
1249 gear^.TargetY:= lua_tointeger(L, 3) |
|
1250 end |
|
1251 end; |
|
1252 lc_setgeartarget:= 0 |
|
1253 end; |
|
1254 |
1217 function lc_getgearvelocity(L : Plua_State) : LongInt; Cdecl; |
1255 function lc_getgearvelocity(L : Plua_State) : LongInt; Cdecl; |
1218 var gear: PGear; |
1256 var gear: PGear; |
1219 begin |
1257 begin |
1220 if lua_gettop(L) <> 1 then |
1258 if lua_gettop(L) <> 1 then |
1221 begin |
1259 begin |
1841 lua_register(luaState, 'GetGearType', @lc_getgeartype); |
1879 lua_register(luaState, 'GetGearType', @lc_getgeartype); |
1842 lua_register(luaState, 'EndGame', @lc_endgame); |
1880 lua_register(luaState, 'EndGame', @lc_endgame); |
1843 lua_register(luaState, 'FindPlace', @lc_findplace); |
1881 lua_register(luaState, 'FindPlace', @lc_findplace); |
1844 lua_register(luaState, 'SetGearPosition', @lc_setgearposition); |
1882 lua_register(luaState, 'SetGearPosition', @lc_setgearposition); |
1845 lua_register(luaState, 'GetGearPosition', @lc_getgearposition); |
1883 lua_register(luaState, 'GetGearPosition', @lc_getgearposition); |
|
1884 lua_register(luaState, 'SetGearTarget', @lc_setgeartarget); |
|
1885 lua_register(luaState, 'GetGearTarget', @lc_getgeartarget); |
1846 lua_register(luaState, 'SetGearVelocity', @lc_setgearvelocity); |
1886 lua_register(luaState, 'SetGearVelocity', @lc_setgearvelocity); |
1847 lua_register(luaState, 'GetGearVelocity', @lc_getgearvelocity); |
1887 lua_register(luaState, 'GetGearVelocity', @lc_getgearvelocity); |
1848 lua_register(luaState, 'ParseCommand', @lc_parsecommand); |
1888 lua_register(luaState, 'ParseCommand', @lc_parsecommand); |
1849 lua_register(luaState, 'ShowMission', @lc_showmission); |
1889 lua_register(luaState, 'ShowMission', @lc_showmission); |
1850 lua_register(luaState, 'HideMission', @lc_hidemission); |
1890 lua_register(luaState, 'HideMission', @lc_hidemission); |