hedgewars/uGears.pas
changeset 8632 b5ed76d2a1f9
parent 8589 3bb505fc707e
child 8817 0d3014097240
child 8833 c13ebed437cb
child 9080 9b42757d7e71
equal deleted inserted replaced
8631:796ed875aa95 8632:b5ed76d2a1f9
   836                 if (Ammo^.Hedgehog^.Gear <> nil) then
   836                 if (Ammo^.Hedgehog^.Gear <> nil) then
   837                     Ammo^.Hedgehog^.Gear^.State:= Ammo^.Hedgehog^.Gear^.State and (not gstNotKickable);
   837                     Ammo^.Hedgehog^.Gear^.State:= Ammo^.Hedgehog^.Gear^.State and (not gstNotKickable);
   838                 ApplyDamage(Gear, Ammo^.Hedgehog, tmpDmg * 100, dsUnknown); // crank up damage for explosives + blowtorch
   838                 ApplyDamage(Gear, Ammo^.Hedgehog, tmpDmg * 100, dsUnknown); // crank up damage for explosives + blowtorch
   839                 end;
   839                 end;
   840 
   840 
   841             if (Gear^.Kind = gtHedgehog) and Gear^.Hedgehog^.King then
   841             if (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.King or (Gear^.Hedgehog^.Effects[heFrozen] > 0)) then
   842                 begin
   842                 begin
   843                 Gear^.dX:= Ammo^.dX * Power * _0_005;
   843                 Gear^.dX:= Ammo^.dX * Power * _0_005;
   844                 Gear^.dY:= Ammo^.dY * Power * _0_005
   844                 Gear^.dY:= Ammo^.dY * Power * _0_005
   845                 end
   845                 end
   846             else if ((Ammo^.Kind <> gtFlame) or (Gear^.Kind = gtHedgehog)) and (Power <> 0) then
   846             else if ((Ammo^.Kind <> gtFlame) or (Gear^.Kind = gtHedgehog)) and (Power <> 0) then