equal
deleted
inserted
replaced
49 ExtDriven: boolean; |
49 ExtDriven: boolean; |
50 Binds: TBinds; |
50 Binds: TBinds; |
51 Hedgehogs: array[0..cMaxHHIndex] of THedgehog; |
51 Hedgehogs: array[0..cMaxHHIndex] of THedgehog; |
52 CurrHedgehog: LongWord; |
52 CurrHedgehog: LongWord; |
53 NameTagTex: PTexture; |
53 NameTagTex: PTexture; |
54 CrosshairSurf, |
54 CrosshairTex, |
55 GraveSurf, |
55 GraveTex, |
56 HealthSurf: PSDL_Surface; |
56 HealthTex: PTexture; |
57 GraveName: string; |
57 GraveName: string; |
58 FortName: string; |
58 FortName: string; |
59 TeamHealth: LongInt; |
59 TeamHealth: LongInt; |
60 TeamHealthBarWidth, |
60 TeamHealthBarWidth, |
61 NewTeamHealthBarWidth: LongInt; |
61 NewTeamHealthBarWidth: LongInt; |
62 DrawHealthY: LongInt; |
62 DrawHealthY: LongInt; |
63 AttackBar: LongWord; |
63 AttackBar: LongWord; |
64 HedgehogsNumber: Longword; |
64 HedgehogsNumber: Longword; |
65 end; |
65 end; |
66 TClan = record |
66 TClan = record |
67 Color, AdjColor: Longword; |
67 Color: Longword; |
68 Teams: array[0..Pred(cMaxTeams)] of PTeam; |
68 Teams: array[0..Pred(cMaxTeams)] of PTeam; |
69 TeamsNumber: Longword; |
69 TeamsNumber: Longword; |
70 CurrTeam: LongWord; |
70 CurrTeam: LongWord; |
71 ClanHealth: LongInt; |
71 ClanHealth: LongInt; |
72 ClanIndex: LongInt; |
72 ClanIndex: LongInt; |
221 ClansArray[ClansCount]:= Result^.Clan; |
221 ClansArray[ClansCount]:= Result^.Clan; |
222 inc(ClansCount); |
222 inc(ClansCount); |
223 with Result^.Clan^ do |
223 with Result^.Clan^ do |
224 begin |
224 begin |
225 ClanIndex:= Pred(ClansCount); |
225 ClanIndex:= Pred(ClansCount); |
226 Color:= TeamColor; |
226 Color:= TeamColor |
227 AdjColor:= Color; |
|
228 AdjustColor(AdjColor); |
|
229 end |
227 end |
230 end else |
228 end else |
231 begin |
229 begin |
232 Result^.Clan:= ClansArray[c]; |
230 Result^.Clan:= ClansArray[c]; |
233 end; |
231 end; |