equal
deleted
inserted
replaced
146 procedure SwitchHedgehog; |
146 procedure SwitchHedgehog; |
147 var c, i, t: LongWord; |
147 var c, i, t: LongWord; |
148 PrevHH, PrevTeam : LongWord; |
148 PrevHH, PrevTeam : LongWord; |
149 begin |
149 begin |
150 TargetPoint.X:= NoPointX; |
150 TargetPoint.X:= NoPointX; |
151 if checkFails(CurrentTeam <> nil, 'nil Team', true) then exit; |
151 if checkFails(CurrentTeam <> nil, 'Team is nil!', true) then exit; |
152 with CurrentHedgehog^ do |
152 with CurrentHedgehog^ do |
153 if (PreviousTeam <> nil) and PlacingHogs and Unplaced then |
153 if (PreviousTeam <> nil) and PlacingHogs and Unplaced then |
154 begin |
154 begin |
155 Unplaced:= false; |
155 Unplaced:= false; |
156 if Gear <> nil then |
156 if Gear <> nil then |