equal
deleted
inserted
replaced
1342 if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then |
1342 if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then |
1343 Gear^.Data:= Pointer(Gear^.Hedgehog^.Gear); |
1343 Gear^.Data:= Pointer(Gear^.Hedgehog^.Gear); |
1344 |
1344 |
1345 PlaySound(sndGun); |
1345 PlaySound(sndGun); |
1346 // add 3 initial steps to avoid problem with ammoshove related to calculation of radius + 1 radius as gear widths, and also just plain old weird angles |
1346 // add 3 initial steps to avoid problem with ammoshove related to calculation of radius + 1 radius as gear widths, and also just plain old weird angles |
1347 Gear^.X := Gear^.X + Gear^.dX * 3; |
1347 Gear^.X := Gear^.X + Gear^.dX * 2; |
1348 Gear^.Y := Gear^.Y + Gear^.dY * 3; |
1348 Gear^.Y := Gear^.Y + Gear^.dY * 2; |
1349 Gear^.doStep := @doStepBulletWork |
1349 Gear^.doStep := @doStepBulletWork |
1350 end; |
1350 end; |
1351 |
1351 |
1352 procedure doStepSniperRifleShot(Gear: PGear); |
1352 procedure doStepSniperRifleShot(Gear: PGear); |
1353 var |
1353 var |