219 lua_pushinteger(L, ord(gear^.Kind)) |
219 lua_pushinteger(L, ord(gear^.Kind)) |
220 else |
220 else |
221 lua_pushnil(L); |
221 lua_pushnil(L); |
222 end; |
222 end; |
223 lc_getgeartype:= 1 |
223 lc_getgeartype:= 1 |
|
224 end; |
|
225 |
|
226 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl; |
|
227 var gear : PGear; |
|
228 begin |
|
229 if lua_gettop(L) <> 1 then |
|
230 LuaError('Lua: Wrong number of parameters passed to GetHogLevel!') |
|
231 else begin |
|
232 gear := GearByUID(lua_tointeger(L, 1)); |
|
233 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then |
|
234 lua_pushinteger(L, PHedgehog(gear^.Hedgehog)^.BotLevel) |
|
235 else |
|
236 lua_pushnil(L); |
|
237 end; |
|
238 lc_gethoglevel := 1; |
224 end; |
239 end; |
225 |
240 |
226 function lc_gethogclan(L : Plua_State) : LongInt; Cdecl; |
241 function lc_gethogclan(L : Plua_State) : LongInt; Cdecl; |
227 var gear : PGear; |
242 var gear : PGear; |
228 begin |
243 begin |
949 lua_register(luaState, 'AddTeam', @lc_addteam); |
964 lua_register(luaState, 'AddTeam', @lc_addteam); |
950 lua_register(luaState, 'AddHog', @lc_addhog); |
965 lua_register(luaState, 'AddHog', @lc_addhog); |
951 lua_register(luaState, 'SetHealth', @lc_sethealth); |
966 lua_register(luaState, 'SetHealth', @lc_sethealth); |
952 lua_register(luaState, 'GetHogClan', @lc_gethogclan); |
967 lua_register(luaState, 'GetHogClan', @lc_gethogclan); |
953 lua_register(luaState, 'GetHogName', @lc_gethogname); |
968 lua_register(luaState, 'GetHogName', @lc_gethogname); |
|
969 lua_register(luaState, 'GetHogLevel', @lc_gethoglevel); |
954 lua_register(luaState, 'GetX', @lc_getx); |
970 lua_register(luaState, 'GetX', @lc_getx); |
955 lua_register(luaState, 'GetY', @lc_gety); |
971 lua_register(luaState, 'GetY', @lc_gety); |
956 lua_register(luaState, 'CopyPV', @lc_copypv); |
972 lua_register(luaState, 'CopyPV', @lc_copypv); |
957 lua_register(luaState, 'CopyPV2', @lc_copypv2); |
973 lua_register(luaState, 'CopyPV2', @lc_copypv2); |
958 lua_register(luaState, 'FollowGear', @lc_followgear); |
974 lua_register(luaState, 'FollowGear', @lc_followgear); |