equal
deleted
inserted
replaced
1003 end; |
1003 end; |
1004 |
1004 |
1005 procedure doStepDEagleShot(Gear: PGear); |
1005 procedure doStepDEagleShot(Gear: PGear); |
1006 begin |
1006 begin |
1007 PlaySound(sndGun); |
1007 PlaySound(sndGun); |
1008 // add an initial step to avoid problem with ammoshove related to calculation of radius + 1 radius as gear widths |
1008 // add 2 initial steps to avoid problem with ammoshove related to calculation of radius + 1 radius as gear widths |
1009 Gear^.X := Gear^.X + Gear^.dX; |
1009 Gear^.X := Gear^.X + _2*Gear^.dX; |
1010 Gear^.Y := Gear^.Y + Gear^.dY; |
1010 Gear^.Y := Gear^.Y + _2*Gear^.dY; |
1011 Gear^.doStep := @doStepBulletWork |
1011 Gear^.doStep := @doStepBulletWork |
1012 end; |
1012 end; |
1013 |
1013 |
1014 procedure doStepSniperRifleShot(Gear: PGear); |
1014 procedure doStepSniperRifleShot(Gear: PGear); |
1015 var |
1015 var |