equal
deleted
inserted
replaced
1356 end; |
1356 end; |
1357 |
1357 |
1358 function lc_setclancolor(L : Plua_State) : LongInt; Cdecl; |
1358 function lc_setclancolor(L : Plua_State) : LongInt; Cdecl; |
1359 var clan : PClan; |
1359 var clan : PClan; |
1360 team : PTeam; |
1360 team : PTeam; |
1361 hh : THedgehog; |
1361 hht : THedgehog; |
|
1362 hhp : PHedgehog; |
1362 i, j : LongInt; |
1363 i, j : LongInt; |
1363 begin |
1364 begin |
1364 if CheckLuaParamCount(L, 2, 'SetClanColor', 'clan, color') then |
1365 if CheckLuaParamCount(L, 2, 'SetClanColor', 'clan, color') then |
1365 begin |
1366 begin |
1366 i:= Trunc(lua_tonumber(L,1)); |
1367 i:= Trunc(lua_tonumber(L,1)); |
1371 for i:= 0 to Pred(clan^.TeamsNumber) do |
1372 for i:= 0 to Pred(clan^.TeamsNumber) do |
1372 begin |
1373 begin |
1373 team:= clan^.Teams[i]; |
1374 team:= clan^.Teams[i]; |
1374 for j:= 0 to cMaxHHIndex do |
1375 for j:= 0 to cMaxHHIndex do |
1375 begin |
1376 begin |
1376 hh:= team^.Hedgehogs[j]; |
1377 hht:= team^.Hedgehogs[j]; |
1377 if (hh.Gear <> nil) or (hh.GearHidden <> nil) then |
1378 hhp:= nil; |
|
1379 if (hht.Gear <> nil) then |
|
1380 hhp:= team^.Hedgehogs[j].Gear^.Hedgehog |
|
1381 else if (hht.GearHidden <> nil) then |
|
1382 hhp:= team^.Hedgehogs[j].GearHidden^.Hedgehog; |
|
1383 if (hhp <> nil) then |
1378 begin |
1384 begin |
1379 FreeAndNilTexture(hh.NameTagTex); |
1385 FreeAndNilTexture(hhp^.NameTagTex); |
1380 hh.NameTagTex:= RenderStringTex(ansistring(hh.Name), clan^.Color, fnt16); |
1386 hhp^.NameTagTex:= RenderStringTex(ansistring(hhp^.Name), clan^.Color, fnt16); |
1381 RenderHealth(hh); |
1387 RenderHealth(hhp^); |
1382 end; |
1388 end; |
1383 end; |
1389 end; |
1384 FreeAndNilTexture(team^.NameTagTex); |
1390 FreeAndNilTexture(team^.NameTagTex); |
1385 team^.NameTagTex:= RenderStringTex(ansistring(clan^.Teams[i]^.TeamName), clan^.Color, fnt16); |
1391 team^.NameTagTex:= RenderStringTex(ansistring(clan^.Teams[i]^.TeamName), clan^.Color, fnt16); |
1386 end; |
1392 end; |