12 replies to this topic

[shannon1]

File Name: Game Plan's Loch Ness Monster

File Submitter: shannon1

File Submitted: 23 Aug 2021

File Category: VPX/VPinMAME Recreations

Author(s): Shannon
Manufacturer: Gameplan
Year: 1985
ROM: Link to ROM
Permission to MOD?: Yes, with approval

I hope everyone enjoys this rare prototype from Gameplan!
 
This table would not have been possible without the help of two very talented creators and table builders who donated their time to help me get this table done!  
 
Bord- For taking my table redraw and using his amazing blender skills to build this table.
Loserman- For his amazing script building skills. He built this script without a ROM and added additional rules to make the ruleset even deeper! (see included)
 
Special thanks to
GTX Joe- for getting me started with his initial script
EalaDubhSidhe- for his VP8 table(Most of the sounds came from his table, so I have always been interested if they were from the original table/rom?)
 
This is for personal use only. DO NOT include this in any pre-packaged ZIP of tables for commercial/non-commercial products. You know who you are. Just enjoy what is provided for FREE instead of trying to earn a buck from our community's work.
Any mods, require permissions from ALL of the above folks listed as primary contributors for this table.

Click here to download this file

[wiesshund]

Wow, got 3 of this table this year.
Cant have enough loch ness monsters, so lets make it 4

[fourbanks]

thank you. can you please correct the link to the rom 

thanks 

[HWurst]

thank you. can you please correct the link to the rom 

thanks 

Did you even look at the link or tried the table? 

It needs no ROM...it is even written in the description.

Edited by HWurst, 24 August 2021 - 10:19 AM.

[fourbanks]

 

thank you. can you please correct the link to the rom 

thanks 

Did you even look at the link or tried the table? 

It needs no ROM...it is even written in the description.

 

my apologies 

[HWurst]

Not needed. All good

Wasn't meant to be harsh..It's just that... anyway. Enjoy it - it is good 

[bolt]

Thanks for the table.

Edited by bolt, 24 August 2021 - 01:50 PM.

[fourbanks]

Not needed. All good

Wasn't meant to be harsh..It's just that... anyway. Enjoy it - it is good 

 

[Practicedummy]

Love the layout of this pin. I like the playfield design.

[wiesshund]

@Shannon1

 

Suggestion

 

Take nessie's lamp (lamp3) off the backglass, and move it to the table

 

Problem with it being on the backglass is, it does not align with the table if POV, resolution or orientation changes

[wiesshund]

Since you included ultraDMD, i changed it a little

i turned off the debug options, and changes the ultraDMD part of the script to the following

 

Not really needed as it does score in the backglass, but in case someone wants to use their DMD and maybe wants to redesign the backglass around that

 

 

(if one doesnt like RedOrange, pick another color)

 

Also, table needs a timer added named  uDMDScoreTimer as it appears to be missing from the table

' ****************************************************************
' Ultradmd support
' ****************************************************************

Dim DMDColor, DMDColorSelect, UseFullColor
Dim DMDPosition, DMDPosX, DMDPosY, DMDSize, DMDWidth, DMDHeight 
Dim UltraDMD
Sub LoadUltraDMD
UseFullColor = "False" '                           "True" / "False"
DMDColorSelect = "OrangeRed"            ' Rightclick on UDMD window to get full list of colours


DMDPosition = False                               ' Use Manual DMD Position, True / False
DMDPosX = 100                                   ' Position in Decimal
DMDPosY = 40                                     ' Position in Decimal

DMDSize = False                                     ' Use Manual DMD Size, True / False
DMDWidth = 512                                    ' Width in Decimal
DMDHeight = 128                                   ' Height in Decimal 

    Set UltraDMD = CreateObject("UltraDMD.DMDObject")
    UltraDMD.Init
	uDMDScoreTimer.Interval = UltraDMDUpdateTime
	uDMDScoreTimer.Enabled = 1
	uDMDScoreUpdate
End Sub

Sub uDMDScoreTimer_Timer
	uDMDScoreUpdate
End Sub

Sub uDMDScoreUpdate
	If UseUltraDMD = 1 Then
		If TestMode = 0 Then
			UltraDMD.DisplayScoreboard00 PlayersPlayingGame, CurrentPlayer, Score(1), Score(2), Score(3), Score(4), " ", "Ball " & Balls
		Else
			UltraDMD.DisplayScoreboard00 PlayersPlayingGame, CurrentPlayer, Score(1), Score(2), Score(3), Score(4), "DEBUG MODE" & ":BP:" & BallsOnPlayfield, "Ball " & Balls
		End If
	ElseIf UseUltraDMD = 2 Then
		If TestMode = 0 Then
			UltraDMD.DisplayScoreboard PlayersPlayingGame, CurrentPlayer, Score(1), Score(2), Score(3), Score(4), "Reactor Val:" & ReactorValue(CurrentPlayer), "Ball " & Balls
		Else
			UltraDMD.DisplayScoreboard PlayersPlayingGame, CurrentPlayer, Score(1), Score(2), Score(3), Score(4), "RV:" & ReactorValue(CurrentPlayer) & ":BP:" & BallsOnPlayfield, "Ball " & Balls
		End If
	End If
End Sub


Sub UDMD (toptext, bottomtext, utime)
	If UseUltraDMD > 0 Then UltraDMD.DisplayScene00Ex "", toptext, 8, 14, bottomtext, 8,14, 14, utime, 14
End Sub

GetDMDColor
Sub GetDMDColor
Dim WshShell,filecheck,directory
Set WshShell = CreateObject("WScript.Shell")
If DMDSize then
WshShell.RegWrite "HKCU\Software\UltraDMD\w",DMDWidth,"REG_DWORD"
WshShell.RegWrite "HKCU\Software\UltraDMD\h",DMDHeight,"REG_DWORD"
End if
If DMDPosition then
WshShell.RegWrite "HKCU\Software\UltraDMD\x",DMDPosX,"REG_DWORD"
WshShell.RegWrite "HKCU\Software\UltraDMD\y",DMDPosY,"REG_DWORD"
End if
WshShell.RegWrite "HKCU\Software\UltraDMD\fullcolor",UseFullColor,"REG_SZ"
WshShell.RegWrite "HKCU\Software\UltraDMD\color",DMDColorSelect,"REG_SZ"
End Sub

Edited by wiesshund, 26 August 2021 - 01:56 AM.

[cv2065]

For some reason this table never worked for me....Until now!  Not sure what was changed but what a great table. Thank you!

[wiesshund]

For some reason this table never worked for me....Until now!  Not sure what was changed but what a great table. Thank you!

You may be confusing this with another table?
Shannon1 just uploaded this

But yes it works great, i even put the DMD i found in the table script to use