Virtual SlugFest

admin — Thu, 14 Aug 2025 16:59:51 +0000

VPForums has tables for Visual Pinball X. I found a VPT file for my favourite table there, called Williams SlugFest, but it's outdated and the graphics are low resolution. I figured, I could update it to VPX format and upgrade the script and the graphics.

VPForums bietet Tabellen für Visual Pinball X. Dort habe ich eine VPT-Datei für meinen Lieblingstisch namens Williams SlugFest gefunden, aber sie ist veraltet und die Grafiken haben eine niedrige Auflösung. Ich dachte mir, ich könnte sie auf das VPX-Format aktualisieren und das Skript und die Grafiken verbessern.

VPForums ha tavoli per Visual Pinball X. Ho trovato un file VPT per il mio tavolo preferito, chiamato Williams SlugFest, ma è obsoleto e la grafica è a bassa risoluzione. Ho pensato che avrei potuto aggiornarlo al formato VPX e migliorare lo script e la grafica.

Sorry, your browser doesn't support embedded videos.

I reconstructed the graphics using vector graphics, AI for rescaling and photos from ebay.

Ich habe die Grafiken mithilfe von Vektorgrafiken, AI zum Skalieren und Fotos von eBay rekonstruiert.

Ho ricostruito la grafica utilizzando grafica vettoriale, intelligenza artificiale per il ridimensionamento e foto provenienti da eBay.

Then I updated the VBScript.

Dann habe ich das VBScript aktualisiert.

Quindi ho aggiornato il VBScript.

Copy to Clipboard

Option Explicit
Randomize
LoadVPM "01530000","WPC.VBS",3.1

' LoadVPM subroutine that initializes the VPinMAME controller and other essential elements
Sub LoadVPM(VPMver,VBSfile,VBSver)
	On Error Resume Next
		If ScriptEngineMajorVersion<5 Then MsgBox"VB Script Engine 5.0 or higher required"
		ExecuteGlobal GetTextFile(VBSfile)
		If Err Then MsgBox"Unable to open "&VBSfile&". Ensure that it is in the same folder as this table."&vbNewLine&Err.Description:Err.Clear
		Set Controller=CreateObject("VPinMAME.Controller")
		If Err Then MsgBox"Can't Load VPinMAME."&vbNewLine&Err.Description
		If VPMver>"" Then If Controller.Version<vpmver or err then msgbox ver required. if vpinmamedriverver vbsfile higher on error goto end sub const usesolenoids='1,UseLamps=1,UseSync=1,SSolenoidOn="SolOn",SSolenoidOff="SolOff",SFlipperOn="FlipperUp",SFlipperOff="FlipperDown",SCoin="Coin3"' define solenoid callback functions to handle activations solcallback m1 m2 m3 flasher20 flasher25 flasher26 m4 subroutine swinging bat activation solswingbat enabled flipper1.rotatetoend playsound flipper1.timerenabled="1" flipper timer return the starting position flipper1_timer flipper1.rotatetostart for magnetic switch setting of magnet solmagswitch players="2" magselect="NONE" mmagnet.x="500" mmagnet.y="1610" mmagnet.size="90" exit mmagnet.magneton="True" else cpuc="RND" triggering a field deactivation trigger5_hit ramp solramp wall4.isdropped="1" controller.switch fast pitch solpitchfast bstrough.balls wall8.isdropped="1" wall9.isdropped="0" bstrough.exitsol_on vpmtimer.pulsesw speed="3" similar subroutines medium solpitchmedium slow solpitchslow when specific is hit adjustment trigger3_hit activeball.vely>0 Then
		Wall9.IsDropped=1
		Wall8.IsDropped=0
		If Speed=3 Then
			ActiveBall.VelY=20
			Speed=0
		End If
		If Speed=2 Then
			ActiveBall.VelY=15
			Speed=0
		End If
		If Speed=1 Then
			ActiveBall.VelY=10
			Speed=0
		End If
	End If
End Sub

' Subroutine to handle card dispensing mechanism '
Sub SolCard(Enabled)
	If Enabled Then
		vpmTimer.PulseSw 28 'Unjam dispenser '
		Controller.Switch(23)=1'Yes there is a card there '
		CardCount=CardCount+1
		Cards=Cards+1
		If CardCount>15 Then
			CardCount=CardCount-1
		Else
			Timer1.Enabled=0
			Timer1.Enabled=1
		End If
		CardReel.SetValue CardCount
		If Cards>12 Then
			Controller.Switch(27)=1'Low Cards '
		Else
			Controller.Switch(27)=0
		End If
	Else
		Controller.Switch(23)=0
	End If
End Sub

' Timer subroutine for resetting card values '
Sub Timer1_Timer
	CardReel.SetValue 0
	Timer1.Enabled=0
End Sub

' Subroutine to set the display of elements on the controller '
Sub SetDisplayToElement(Element)
 	If Controller.Version<="01500000" Then
 		' forget it, version is to old '
 		Exit Sub
 	End If
  	Dim playerRect
 	playerRect=Controller.GetClientRect(GetPlayerHwnd)
 	Dim playerWidth, playerHeight
 	playerWidth=playerRect(2)-playerRect(0)
 	playerHeight=playerRect(3)-playerRect(1)
 	Dim Game
 	Set Game=Controller.Game
 	Dim x,y
  	x=Element.x*playerWidth/1000.0-1
 	y=Element.y*playerHeight/750.0-1
 	Game.Settings.SetDisplayPosition x,y,GetPlayerHwnd
 	Set Game=nothing
End Sub

' Subroutine to handle pausing and unpausing the table '
Sub Table1_Paused:Controller.Pause=True:End Sub
Sub Table1_unPaused:Controller.Pause=False:End Sub

' Initial variables and setup for the table '
Dim Location,bsTrough,mMagnet,mRamp,MagSelect,Speed,Cards,CardCount,RampPos,Players,CPUC
Location=500:MagSelect="NONE":Speed=0:Cards=0:CardCount=0:RampPos=0:Players=0:CPUC=0

' Table initialization subroutine '
Sub Table1_Init
	Wall9.IsDropped=1'Pitch Cover'
	On Error Resume Next
		Controller.Games("sf_l1").Settings.Value("cheat")=1
		Controller.GameName="sf_l1":If Err Then MsgBox"Can't start Game"&cGameName&vbNewLine&Err.Description:Exit Sub
		Controller.SplashInfoLine="Slugfest"
		Controller.HandleMechanics=0
		Controller.HandleKeyboard=0
		Controller.ShowDMDOnly=1 
		Controller.ShowFrame=0 
		Controller.ShowTitle=0
		'SetDisplayToElement TextBox1
		Controller.Run GetPlayerHwnd:If Err Then MsgBox Err.Description:Exit Sub
		Controller.DIP(0)=&H00
	On Error Goto 0
	vpmNudge.TiltSwitch=56:vpmNudge.Sensitivity=5:PinMAMETimer.Interval=PinMAMEInterval:PinMAMETimer.Enabled=1
	Controller.Switch(24)=1

Set bsTrough=New cvpmBallStack
    bsTrough.InitSw 0,0,0,0,0,0,0,0
	bsTrough.InitKick BallRelease,180,10
    bsTrough.InitExitSnd"Popper","SolOn"
    bsTrough.Balls=1

Set mMagnet=New cvpmMagnet
	mMagnet.InitMagnet Trigger4,3
	mMagnet.GrabCenter=0
	mMagnet.CreateEvents"mMagnet"

Set mRamp=New cvpmMech
	mRamp.Sol1=21
	mRamp.MType=vpmMechLinear+vpmMechCircle+vpmMechOneSol
	mRamp.Length=40
	mRamp.Steps=500
	mRamp.AddSw 55,0,20
	mRamp.AddSw 55,40,80
	mRamp.Callback=GetRef("UpdateRamp")
	mRamp.Start

Controller.Switch(54)=0
	Controller.Switch(22)=1
	vpmMapLights AllLights
	
	'CHANGES'
	LightUpdateTimer.Enabled = True
	
End Sub

' Subroutine to update the ramp position '
Sub UpdateRamp(aCurrPos,aSpeed,aLastPos)
	If aCurrPos=25 Then
		Wall4.IsDropped=1'Down'
		Wall10.IsDropped=1
		RampPos=0
	End If
	If aCurrPos=87 Then
		Wall4.IsDropped=0'Up'
		Wall10.IsDropped=0
		RampPos=1
	End If
End Sub

' Trigger for ramp hit '
Sub Trigger2_Hit
	If RampPos=1 And ActiveBall.VelY<-7 Then ActiveBall.VelZ=120
End Sub

' Displaying key help for the game '
ExtraKeyHelp=KeyName(StartGameKey)&vbTab&"1 Player Game"&vbNewLine&_
			KeyName(KeyFront)&vbTab&"2 Player Game"&vbNewLine&_
			KeyName(LeftFlipperKey)&vbTab&"Fastball"&vbNewLine&_
			KeyName(KeyUpperLeft)&vbTab&"Curveball"&vbNewLine&_
			KeyName(31)&vbTab&"Change Up"&vbNewLine&_
			KeyName(32)&vbTab&"Screwball"&vbNewLine&_
			KeyName(33)&vbTab&"Throw Out Runner"&vbNewLine&_
			KeyName(39)&vbTab&"Pinch Hit"&vbNewLine&_
			KeyName(RightFlipperKey)&vbTab&"Swing Bat"&vbNewLine&_
			KeyName(KeyUpperRight)&vbTab&"Steal Base"&vbNewLine&_
			KeyName(16)&vbTab&"Refill Cards"

' Subroutine to handle key down events (when a key is pressed) '
Sub Table1_KeyDown(ByVal KeyCode)
	If KeyCode=StartGameKey Then
		Controller.Switch(37)=1
		Players=1
	End If
	If KeyCode=KeyFront Then
		Controller.Switch(38)=1
		Players=2
	End If
	If KeyCode=LeftFlipperKey Then Controller.Switch(32)=1
	If KeyCode=KeyUpperLeft Then
		Controller.Switch(34)=1
		MagSelect="RIGHT"'Curve to right'
	End If
	If KeyCode=31 Then
		Controller.Switch(33)=1
		MagSelect="NONE"
	End If
	If KeyCode=32 Then
		Controller.Switch(35)=1
		MagSelect="LEFT"'Curve to left'
	End If
	If KeyCode=33 Then Controller.Switch(36)=1
	If KeyCode=39 Then Controller.Switch(31)=1
	If KeyCode=RightFlipperKey Then Controller.Switch(26)=1
	If KeyCode=KeyUpperRight Then Controller.Switch(25)=1
	If KeyCode=16 And Controller.Switch(27) Then'Refill Cards'
		Cards=0
		CardCount=0
		Controller.Switch(27)=0
		Timer1.Enabled=1
	End If
	If KeyDownHandler(KeyCode) Then Exit Sub
End Sub

' Subroutine to handle key up events (when a key is pressed) '
Sub Table1_KeyUp(ByVal KeyCode)
	If KeyCode=StartGameKey Then Controller.Switch(37)=0
	If KeyCode=KeyFront Then Controller.Switch(38)=0
	If KeyCode=LeftFlipperKey Then Controller.Switch(32)=0
	If KeyCode=KeyUpperLeft Then Controller.Switch(34)=0
	If KeyCode=31 Then Controller.Switch(33)=0
	If KeyCode=32 Then Controller.Switch(35)=0
	If KeyCode=33 Then Controller.Switch(36)=0
	If KeyCode=39 Then Controller.Switch(31)=0
	If KeyCode=RightFlipperKey Then Controller.Switch(26)=0
	If KeyCode=KeyUpperRight Then Controller.Switch(25)=0
	If KeyUpHandler(KeyCode) Then Exit Sub
End Sub

Sub Trigger1_Hit
	Location=ActiveBall.X
	If Location<177 Then
		vpmTimer.PulseSw 41
		Exit Sub
	End If
	If Location<308 Then
		vpmTimer.PulseSw 42
		Exit Sub
	End If
	If Location<437 Then
		vpmTimer.PulseSw 43
		Exit Sub
	End If
	If Location<557 Then
		vpmTimer.PulseSw 44
		Exit Sub
	End If
	If Location<674 Then
		vpmTimer.PulseSw 45
		Exit Sub
	End If
	If Location<802 Then
		vpmTimer.PulseSw 46
		Exit Sub
	End If
	vpmTimer.PulseSw 47
End Sub

' Subroutines for when different kickers (bumper-like mechanisms) hit '
Sub Kicker1_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker2_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker3_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker4_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker5_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker6_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker7_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker8_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker9_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker10_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker11_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker12_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker13_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker14_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker15_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker16_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker17_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub
Sub Kicker18_Hit:bsTrough.AddBall Me:KickerHit Me:End Sub

Sub Kicker19_Hit:Kicker19.DestroyBall:vpmTimer.PulseSwitch(61),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker20_Hit:Kicker20.DestroyBall:vpmTimer.PulseSwitch(61),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker21_Hit:Kicker21.DestroyBall:vpmTimer.PulseSwitch(61),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker22_Hit:Kicker22.DestroyBall:vpmTimer.PulseSwitch(61),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker23_Hit:Kicker23.DestroyBall:vpmTimer.PulseSwitch(61),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker24_Hit:Kicker24.DestroyBall:vpmTimer.PulseSwitch(61),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker25_Hit:Kicker25.DestroyBall:vpmTimer.PulseSwitch(62),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker26_Hit:Kicker26.DestroyBall:vpmTimer.PulseSwitch(62),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker27_Hit:Kicker27.DestroyBall:vpmTimer.PulseSwitch(62),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker28_Hit:Kicker28.DestroyBall:vpmTimer.PulseSwitch(62),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker29_Hit:Kicker29.DestroyBall:vpmTimer.PulseSwitch(62),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker30_Hit:Kicker30.DestroyBall:vpmTimer.PulseSwitch(62),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker31_Hit:Kicker31.DestroyBall:vpmTimer.PulseSwitch(63),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker32_Hit:Kicker32.DestroyBall:vpmTimer.PulseSwitch(63),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker33_Hit:Kicker33.DestroyBall:vpmTimer.PulseSwitch(63),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker34_Hit:Kicker34.DestroyBall:vpmTimer.PulseSwitch(63),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker35_Hit:Kicker35.DestroyBall:vpmTimer.PulseSwitch(63),100,"AddBackTrough":KickerHit Me:End Sub
Sub Kicker36_Hit:Kicker36.DestroyBall:vpmTimer.PulseSwitch(63),100,"AddBackTrough":KickerHit Me:End Sub
Sub AddBackTrough(swNo):vpmTimer.PulseSwitch(51),100,"AddTrough":End Sub
Sub AddTrough(swNo):bsTrough.AddBall 0:MagSelect="NONE":End Sub
Sub Drain_Hit:Drain.DestroyBall:vpmTimer.PulseSwitch(52),100,"AddTrough":End Sub

' Subroutines for when different spinners hit '
Sub Spinner1_Spin:SpinnerHit Me:End Sub
Sub Spinner2_Spin:SpinnerHit Me:End Sub
Sub Spinner3_Spin:SpinnerHit Me:End Sub
Sub Spinner4_Spin:SpinnerHit Me:End Sub
Sub Spinner5_Spin:SpinnerHit Me:End Sub
Sub Spinner6_Spin:SpinnerHit Me:End Sub
Sub Spinner7_Spin:SpinnerHit Me:End Sub

'CHANGES'

Sub KickerHit(Kicker)
	' PlaySound "test"
End Sub

Sub SpinnerHit(Spinner)
	' PlaySound "test"
	Refresh.State = 1
	Refresh.State = 0
End Sub

Sub LightUpdateTimer_Timer()
    UpdateAllLights
End Sub

Sub StartUpdateTimer()
    ' Create a timer that pulses every 16 milliseconds (approximately 60 FPS)
    vpmTimer.PulseSwitch 1, 16, "UpdateAllLights"
End Sub

Sub UpdateAllLights()
    Dim i
    For i = 0 To AllLights.Count - 1
        If AllLights(i).State Then
            AllLights(i).Image = "SFPlayfLa"
        Else
            AllLights(i).Image = "SFPlayf"
        End If
    Next
End Sub

' Function to change the light image
Sub ChangeLightImage(light, newImage)
    light.Image = newImage  ' Set the light's image to the new image
End Sub</vpmver>

The ROM file is named "sf_l1.zip". The table won't run without it, but I unfortunately can't share it.

Die ROM-Datei heißt „sf_l1.zip". Ohne sie funktioniert die Tabelle nicht, aber leider kann ich sie nicht weitergeben.

Il file ROM si chiama "sf_l1.zip". Il tavolo non funzionerà senza di esso, ma purtroppo non posso condividerlo.

Download VPX

GitHub Project

vb – Gary Michael Angelone Jr.

Virtual SlugFest