equal
deleted
inserted
replaced
46 Clan: PClan; |
46 Clan: PClan; |
47 TeamName: string[MAXNAMELEN]; |
47 TeamName: string[MAXNAMELEN]; |
48 ExtDriven: boolean; |
48 ExtDriven: boolean; |
49 Binds: TBinds; |
49 Binds: TBinds; |
50 Hedgehogs: array[0..cMaxHHIndex] of THedgehog; |
50 Hedgehogs: array[0..cMaxHHIndex] of THedgehog; |
51 CurrHedgehog: LongInt; |
51 CurrHedgehog: LongWord; |
52 NameTag: PSDL_Surface; |
52 NameTag: PSDL_Surface; |
53 CrosshairSurf: PSDL_Surface; |
53 CrosshairSurf: PSDL_Surface; |
54 GraveRect, HealthRect: TSDL_Rect; |
54 GraveRect, HealthRect: TSDL_Rect; |
55 GraveName: string; |
55 GraveName: string; |
56 FortName: string; |
56 FortName: string; |
62 end; |
62 end; |
63 TClan = record |
63 TClan = record |
64 Color, AdjColor: Longword; |
64 Color, AdjColor: Longword; |
65 Teams: array[0..Pred(cMaxTeams)] of PTeam; |
65 Teams: array[0..Pred(cMaxTeams)] of PTeam; |
66 TeamsNumber: Longword; |
66 TeamsNumber: Longword; |
67 CurrTeam: LongInt; |
67 CurrTeam: LongWord; |
68 ClanHealth: LongInt; |
68 ClanHealth: LongInt; |
69 ClanIndex: LongInt; |
69 ClanIndex: LongInt; |
70 end; |
70 end; |
71 |
71 |
72 var CurrentTeam: PTeam = nil; |
72 var CurrentTeam: PTeam = nil; |
130 end; |
130 end; |
131 SendStats |
131 SendStats |
132 end; |
132 end; |
133 |
133 |
134 procedure SwitchHedgehog; |
134 procedure SwitchHedgehog; |
135 var c: LongInt; |
135 var c: LongWord; |
136 t: LongWord; |
136 t: LongWord; |
137 g: PGear; |
137 g: PGear; |
138 begin |
138 begin |
139 FreeActionsList; |
139 FreeActionsList; |
140 TargetPoint.X:= NoPointX; |
140 TargetPoint.X:= NoPointX; |