hedgewars/uGears.pas
changeset 3749 d0920e92008e
parent 3734 304a83637eb4
child 3750 3aa85b5f3318
equal deleted inserted replaced
3748:daea2650a5aa 3749:d0920e92008e
   777     stChWin2: begin
   777     stChWin2: begin
   778             CheckForWin;
   778             CheckForWin;
   779             inc(step)
   779             inc(step)
   780             end;
   780             end;
   781     stHealth: begin
   781     stHealth: begin
   782             if (TotalRounds = cSuddenDTurns - 1) and (cHealthDecrease = 0) then
   782             if (TotalRounds = cSuddenDTurns - 1) and (cHealthDecrease = 0) and not isInMultiShoot then
   783                 begin
   783                 begin
   784                 cHealthDecrease:= 5;
   784                 cHealthDecrease:= 5;
   785                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   785                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   786                 playSound(sndSuddenDeath)
   786                 playSound(sndSuddenDeath)
   787                 end
   787                 end