hedgewars/uGears.pas
changeset 3384 7eb4707d43f0
parent 3382 633046fa040c
child 3387 733f4001b8b9
equal deleted inserted replaced
3383:45a73be4d8c1 3384:7eb4707d43f0
   184             @doStepBigExplosion,
   184             @doStepBigExplosion,
   185             @doStepEggWork,
   185             @doStepEggWork,
   186             @doStepPortal,
   186             @doStepPortal,
   187             @doStepPortalGun,
   187             @doStepPortalGun,
   188             @doStepPiano,
   188             @doStepPiano,
   189             @doStepBomb
   189             @doStepBomb,
       
   190             @doStepSineGunShot
   190             );
   191             );
   191 
   192 
   192 procedure InsertGearToList(Gear: PGear);
   193 procedure InsertGearToList(Gear: PGear);
   193 var tmp, ptmp: PGear;
   194 var tmp, ptmp: PGear;
   194 begin
   195 begin
   479                 gear^.AdvBounce:= 0;
   480                 gear^.AdvBounce:= 0;
   480                 gear^.Radius:= 16;
   481                 gear^.Radius:= 16;
   481                 end;
   482                 end;
   482        gtPiano: begin
   483        gtPiano: begin
   483                 gear^.Radius:= 32
   484                 gear^.Radius:= 32
       
   485                 end;
       
   486  gtSineGunShot: begin
       
   487                 gear^.Radius:= 5;
       
   488                 gear^.Health:= 6000;
   484                 end;
   489                 end;
   485      end;
   490      end;
   486 InsertGearToList(gear);
   491 InsertGearToList(gear);
   487 AddGear:= gear;
   492 AddGear:= gear;
   488 
   493 
  1278             amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
  1283             amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
  1279             amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);
  1284             amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);
  1280             amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);
  1285             amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);
  1281             amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
  1286             amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
  1282             amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);
  1287             amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);
       
  1288             amSineGun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
  1283             amSniperRifle: DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle);
  1289             amSniperRifle: DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle);
  1284             amBlowTorch: DrawRotated(sprHandBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
  1290             amBlowTorch: DrawRotated(sprHandBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
  1285             amCake: DrawRotated(sprHandCake, hx, hy, hwSign(Gear^.dX), aangle);
  1291             amCake: DrawRotated(sprHandCake, hx, hy, hwSign(Gear^.dX), aangle);
  1286             amGrenade: DrawRotated(sprHandGrenade, hx, hy, hwSign(Gear^.dX), aangle);
  1292             amGrenade: DrawRotated(sprHandGrenade, hx, hy, hwSign(Gear^.dX), aangle);
  1287             amWatermelon: DrawRotated(sprHandMelon, hx, hy, hwSign(Gear^.dX), aangle);
  1293             amWatermelon: DrawRotated(sprHandMelon, hx, hy, hwSign(Gear^.dX), aangle);