hedgewars/uGearsUtils.pas
changeset 13773 effef930bd57
parent 13642 3d14950641a4
child 13775 8a7699ccb608
equal deleted inserted replaced
13771:f26c9e931f5a 13773:effef930bd57
  1395                 ApplyDamage(Gear, Ammo^.Hedgehog, tmpDmg * 100, dsUnknown); // crank up damage for explosives + blowtorch
  1395                 ApplyDamage(Gear, Ammo^.Hedgehog, tmpDmg * 100, dsUnknown); // crank up damage for explosives + blowtorch
  1396                 end;
  1396                 end;
  1397 
  1397 
  1398             if (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.King or (Gear^.Hedgehog^.Effects[heFrozen] > 0)) then
  1398             if (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.King or (Gear^.Hedgehog^.Effects[heFrozen] > 0)) then
  1399                 begin
  1399                 begin
  1400                 Gear^.dX:= Gear^.dX + Ammo^.dX * Power * _0_005;
  1400                 Gear^.dX:= Ammo^.dX * Power * _0_005;
  1401                 Gear^.dY:= Gear^.dY + Ammo^.dY * Power * _0_005
  1401                 Gear^.dY:= Ammo^.dY * Power * _0_005
  1402                 end
  1402                 end
  1403             else if ((Ammo^.Kind <> gtFlame) or (Gear^.Kind = gtHedgehog)) and (Power <> 0) then
  1403             else if ((Ammo^.Kind <> gtFlame) or (Gear^.Kind = gtHedgehog)) and (Power <> 0) then
  1404                 begin
  1404                 begin
  1405                 Gear^.dX:= Gear^.dX + Ammo^.dX * Power * _0_01;
  1405                 Gear^.dX:= Ammo^.dX * Power * _0_01;
  1406                 Gear^.dY:= Gear^.dY + Ammo^.dY * Power * _0_01
  1406                 Gear^.dY:= Ammo^.dY * Power * _0_01
  1407                 end;
  1407                 end;
  1408 
  1408 
  1409             if (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then
  1409             if (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then
  1410                 begin
  1410                 begin
  1411                 Gear^.Active:= true;
  1411                 Gear^.Active:= true;