13 replies to this topic

[32assassin]

File Name: Pharaoh (Williams 1981)

File Submitter: 32assassin

File Submitted: 28 Jan 2016

File Category: VPX/VPinMAME Recreations

Author(s): 32assassin
Manufacturer: Williams
Year: 1981
Permission to MOD?: Unspecified

Artwork by Francisco666
 
 
Complete table rebuild from the VP9 version.
 
Note that this table is missing two plastics,  the ones next to the flippers.
if anyone has access to them please scan them and send them to me.

Click here to download this file

[bolt]

Great, thank you.

[kruge99]

Wow!  One of the lesser liked Magna-Save tables is the first one to get a VPX recreation!  Way to go!

[vampirolatino2]

nice surprise, thanks!

[TNT2]

Fun table. Pretty unique for a 1981 machine. 

[Ben Logan]

Nice dual level build! Thanks.

[zany]

Looking good!
The flippers should be shorter though.

Edited by zany, 29 January 2016 - 08:52 AM.

[STAT]

Maybe you can grab Plastics from this: http://www.vpforums....s&showfile=2817

[deki]

Hi. I put VBS script 3.43.0 in place where my tables, but I have problem: object doesn't support this property or method a 'Flip1. Can you help me?

[allknowing2012]

Are you using the latest release of VP10 ?

[Outhere]

VP10

http://www.vpforums....982#entry330264

Edited by Outhere, 29 January 2016 - 06:59 PM.

[deki]

I have Visual Pinball X (Standalone EXE) 10.0.0

[deki]

YES!!! I solved problem. I install latest version VP10.1 beta. Many thanks!

[wrd1972]

32assassin,

Really loving this table. Thanks for the hard work.

 

I have found that the "magnasave" functions are not quite working correctly, The left flipper activates the left magnasave and the right one does not work at all. I poked around and resolved it and if you replace the existing "plunger code" with the following revised code, the magnasaves will work correctly.

 

'**********************************************************************************************************
'Plunger code
'**********************************************************************************************************

Sub Table1_KeyDown(ByVal KeyCode)
    'If KeyCode=KeyUpperLeft Then Controller.Switch(9)=1
    'If KeyCode=KeyUpperRight Then Controller.Switch(10)=1
    If KeyDownHandler(keycode) Then Exit Sub
    If keycode = PlungerKey Then Plunger.Pullback:playsound"plungerpull"
    If keycode = LeftMagnaSave Then:Controller.Switch(9) = 1:End If
    If keycode = RightMagnaSave Then:Controller.Switch(10) = 1:End If
End Sub

Sub Table1_KeyUp(ByVal KeyCode)
    'If KeyCode=KeyUpperLeft Then Controller.Switch(9)=0
    'If KeyCode=KeyUpperRight Then Controller.Switch(10)=0
    If KeyUpHandler(keycode) Then Exit Sub
    If keycode = PlungerKey Then Plunger.Fire:PlaySound"plunger"
    If keycode = LeftMagnaSave Then:Controller.Switch(9) = 0:End If
    If keycode = RightMagnaSave Then:Controller.Switch(10) = 0:End If
End Sub
 

Again thanks for what you do.