hedgewars/uGearsUtils.pas
changeset 14045 128fbd36eee4
parent 14027 e155b300d49f
child 14046 44f20c9e6861
equal deleted inserted replaced
14044:aeac678d7c79 14045:128fbd36eee4
  1392                 Gear^.State:= Gear^.State or gstWinner;
  1392                 Gear^.State:= Gear^.State or gstWinner;
  1393             if (Gear^.Kind = gtExplosives) and (Ammo^.Kind = gtBlowtorch) then
  1393             if (Gear^.Kind = gtExplosives) and (Ammo^.Kind = gtBlowtorch) then
  1394                 begin
  1394                 begin
  1395                 if (Ammo^.Hedgehog^.Gear <> nil) then
  1395                 if (Ammo^.Hedgehog^.Gear <> nil) then
  1396                     Ammo^.Hedgehog^.Gear^.State:= Ammo^.Hedgehog^.Gear^.State and (not gstNotKickable);
  1396                     Ammo^.Hedgehog^.Gear^.State:= Ammo^.Hedgehog^.Gear^.State and (not gstNotKickable);
  1397                 ApplyDamage(Gear, Ammo^.Hedgehog, tmpDmg * 100, dsUnknown); // crank up damage for explosives + blowtorch
  1397                 ApplyDamage(Gear, Ammo^.Hedgehog, tmpDmg * 100, dsExplosion); // crank up damage for explosives + blowtorch
  1398                 end;
  1398                 end;
  1399 
  1399 
  1400             if (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.King or (Gear^.Hedgehog^.Effects[heFrozen] > 0)) then
  1400             if (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.King or (Gear^.Hedgehog^.Effects[heFrozen] > 0)) then
  1401                 begin
  1401                 begin
  1402                 Gear^.dX:= Ammo^.dX * Power * _0_005;
  1402                 Gear^.dX:= Ammo^.dX * Power * _0_005;