equal
deleted
inserted
replaced
341 |
341 |
342 procedure WriteNames(Font: THWFont); |
342 procedure WriteNames(Font: THWFont); |
343 var Team: PTeam; |
343 var Team: PTeam; |
344 i: integer; |
344 i: integer; |
345 r, rr: TSDL_Rect; |
345 r, rr: TSDL_Rect; |
|
346 drY: integer; |
346 begin |
347 begin |
347 r.x:= 0; |
348 r.x:= 0; |
348 r.y:= 272; |
349 r.y:= 272; |
|
350 drY:= cSCreenHeight - 4; |
349 Team:= TeamsList; |
351 Team:= TeamsList; |
350 while Team<>nil do |
352 while Team<>nil do |
351 begin |
353 begin |
352 r.w:= 104; |
354 r.w:= 104; |
353 r:= WriteInRoundRect(StoreSurface, r.x, r.y, Team.Color, Font, Team.TeamName); |
355 r:= WriteInRoundRect(StoreSurface, r.x, r.y, Team.Color, Font, Team.TeamName); |
358 Team.HealthRect:= r; |
360 Team.HealthRect:= r; |
359 rr:= r; |
361 rr:= r; |
360 inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4); |
362 inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4); |
361 DrawRoundRect(@rr, Team.Color, Team.Color, StoreSurface); |
363 DrawRoundRect(@rr, Team.Color, Team.Color, StoreSurface); |
362 inc(r.y, r.h); |
364 inc(r.y, r.h); |
|
365 dec(drY, r.h + 2); |
|
366 Team.DrawHealthY:= drY; |
363 for i:= 0 to 7 do |
367 for i:= 0 to 7 do |
364 if Team.Hedgehogs[i].Gear<>nil then |
368 if Team.Hedgehogs[i].Gear<>nil then |
365 begin |
369 begin |
366 r:= WriteInRoundRect(StoreSurface, r.x, r.y, Team.Color, Font, Team.Hedgehogs[i].Name); |
370 r:= WriteInRoundRect(StoreSurface, r.x, r.y, Team.Color, Font, Team.Hedgehogs[i].Name); |
367 Team.Hedgehogs[i].NameRect:= r; |
371 Team.Hedgehogs[i].NameRect:= r; |