equal
deleted
inserted
replaced
6613 end; |
6613 end; |
6614 |
6614 |
6615 //////////////////////////////////////////////////////////////////////////////// |
6615 //////////////////////////////////////////////////////////////////////////////// |
6616 procedure doStepMinigunWork(Gear: PGear); |
6616 procedure doStepMinigunWork(Gear: PGear); |
6617 var HHGear: PGear; |
6617 var HHGear: PGear; |
6618 i: LongWord; |
|
6619 shell: PVisualGear; |
6618 shell: PVisualGear; |
6620 bullet: PGear; |
6619 bullet: PGear; |
6621 rx, ry: hwFloat; |
6620 rx, ry: hwFloat; |
6622 gX, gY: LongInt; |
6621 gX, gY: LongInt; |
6623 begin |
6622 begin |