hedgewars/uTeams.pas
changeset 13504 c41b16ac2e05
parent 13482 c265a3e6f6da
child 13597 f7cbf7d8298d
equal deleted inserted replaced
13503:4f00b08d6f1e 13504:c41b16ac2e05
   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