equal
deleted
inserted
replaced
72 begin |
72 begin |
73 Gear^.State:= Gear^.State and (not gstHHDriven); |
73 Gear^.State:= Gear^.State and (not gstHHDriven); |
74 AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), cWhiteColor, capgrpMessage); |
74 AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), cWhiteColor, capgrpMessage); |
75 end |
75 end |
76 end; |
76 end; |
77 PlaySound(sndSplash) |
77 PlaySound(sndSplash); |
|
78 AddVisualGear(hwRound(Gear^.X), LAND_HEIGHT, vgtSplash); |
78 end |
79 end |
79 else |
80 else |
80 CheckGearDrowning:= false |
81 CheckGearDrowning:= false |
81 end; |
82 end; |
82 |
83 |