equal
deleted
inserted
replaced
94 GameOver:= true |
94 GameOver:= true |
95 end; |
95 end; |
96 |
96 |
97 procedure SwitchHedgehog; |
97 procedure SwitchHedgehog; |
98 var c: LongWord; |
98 var c: LongWord; |
99 PrevHH, PrevTeam, PrevClan: LongWord; |
99 PrevHH, PrevTeam : LongWord; |
100 begin |
100 begin |
101 TargetPoint.X:= NoPointX; |
101 TargetPoint.X:= NoPointX; |
102 TryDo(CurrentTeam <> nil, 'nil Team', true); |
102 TryDo(CurrentTeam <> nil, 'nil Team', true); |
103 with CurrentHedgehog^ do |
103 with CurrentHedgehog^ do |
104 if (PreviousTeam <> nil) and PlacingHogs and Unplaced then |
104 if (PreviousTeam <> nil) and PlacingHogs and Unplaced then |