hedgewars/uGears.pas
changeset 2217 458c08d74ae6
parent 2208 7d1a084d11ab
child 2221 ef52dae4130b
equal deleted inserted replaced
2216:82e7da49c26a 2217:458c08d74ae6
   589 			end;
   589 			end;
   590 	stHealth: begin
   590 	stHealth: begin
   591 			if (TotalRounds = cSuddenDTurns) and (cHealthDecrease = 0) then
   591 			if (TotalRounds = cSuddenDTurns) and (cHealthDecrease = 0) then
   592 				begin
   592 				begin
   593 				cHealthDecrease:= 5;
   593 				cHealthDecrease:= 5;
   594 				AddCaption(trmsg[sidSuddenDeath], $FFFFFF, capgrpGameState)
   594 				AddCaption(trmsg[sidSuddenDeath], $FFFFFF, capgrpGameState);
       
   595 				playSound(sndSuddenDeath, false, nil);
   595 				end;
   596 				end;
   596 
   597 
   597 			if (cHealthDecrease = 0)
   598 			if (cHealthDecrease = 0)
   598 				or bBetweenTurns
   599 				or bBetweenTurns
   599 				or isInMultiShoot
   600 				or isInMultiShoot