equal
deleted
inserted
replaced
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, capgrpMessage); |
44 if Gear^.Kind = gtHedgehog then |
|
45 begin |
|
46 Gear^.State:= Gear^.State and (not gstHHDriven); |
|
47 AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpMessage); |
|
48 end |
45 end; |
49 end; |
46 PlaySound(sndSplash, false, nil) |
50 PlaySound(sndSplash, false, nil) |
47 end |
51 end |
48 else |
52 else |
49 CheckGearDrowning:= false |
53 CheckGearDrowning:= false |