479                  if delay = 0 then

   479                  if delay = 0 then

   480                     inc(step)

   480                     inc(step)

   481                  end;

   481                  end;

   482         stChWin: if not CheckForWin then

   482         stChWin: if not CheckForWin then

   483                     begin

   483                     begin

   485                     inc(step)

   489                     inc(step)

   486                     end else step:= stDelay;

   490                     end else step:= stDelay;

   487         stWater: begin

   491         stWater: begin

   488                  if TotalRounds = 17 then bWaterRising:= true;

   492                  if TotalRounds = 17 then bWaterRising:= true;

   489 

   493 

   518                  inc(step)

   522                  inc(step)

   519                  end;

   523                  end;

   520         stNTurn: begin

   524         stNTurn: begin

   521                  if isInMultiShoot then isInMultiShoot:= false

   525                  if isInMultiShoot then isInMultiShoot:= false

   522                     else begin

   526                     else begin

   524                     AfterSwitchHedgehog;

   527                     AfterSwitchHedgehog;

   525                     bBetweenTurns:= false

   528                     bBetweenTurns:= false

   526                     end;

   529                     end;

   527                  step:= Low(step)

   530                  step:= Low(step)

   528                  end;

   531                  end;