hedgewars: comparison hedgewars/GSHandlers.inc

equal deleted inserted replaced

-:3a48fbc4a281
+:e604ee83e34f
 1: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine,    0, cBombsSpeed *
 Gear^.Tag, _0, 0);
 2: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtNapalmBomb, 0, cBombsSpeed *
 Gear^.Tag, _0, 0);
 3: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtDrill, gsttmpFlag, cBombsSpeed *
-Gear^.Tag, _0, 0);
+Gear^.Tag, _0, Gear^.Timer + 1);
 //4: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtWaterMelon, 0, cBombsSpeed *
 //                 Gear^.Tag, _0, 5000);
 end;
 Gear^.dX := Gear^.dX + int2hwFloat(30 * Gear^.Tag)
 end;
 exit
 end
 else if not TestCollisionYWithGear(Gear, hwSign(Gear^.dY)) and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX)) then
 begin
 StopSound(Gear^.SoundChannel);
+Gear^.Tag := 1;
 Gear^.doStep := @doStepDrill
 end;
 dec(Gear^.Timer);
 end;
 exit;
 end;
 Gear^.SoundChannel := LoopSound(sndDrillRocket);
 Gear^.doStep := @doStepDrillDrilling;
+if (Gear^.State and gsttmpFlag) <> 0 then
+gear^.RenderTimer:= true;
 dec(Gear^.Timer)
 end
+else if ((Gear^.State and gsttmpFlag) <> 0) and (Gear^.Tag <> 0) then
+begin
+if Gear^.Timer = 0 then
+begin
+doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear^.Hedgehog, EXPLAutoSound);
+DeleteGear(Gear);
+end
+else
+dec(Gear^.Timer);
+end;
 end;
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepBallgunWork(Gear: PGear);
 var