24 replies to this topic

[goldchicco]

File Name: Millionaire (Williams 1987)

File Submitter: goldchicco

File Submitted: 12 Feb 2021

File Category: VPX/VPinMAME Recreations

Author(s): Goldchicco
Manufacturer: Williams
Year: 1987
ROM: Link to ROM
Permission to MOD?: Yes, with approval

VPX table by: Goldchicco
 
3D Wheel model by Andrei Miraklov
 
Wheel code by iaakki
 
base VPX table released by: hmuek
 
Special Thanks to :
hmuek for let me use his VPX table as base for this release.
 
32assassin for always be there.
 
Andrei Miraklov for the 3D toy of the wheel and his AMAZING talent.
 
iaakki for the wheel code.
 
Batch for the backdrop image for Desktop users.
 
Movieguru for working on the images
Table also built into the table is the JP Salas LUT selector. Hold down the LEFT MAGNASAVE and then press the RIGHT MAGNASAVE to cycle through the 10 different LUT brightness's, do this before starting a game since this table use the magnasave buttons.
 
LUT files thanks to Vogliadicane
 
Table is pretty much complete, wheel code is at a good point, not perfect but good (ball always lands on left side of the roulette), this is why is released as beta version.
Hopefully with the help of the community we can reach the perfection and release the 1.0 final
 
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

[bolt]

Perfect as always. Thank you golchicco and involved.

[HiRez00]

 

New redrawn wheel image.

Attached Files

•  Millionaire-Williams.png   134.81KB   3 downloads

[marcio clauss]

Great Table Thanks goldchicco

[clyde]

Thanks everyone for this table! Great job as always.

[Pin-Pete]

Plays great, but the roulette has same weird problem as at Speakeasy. Ball won't stop at all.

[goldchicco]

Plays great, but the roulette has same weird problem as at Speakeasy. Ball won't stop at all.

Hope you read the table description, here is the part about the wheel and why the table is released as beta version:

 

Table is pretty much complete, wheel code is at a good point, not perfect but good (ball always lands on left side of the roulette), this is why is released as beta version.
Hopefully with the help of the community we can reach the perfection and release the 1.0 final

[xenonph]

Have you tried nudging while wheel is spinning?

 

I used to go to this cafe/bar everyday when I was about 18.

They would have a different pinball machine brought in about every 3 or 4 months.

Well this table was one of them.

(Others were PinBot, Whirlwind, Blackwater100, and Fish Tales).

My friend could nudge at the right time while the wheel was spinning and get that extra ball every time!!

Well I have tried same on this table and I can make the ball stop on the right side with a well timed nudge.

Not perfect but does work.

Thanks again for working on this table and getting it released with working wheel.

The wheel is a significant part if the table and without it, it just isnt the same.

I tried for many many months to get that Millionaire WIP wheel to work with no success.

So I am happy as a lark you released this!!

Thanks again to all who helped bring this out of its wheel-less WIP state!!!

Your work is appreciated!!

Carry on.

[Rajo Joey]

Here are my two wheels for this table.
As always you find them in my MEGA-account or directly in Popper.
Don't download the pictures from here. Better quality you find in MEGA or Popper.
https://mega.nz/fold...Ji5hwuYxL6CvQIg


Gesendet von meinem CMR-W09 mit Tapatalk

[jpsalas]

Nice table  

Edited by jpsalas, 17 February 2021 - 06:29 PM.

[Albert]

Here is a fix to get a working roulette wheel:

 

Sub Init_Roulette()
Set RouletteBall = sw54.CreateSizedBallWithMass(18,20) '23,1.0*((23*2)^3)/125000
RouletteBall.image = "ball2"
RouletteSw.enabled = 1
min =1 <- ADD THIS LINE
max =12 <- ADD THIS LINE
vario=(Int((max-min+1)*Rnd+min)) <- ADD THIS LINE
End Sub

 

Sub Roulette_Timer()
(...)
End If
roulette_step = roulette_step - 0.0005
If roulette_step < 0.15 and holeangle = 0 Then
roulette_step=0
roulette.enabled = false
roulettesw.enabled = true
min =1 <- ADD THIS LINE
max =12 <- ADD THIS LINE
vario=(Int((max-min+1)*Rnd+min)) <- ADD THIS LINE
roulette_time = 0
End If            
End If
roulette_time = roulette_time + 1
End Sub

 

Delete the Sub RouletteSw_Timer and replace it with these lines:

 

Dim min
Dim max
Dim vario

Sub RouletteSw_Timer()
If BallVel(RouletteBall) < 500 Then
If vario =1 then sw54.enabled =true
If vario =2 then sw55.enabled =true
If vario =3 then sw56.enabled =true
If vario =4 then sw61.enabled =true
If vario =5 then sw62.enabled =true
If vario =6 then sw63.enabled =true
If vario =7 then sw64.enabled =true
If vario =8 then sw45.enabled =true
If vario =9 then sw46.enabled =true
If vario =10 then sw47.enabled =true
If vario =11 then sw48.enabled =true
If vario =12 then sw53.enabled =true
End If
End Sub

 

Select the wall "ballbane", and set Friction to 0,5 and Scatter Angle to 0. Finally, set the radius of the kickers in the "GWKickers" collection to 35.

Edited by Albert, 01 March 2021 - 11:06 AM.

[floydian2023]

Thanks Albert! Gonna have to try that tweak later

[goldchicco]

@Albert

I tried your code and is not quite right.

The ball stops too early while for the rom is still spinning.

Your code need some adjustments, but thank you for working on it.

Keep me posted

[Albert]

Goldchicco, i just did two tests with switches 61 and 47. The extra balls were given. Please give me more informations what exactly is wrong.

[goldchicco]

Goldchicco, i just did two tests with switches 61 and 47. The extra balls were given. Please give me more informations what exactly is wrong.

better you upload your script (a notepad file will be ok) because as I typed above: 

The ball stops too early while for the rom is still spinning.

[Albert]

https://pastebin.com...iframe/aAcyjh7m

[goldchicco]

https://pastebin.com...iframe/aAcyjh7m

Perfect!!!!

I'll give it a try and let you know.

Thank you

[roccodimarco]

Here is a fix to get a working roulette wheel:
 
Sub Init_Roulette()
Set RouletteBall = sw54.CreateSizedBallWithMass(18,20) '23,1.0*((23*2)^3)/125000
RouletteBall.image = "ball2"
RouletteSw.enabled = 1
min =1 <- ADD THIS LINE
max =12 <- ADD THIS LINE
vario=(Int((max-min+1)*Rnd+min)) <- ADD THIS LINE
End Sub
 
Sub Roulette_Timer()
(...)
End If
roulette_step = roulette_step - 0.0005
If roulette_step < 0.15 and holeangle = 0 Then
roulette_step=0
roulette.enabled = false
roulettesw.enabled = true
min =1 <- ADD THIS LINE
max =12 <- ADD THIS LINE
vario=(Int((max-min+1)*Rnd+min)) <- ADD THIS LINE
roulette_time = 0
End If            
End If
roulette_time = roulette_time + 1
End Sub
 
Delete the Sub RouletteSw_Timer and replace it with these lines:
 
Dim min
Dim max
Dim vario

Sub RouletteSw_Timer()
If BallVel(RouletteBall) < 500 Then
If vario =1 then sw54.enabled =true
If vario =2 then sw55.enabled =true
If vario =3 then sw56.enabled =true
If vario =4 then sw61.enabled =true
If vario =5 then sw62.enabled =true
If vario =6 then sw63.enabled =true
If vario =7 then sw64.enabled =true
If vario =8 then sw45.enabled =true
If vario =9 then sw46.enabled =true
If vario =10 then sw47.enabled =true
If vario =11 then sw48.enabled =true
If vario =12 then sw53.enabled =true
End If
End Sub
 
Select the wall "ballbane", and set Friction to 0,5 and Scatter Angle to 0. Finally, set the radius of the kickers in the "GWKickers" collection to 35.

Any chance you want to take a look at the Monte Carlo table? We could never get that wheel to work correctly!

[Albert]

 

Any chance you want to take a look at the Monte Carlo table? We could never get that wheel to work correctly!

 

 

I'll have a look, but it'll take some time.

[Albert]

Can somebody confirm that my script has to be modified? Or can somebody confirm that it works?

 

I just played a few games... The ball hits one of the saucers, wheel and roulette ball is spinning, the roulette ball hits a hole in the wheel, the display shows the points or awards, points were added to the score (or something special e.g. extra ball, is awarded), the ball is kicked out from the saucer, and the regular game goes on.

 

No problem here for me.

Edited by Albert, 02 March 2021 - 07:52 AM.