38        end

    38        end

    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;

    44         Gear^.doStep:= @doStepDrowningGear;

    44 		if Gear^.Kind = gtHedgehog then

    45 		if Gear^.Kind = gtHedgehog then

    45 			begin

    46 			begin

    46 			Gear^.State:= Gear^.State and (not gstHHDriven);

    47 			Gear^.State:= Gear^.State and (not gstHHDriven);

    47 			AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpMessage);

    48 			AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpMessage);