https://drive.google...iew?usp=sharing Fixed #2.
Correct way on the flippers. Basement and upstairs works at the same time. Play field works alone. Upstairs works alone. Fixed #2 and final.
I would’ve done this quicker earlier but I needed to rest.
This is the way the flippers works. I watched two videos and both got the same flippers working order.
The upstairs flippers won't work. I don't know why it not working for me. Anyway I set it up better. Flippers in the right order now.
NO I'm not using this. Cheating. lol
'''Flipper Key Mod
'1 = Standard flipper buttons (normal mail and lower and manga for upper)
'2 = LazyMan flippers (only normal button for all flippers)
FlipperKeyMod = 2
By the way. I didn't fix the ball from getting stuck in the basement. I couldn't see very well. So much stuff.
'Fixed here.========================================================================= I didn't remove anything from his script. I just marked these out and then copy and paste. Added my fixed in on the copy.
''''''''''''''''''''''''''''''''
'' Flippers
''''''''''''''''''''''''''''''''
'Sub SolLFlipper(Enabled)
' If Enabled Then
' If Controller.Lamp(17) Then
' PlaySoundAt SoundFX("FlipperUpLeft",DOFFlippers),FlipperLL
' FlipperLL.RotateToEnd
' Else
' PlaySoundAt SoundFX("FlipperUpLeft",DOFFlippers),LeftFlipper
' LeftFlipper.RotateToEnd
' LeftFlipper2.RotateToEnd
' If FlipperKeyMod = 2 then
' FlipperUL.RotateToEnd:PlaySoundAt SoundFX("FlipperUpLeft",DOFFlippers),FlipperUL
' End If
' End If
' Else
' PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),LeftFlipper
' LeftFlipper.RotateToStart
' LeftFlipper2.RotateToStart
' PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),FlipperLL
' FlipperLL.RotateToStart
' If FlipperKeyMod = 2 then
' FlipperUL.RotateToStart:PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),FlipperUL
' End If
' End If
'End Sub
'Sub SolRFlipper(Enabled)
' If Enabled Then
' If Controller.Lamp(17) Then
' PlaySoundAt SoundFX("FlipperUpRight",DOFFlippers),FlipperLR
' FlipperLR.RotateToEnd
' Else
' PlaySoundAt SoundFX("FlipperUpRight",DOFFlippers),RightFlipper
' RightFlipper.RotateToEnd
' RightFlipper2.RotateToEnd
' If FlipperKeyMod = 2 then
' FlipperUR.RotateToEnd:PlaySoundAt SoundFX("FlipperUpRight",DOFFlippers),FlipperUR
' End If
' End If
' Else
' PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),RightFlipper
' RightFlipper.RotateToStart
' RightFlipper2.RotateToStart
' PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),FlipperLR
' FlipperLR.RotateToStart
' If FlipperKeyMod = 2 then
' FlipperUR.RotateToStart:PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),FlipperUR
' End If
' End If
'End Sub
Sub SolLFlipper(Enabled)
If Enabled Then
If Controller.Lamp(17) Then
PlaySoundAt SoundFX("FlipperUpLeft",DOFFlippers),FlipperLL
FlipperLL.RotateToEnd
FlipperUL.RotateToEnd:PlaySoundAt SoundFX("FlipperUpLeft",DOFFlippers),FlipperUL
Else
If UpperPlayfieldLight.State = 0 Then
PlaySoundAt SoundFX("FlipperUpLeft",DOFFlippers),LeftFlipper
LeftFlipper.RotateToEnd
LeftFlipper2.RotateToEnd
End If
If UpperPlayfieldLight.State = 1 Then
FlipperUL.RotateToEnd:PlaySoundAt SoundFX("FlipperUpLeft",DOFFlippers),FlipperUL
End If
End If
Else
PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),LeftFlipper
LeftFlipper.RotateToStart
LeftFlipper2.RotateToStart
PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),FlipperLL
FlipperLL.RotateToStart
FlipperUL.RotateToStart:PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),FlipperUL
End If
End Sub
Sub SolRFlipper(Enabled)
If Enabled Then
If Controller.Lamp(17) Then
PlaySoundAt SoundFX("FlipperUpRight",DOFFlippers),FlipperLR
FlipperLR.RotateToEnd
FlipperUR.RotateToEnd:PlaySoundAt SoundFX("FlipperUpRight",DOFFlippers),FlipperUR
Else
If UpperPlayfieldLight.State = 0 Then
PlaySoundAt SoundFX("FlipperUpRight",DOFFlippers),RightFlipper
RightFlipper.RotateToEnd
RightFlipper2.RotateToEnd
End If
If UpperPlayfieldLight.State = 1 then
FlipperUR.RotateToEnd:PlaySoundAt SoundFX("FlipperUpRight",DOFFlippers),FlipperUR
End If
End If
Else
PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),RightFlipper
RightFlipper.RotateToStart
RightFlipper2.RotateToStart
PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),FlipperLR
FlipperLR.RotateToStart
FlipperUR.RotateToStart:PlaySoundAt SoundFX("Flipper_Down",DOFFlippers),FlipperUR
End If
End Sub
Sub UpperPlayfieldTrigger_Hit()
UpperPlayfieldLight.State = 1
End Sub
Sub UpperPlayfieldTrigger_UnHit()
UpperPlayfieldLight.State = 0
End Sub
Edited by Mitchell, 28 November 2020 - 11:19 PM.



Top



















are all trademarks of VPFORUMS.