equal
deleted
inserted
replaced
695 for i:= 0 to 15 do |
695 for i:= 0 to 15 do |
696 AddVisualGear(gX, gY, vgtExplPart2); |
696 AddVisualGear(gX, gY, vgtExplPart2); |
697 Gear^.doStep:= @doStepBigExplosionWork; |
697 Gear^.doStep:= @doStepBigExplosionWork; |
698 if Steps > 1 then |
698 if Steps > 1 then |
699 Gear^.doStep(Gear, Steps-1); |
699 Gear^.doStep(Gear, Steps-1); |
700 performRumble(); |
700 with mobileRecord do |
|
701 if (performRumble <> nil) and (not fastUntilLag) then |
|
702 performRumble(kSystemSoundID_Vibrate); |
701 end; |
703 end; |
702 |
704 |
703 procedure doStepChunk(Gear: PVisualGear; Steps: Longword); |
705 procedure doStepChunk(Gear: PVisualGear; Steps: Longword); |
704 begin |
706 begin |
705 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
707 Gear^.X:= Gear^.X + Gear^.dX * Steps; |