equal
deleted
inserted
replaced
3097 FollowGear^.State:= FollowGear^.State or gstSubmersible; |
3097 FollowGear^.State:= FollowGear^.State or gstSubmersible; |
3098 StopSoundChan(Gear^.SoundChannel, 4000); |
3098 StopSoundChan(Gear^.SoundChannel, 4000); |
3099 end; |
3099 end; |
3100 |
3100 |
3101 if (GameTicks and $3F) = 0 then |
3101 if (GameTicks and $3F) = 0 then |
3102 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace); |
3102 if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y)) then |
|
3103 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtBubble) |
|
3104 else |
|
3105 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace); |
3103 |
3106 |
3104 if (hwRound(Gear^.X) > (max(LAND_WIDTH,4096)+2048)) or (hwRound(Gear^.X) < -2048) or ((Gear^.Message and gmDestroy) > 0) then |
3107 if (hwRound(Gear^.X) > (max(LAND_WIDTH,4096)+2048)) or (hwRound(Gear^.X) < -2048) or ((Gear^.Message and gmDestroy) > 0) then |
3105 begin |
3108 begin |
3106 // avoid to play forever (is this necessary?) |
3109 // avoid to play forever (is this necessary?) |
3107 StopSoundChan(Gear^.SoundChannel); |
3110 StopSoundChan(Gear^.SoundChannel); |