hedgewars/uGears.pas
changeset 7666 8212121cf6a1
parent 7628 bc7b1d228a2c
child 7667 4346566c5a58
equal deleted inserted replaced
7665:e556b44f5bd8 7666:8212121cf6a1
   282         if delay = 0 then
   282         if delay = 0 then
   283             inc(step)
   283             inc(step)
   284             end;
   284             end;
   285     stChWin:
   285     stChWin:
   286         begin
   286         begin
   287         CheckForWin;
   287         if CheckForWin() then
       
   288             // if the game ends during a multishot, do last TurnReaction
       
   289             if (not bBetweenTurns) and isInMultiShoot then
       
   290                 TurnReaction();
   288         inc(step)
   291         inc(step)
   289         end;
   292         end;
   290     stWater:
   293     stWater:
   291     if (not bBetweenTurns) and (not isInMultiShoot) then
   294     if (not bBetweenTurns) and (not isInMultiShoot) then
   292         begin
   295         begin