hedgewars/uGearsHedgehog.pas
changeset 8655 9fa380a18a65
parent 8633 b9f5adfa81cc
child 8658 e7df553193ba
equal deleted inserted replaced
8654:f523e5e84772 8655:9fa380a18a65
  1258     begin
  1258     begin
  1259     DeleteGear(Gear);
  1259     DeleteGear(Gear);
  1260     exit
  1260     exit
  1261     end;
  1261     end;
  1262 if GameTicks mod 100 = 0 then CheckIce(Gear);
  1262 if GameTicks mod 100 = 0 then CheckIce(Gear);
       
  1263 (*
  1263 if Gear^.Hedgehog^.Effects[heFrozen] > 0 then 
  1264 if Gear^.Hedgehog^.Effects[heFrozen] > 0 then 
  1264     begin
  1265     begin
  1265     if (Gear^.Hedgehog^.Effects[heFrozen] > 256) and (CurrentHedgehog^.Team^.Clan <> Gear^.Hedgehog^.Team^.Clan) then
  1266     if (Gear^.Hedgehog^.Effects[heFrozen] > 256) and (CurrentHedgehog^.Team^.Clan <> Gear^.Hedgehog^.Team^.Clan) then
  1266         dec(Gear^.Hedgehog^.Effects[heFrozen])
  1267         dec(Gear^.Hedgehog^.Effects[heFrozen])
  1267     else if GameTicks mod 10 = 0 then
  1268     else if GameTicks mod 10 = 0 then
  1268         dec(Gear^.Hedgehog^.Effects[heFrozen])
  1269         dec(Gear^.Hedgehog^.Effects[heFrozen])
  1269     end;
  1270     end;
       
  1271 *)
       
  1272 if (GameTicks mod 10 = 0) and (Gear^.Hedgehog^.Effects[heFrozen] > 0) and (Gear^.Hedgehog^.Effects[heFrozen] < 256) then 
       
  1273     dec(Gear^.Hedgehog^.Effects[heFrozen]);
  1270 if (Gear^.State and gstHHDriven) = 0 then
  1274 if (Gear^.State and gstHHDriven) = 0 then
  1271     doStepHedgehogFree(Gear)
  1275     doStepHedgehogFree(Gear)
  1272 else
  1276 else
  1273     begin
  1277     begin
  1274     with Gear^.Hedgehog^ do
  1278     with Gear^.Hedgehog^ do