10 replies to this topic

[R-DuB]

File Name: Riverboat Gambler (Williams 1990)
File Submitter: R-DuB
File Submitted: 16 Apr 2013
File Category: dB2S Animated Backglasses
Author(s): R-DuB
Manufacturer: Williams
Year: 1990

Riverboat Gambler (Williams 1990) db2s animated backglass with working roulette wheel.
 
Must use B2S 1.25 for this to work correctly 

Click here to download this file

[htamas]

Nice, thanks!

 

I removed the white dodge color from the lamps at the four corners of the roulette because I didn't like the white light blotches... but other than that, it's perfect.

[R-DuB]

yea I was playing around with flashers and was not sure what anyone would think of them.

 

 

I think I will change this as more and more I too do not like them.

 

thanks

Edited by R-DuB, 17 April 2013 - 01:02 AM.

[Aaron James]

WOW, holy crap! This is how a 3-screen db2s backglass is made !!!! 

 

Congratulations on a fantastic release. This is very well done, and looks incredible on my cabinet.

 

Thank you for your time you invested into this game.

[DreamTrap]

has this new version got the flipper script to choose red and black with left/right flippers on wheel?

[htamas]

yes

[Aaron James]

If you still can't get it to work...this is my "old & faithful" script change that works for me on my VirtuaPin setup.

 

 

  '**********

 ' Keys

 '**********

 

 Sub Table1_KeyDown(ByVal keycode)

     If KeyDownHandler(keycode) Then Exit Sub

     If keycode = RightFlipperKey Then Controller.Switch(57) = 1

     If keycode = LeftFlipperKey Then Controller.Switch(58) = 1

     If keycode = "23" Then Rules 'it uses the i key for rules since the R is used for the red color

     If keycode = LeftTiltKey Then LeftNudge 60, 1, 20:PlaySound "nudge_left"

     If keycode = RightTiltKey Then RightNudge 300, 1, 20:PlaySound "nudge_right"

     If keycode = CenterTiltKey Then CenterNudge 0, 1, 25:PlaySound "nudge_forward"

     If keycode = 45 Then LeftNudge 80, 2, 30:PlaySound "nudge_left"

     If keycode = 52 Then RightNudge 280, 2, 30:PlaySound "nudge_right"

     If keycode = 42 Then Controller.Switch(60) = 1:Exit Sub

     If keycode = 29 Then Controller.Switch(61) = 1:Exit Sub

     If keycode = 157 Then Controller.Switch(62) = 1:Exit Sub

     If keycode = 54 Then Controller.Switch(63) = 1

    If keycode = PlungerKey Then

        If keycode = PlungerKey Then PlaySound "PlungerPull":PlungerIM.Pullback:Pcount = 0:PTime.Enabled = 1:Plunger.TimerEnabled=0

   End If

 End Sub

 

 Sub Table1_KeyUp(byval Keycode)

     If KeyUpHandler(keycode) Then Exit Sub

     If keycode = RightFlipperKey Then Controller.Switch(57) = 0

     If keycode = LeftFlipperKey Then Controller.Switch(58) = 0

     If keycode = 42 Then Controller.Switch(60) = 0:Exit Sub

     If keycode = 29 Then Controller.Switch(61) = 0:Exit Sub

     If keycode = 157 Then Controller.Switch(62) = 0:Exit Sub

     If keycode = 54 Then Controller.Switch(63) = 0

            If keycode = PlungerKey Then

        If keycode = PlungerKey Then StopSound "PlungerPull":PTime.Enabled = 0:Pcount = 0:PTime2.Enabled = 1:PlungerIM.Fire:Plunger.TimerEnabled = 1

    End If

 End Sub

[DreamTrap]

it works and new wheel is fantastic it SPINS

Edited by DreamTrap, 28 June 2013 - 07:33 AM.

[R-DuB]

Updated Flashers

No version change

 

B2S server 1.25 or higher needed

[Aaron James]

Thank you for updating. I'm anxious to see the changes.

[BobAlbright]

_{Aaron--thanks for that table script to enable the flippers to choose red and black. I'm glad I bumped into this in this thread to "fix" it on my cab! I'm sure there are many out there who don't know about this fix. I was going to start a new thread and copy you script to it to inform all others, and to thank you....but I could not find a way to copy/paste it into a new thread. I had looked in the forums about this for quite a while and found nothing, so I'm sure there are many others out there in the same boat. Thanks!}