equal
deleted
inserted
replaced
31 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
31 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
32 *) |
32 *) |
33 |
33 |
34 //////////////////////////////////////////////////////////////////////////////// |
34 //////////////////////////////////////////////////////////////////////////////// |
35 procedure Attack(Gear: PGear); |
35 procedure Attack(Gear: PGear); |
36 var xx, yy: real; |
36 var xx, yy: Double; |
37 begin |
37 begin |
38 with Gear^, |
38 with Gear^, |
39 PHedgehog(Gear.Hedgehog)^ do |
39 PHedgehog(Gear.Hedgehog)^ do |
40 begin |
40 begin |
41 if ((State and gstHHDriven) <> 0)and |
41 if ((State and gstHHDriven) <> 0)and |