26 replies to this topic

[Cue777]

OK, thanks. I can live with the scoring on the backglass, just would like the DMD to work since I have one

[BorgDog]

ah, sorry misunderstood the question, real dmd I don't think works with this era of alpha numeric.  do any of the an machines work with a real dmd?  diner, taxi, cyclone etc?

[Cue777]

ah, sorry misunderstood the question, real dmd I don't think works with this era of alpha numeric.  do any of the an machines work with a real dmd?  diner, taxi, cyclone etc?

 

 

Yes my dmd works with those games.

[Slydog43]

Great table, so I'm trying to get both hollywood heat and this to be playable with separate roms on my system.  My first thought was to just copy the roms files and nvram files when starting table.  This is what I got so far

 

 

'----------------------------------------------------------------------------------------------

'SDS Routine to copy ROM files For 2 tables that Use different roms without support in VPinMAME

'

' Copy rom file hlywoodh.zip to hlywoodh-orig.zip under vpinmame\roms

' Copy modified bubba rom file to hlywood-bubba.zip under vpinmame\roms

'

' Still need to copy nvram files, but having trouble with basic roms right now ???

'----------------------------------------------------------------------------------------------

 

call myRenameRoms("hlywoodh-bubba.zip", "hlywoodh.zip")

'call myRenameRoms("hlywoodh-orig.zip", "hlywoodh.zip")

'-------------------------------------------

 

Sub myRenameRoms(mySourceFile, myDestFile)

Dim myRomPath

Dim myfs

Set myfs = CreateObject("Scripting.FileSystemObject")

 

myRomPath = myRegKeyRead("HKCU\Software\Freeware\Visual PinMame\globals\rompath")

 

call myDeleteFile(myRomPath & "\" & myDestFile)

call myfs.CopyFile(myRomPath & "\" & mySourceFile, myRomPath & "\" & myDestFile)

'Set myfs = Nothing

End Sub

 

Sub myDeleteFile(myFileName) 'myFileName should contain full path also

Dim myfs

Set myfs = CreateObject("Scripting.FileSystemObject")

 

With myfs

If .FileExists(myFileName) Then

.DeleteFile myFileName

End If

End With

'Set myfs = Nothing

End Sub

 

Function myRegKeyRead(RegKey)

Dim myWS

 

On Error Resume Next

Set myWS = CreateObject("WScript.Shell")

myRegKeyRead = myWS.RegRead(RegKey)

End Function

 

'----------------------------------------------------------------------------------------------

 

 

just place near top of table script.  You have to 

 

 Copy rom file hlywoodh.zip to hlywoodh-orig.zip under vpinmame\roms

 Copy modified bubba rom file to hlywood-bubba.zip under vpinmame\roms

 

and I thought it would work, but I get an error message when switching roms the first time.  

 

 

Any ideas on why this doesn't work.  (maybe have to remove entries in registry???)

 

 

Thanks

[Thalamus]

Cool idea. But, well - being lazy I'm waiting for BD to finish his roms so Carny can make them "official" and problem is solved

 

You can kind of answer you own question though. Rename the old hive to something else ... like <orig>.bak - new should be created.

Edited by Thalamus, 05 December 2017 - 07:00 PM.

[freebird1963]

When I start this table the ball moves slowly into the plunger, I mean molasses artic snow in December slow. Shooting it only moves a inch and falls back.

I looked in the script but no real clue what I'm looking to change,edit,remove or add.

Hope someone has an idea like to play it looks fun.

[mrjcrane]

Ok Haunt, you got me thinking ,,, I nice companion table to this would be "Redneck Rampage" .... a VP table that nobody has tackled to my knowledge .... just an idea.. I'm going to snoop around a little.