hedgewars/uGearsHandlersRope.pas
changeset 14653 4aec7d17ef7d
parent 14282 6015b74eea55
equal deleted inserted replaced
14652:919754e1c269 14653:4aec7d17ef7d
   415 procedure RopeRemoveFromAmmo(Gear, HHGear: PGear);
   415 procedure RopeRemoveFromAmmo(Gear, HHGear: PGear);
   416 begin
   416 begin
   417     if (Gear^.State and gstAttacked) = 0 then
   417     if (Gear^.State and gstAttacked) = 0 then
   418         begin
   418         begin
   419         OnUsedAmmo(HHGear^.Hedgehog^);
   419         OnUsedAmmo(HHGear^.Hedgehog^);
   420         Gear^.State := Gear^.State or gstAttacked
   420         Gear^.State := Gear^.State or gstAttacked;
   421         end;
   421         ApplyAmmoChanges(HHGear^.Hedgehog^);
   422     ApplyAmmoChanges(HHGear^.Hedgehog^)
   422         end;
   423 end;
   423 end;
   424 
   424 
   425 procedure doStepRopeAttach(Gear: PGear);
   425 procedure doStepRopeAttach(Gear: PGear);
   426 var
   426 var
   427     HHGear: PGear;
   427     HHGear: PGear;