hedgewars/uGears.pas
changeset 9103 b70352db5675
parent 9080 9b42757d7e71
child 9127 e350500c4edb
child 9224 bce8cf41d666
equal deleted inserted replaced
9100:3f5e0280db4d 9103:b70352db5675
   772     Ammo^.Health:= 0;
   772     Ammo^.Health:= 0;
   773 while i > 0 do
   773 while i > 0 do
   774     begin
   774     begin
   775     dec(i);
   775     dec(i);
   776     Gear:= t^.ar[i];
   776     Gear:= t^.ar[i];
   777     if (Ammo^.Kind = gtFlame) and (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heFrozen] > 255) then
   777     if ((Ammo^.Kind = gtFlame) or (Ammo^.Kind = gtBlowTorch)) and 
       
   778        (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heFrozen] > 255) then
   778         Gear^.Hedgehog^.Effects[heFrozen]:= max(255,Gear^.Hedgehog^.Effects[heFrozen]-10000);
   779         Gear^.Hedgehog^.Effects[heFrozen]:= max(255,Gear^.Hedgehog^.Effects[heFrozen]-10000);
   779     tmpDmg:= ModifyDamage(Damage, Gear);
   780     tmpDmg:= ModifyDamage(Damage, Gear);
   780     if (Gear^.State and gstNoDamage) = 0 then
   781     if (Gear^.State and gstNoDamage) = 0 then
   781         begin
   782         begin
   782 
   783