Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/HHHandlers.inc
changeset 2470 44b66fbf37da
parent 2466 ab6dfb227d1d
child 2500 31ba68a50208
equal deleted inserted replaced
2469:135b11674ac1 2470:44b66fbf37da 
   136         yy:= -AngleCos(Angle);
 
   136         yy:= -AngleCos(Angle);
 
   137 
   137 
   138         if ((Gear^.State and gstHHHJump) <> 0) then xx:= - xx;
 
   138         if ((Gear^.State and gstHHHJump) <> 0) then xx:= - xx;
 
   139              case Ammo^[CurSlot, CurAmmo].AmmoType of
 
   139              case Ammo^[CurSlot, CurAmmo].AmmoType of
 
   140                       amGrenade: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtAmmo_Bomb,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer);
 
   140                       amGrenade: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtAmmo_Bomb,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer);
 
   141 			amMolotov: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtMolotov,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
 
   141                       amMolotov: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtMolotov,      0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
 
   142                   amClusterBomb: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtClusterBomb,  0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer);
 
   142                   amClusterBomb: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtClusterBomb,  0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer);
 
   143                       amBazooka: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtAmmo_Grenade, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
 
   143                       amBazooka: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtAmmo_Grenade, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
 
   144                           amUFO: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtUFO,          0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
 
   144                           amUFO: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtUFO,          0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
 
   145                       amShotgun: begin
 
   145                       amShotgun: begin
 
   146                                  PlaySound(sndShotgunReload, false, nil);
 
   146                                  PlaySound(sndShotgunReload, false, nil);
hedgewars