- View New Content
-
Getting Started
-
Tutorials
Tutorial Categories
Tutorials Main Page Installation and Setup Downloadable TutorialsROM Adjustments
Number of Balls Adjustments Volume Adjustments
-
Visual Pinball Tables
VP 8 Desktop Tables
All VPM Recreations VP Recreations VP/VPM MODs VP Originals ROMsVP 9 Desktop Tables
All VPM Recreations VP Recreations VP/VPM MODs VP Originals ROMsVP9 Cabinet Tables
All Full Screen Cabinet Full Screen B2S Cabinet Spanned Cabinet Tables Media Packs ROMsVPX Tables
All VPinMAME Recreations VPX- - /VPinMAME - MOD Tables VPX Recreations VPX Originals Media Packs ROMs VR
-
Frontend Media & Backglass
Media Packs
Complete Media Packs Wheel Logos VideosBackglasses
dB2S Animated Backglasses UVP Animated Backglasses Topper Images
- Future Pinball Tables
-
Design Resources
Main Resources
Table Templates Playfield Images Image Library Sound Library Key CodesVP Guides
VP8 Guide - English VP8 Guide - Deutsch VP9 Guide - English VP9.1.x Guide - English VP Object Guide VPM DocumentationFuture Pinball Resources
Playfield Images 3D Model LibraryFuture Pinball Guides
FP Script Guide Big Draco Script Guide FP Table Design Guide FP DMD Guide
- Other Features
- Bug Tracker
- Image Gallery
- Blogs
-
More
Submitter
SUPPORT TOPIC File Information
- Submitted: Mar 27 2017 02:10 PM
- Last Updated: Mar 27 2017 02:10 PM
- File Size: 84.78KB
- Views: 5200
- Downloads: 496
- Author(s): slydog43
- Manufacturer: Original
- Year: 2017
-
IPDB Link:
- Permission to MOD?: Yes, without approval
Download Duck Hunt (Original)(2017)(JP Salas, Masalaja)(1.0) 1.0
1 Votes
0
Initial static DirectB2s to display a simple Duck Hunt backglass for masalaja's cabinet VP9 table. You will need to mod the script a little inorder to use this file
'near top of script add these lines
Dim Controller
'in table1_init() add these lines
Set Controller = CreateObject("B2S.Server")
Controller.B2SName = "DuckHunt"
Controller.Run()
If Err Then MsgBox "Can't Load B2S.Server."
'at end of script add these lines
Sub Table1_Exit()
controller.stop
end sub
'near top of script add these lines
Dim Controller
'in table1_init() add these lines
Set Controller = CreateObject("B2S.Server")
Controller.B2SName = "DuckHunt"
Controller.Run()
If Err Then MsgBox "Can't Load B2S.Server."
'at end of script add these lines
Sub Table1_Exit()
controller.stop
end sub
Other files you may be interested in ..
- 17,138 Total Files
- 57 Total Categories
- 840 Total Authors
- 21,795,579 Total Downloads
- Clock of Eternal Fog Latest File
- CrimsonTurtle8 Latest Submitter
user(s) are online (in the past 15 minutes)
members, guests, anonymous users
are all trademarks of VPFORUMS.