1209 FreeAndNilTexture(clan^.HealthTex); |
1209 FreeAndNilTexture(clan^.HealthTex); |
1210 clan^.HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, clan^.Teams[0]^.NameTagTex^.h, clan^.Color); |
1210 clan^.HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, clan^.Teams[0]^.NameTagTex^.h, clan^.Color); |
1211 end; |
1211 end; |
1212 |
1212 |
1213 lc_setclancolor:= 0 |
1213 lc_setclancolor:= 0 |
|
1214 end; |
|
1215 |
|
1216 function lc_gethogvoicepack(L : Plua_State) : LongInt; Cdecl; |
|
1217 var gear : PGear; |
|
1218 begin |
|
1219 if CheckLuaParamCount(L, 1, 'GetHogVoicepack', 'gearUid') then |
|
1220 begin |
|
1221 gear:= GearByUID(lua_tointeger(L, 1)); |
|
1222 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then |
|
1223 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.Voicepack^.name)) |
|
1224 else |
|
1225 lua_pushnil(L); |
|
1226 end |
|
1227 else |
|
1228 lua_pushnil(L); // return value on stack (nil) |
|
1229 lc_gethogvoicepack:= 1 |
|
1230 end; |
|
1231 |
|
1232 function lc_gethoggrave(L : Plua_State) : LongInt; Cdecl; |
|
1233 var gear : PGear; |
|
1234 begin |
|
1235 if CheckLuaParamCount(L, 1, 'GetHogGrave', 'gearUid') then |
|
1236 begin |
|
1237 gear:= GearByUID(lua_tointeger(L, 1)); |
|
1238 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then |
|
1239 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.GraveName)) |
|
1240 else |
|
1241 lua_pushnil(L); |
|
1242 end |
|
1243 else |
|
1244 lua_pushnil(L); // return value on stack (nil) |
|
1245 lc_gethoggrave:= 1 |
|
1246 end; |
|
1247 |
|
1248 function lc_gethogflag(L : Plua_State) : LongInt; Cdecl; |
|
1249 var gear : PGear; |
|
1250 begin |
|
1251 if CheckLuaParamCount(L, 1, 'GetHogFlag', 'gearUid') then |
|
1252 begin |
|
1253 gear:= GearByUID(lua_tointeger(L, 1)); |
|
1254 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then |
|
1255 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.Flag)) |
|
1256 else |
|
1257 lua_pushnil(L); |
|
1258 end |
|
1259 else |
|
1260 lua_pushnil(L); // return value on stack (nil) |
|
1261 lc_gethogflag:= 1 |
1214 end; |
1262 end; |
1215 |
1263 |
1216 function lc_gethogteamname(L : Plua_State) : LongInt; Cdecl; |
1264 function lc_gethogteamname(L : Plua_State) : LongInt; Cdecl; |
1217 var gear : PGear; |
1265 var gear : PGear; |
1218 begin |
1266 begin |
3191 lua_register(luaState, _P'SetEffect', @lc_seteffect); |
3239 lua_register(luaState, _P'SetEffect', @lc_seteffect); |
3192 lua_register(luaState, _P'GetEffect', @lc_geteffect); |
3240 lua_register(luaState, _P'GetEffect', @lc_geteffect); |
3193 lua_register(luaState, _P'GetHogClan', @lc_gethogclan); |
3241 lua_register(luaState, _P'GetHogClan', @lc_gethogclan); |
3194 lua_register(luaState, _P'GetClanColor', @lc_getclancolor); |
3242 lua_register(luaState, _P'GetClanColor', @lc_getclancolor); |
3195 lua_register(luaState, _P'SetClanColor', @lc_setclancolor); |
3243 lua_register(luaState, _P'SetClanColor', @lc_setclancolor); |
|
3244 lua_register(luaState, _P'GetHogVoicepack', @lc_gethogvoicepack); |
|
3245 lua_register(luaState, _P'GetHogFlag', @lc_gethogflag); |
|
3246 lua_register(luaState, _P'GetHogGrave', @lc_gethoggrave); |
3196 lua_register(luaState, _P'GetHogTeamName', @lc_gethogteamname); |
3247 lua_register(luaState, _P'GetHogTeamName', @lc_gethogteamname); |
3197 lua_register(luaState, _P'SetHogTeamName', @lc_sethogteamname); |
3248 lua_register(luaState, _P'SetHogTeamName', @lc_sethogteamname); |
3198 lua_register(luaState, _P'GetHogName', @lc_gethogname); |
3249 lua_register(luaState, _P'GetHogName', @lc_gethogname); |
3199 lua_register(luaState, _P'SetHogName', @lc_sethogname); |
3250 lua_register(luaState, _P'SetHogName', @lc_sethogname); |
3200 lua_register(luaState, _P'GetHogLevel', @lc_gethoglevel); |
3251 lua_register(luaState, _P'GetHogLevel', @lc_gethoglevel); |