equal
deleted
inserted
replaced
2224 doStepFallingGear(Gear); |
2224 doStepFallingGear(Gear); |
2225 if (Gear^.State and gstCollision) <> 0 then |
2225 if (Gear^.State and gstCollision) <> 0 then |
2226 begin |
2226 begin |
2227 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear^.Hedgehog, EXPLAutoSound); |
2227 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear^.Hedgehog, EXPLAutoSound); |
2228 DeleteGear(Gear); |
2228 DeleteGear(Gear); |
|
2229 {$IFNDEF PAS2C} |
2229 with mobileRecord do |
2230 with mobileRecord do |
2230 if (performRumble <> nil) and (not fastUntilLag) then |
2231 if (performRumble <> nil) and (not fastUntilLag) then |
2231 performRumble(kSystemSoundID_Vibrate); |
2232 performRumble(kSystemSoundID_Vibrate); |
|
2233 {$ENDIF} |
2232 exit |
2234 exit |
2233 end; |
2235 end; |
2234 if (GameTicks and $3F) = 0 then |
2236 if (GameTicks and $3F) = 0 then |
2235 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace) |
2237 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace) |
2236 end; |
2238 end; |
4316 AmmoShove(Gear, 0, 80); |
4318 AmmoShove(Gear, 0, 80); |
4317 Gear^.dX.isNegative := not Gear^.dX.isNegative; |
4319 Gear^.dX.isNegative := not Gear^.dX.isNegative; |
4318 Gear^.dY.isNegative := not Gear^.dY.isNegative; |
4320 Gear^.dY.isNegative := not Gear^.dY.isNegative; |
4319 |
4321 |
4320 Gear^.doStep := @doStepSineGunShotWork; |
4322 Gear^.doStep := @doStepSineGunShotWork; |
|
4323 {$IFNDEF PAS2C} |
4321 with mobileRecord do |
4324 with mobileRecord do |
4322 if (performRumble <> nil) and (not fastUntilLag) then |
4325 if (performRumble <> nil) and (not fastUntilLag) then |
4323 performRumble(kSystemSoundID_Vibrate); |
4326 performRumble(kSystemSoundID_Vibrate); |
|
4327 {$ENDIF} |
4324 end; |
4328 end; |
4325 |
4329 |
4326 //////////////////////////////////////////////////////////////////////////////// |
4330 //////////////////////////////////////////////////////////////////////////////// |
4327 procedure doStepFlamethrowerWork(Gear: PGear); |
4331 procedure doStepFlamethrowerWork(Gear: PGear); |
4328 var |
4332 var |