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, capgrpGameState); |
44 end; |
45 end; |
45 PlaySound(sndSplash, false, nil) |
46 PlaySound(sndSplash, false, nil) |
46 end |
47 end |
47 else |
48 else |
48 CheckGearDrowning:= false |
49 CheckGearDrowning:= false |