equal
deleted
inserted
replaced
2088 doStepFallingGear(Gear); |
2088 doStepFallingGear(Gear); |
2089 if (Gear^.State and gstCollision) <> 0 then |
2089 if (Gear^.State and gstCollision) <> 0 then |
2090 begin |
2090 begin |
2091 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound); |
2091 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound); |
2092 DeleteGear(Gear); |
2092 DeleteGear(Gear); |
|
2093 performRumble(); |
2093 exit |
2094 exit |
2094 end; |
2095 end; |
2095 if (GameTicks and $3F) = 0 then |
2096 if (GameTicks and $3F) = 0 then |
2096 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace) |
2097 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace) |
2097 end; |
2098 end; |
3870 HHGear^.dY := Gear^.dY; |
3871 HHGear^.dY := Gear^.dY; |
3871 AmmoShove(Gear, 0, 80); |
3872 AmmoShove(Gear, 0, 80); |
3872 Gear^.dX.isNegative := not Gear^.dX.isNegative; |
3873 Gear^.dX.isNegative := not Gear^.dX.isNegative; |
3873 Gear^.dY.isNegative := not Gear^.dY.isNegative; |
3874 Gear^.dY.isNegative := not Gear^.dY.isNegative; |
3874 |
3875 |
3875 Gear^.doStep := @doStepSineGunShotWork; |
3876 Gear^.doStep := @doStepSineGunShotWork; |
|
3877 performRumble(); |
3876 end; |
3878 end; |
3877 |
3879 |
3878 //////////////////////////////////////////////////////////////////////////////// |
3880 //////////////////////////////////////////////////////////////////////////////// |
3879 procedure doStepFlamethrowerWork(Gear: PGear); |
3881 procedure doStepFlamethrowerWork(Gear: PGear); |
3880 var |
3882 var |