6 replies to this topic

[roccodimarco]

File Name: Mach 2 Two

File Submitter: roccodimarco

File Submitted: 22 Jun 2018

File Category: VP 9.x B2S Cabinet Tables (B2S)

Author(s): roccodimarco
tab
Maior
tinyrodent
Manufacturer: Other - Pinball
Year: 1995
ROM: Link to ROM
Permission to MOD?: Yes, without approval

Spinball's Mach 2.0 Two.  While browsing vpforums out of boredom one day at work, I noticed this was only ever released on vp8, and after getting some help from xenonph I gave it a go and slowly rotated everything and re did the airplane.  I also created a basic backglass for this table since one was never created.  This is my first release of this table, my next goal is to work on the playfield lights.  There are not a lot of resources out for this table so I will have to make due with what I have.  Of course big thanks to TAB for his original recreation of this table!    
 


Wheel:
http://www.vpforums....&showfile=13584

Backglass:
http://www.vpforums....&showfile=13583

Click here to download this file

[roccodimarco]

If someone could take a look at this table and explain why I can't get credit to accept?  I can add credits via pinmame, but I can not get the game to accept credits when running through vp

[xenonph]

I found that if you press the credit keys in quick succession, it does add credits. (Few and far between!!) but does work eventually.

[xenonph]

I tried many things including editting spinball.vbs

 

Here what I found to work and what doesn't work.

 

If you add this line to the keydown sub it will accept coins and show credits moving, but only with the 3 key.

 

Sub Table1_KeyDown(ByVal KeyCode)
    If KeyCode=4 then Controller.Switch(swCoin1) = True
    If vpmKeyDown(KeyCode) Then Exit Sub
    Select Case KeyCode
        Case PlungerKey: Plunger.PullBack
        Case keyAdvance : Controller.Switch(swTestContactos) = 1
        Case keyHiScoreReset : Controller.Switch(swPuestaCero) = 1
    End Select
End Sub

 

While this method works great for the "3" key to insert coins, it doesn't work for the 4 and 5 keys for inserting coin.

So at least one coin insert is better than none.

Here is how I tried for all 3 coin insert keys, but it still only worked on the 3 key.

 

 

Sub Table1_KeyDown(ByVal KeyCode)
    If KeyCode=4 then Controller.Switch(swCoin1) = True
    If KeyCode=5 then Controller.Switch(swCoin2) = True
    If KeyCode=6 then Controller.Switch(swCoin3) = True
    If vpmKeyDown(KeyCode) Then Exit Sub
    Select Case KeyCode
        Case PlungerKey: Plunger.PullBack
        Case keyAdvance : Controller.Switch(swTestContactos) = 1
        Case keyHiScoreReset : Controller.Switch(swPuestaCero) = 1
    End Select
End Sub

 

This would not work for 4 and 5 key, no matter how I worded it.

 

So at least you can get 1 coin insert working with this script change...

 

Sub Table1_KeyDown(ByVal KeyCode)
    If KeyCode=4 then Controller.Switch(swCoin1) = True
    If vpmKeyDown(KeyCode) Then Exit Sub
    Select Case KeyCode
        Case PlungerKey: Plunger.PullBack
        Case keyAdvance : Controller.Switch(swTestContactos) = 1
        Case keyHiScoreReset : Controller.Switch(swPuestaCero) = 1
    End Select
End Sub

 

Hope this helps

[roccodimarco]

I tried many things including editting spinball.vbs
 
Here what I found to work and what doesn't work.
 
If you add this line to the keydown sub it will accept coins and show credits moving, but only with the 3 key.
 
Sub Table1_KeyDown(ByVal KeyCode)    If KeyCode=4 then Controller.Switch(swCoin1) = True
    If vpmKeyDown(KeyCode) Then Exit Sub
    Select Case KeyCode
        Case PlungerKey: Plunger.PullBack
        Case keyAdvance : Controller.Switch(swTestContactos) = 1
        Case keyHiScoreReset : Controller.Switch(swPuestaCero) = 1
    End Select
End Sub
 
While this method works great for the "3" key to insert coins, it doesn't work for the 4 and 5 keys for inserting coin.
So at least one coin insert is better than none.
Here is how I tried for all 3 coin insert keys, but it still only worked on the 3 key.
 
 
Sub Table1_KeyDown(ByVal KeyCode)    If KeyCode=4 then Controller.Switch(swCoin1) = True
    If KeyCode=5 then Controller.Switch(swCoin2) = True
    If KeyCode=6 then Controller.Switch(swCoin3) = True
    If vpmKeyDown(KeyCode) Then Exit Sub
    Select Case KeyCode
        Case PlungerKey: Plunger.PullBack
        Case keyAdvance : Controller.Switch(swTestContactos) = 1
        Case keyHiScoreReset : Controller.Switch(swPuestaCero) = 1
    End Select
End Sub
 
This would not work for 4 and 5 key, no matter how I worded it.
 
So at least you can get 1 coin insert working with this script change...
 
Sub Table1_KeyDown(ByVal KeyCode)    If KeyCode=4 then Controller.Switch(swCoin1) = True
    If vpmKeyDown(KeyCode) Then Exit Sub
    Select Case KeyCode
        Case PlungerKey: Plunger.PullBack
        Case keyAdvance : Controller.Switch(swTestContactos) = 1
        Case keyHiScoreReset : Controller.Switch(swPuestaCero) = 1
    End Select
End Sub
 
Hope this helps

This worked like a charm! I should have a new version uploaded tomorrow! Thanks again!

[STAT]

I gave it a try, because there is a DMD on this - and really missed this Table in my VP Collection.

For the Coins: also you can Change VPMKeys.vbs and the Coin Values to 6, then all Coins are at Key 5.

[djredick]

Any chance for a desktop version of this?  Would LOVE to upgrade the VP8 DT version I have!