hedgewars/uGearsHedgehog.pas
changeset 8632 b5ed76d2a1f9
parent 8631 796ed875aa95
child 8633 b9f5adfa81cc
equal deleted inserted replaced
8631:796ed875aa95 8632:b5ed76d2a1f9
  1259     exit
  1259     exit
  1260     end;
  1260     end;
  1261 if GameTicks mod 100 = 0 then CheckIce(Gear);
  1261 if GameTicks mod 100 = 0 then CheckIce(Gear);
  1262 if Gear^.Hedgehog^.Effects[heFrozen] > 0 then 
  1262 if Gear^.Hedgehog^.Effects[heFrozen] > 0 then 
  1263     begin
  1263     begin
  1264     if Gear^.Hedgehog^.Effects[heFrozen] > 256 then
  1264     if (Gear^.Hedgehog^.Effects[heFrozen] > 256) and (CurrentHedgehog^.Team^.Clan <> Gear^.Hedgehog^.Team^.Clan) then
  1265         dec(Gear^.Hedgehog^.Effects[heFrozen])
  1265         dec(Gear^.Hedgehog^.Effects[heFrozen])
  1266     else if GameTicks mod 10 = 0 then
  1266     else if GameTicks mod 10 = 0 then
  1267         dec(Gear^.Hedgehog^.Effects[heFrozen])
  1267         dec(Gear^.Hedgehog^.Effects[heFrozen])
  1268     end;
  1268     end;
  1269 if (Gear^.State and gstHHDriven) = 0 then
  1269 if (Gear^.State and gstHHDriven) = 0 then