Jump to content



Photo
- - - - -

Stargate (Gottlieb 1995) [directB2S] [dB2S]


  • Please log in to reply
4 replies to this topic

#1 hmueck

hmueck

    MaX

  • VIP
  • 2,184 posts
  • Location:Hamburg

  • Flag: ---------

  • Favorite Pinball: IPDB Top 300



Contributor

Posted 16 March 2013 - 05:40 PM

Posted Image

File Name: Stargate (Gottlieb 1995) [directB2S]
File Submitter: hmueck
File Submitted: 16 Mar 2013
File Category: dB2S Animated Backglasses
Author(s): MaX - photoshop&dB2S
Noah Fentz - photograph of the backbox
Manufacturer: Premier
Year: 1995

Special thanks to Noah Fentz for the photo of the backbox.

Click here to download this file
VPX0beta tables: 29cff786951ed9c1a70fc1fa47f5e3c1.png 0cecd68ffa2537a7262337834a05bbbe.png Finish them if you like!

#2 maceman

maceman

    Home Pinball Machine Collector/ Restorer

  • VIP
  • 2,271 posts
  • Location:Canada, Eh!

  • Flag: Canada

  • Favorite Pinball: ....**Haunted House**....



Posted 18 March 2013 - 12:37 AM

Hi Hmueck,

Thanx for this dB2S.

Can you tell me how to add it to the table. When i first loaded, it still ran the UVP, so i added this line, but it still won't load. I saw thdB2S for 1 sec and then it disappear and my table was blank as well. Cheers.:

Sub Stargate_Init
    'init controller
    vpmInit Me
    On Error Resume Next
        With Controller
            .GameName = cGameName
            .Games(cGameName).Settings.Value("dmd_red")=255
            .Games(cGameName).Settings.Value("dmd_green")=0
            .Games(cGameName).Settings.Value("dmd_blue")=0
'            .Games(cGameName).Settings.Value("dmd_pos_x")=0
'            .Games(cGameName).Settings.Value("dmd_pos_y")=0
'            .Games(cGameName).Settings.Value("dmd_width")=133
'            .Games(cGameName).Settings.Value("dmd_height")=517
'            .Games(cGameName).Settings.Value("rol")=1
            Set Controller = CreateObject("B2S.Server")
            If Err Then MsgBox "Can't start Game" & cGameName & vbNewLine & Err.Description : Exit Sub
            .SplashInfoLine = cCredits
            .HandleMechanics = 0
            .HandleKeyboard=0
            .ShowDMDOnly = True : .ShowFrame = False : .ShowTitle = False
            .Run : If Err Then MsgBox Err.Description
        End With
    On Error Goto 0

 

etc...


________________________________________________________________________________
Canada Eh!
hm_avatar.pngss_avatar.jpg MODS ys_avatar5.jpggenie_avatar.pngj2o_avatar.png

#3 Westworld

Westworld

    Enthusiast

  • Members
  • PipPipPip
  • 114 posts
  • Location:Munich

  • Flag: Germany

  • Favorite Pinball: Kiss

Posted 18 March 2013 - 08:09 AM

You have inserted CreateObject into the wrong line. Here it is much too late, the controller is already up and running.

You need to search in the table script wehre CreateObject is used, in your case for UVP. Then replace the current controller name with "B2S.Server". Don't insert a new line, just replace the current one. This is done before the init method. 



#4 luvthatapex

luvthatapex

    Pinball Fan

  • VIP
  • 1,435 posts

  • Flag: United States of America

  • Favorite Pinball: Tron



Posted 18 March 2013 - 10:34 AM

Nice work! I like it!



#5 maceman

maceman

    Home Pinball Machine Collector/ Restorer

  • VIP
  • 2,271 posts
  • Location:Canada, Eh!

  • Flag: Canada

  • Favorite Pinball: ....**Haunted House**....



Posted 18 March 2013 - 01:09 PM

Thanx WW!

 I looked high and low for the code and couldn't find it and is why i've added where i did. I will look again searching for the actual phrase this time and put it in the right spot. I did 20 tables yesterday and must have been getting tired as well :)

Cheers,

Maceman


________________________________________________________________________________
Canada Eh!
hm_avatar.pngss_avatar.jpg MODS ys_avatar5.jpggenie_avatar.pngj2o_avatar.png