hedgewars/uGearsUtils.pas
changeset 15625 1b044b47773b
parent 15280 b12f63054c94
child 15656 c34cad72cd85
equal deleted inserted replaced
15624:adbd2bcf7159 15625:1b044b47773b
  1460                 Gear^.dX:= Ammo^.dX * Power * _0_005;
  1460                 Gear^.dX:= Ammo^.dX * Power * _0_005;
  1461                 Gear^.dY:= Ammo^.dY * Power * _0_005
  1461                 Gear^.dY:= Ammo^.dY * Power * _0_005
  1462                 end
  1462                 end
  1463             else if ((Ammo^.Kind <> gtFlame) or (Gear^.Kind = gtHedgehog)) and (Power <> 0) then
  1463             else if ((Ammo^.Kind <> gtFlame) or (Gear^.Kind = gtHedgehog)) and (Power <> 0) then
  1464                 begin
  1464                 begin
  1465                 Gear^.dX:= Ammo^.dX * Power * _0_01;
  1465                 if (Ammo^.Kind in [gtMinigunBullet]) then
  1466                 Gear^.dY:= Ammo^.dY * Power * _0_01
  1466                     begin    
       
  1467                     Gear^.dX:= Gear^.dX + Ammo^.dX * Power * _0_01;
       
  1468                     Gear^.dY:= Gear^.dY + Ammo^.dY * Power * _0_01
       
  1469                     end 
       
  1470                 else
       
  1471                     begin
       
  1472                     Gear^.dX:= Ammo^.dX * Power * _0_01;
       
  1473                     Gear^.dY:= Ammo^.dY * Power * _0_01
       
  1474                     end
  1467                 end;
  1475                 end;
  1468 
  1476 
  1469             if (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then
  1477             if (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then
  1470                 begin
  1478                 begin
  1471                 Gear^.Active:= true;
  1479                 Gear^.Active:= true;