hedgewars/GSHandlers.inc
changeset 5137 b6140f35735f
parent 5128 3c65326bb713
child 5139 090a8b8d1083
equal deleted inserted replaced
5136:948da1e50205 5137:b6140f35735f
   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 
   383             gtBomb: makeHogsWorry(Gear^.X, Gear^.Y, 50);
   383             gtGrenade: makeHogsWorry(Gear^.X, Gear^.Y, 47);
   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 
   407             gtBomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, Gear^.Hedgehog, EXPLAutoSound);
   407             gtGrenade: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 47, Gear^.Hedgehog, EXPLAutoSound);
   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);