changeset 3485 | ab91c56a9050 |
parent 3484 | 3c65b1d979cd |
child 3682 | 45b416c5b976 |
3484:3c65b1d979cd | 3485:ab91c56a9050 |
---|---|
102 |
102 |
103 |
103 |
104 procedure Attack(Gear: PGear); |
104 procedure Attack(Gear: PGear); |
105 var xx, yy, lx, ly: hwFloat; |
105 var xx, yy, lx, ly: hwFloat; |
106 tmpGear: PVisualGear; |
106 tmpGear: PVisualGear; |
107 tmpGear2: PGear; |
|
107 begin |
108 begin |
108 bShowFinger:= false; |
109 bShowFinger:= false; |
109 with Gear^, |
110 with Gear^, |
110 PHedgehog(Gear^.Hedgehog)^ do |
111 PHedgehog(Gear^.Hedgehog)^ do |
111 begin |
112 begin |