equal
deleted
inserted
replaced
112 procedure RecountTeamHealth(team: PTeam); |
112 procedure RecountTeamHealth(team: PTeam); |
113 procedure RestoreTeamsFromSave; |
113 procedure RestoreTeamsFromSave; |
114 function CheckForWin: boolean; |
114 function CheckForWin: boolean; |
115 procedure TeamGone(s: shortstring); |
115 procedure TeamGone(s: shortstring); |
116 procedure TeamGoneEffect(var Team: TTeam); |
116 procedure TeamGoneEffect(var Team: TTeam); |
117 function GetTeamStatString(p: PTeam): shortstring; |
117 function GetTeamStatString(p: PTeam): shortstring; |
118 |
118 |
119 implementation |
119 implementation |
120 uses uMisc, uWorld, uLocale, uAmmos, uChat; |
120 uses uMisc, uWorld, uLocale, uAmmos, uChat, uMobile; |
121 const MaxTeamHealth: LongInt = 0; |
121 const MaxTeamHealth: LongInt = 0; |
122 |
122 |
123 function CheckForWin: boolean; |
123 function CheckForWin: boolean; |
124 var AliveClan: PClan; |
124 var AliveClan: PClan; |
125 s: shortstring; |
125 s: shortstring; |
222 end |
222 end |
223 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) or (PrevTeam = CurrTeam); |
223 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) or (PrevTeam = CurrTeam); |
224 end |
224 end |
225 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil); |
225 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil); |
226 |
226 |
227 CurrentHedgehog:= @(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]) |
227 CurrentHedgehog:= @(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]); |
|
228 doSomethingWhen_NewTurnBeginning(); |
228 end; |
229 end; |
229 |
230 |
230 procedure AfterSwitchHedgehog; |
231 procedure AfterSwitchHedgehog; |
231 var g: PGear; |
232 var g: PGear; |
232 i, t: LongInt; |
233 i, t: LongInt; |