equal
deleted
inserted
replaced
702 for i:= 0 to 15 do |
702 for i:= 0 to 15 do |
703 AddVisualGear(gX, gY, vgtExplPart2); |
703 AddVisualGear(gX, gY, vgtExplPart2); |
704 Gear^.doStep:= @doStepBigExplosionWork; |
704 Gear^.doStep:= @doStepBigExplosionWork; |
705 if Steps > 1 then |
705 if Steps > 1 then |
706 Gear^.doStep(Gear, Steps-1); |
706 Gear^.doStep(Gear, Steps-1); |
|
707 |
|
708 {$IFNDEF PAS2C} |
707 with mobileRecord do |
709 with mobileRecord do |
708 if (performRumble <> nil) and (not fastUntilLag) then |
710 if (performRumble <> nil) and (not fastUntilLag) then |
709 performRumble(kSystemSoundID_Vibrate); |
711 performRumble(kSystemSoundID_Vibrate); |
|
712 {$ENDIF} |
710 end; |
713 end; |
711 |
714 |
712 procedure doStepChunk(Gear: PVisualGear; Steps: Longword); |
715 procedure doStepChunk(Gear: PVisualGear; Steps: Longword); |
713 begin |
716 begin |
714 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
717 Gear^.X:= Gear^.X + Gear^.dX * Steps; |