Jump to content



Photo
* * * * * 4 votes

Lockdown Bar Fire Button support


  • Please log in to reply
148 replies to this topic

#141 Bushav

Bushav

    Enthusiast

  • Members
  • PipPipPip
  • 200 posts

  • Flag: United States of America

  • Favorite Pinball: AC/DC

Posted 20 June 2024 - 01:36 PM

For VPW's Johnny Mnemonic version 1.1 you will need to modify lines 220 and 244 by adding "or keycode = lockbarkey" to both lines.


Edited by Bushav, 20 June 2024 - 01:37 PM.


#142 Bushav

Bushav

    Enthusiast

  • Members
  • PipPipPip
  • 200 posts

  • Flag: United States of America

  • Favorite Pinball: AC/DC

Posted 15 August 2024 - 04:33 PM

For Pilrates Life modify line 766

 

'LUT controls & Canon control
     If CanonActive Then If keycode = PlungerKey Then CanonL1Fire
     If CanonActive Then If keycode = LockBarKey Then CanonL1Fire


#143 bsl1970

bsl1970

    Hobbyist

  • Silver Supporter
  • 38 posts

  • Flag: United States of America

  • Favorite Pinball: Tron LE

Posted 19 August 2024 - 08:31 PM

super late to the party... but this thread was super helpful.  Are there any more updates / tables to mod scripts for my fire button?  Thx all.



#144 Bushav

Bushav

    Enthusiast

  • Members
  • PipPipPip
  • 200 posts

  • Flag: United States of America

  • Favorite Pinball: AC/DC

Posted 09 September 2024 - 12:11 PM

For VPW's Goldeneye edit the following lines

 

line 390

If KeyCode=PlungerKey or keycode=lockbarkey Then Controller.Switch(9)=1 ': SoundPlungerPull()

 

line 412

If KeyCode=PlungerKey or keycode=lockbarkey Then Controller.Switch(9)=0 ': SoundPlungerReleaseBall()


Edited by Bushav, 09 September 2024 - 12:17 PM.


#145 goodtwist

goodtwist

    Hobbyist

  • Platinum Supporter
  • 10 posts

  • Flag: United States of America

  • Favorite Pinball: The one I'm playing at the moment.

Posted 27 September 2024 - 04:36 PM

 

For Die Hard Trilogy (VPW) you have to just duplicate the PlungerKey

 

keydown

If keycode = LockBarKey Then 
            If bBallInPlungerLane=True Then DOF 122,DOFPulse

            If CatchSkillShot = True Then
                SkillShotReceived
            End If

            'Plunger.Pullback 
            bAutoPlunger = True
            autoplungerdelay.interval = 300
            autoplungerdelay.enabled = True
'            PlungerIM.Strength = 55 : PlungerIM.AutoFire 
 End If

 

keyup

    If keycode = LockBarKey and VRRoom =1 Then             'VR Callout
        PinCab_GunTrigger.y = PinCab_GunTrigger.y - 9 
        PinCab_GunTrigger.z = 0
    end If

 

Dont even have to duplicate

 

If keycode = plungerkey or lockbarkey 

 

I did the Die Hard work using "Or keycode = LockBarKey". I'm adding here so I can be lazy and copy paste it later. ; ) Also, I'm adding a bit extra so we have something to search for.

 

In sub KeyDown Line 1925 :

Sub Table1_KeyDown(ByVal keycode)
     
    If keycode = PlungerKey and VRRoom = 1 or keycode = LockBarKey and VRRoom = 1 Then PinCab_GunTrigger.y = PinCab_GunTrigger.y + 9: PinCab_GunTrigger.z = 3         'VR Callout

and  line 2025

  If keycode = PlungerKey or keycode = LockBarKey Then
            If bBallInPlungerLane=True Then DOF 122,DOFPulse

In sub KeyUp line 2089:

Sub Table1_KeyUp(ByVal keycode)

    If keycode = PlungerKey and VRRoom = 1 Or keycode = LockBarKey and VRRoom = 1 Then             'VR Callout

In  Sub EnterHighScoreKey line 2607 :

If keycode = PlungerKey Or keycode = StartGameKey Or keycode = LockBarKey Then

 


 

  

 



#146 goodtwist

goodtwist

    Hobbyist

  • Platinum Supporter
  • 10 posts

  • Flag: United States of America

  • Favorite Pinball: The one I'm playing at the moment.

Posted 28 September 2024 - 12:04 PM

It was pointed out to me that a better way to do line 1925 might be this:

If VRRoom = 1 And (keycode = PlungerKey Or keycode = LockBarKey) Then

 



#147 monoculero

monoculero

    Neophyte

  • Members
  • Pip
  • 4 posts

  • Flag: Spain

  • Favorite Pinball: White water

  • 360 Gamer Tag: feromOnO

Posted 22 January 2025 - 02:43 PM

I've done this changes to the table ACD/DC from VPW.
 
Lines 397 and 398:
If KeyCode = PlungerKey OR KeyCode = LockbarKey Then Plunger.Pullback: SoundPlungerPull() :Controller.Switch(64)=1 'FIRE Button, mapped to plunger
If KeyCode = RightMagnaSave Then PushButton_002.Z =PushButton_002.Z -6 :PushButton_001.Z =PushButton_001.Z -6
 
Lines 417 abd 418
If KeyCode = PlungerKey OR KeyCode = LockbarKey Then Controller.Switch(64)=0 :Plunger.Fire: StopSound "fx_PlungerPull":PlaySoundAt "fx_Plunger",Plunger 'FIRE Button, mapped to plunger
If KeyCode = RightMagnaSave Then  PushButton_002.Z =PushButton_002.Z +6


#148 twistedfuse

twistedfuse

    Neophyte

  • Members
  • Pip
  • 1 posts

  • Flag: Australia

  • Favorite Pinball: Tee'd Off

Posted 27 October 2025 - 11:14 AM

SPONGEBOB (VPW)

 

Kids couldnt push plunger to launch and with no actual launch button needed to add fire button. I Only changed the Std Callout though as i dont use VR but changed Lines 1001-1007 and replaced with:

 

'=== Added Fire button as option to Launch Ball ===
If keycode = PlungerKey OR keycode = LockBarKey And Plungerwait1 < Frame And BallInLane > 0 Then
DOf 123,2
If ssREADY < 1 Then plungerwait1 = frame + 70
If DoOrDieMode = 1 Then Doordiemode = 2 : DOF 133,0
If DoOrDieMode = 3 Then Doordiemode = 4 : DOF 133,1 : CurrentBall = 1 : InlaneEB(CurrentPlayer) = 5
If ssREADY = 1 And SkillShot = 1 Then ssREADY = 0 : SkillShot = 0 : Auto_Plunger : playtime = -2

End If 



#149 Thalamus

Thalamus

    Pinball Wizard

  • Platinum Supporter
  • 4,977 posts

  • Flag: Norway

  • Favorite Pinball: GOT, Alien Star, LOTR, TOM

Posted 29 October 2025 - 09:44 AM

I would not mind taking PR for any script - it has to be more easy to keep one copy of a script under version control and let people just download the changed one(s) ?

https://github.com/s...pxtable_scripts


From now on. I won't help anyone here at VPF. Please ask Noah why that is.