2405 end; |
2405 end; |
2406 end; |
2406 end; |
2407 // return true if operation was successful, false otherwise |
2407 // return true if operation was successful, false otherwise |
2408 lua_pushboolean(L, success); |
2408 lua_pushboolean(L, success); |
2409 lc_setteamlabel:= 1; |
2409 lc_setteamlabel:= 1; |
|
2410 end; |
|
2411 |
|
2412 function lc_setteampassive(L : Plua_State) : LongInt; Cdecl; |
|
2413 var i, j: LongInt; |
|
2414 success, passive, passiveClan: boolean; |
|
2415 begin |
|
2416 success:= false; |
|
2417 if CheckLuaParamCount(L, 2, 'SetTeamPassive', 'teamname, isPassive') then |
|
2418 begin |
|
2419 success:= false; |
|
2420 // fetch team |
|
2421 if TeamsCount > 0 then |
|
2422 for i:= 0 to Pred(TeamsCount) do |
|
2423 if TeamsArray[i]^.TeamName = lua_tostring(L, 1) then |
|
2424 begin |
|
2425 passive:= lua_toboolean(L, 2); |
|
2426 TeamsArray[i]^.Passive:= passive; |
|
2427 // also update clan state |
|
2428 if passive then |
|
2429 begin |
|
2430 passiveClan:= true; |
|
2431 for j:= 0 to Pred(TeamsCount) do |
|
2432 if (not TeamsArray[j]^.Passive) then |
|
2433 begin |
|
2434 passiveClan:= false; |
|
2435 break; |
|
2436 end; |
|
2437 end |
|
2438 else |
|
2439 passiveClan:= false; |
|
2440 TeamsArray[i]^.Clan^.Passive:= passiveClan; |
|
2441 |
|
2442 success:= true; |
|
2443 // don't change more than one team |
|
2444 break; |
|
2445 end; |
|
2446 end; |
|
2447 // return true if operation was successful, false otherwise |
|
2448 lua_pushboolean(L, success); |
|
2449 lc_setteampassive:= 1; |
2410 end; |
2450 end; |
2411 |
2451 |
2412 function lc_getteamname(L : Plua_State) : LongInt; Cdecl; |
2452 function lc_getteamname(L : Plua_State) : LongInt; Cdecl; |
2413 var t: LongInt; |
2453 var t: LongInt; |
2414 begin |
2454 begin |
4375 lua_register(luaState, _P'GetTeamIndex', @lc_getteamindex); |
4415 lua_register(luaState, _P'GetTeamIndex', @lc_getteamindex); |
4376 lua_register(luaState, _P'GetTeamClan', @lc_getteamclan); |
4416 lua_register(luaState, _P'GetTeamClan', @lc_getteamclan); |
4377 lua_register(luaState, _P'AddTeam', @lc_addteam); |
4417 lua_register(luaState, _P'AddTeam', @lc_addteam); |
4378 lua_register(luaState, _P'AddMissionTeam', @lc_addmissionteam); |
4418 lua_register(luaState, _P'AddMissionTeam', @lc_addmissionteam); |
4379 lua_register(luaState, _P'SetTeamLabel', @lc_setteamlabel); |
4419 lua_register(luaState, _P'SetTeamLabel', @lc_setteamlabel); |
|
4420 lua_register(luaState, _P'SetTeamPassive', @lc_setteampassive); |
4380 lua_register(luaState, _P'AddHog', @lc_addhog); |
4421 lua_register(luaState, _P'AddHog', @lc_addhog); |
4381 lua_register(luaState, _P'AddMissionHog', @lc_addmissionhog); |
4422 lua_register(luaState, _P'AddMissionHog', @lc_addmissionhog); |
4382 lua_register(luaState, _P'AddAmmo', @lc_addammo); |
4423 lua_register(luaState, _P'AddAmmo', @lc_addammo); |
4383 lua_register(luaState, _P'GetAmmoCount', @lc_getammocount); |
4424 lua_register(luaState, _P'GetAmmoCount', @lc_getammocount); |
4384 lua_register(luaState, _P'HealHog', @lc_healhog); |
4425 lua_register(luaState, _P'HealHog', @lc_healhog); |