100 

   100 

   101 procedure Attack(Gear: PGear);

   101 procedure Attack(Gear: PGear);

   102 var xx, yy: hwFloat;

   102 var xx, yy: hwFloat;

   103     tmpGear: PVisualGear;

   103     tmpGear: PVisualGear;

   104 begin

   104 begin

   105 with Gear^,

   106 with Gear^,

   106      PHedgehog(Gear^.Hedgehog)^ do

   107      PHedgehog(Gear^.Hedgehog)^ do

   107      begin

   108      begin

   108      if ((State and gstHHDriven) <> 0)and

   109      if ((State and gstHHDriven) <> 0)and

   109         ((State and (gstAttacked or gstHHChooseTarget)) = 0) and

   110         ((State and (gstAttacked or gstHHChooseTarget)) = 0) and