equal
deleted
inserted
replaced
2221 doStepFallingGear(Gear); |
2221 doStepFallingGear(Gear); |
2222 if (Gear^.State and gstCollision) <> 0 then |
2222 if (Gear^.State and gstCollision) <> 0 then |
2223 begin |
2223 begin |
2224 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear^.Hedgehog, EXPLAutoSound); |
2224 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear^.Hedgehog, EXPLAutoSound); |
2225 DeleteGear(Gear); |
2225 DeleteGear(Gear); |
2226 performRumble(); |
2226 with mobileRecord do |
|
2227 if (performRumble <> nil) and (not fastUntilLag) then |
|
2228 performRumble(kSystemSoundID_Vibrate); |
2227 exit |
2229 exit |
2228 end; |
2230 end; |
2229 if (GameTicks and $3F) = 0 then |
2231 if (GameTicks and $3F) = 0 then |
2230 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace) |
2232 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace) |
2231 end; |
2233 end; |
4306 AmmoShove(Gear, 0, 80); |
4308 AmmoShove(Gear, 0, 80); |
4307 Gear^.dX.isNegative := not Gear^.dX.isNegative; |
4309 Gear^.dX.isNegative := not Gear^.dX.isNegative; |
4308 Gear^.dY.isNegative := not Gear^.dY.isNegative; |
4310 Gear^.dY.isNegative := not Gear^.dY.isNegative; |
4309 |
4311 |
4310 Gear^.doStep := @doStepSineGunShotWork; |
4312 Gear^.doStep := @doStepSineGunShotWork; |
4311 performRumble(); |
4313 with mobileRecord do |
|
4314 if (performRumble <> nil) and (not fastUntilLag) then |
|
4315 performRumble(kSystemSoundID_Vibrate); |
4312 end; |
4316 end; |
4313 |
4317 |
4314 //////////////////////////////////////////////////////////////////////////////// |
4318 //////////////////////////////////////////////////////////////////////////////// |
4315 procedure doStepFlamethrowerWork(Gear: PGear); |
4319 procedure doStepFlamethrowerWork(Gear: PGear); |
4316 var |
4320 var |