hedgewars/uGears.pas
changeset 3951 c9a63db3e603
parent 3949 4c4c0a2507cc
child 3954 ae3583ad6ea9
equal deleted inserted replaced
3949:4c4c0a2507cc 3951:c9a63db3e603
   844             end;
   844             end;
   845     end
   845     end
   846 else if ((GameFlags and gfInfAttack) <> 0) then
   846 else if ((GameFlags and gfInfAttack) <> 0) then
   847     begin
   847     begin
   848     if delay2 = 0 then
   848     if delay2 = 0 then
   849         delay2:= cInactDelay 
   849         delay2:= cInactDelay * 4
   850     else
   850     else
   851         dec(delay2);
   851         dec(delay2);
   852 
   852 
       
   853     if ((delay2 mod cInactDelay) = 0) and (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then 
       
   854         CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State and not gstAttacked;
   853     if delay2 = 0 then
   855     if delay2 = 0 then
   854         begin
   856         begin
   855         if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State and not gstAttacked;
       
   856         CheckNoDamage;
   857         CheckNoDamage;
   857         CheckForWin
   858         CheckForWin
   858         end
   859         end
   859     end;
   860     end;
   860 
   861