equal
deleted
inserted
replaced
160 |
160 |
161 procedure SwitchHedgehog; |
161 procedure SwitchHedgehog; |
162 var c: LongWord; |
162 var c: LongWord; |
163 PrevHH, PrevTeam: LongWord; |
163 PrevHH, PrevTeam: LongWord; |
164 begin |
164 begin |
165 FreeActionsList; |
|
166 TargetPoint.X:= NoPointX; |
165 TargetPoint.X:= NoPointX; |
167 TryDo(CurrentTeam <> nil, 'nil Team', true); |
166 TryDo(CurrentTeam <> nil, 'nil Team', true); |
168 PreviousTeam:= CurrentTeam; |
167 PreviousTeam:= CurrentTeam; |
169 |
168 |
170 with CurrentHedgehog^ do |
169 with CurrentHedgehog^ do |