378     doStepFallingGear(Gear);

   378     doStepFallingGear(Gear);

   379 

   379 

   380     dec(Gear^.Timer);

   380     dec(Gear^.Timer);

   381     if Gear^.Timer = 1000 then // might need adjustments

   381     if Gear^.Timer = 1000 then // might need adjustments

   382         case Gear^.Kind of 

   382         case Gear^.Kind of 

   384             gtClusterBomb: makeHogsWorry(Gear^.X, Gear^.Y, 20);

   384             gtClusterBomb: makeHogsWorry(Gear^.X, Gear^.Y, 20);

   385             gtWatermelon: makeHogsWorry(Gear^.X, Gear^.Y, 75);

   385             gtWatermelon: makeHogsWorry(Gear^.X, Gear^.Y, 75);

   386             gtHellishBomb: makeHogsWorry(Gear^.X, Gear^.Y, 90);

   386             gtHellishBomb: makeHogsWorry(Gear^.X, Gear^.Y, 90);

   387             gtGasBomb: makeHogsWorry(Gear^.X, Gear^.Y, 50);

   387             gtGasBomb: makeHogsWorry(Gear^.X, Gear^.Y, 50);

   388         end;

   388         end;

   402     end;

   402     end;

   403 

   403 

   404     if Gear^.Timer = 0 then

   404     if Gear^.Timer = 0 then

   405     begin

   405     begin

   406         case Gear^.Kind of 

   406         case Gear^.Kind of 

   408             gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, Gear^.Hedgehog, EXPLAutoSound);

   408             gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, Gear^.Hedgehog, EXPLAutoSound);

   409             gtClusterBomb: 

   409             gtClusterBomb: 

   410                 begin

   410                 begin

   411                     x := hwRound(Gear^.X);

   411                     x := hwRound(Gear^.X);

   412                     y := hwRound(Gear^.Y);

   412                     y := hwRound(Gear^.Y);