2426 3: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtDrill, gsttmpFlag, cBombsSpeed * Gear^.Tag, _0, Gear^.Timer + 1); |
2426 3: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtDrill, gsttmpFlag, cBombsSpeed * Gear^.Tag, _0, Gear^.Timer + 1); |
2427 //4: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtWaterMelon, 0, cBombsSpeed * |
2427 //4: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtWaterMelon, 0, cBombsSpeed * |
2428 // Gear^.Tag, _0, 5000); |
2428 // Gear^.Tag, _0, 5000); |
2429 end; |
2429 end; |
2430 Gear^.dX := Gear^.dX + int2hwFloat(30 * Gear^.Tag); |
2430 Gear^.dX := Gear^.dX + int2hwFloat(30 * Gear^.Tag); |
|
2431 if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y)) then |
|
2432 FollowGear^.State:= FollowGear^.State or gstSubmersible; |
2431 StopSoundChan(Gear^.SoundChannel, 4000); |
2433 StopSoundChan(Gear^.SoundChannel, 4000); |
2432 end; |
2434 end; |
2433 |
2435 |
2434 if (GameTicks and $3F) = 0 then |
2436 if (GameTicks and $3F) = 0 then |
2435 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace); |
2437 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace); |