hedgewars/HHHandlers.inc
changeset 829 1209eb768acf
parent 800 e95f16b7ec80
child 835 6f567934cc44
equal deleted inserted replaced
828:de0af1ad2610 829:1209eb768acf
   123                     amBlowTorch: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtBlowTorch, 0, SignAs(_0_5, dX), _0, 0);
   123                     amBlowTorch: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtBlowTorch, 0, SignAs(_0_5, dX), _0, 0);
   124                        amGirder: CurAmmoGear:= AddGear(0, 0, gtGirder, Ammo^[CurSlot, CurAmmo].Pos, _0, _0, 0);
   124                        amGirder: CurAmmoGear:= AddGear(0, 0, gtGirder, Ammo^[CurSlot, CurAmmo].Pos, _0, _0, 0);
   125                      amTeleport: CurAmmoGear:= AddGear(0, 0, gtTeleport, 0, _0, _0, 0);
   125                      amTeleport: CurAmmoGear:= AddGear(0, 0, gtTeleport, 0, _0, _0, 0);
   126                        amSwitch: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtSwitcher, 0, _0, _0, 0);
   126                        amSwitch: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtSwitcher, 0, _0, _0, 0);
   127                   end;
   127                   end;
       
   128 
       
   129         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);
       
   130 
   128         Power:= 0;
   131         Power:= 0;
   129         if CurAmmoGear <> nil then
   132         if CurAmmoGear <> nil then
   130            begin
   133            begin
   131            Message:= Message or gm_Attack;
   134            Message:= Message or gm_Attack;
   132            CurAmmoGear^.Message:= Message
   135            CurAmmoGear^.Message:= Message