15 replies to this topic

[goldchicco]

File Name: Sir Lancelot (Peyper 1984)

File Submitter: goldchicco

File Submitted: 18 Dec 2020

File Category: VPX/VPinMAME Recreations

Author(s): Goldchicco
32assassin
mfuegemann
Manufacturer: Other - Pinball
Year: 1984
ROM: Link to ROM
Permission to MOD?: Yes, with approval

VPX table by: Goldchicco & 32assassin
 
vp9 table by: mfuegemann
 
Special Thanks to :
 
32assassin for helping me with this release and for sharing his passion, knowledge and time.
 
Movieguru for working on the images.
 
batch for the backdrop image .
 
This rare beauty has no plunger. The ball is launched directly from the drain using a third flipper, the ball is released by pressing the right flipper key (a plunger button key was added too for Your convenience).
 
Two knobs next to the flipper buttons that can be used to nudge the playfield without causing a Tilt. Its call ”El Movimiento”, this has been emulated by the MagnaSave keys.
 
.vbs file included in zip to use only if you are missing it in  the Scripts folder.
 
The table rules are included in the zip.
 
Hope you enjoy it and please leave constructive feedback or comments in the support topic and will try to make it better.
 
All Logos, Copyrights and Trademarks are property of their respective owners.
 
PROVIDED STRICTLY FOR PERSONAL / HOME USE AND NOT FOR COMMERCIAL SALE / RE-SALE OR DISTRIBUTION!
 
Permission to Mod: Yes with approval

Click here to download this file

[wiesshund]

Oh, this must go right beside Excalibur and Cavaleiro Negro

[fourbanks]

thank you. the rom however is not correct as the tables game info card is saying one of the sounds emulations is missing ? line 159 script is invalid 

thank you. the rom however is not correct as the tables game info card is saying one of the sounds emulations is missing ? line 159 script is invalid 

i presume we just delete that line ? 

Edited by fourbanks, 18 December 2020 - 09:36 PM.

[goldchicco]

@fourbanks

rom is correct, don't touch the script.

Use the .vbs file and place it in the Scripts folder

[wiesshund]

thank you. the rom however is not correct as the tables game info card is saying one of the sounds emulations is missing ? line 159 script is invalid 

thank you. the rom however is not correct as the tables game info card is saying one of the sounds emulations is missing ? line 159 script is invalid 

i presume we just delete that line ? 

 

the ROM is an incomplete dump
some sound is missing, namely all of the music, and no samples exist

You will have to set vpinmame to ignore CRC errors

NO COMPLETE DUMP KNOWN IN EXISTENCE

 

And you can not skip line 159
if you dont run the controller, the table wont work

 

1st run you have to launch the table
it wont play right due to no nvram
it will create nvram

exit table and relaunch and it will play

 

If table does not play perhaps your core scripts are out of date?

Easiest way to update them all is take the vpx 10.7 beta, and just rename the beta VPinballX.exe to VpinballX 10.7 beta.exe
then drop the entire zip contents over the top of your vpx install

@fourbanks

rom is correct, don't touch the script.

Use the .vbs file and place it in the Scripts folder

 

Respectfully, i would recommend not doing this

the vbs you included is older than the lancelot.vbs that comes with vpx, and is different.

 

Official VPX Lancelot.vbs

'Last Updated in VBS v3.50
'Based on Peyper.vbs, but different switches

Option Explicit
LoadCore
Private Sub LoadCore
	On Error Resume Next
	If VPBuildVersion < 0 Or Err Then
		Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") : Err.Clear
		ExecuteGlobal fso.OpenTextFile("core.vbs", 1).ReadAll    : If Err Then MsgBox "Can't open ""core.vbs""" : Exit Sub
		ExecuteGlobal fso.OpenTextFile("VPMKeys.vbs", 1).ReadAll : If Err Then MsgBox "Can't open ""vpmkeys.vbs""" : Exit Sub
	Else
		ExecuteGlobal GetTextFile("core.vbs")    : If Err Then MsgBox "Can't open ""core.vbs"""    : Exit Sub
		ExecuteGlobal GetTextFile("VPMKeys.vbs") : If Err Then MsgBox "Can't open ""vpmkeys.vbs""" : Exit Sub
	End If
End Sub

'-------------------------
' Peyper / Sonic Data
'-------------------------
' Flipper Solenoid
Const GameOnSolenoid = 17
' Cabinet switches
Const swStartButton  = 37 'ok
Const swCoin1        = 38 'ok
Const swCoin2        = 39 'ok
Const swCoin3        = 38 'avoid missing Coin Switch mappings
Const swTilt         = 36 'ok
'Const swSlamDoorHit  =
Const swLRFlip       = 82 'ok 34
Const swLLFlip       = 84 'ok 35

' Help Window
vpmSystemHelp = "Atari keys:" & vbNewLine &_
  vpmKeyName(keyInsertCoin1) & vbTab & "Insert Coin #1" & vbNewLine &_
  vpmKeyName(keyInsertCoin2) & vbTab & "Insert Coin #2" & vbNewLine &_
  vpmKeyName(keyInsertCoin3) & vbTab & "Insert Coin #3" & vbNewLine &_
  vpmKeyName(keySlamDoorHit) & vbTab & "Slam Tilt"

' Dip Switch / Options Menu
Private Sub peyperShowDips
	If Not IsObject(vpmDips) Then ' First time
		Set vpmDips = New cvpmDips
		With vpmDips
			.AddForm 200,300,"Peyper / Sonic switches"
			.AddFrame 0,0,80,"DIP switches",0,_
			  Array("Dip 0",&H00000800,"Dip 1",&H00000400,"Dip 2",&H00000200,"Dip 3",&H00000100,_
			        "Dip 4",32768,     "Dip 5",&H00004000,"Dip 6",&H00002000,"Dip 7",&H00001000,_
				"Dip 8",&H00000008,"Dip 9",&H00000004,"Dip10",&H00000002,"Dip11",&H00000001,_
			        "Dip12",&H00000080,"Dip13",&H00000040,"Dip14",&H00000020,"Dip15",&H00000010)
		End With
	End If
	vpmDips.ViewDips
End Sub
Set vpmShowDips = GetRef("peyperShowDips")
Private vpmDips

' Keyboard handlers
Function vpmKeyDown(ByVal keycode)
	On Error Resume Next
	vpmKeyDown = True ' Assume we handle the key
	With Controller
		Select Case keycode
			Case LeftFlipperKey  .Switch(swLLFlip) = True : vpmKeyDown = False :  vpmFlips.FlipL True : if keycode = keyStagedFlipperL then vpmFlips.FlipUL True
			Case RightFlipperKey .Switch(swLRFlip) = True : vpmKeyDown = False :  vpmFlips.FlipR True : if keycode = keyStagedFlipperR then vpmFlips.FlipUR True
			Case keyStagedFlipperL vpmFlips.FlipUL True
			Case keyStagedFlipperR vpmFlips.FlipUR True
			Case keyInsertCoin1  vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin1'" : Playsound SCoin
			Case keyInsertCoin2  vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin2'" : Playsound SCoin
			Case keyInsertCoin3  vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin3'" : Playsound SCoin
			Case StartGameKey    .Switch(swStartButton) = True
			Case keySlamDoorHit  .Switch(swSlamDoorHit) = True
			Case keyBangBack     vpmNudge.DoNudge   0, 6
			Case LeftTiltKey     vpmNudge.DoNudge  75, 2
			Case RightTiltKey    vpmNudge.DoNudge 285, 2
			Case CenterTiltKey   vpmNudge.DoNudge   0, 2
			Case keyVPMVolume    vpmVol
			Case Else            vpmKeyDown = False
		End Select
	End With
	On Error Goto 0
End Function

Function vpmKeyUp(ByVal keycode)
	On Error Resume Next
	vpmKeyUp = True ' Assume we handle the key
	With Controller
		Select Case keycode
			Case LeftFlipperKey  .Switch(swLLFlip) = False : vpmKeyUp = False :  vpmFlips.FlipL False : if keycode = keyStagedFlipperL then vpmFlips.FlipUL False
			Case RightFlipperKey .Switch(swLRFlip) = False : vpmKeyUp = False :  vpmFlips.FlipR False : if keycode = keyStagedFlipperR then vpmFlips.FlipUR False
			Case keyStagedFlipperL vpmFlips.FlipUL False
			Case keyStagedFlipperR vpmFlips.FlipUR False
			Case StartGameKey    .Switch(swStartButton) = False
			Case keySlamDoorHit  .Switch(swSlamDoorHit) = False
			Case keyShowOpts     .Pause = True : .ShowOptsDialog GetPlayerHWnd : .Pause = False
			Case keyShowKeys     .Pause = True : vpmShowHelp : .Pause = False
			Case keyAddBall      .Pause = True : vpmAddBall  : .Pause = False
			Case keyShowDips     If IsObject(vpmShowDips) Then .Pause = True : vpmShowDips : .Pause = False
			Case keyReset        .Stop : BeginModal : .Run : vpmTimer.Reset : EndModal
			Case keyFrame        .LockDisplay = Not .LockDisplay
			Case keyDoubleSize   .DoubleSize  = Not .DoubleSize
			Case Else            vpmKeyUp = False
		End Select
	End With
	On Error Goto 0
End Function

Lancelot.vbs from zip file

'Last Updated in VBS v3.36
'First Added in VBS v3.20

Option Explicit
LoadCore
Private Sub LoadCore
	On Error Resume Next
	If VPBuildVersion < 0 Or Err Then
		Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") : Err.Clear
		ExecuteGlobal fso.OpenTextFile("core.vbs", 1).ReadAll    : If Err Then MsgBox "Can't open ""core.vbs""" : Exit Sub
		ExecuteGlobal fso.OpenTextFile("VPMKeys.vbs", 1).ReadAll : If Err Then MsgBox "Can't open ""vpmkeys.vbs""" : Exit Sub
	Else
		ExecuteGlobal GetTextFile("core.vbs")    : If Err Then MsgBox "Can't open ""core.vbs"""    : Exit Sub
		ExecuteGlobal GetTextFile("VPMKeys.vbs") : If Err Then MsgBox "Can't open ""vpmkeys.vbs""" : Exit Sub
	End If
End Sub

'-------------------------
' Peyper / Sonic Data
'-------------------------
' Cabinet switches
Const swStartButton    = 37 'ok
Const swCoin1          = 38 'ok
Const swCoin2          = 39 'ok
Const swCoin3          = 38 'avoid missing Coin Switch mappings 
Const swTilt           = 36 'ok 
'Const swSlamDoorHit    = 
Const swLRFlip         = 82 'ok 34
Const swLLFlip         = 84 'ok 35

' Help Window
vpmSystemHelp = "Atari keys:" & vbNewLine &_
  vpmKeyName(keyInsertCoin1) & vbTab & "Insert Coin #1"   & vbNewLine &_
  vpmKeyName(keyInsertCoin2) & vbTab & "Insert Coin #2"   & vbNewLine &_
  vpmKeyName(keyInsertCoin3) & vbTab & "Insert Coin #3"   & vbNewLine &_
  vpmKeyName(keySlamDoorHit) & vbTab & "Slam Tilt"

' Dip Switch / Options Menu
Private Sub peyperShowDips
	If Not IsObject(vpmDips) Then ' First time
		Set vpmDips = New cvpmDips
		With vpmDips
			.AddForm 200,300,"Peyper / Sonic switches"
			.AddFrame 0,0,80,"DIP switches",0,_
			  Array("Dip 0",&H00000800,"Dip 1",&H00000400,"Dip 2",&H00000200,"Dip 3",&H00000100,_
			        "Dip 4",32768,     "Dip 5",&H00004000,"Dip 6",&H00002000,"Dip 7",&H00001000,_
				"Dip 8",&H00000008,"Dip 9",&H00000004,"Dip10",&H00000002,"Dip11",&H00000001,_
			        "Dip12",&H00000080,"Dip13",&H00000040,"Dip14",&H00000020,"Dip15",&H00000010)
		End With
	End If
	vpmDips.ViewDips
End Sub
Set vpmShowDips = GetRef("peyperShowDips")
Private vpmDips

' Keyboard handlers
Function vpmKeyDown(ByVal keycode)
	On Error Resume Next
	vpmKeyDown = True ' Assume we handle the key
	With Controller
		If keycode = RightFlipperKey Then .Switch(swLRFlip) = True
		If keycode = LeftFlipperKey  Then .Switch(swLLFlip) = True
		Select Case keycode
			Case keyInsertCoin1  vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin1'" : Playsound SCoin
			Case keyInsertCoin2  vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin2'" : Playsound SCoin
			Case keyInsertCoin3  vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin3'" : Playsound SCoin
			Case StartGameKey    .Switch(swStartButton) = True
			Case keySlamDoorHit  .Switch(swSlamDoorHit) = True
			Case keyBangBack     vpmNudge.DoNudge   0, 6
			Case LeftTiltKey     vpmNudge.DoNudge  75, 2
			Case RightTiltKey    vpmNudge.DoNudge 285, 2
			Case CenterTiltKey   vpmNudge.DoNudge   0, 2
			Case keyVPMVolume    vpmVol
			Case Else            vpmKeyDown = False
		End Select
	End With
	On Error Goto 0
End Function

Function vpmKeyUp(ByVal keycode)
	On Error Resume Next
	vpmKeyUp = True ' Assume we handle the key
	With Controller
		If keycode = RightFlipperKey Then .Switch(swLRFlip) = False
		If keycode = LeftFlipperKey  Then .Switch(swLLFlip) = False
		Select Case keycode
			Case StartGameKey    .Switch(swStartButton) = False
			Case keySlamDoorHit  .Switch(swSlamDoorHit) = False
			Case keyShowOpts     .Pause = True : .ShowOptsDialog GetPlayerHWnd : .Pause = False
			Case keyShowKeys     .Pause = True : vpmShowHelp : .Pause = False
			Case keyAddBall      .Pause = True : vpmAddBall  : .Pause = False
			Case keyShowDips     If IsObject(vpmShowDips) Then .Pause = True : vpmShowDips : .Pause = False
			Case keyReset        .Stop : BeginModal : .Run : vpmTimer.Reset : EndModal
			Case keyFrame        .LockDisplay = Not .LockDisplay
			Case keyDoubleSize   .DoubleSize  = Not .DoubleSize
			Case Else            vpmKeyUp = False
		End Select
	End With
End Function

Edited by wiesshund, 18 December 2020 - 10:36 PM.

[fourbanks]

@fourbanks

rom is correct, don't touch the script.

Use the .vbs file and place it in the Scripts folder

i have done that but the error is still showing ? rom tmp19640.rom is missing 

Edited by fourbanks, 18 December 2020 - 10:41 PM.

[wiesshund]

PS

 

Yes, that is Godzilla you hear

that is how the table was, someone at Peyper had some fun me thinks.

See if you can identify the other samples

 

@fourbanks

rom is correct, don't touch the script.

Use the .vbs file and place it in the Scripts folder

i have done that but the error is still showing ? rom tmp19640.rom is missing 

 

 

Did you hit F1 and set pinmame to ignore crc errors?
the music files do not exist in any known dump, you have to ignore the crc check

 

lancelot: tmp91640.rom   16384 bytes NOT FOUND

 

that is the music which is stored in the audiocpu area, which does not exist at this time, has never been dumped

Edited by wiesshund, 18 December 2020 - 10:50 PM.

[fourbanks]

PS

 

Yes, that is Godzilla you hear

that is how the table was, someone at Peyper had some fun me thinks.

See if you can identify the other samples

 

@fourbanks

rom is correct, don't touch the script.

Use the .vbs file and place it in the Scripts folder

i have done that but the error is still showing ? rom tmp19640.rom is missing 

 

 

Did you hit F1 and set pinmame to ignore crc errors?
the music files do not exist in any known dump, you have to ignore the crc check

yes I've done that the table plays fine just have to ignore the error message about the sound 

[wiesshund]

 

PS

 

Yes, that is Godzilla you hear

that is how the table was, someone at Peyper had some fun me thinks.

See if you can identify the other samples

 

@fourbanks

rom is correct, don't touch the script.

Use the .vbs file and place it in the Scripts folder

i have done that but the error is still showing ? rom tmp19640.rom is missing 

 

 

Did you hit F1 and set pinmame to ignore crc errors?
the music files do not exist in any known dump, you have to ignore the crc check

yes I've done that the table plays fine just have to ignore the error message about the sound 

 

you forget to check Cabinet Mode?

that is the equivalent of "DOnt show me damned notice messages"

[fourbanks]

 

 

PS

 

Yes, that is Godzilla you hear

that is how the table was, someone at Peyper had some fun me thinks.

See if you can identify the other samples

 

@fourbanks

rom is correct, don't touch the script.

Use the .vbs file and place it in the Scripts folder

i have done that but the error is still showing ? rom tmp19640.rom is missing 

 

 

Did you hit F1 and set pinmame to ignore crc errors?
the music files do not exist in any known dump, you have to ignore the crc check

yes I've done that the table plays fine just have to ignore the error message about the sound 

 

you forget to check Cabinet Mode?

that is the equivalent of "DOnt show me damned notice messages"

 

thank you. indeed i forgot about that check Cabinet Mode

[goldchicco]

@wiesshund

the vbs use id perfectly explained in the release note:

 

.vbs file included in zip to use only if you are missing it in the Scripts folder.

[bolt]

Thank you very much for this nice table.

[Rajo Joey]

Here are my two wheels for this table.

As always you find my wheels in my MEGA-account or in the PinUp Popper media-database:
https://mega.nz/#F!I...Ji5hwuYxL6CvQIg

Some pictures must be converted to a smaller size for uploading. So don't load the pictures here.

Gesendet von meinem ONEPLUS A3010 mit Tapatalk

[STAT]

Thanks Sir's goldchicco & 32assassin … thanks wiesshund for the Checks !

Edited by STAT, 19 December 2020 - 10:43 AM.

[Thalamus]

I agree with weisshund on supplying a outdated *.vbs - it is not a good idea. What do you think the lazy and stupid end user will do ? Extract table and vbs to the tables folder without reading the readme. NEVER supply the end user with a vbs that has functions already in met from VP. I've seen you do this twice already. Exception exists, ie for Kiss Tribute that has very specific rules for that table alone, but you can count those tables on one hand, if not on one finger.

 

If there is functions that needs to be with a machine. The right thing to do is to make sure that it gets included into standard VP. That way it will be maintained and updated under version control.

Edited by Thalamus, 20 December 2020 - 08:15 AM.

[goldchicco]

If people don't read is not my fault at the end of the day, all became teachers as soon as a table is released