hedgewars/GSHandlers.inc
changeset 2142 48ed98cfd119
parent 2141 3b06505dbd5d
child 2143 ad05f6b2d1c0
equal deleted inserted replaced
2141:3b06505dbd5d 2142:48ed98cfd119
    39     else
    39     else
    40         begin
    40         begin
    41         CheckGearDrowning:= true;
    41         CheckGearDrowning:= true;
    42         Gear^.State:= gstDrowning;
    42         Gear^.State:= gstDrowning;
    43         Gear^.doStep:= @doStepDrowningGear;
    43         Gear^.doStep:= @doStepDrowningGear;
    44 		if Gear^.Kind = gtHedgehog then AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpGameState);
    44 		if Gear^.Kind = gtHedgehog then AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpMessage);
    45         end;
    45         end;
    46     PlaySound(sndSplash, false, nil)
    46     PlaySound(sndSplash, false, nil)
    47     end
    47     end
    48     else
    48     else
    49 	CheckGearDrowning:= false
    49 	CheckGearDrowning:= false