311 end |
311 end |
312 else |
312 else |
313 lua_pushnil(L); |
313 lua_pushnil(L); |
314 end; |
314 end; |
315 lc_gethogclan:= 1 |
315 lc_gethogclan:= 1 |
|
316 end; |
|
317 |
|
318 function lc_gethogteamname(L : Plua_State) : LongInt; Cdecl; |
|
319 var gear : PGear; |
|
320 begin |
|
321 if lua_gettop(L) <> 1 then |
|
322 begin |
|
323 LuaError('Lua: Wrong number of parameters passed to GetHogTeamName!'); |
|
324 lua_pushnil(L); // return value on stack (nil) |
|
325 end |
|
326 else |
|
327 begin |
|
328 gear:= GearByUID(lua_tointeger(L, 1)); |
|
329 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then |
|
330 begin |
|
331 lua_pushstring(L, str2pchar(PHedgehog(gear^.Hedgehog)^.Team^.TeamName)) |
|
332 end |
|
333 else |
|
334 lua_pushnil(L); |
|
335 end; |
|
336 lc_gethogteamname:= 1 |
316 end; |
337 end; |
317 |
338 |
318 function lc_gethogname(L : Plua_State) : LongInt; Cdecl; |
339 function lc_gethogname(L : Plua_State) : LongInt; Cdecl; |
319 var gear : PGear; |
340 var gear : PGear; |
320 begin |
341 begin |
1128 lua_register(luaState, 'AddTeam', @lc_addteam); |
1149 lua_register(luaState, 'AddTeam', @lc_addteam); |
1129 lua_register(luaState, 'AddHog', @lc_addhog); |
1150 lua_register(luaState, 'AddHog', @lc_addhog); |
1130 lua_register(luaState, 'SetHealth', @lc_sethealth); |
1151 lua_register(luaState, 'SetHealth', @lc_sethealth); |
1131 lua_register(luaState, 'SetEffect', @lc_seteffect); |
1152 lua_register(luaState, 'SetEffect', @lc_seteffect); |
1132 lua_register(luaState, 'GetHogClan', @lc_gethogclan); |
1153 lua_register(luaState, 'GetHogClan', @lc_gethogclan); |
|
1154 lua_register(luaState, 'GetHogTeamName', @lc_gethogteamname); |
1133 lua_register(luaState, 'GetHogName', @lc_gethogname); |
1155 lua_register(luaState, 'GetHogName', @lc_gethogname); |
1134 lua_register(luaState, 'GetHogLevel', @lc_gethoglevel); |
1156 lua_register(luaState, 'GetHogLevel', @lc_gethoglevel); |
1135 lua_register(luaState, 'GetX', @lc_getx); |
1157 lua_register(luaState, 'GetX', @lc_getx); |
1136 lua_register(luaState, 'GetY', @lc_gety); |
1158 lua_register(luaState, 'GetY', @lc_gety); |
1137 lua_register(luaState, 'CopyPV', @lc_copypv); |
1159 lua_register(luaState, 'CopyPV', @lc_copypv); |