Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.47 KB | None | 0 0
  1. '************************
  2. 'Look for this code....
  3. "************************
  4.  
  5.  
  6. Sub SolLFlipper(Enabled)
  7. If Enabled Then
  8. PlaySound SoundFX("fx_flipper1",DOFContactors), 0, 1, -0.2, 0.25
  9. LeftFlipper.RotateToEnd
  10. Flipper1.RotateToEnd
  11. Else
  12. PlaySound SoundFX("fx_flipperdown",DOFContactors), 0, 1, -0.2, 0.25
  13. LeftFlipper.RotateToStart
  14. Flipper1.RotateToStart
  15. LeftFlipper.TimerEnabled = 1
  16. LeftFlipper.TimerInterval = 16
  17. LeftFlipper.return = returnspeed * 0.5
  18. End If
  19. End Sub
  20.  
  21. Sub SolRFlipper(Enabled)
  22. If Enabled Then
  23. PlaySound SoundFX("fx_flipper2",DOFContactors), 0, 1, 0.2, 0.25
  24. RightFlipper.RotateToEnd
  25. Else
  26. PlaySound SoundFX("fx_flipperdown",DOFContactors), 0, 1, 0.2, 0.25
  27. RightFlipper.RotateToStart
  28. RightFlipper.TimerEnabled = 1
  29. RightFlipper.TimerInterval = 16
  30. RightFlipper.return = returnspeed * 0.5
  31. End If
  32. End Sub
  33.  
  34. '********************
  35. 'and replace with...
  36. '********************
  37.  
  38. Sub SolLFlipper(Enabled)
  39. If Enabled Then
  40. PlaySound SoundFX("fx_flipper1",DOFContactors), 0, 1, -0.3, 0, 0, 0, 0, .8
  41. LeftFlipper.RotateToEnd
  42. Flipper1.RotateToEnd
  43. Else
  44. PlaySound SoundFX("fx_flipperdown",DOFContactors), 0, 1, -0.3, 0, 0, 0, 0, .8
  45. LeftFlipper.RotateToStart
  46. Flipper1.RotateToStart
  47. LeftFlipper.TimerEnabled = 1
  48. LeftFlipper.TimerInterval = 16
  49. LeftFlipper.return = returnspeed * 0.5
  50. End If
  51. End Sub
  52.  
  53. Sub SolRFlipper(Enabled)
  54. If Enabled Then
  55. PlaySound SoundFX("fx_flipper1",DOFContactors), 0, 1, 0.3, 0, 0, 0, 0, .8
  56. RightFlipper.RotateToEnd
  57. Else
  58. PlaySound SoundFX("fx_flipperdown",DOFContactors), 0, 1, 0.3, 0, 0, 0, 0, .8
  59. RightFlipper.RotateToStart
  60. RightFlipper.TimerEnabled = 1
  61. RightFlipper.TimerInterval = 16
  62. RightFlipper.return = returnspeed * 0.5
  63. End If
  64. End Sub
  65.  
  66.  
  67. '****************************
  68. ' So to explain the above, both the left flipper and right flipper are now calling the same sound "Fx_flipper1"
  69. ' You can change that to "Fx_flipper2" if you prefered the other flipper sound.
  70. ' At the end of the Playsound line there are a bunch of numbers. In these I have added left/right balance (-0.3 & 0.3)
  71. ' I have also removed the pitch variable so that the sound does not change as you flip
  72. ' I have also added a fade to the front of the cab (.8)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement