Reply To: Black Hole (Gottlieb 1981)

#56522
Arngrim
Participant
    @arngrim

    sorry i was in pincab maintenance mode this week-end, i replaced my shaker

    the updates

    Sub Bumper1_Hit:vpmTimer.PulseSw(6):bump1 = 1:PlaySound SoundFX(“DR BumperL”,DOFContactors):DOF 101, DOFPulse:End Sub
    Sub Bumper2_Hit:vpmTimer.PulseSw(6):bump2 = 1:PlaySound SoundFX(“Bumper”,DOFContactors):DOF 102, DOFPulse:End Sub
    Sub Bumper3_Hit:vpmTimer.PulseSw(6):bump3 = 1:PlaySound SoundFX(“DR BumperR”,DOFContactors):DOF 103, DOFPulse:End Sub
    Sub Bumper4_Hit:vpmTimer.PulseSw(6):bump4 = 1:PlaySound SoundFX(“DR BumperL”,DOFContactors):DOF 104, DOFPulse:End Sub
    Sub Bumper5_Hit:vpmTimer.PulseSw(71):bump5 = 1:PlaySound SoundFX(“DR BumperL”,DOFContactors):DOF 105, DOFPulse:End Sub
    Sub Bumper6_Hit:vpmTimer.PulseSw(71):bump6 = 1:PlaySound SoundFX(“DR BumperR”,DOFContactors):DOF 106, DOFPulse:End Sub

    Sub Sling1_slingshot:vpmTimer.PulseSw(34):PlaySound SoundFX(“slingshot2”,DOFContactors):Sling1a.visible = false:pSling1.TransZ = -8:Sling1b.visible = true:Sling1Step = 0:Me.TimerEnabled = 1:DOF 107, DOFPulse:End Sub

    Sub Sling2_slingshot:vpmTimer.PulseSw(34):PlaySound SoundFX(“slingshot1”,DOFContactors):Sling2a.visible = false:pSling2.TransZ = -8:Sling2b.visible = true:Sling2Step = 0:Me.TimerEnabled = 1:DOF 108, DOFPulse:End Sub

    and i added a dynamic rgb undercab effect based on the lightning of the lower playfield

    Sub SetLowerGIOn
    DOF 110, DOFOff
    If NightMod = 1 then
    LowerPlayfield2.imageA = “BlackHole_LPF_night_on”
    Else
    LowerPlayfield2.imageA = “BlackHole_LPF_day_on”
    End If
    pDT_LL70.image = “droptarget_Yellow”
    pDT_LL60.image = “droptarget_Yellow”
    pDT_LL50.image = “droptarget_Yellow”
    pDT_LL40.image = “droptarget_Yellow”
    pDT_LL61.image = “droptarget_White”
    pDT_LL51.image = “droptarget_White”
    pDT_LL41.image = “droptarget_White”
    LPFoverhead.state = 1
    End Sub
    Sub SetLowerGIOff
    DOF 110, DOFOn
    If NightMod = 1 then
    LowerPlayfield2.imageA = “BlackHole_LPF_night_off”
    Else
    LowerPlayfield2.imageA = “BlackHole_LPF_day_off”
    End If
    pDT_LL70.image = “droptarget_Yellow_off”
    pDT_LL60.image = “droptarget_Yellow_off”
    pDT_LL50.image = “droptarget_Yellow_off”
    pDT_LL40.image = “droptarget_Yellow_off”
    pDT_LL61.image = “droptarget_White_off”
    pDT_LL51.image = “droptarget_White_off”
    pDT_LL41.image = “droptarget_White_off”
    LPFoverhead.state = 0
    End Sub

    Cheers

    2 users thanked author for this post.

    ©2025 VPinBall.com

    Log in with your credentials

    Forgot your details?