Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

All Activity

This stream auto-updates     

  1. Past hour
  2. ' Declare a variable to keep track of the number ' of balls in play (those that are rolling around) Dim BallsInPlay ' Declare a variable to keep track of how many ' balls are locked Dim BallsLocked ' Create a subroutine that sets up various things ' when the table is first opened (INITialized) Sub Table1_Init() BallsInPlay = 0 ' No balls rolling around yet BallsLocked = 0 ' and no balls locked yet ' Lets display the values just to keep track of what's going on TextBox1.Text = "BallsInPlay: " & BallsInPlay TextBox2.Text = "BallsLocked: " & BallsLocked End Sub ' Default script that needs to be modified for our use Sub Drain_Hit() Drain.DestroyBall PlaySound "ComputerButton" BallsInPlay = BallsInPlay - 1 ' 1 Less ball rolling around now TextBox1.Text = "BallsInPlay: " & BallsInPlay TextBox2.Text = "BallsLocked: " & BallsLocked ' You normally don't want to create a ball when there are others ' still active on the table. Check to see what that value is: If BallsInPlay = 0 then ' No balls are rolling around so, Plunger.CreateBall PlaySound "Plunger" End If End Sub Sub CheckBallsInPlay() ' KEY NOTE: we could have typed all this code for each kicker hit, ' but it's easier to type it all out once in it's own subroutine ' and just type the name of the subroutine for each Kicker hit. If BallsLocked = 5 then ' All locked up, kick 'em out Kicker1.Kick 150, 10 ' Kick the ball (direction, force) Kicker2.Kick 150, 10 Kicker3.Kick 150, 10 Kicker4.Kick 210, 10 Kicker5.Kick 210, 10 BallsLocked = 0 ' No more locked balls now BallsInPlay = 5 ' We got 5 balls rolling around now ElseIf BallsInPlay < 1 then ' No balls rolling around . . . Plunger.CreateBall ' Create one to put into play PlaySound "Plunger" End If ' Lets see what those values are TextBox1.Text = "BallsInPlay: " & BallsInPlay TextBox2.Text = "BallsLocked: " & BallsLocked End Sub Sub Kicker1_Hit() ' This ball is locked up Playsound "BumpBell" BallsInPlay = BallsInPlay - 1 BallsLocked = BallsLocked + 1 CheckBallsInPlay() End Sub Sub Kicker2_Hit() ' This ball is locked up Playsound "BumpBell" BallsInPlay = BallsInPlay - 1 BallsLocked = BallsLocked + 1 CheckBallsInPlay() End Sub Sub Kicker3_Hit() ' This ball is locked up Playsound "BumpBell" BallsInPlay = BallsInPlay - 1 BallsLocked = BallsLocked + 1 CheckBallsInPlay() End Sub Sub Kicker4_Hit() ' This ball is locked up Playsound "BumpBell" BallsInPlay = BallsInPlay - 1 BallsLocked = BallsLocked + 1 CheckBallsInPlay() End Sub Sub Kicker5_Hit() ' This ball is locked up Playsound "BumpBell" BallsInPlay = BallsInPlay - 1 BallsLocked = BallsLocked + 1 CheckBallsInPlay() End Sub Sub Gate_Hit() ' A ball has passed onto the table PlaySound "Fart-13" BallsInPlay = BallsInPlay + 1 TextBox1.Text = "BallsInPlay: " & BallsInPlay End Sub ' Standard default table scripting poop from here on down Sub Table1_KeyDown(ByVal keycode) ' default script If keycode = PlungerKey Then Plunger.PullBack End If If keycode = LeftFlipperKey Then LeftFlipper.RotateToEnd PlaySound "FlipperUp" End If If keycode = RightFlipperKey Then RightFlipper.RotateToEnd PlaySound "FlipperUp" End If If keycode = LeftTiltKey Then Nudge 90, 2 End If If keycode = RightTiltKey Then Nudge 270, 2 End If If keycode = CenterTiltKey Then Nudge 0, 2 End If End Sub Sub Table1_KeyUp(ByVal keycode) ' default script If keycode = PlungerKey Then Plunger.Fire End If If keycode = LeftFlipperKey Then LeftFlipper.RotateToStart PlaySound "FlipperDown" End If If keycode = RightFlipperKey Then RightFlipper.RotateToStart PlaySound "FlipperDown" End If End Sub Sub Plunger_Init() ' default script PlaySound "Plunger" Plunger.CreateBall End Sub pour ceux qui désirent un mode multiball (ball locked and not add-a-ball). for those who want a multiball mode
  3. Today
  4. adaptation de la table de Heighway Pinball I sent a wrong file because the script does not match that of my pc. video and script are under construction and also animation of toys (scorpion,alien et oeufs). first video. insertion (small screen, table background) for intro. next post multiball alien 1.rar
  5. Yesterday
  6. Looks lika a great table but there is no music and it will not play without it
  7. Thx akso to Deegor who unblocked the situation Envoyé de mon SM-G970F en utilisant Tapatalk
  8. What would we do without you Arngrim. Tx man
  9. ok problem fixed, the site runs as normal now
  10. PSA - Seems the button to access the port mappings in the DOF config tool has lost it's button on the menu bar. The page can still be accessed by the URL directly. http://configtool.vpuniverse.com/ports.php EDIT - Ignore - seems that it's back now *shrug*
  11. link is down for the moment because we have an issue with the db, please don't try to generate ini files for the moment, we are busy fixing the issue
  12. Just noticed that the Ports assignment link is gone from the Website. For the time being you can access it from this link: http://configtool.vpuniverse.com/ports.php
  13. Shipping was planned for Monday Nov. 11th by GGS, but unfortunately nothing has arrived yet. But shipping route is from Germany to Austria, this can take some days.
  14. Version 1.0.0

    38 downloads

    totan_14.zip
  15. Great article. Nice explanation of the how and why of solenoid wiring.. Solenoid's parallel diode Solenoid's series resistor/capacitor (in parallel) pair. Possibly(?) not related to to solenoid burnout, but it might also be worth mentioning (with some CRO measurements to illustrate the point) the third solenoid wiring option using the "solenoid parallel capacitor" to avoid "USB disconnects".. http://mjrnet.org/pinscape/BuildGuideV2/BuildGuide.php?sid=troubleshooting#usbDisconnects
  16. Last week
  17. View File ALIEN very basic script video to do by yourself according to your tastes animation of the alien later Submitter fastdraw Submitted 11/16/2019 Category Visual Pinball 10 - Tables ROM Name Link to B2S Link to Media Pack Permission to Mod Yes VP Version v10  
  18. Version 1.1

    48 downloads

    very basic script video to do by yourself according to your tastes animation of the alien later
  19. Hi Darien11, great work on the playfields! can you post the eddie pf file (the whole picture?1
  20. See picture where I put it in the script. Of course rename the table and the b2s file. This is a screenshot from the working files.
  21. I've uploaded the version 1.1 (pending approval) Changes: added small missing details improved skillshot insert lights improved lock insert ligths improved super jets insert lights improved upper playfield GI lighting added visible bulb next to castle with improved reflection added better red flashers behind castle walls cleaned up plastic ramp textures small bug fixes small physics tweak
  22. Need help to get DOF to work with teensy for my Cabinet... DirectOutput.log
  23. I uploaded a new beta this afternoon, full fledged release likely next friday. I just need to annoy WOB some more.
  24. @Rappelbox what are my chances of receiving both orders before Christmas? I had planned to have the vpin built by then to give to nephew as a gift but there is very little time left to finish it in time. If not, I will need to pursue a refund and try to find the supplies elsewhere and I really do not want to do that at this point Has anyone else received orders recently?
  25. I cannot figure out the code to get the sound to "spin" on a spinner. I can get the sound to play just once. I've seen tutorials but the pulse command gives me wrong version error. Is the trick to tie it to a timer? Any help in right direction appreciated.
  26. Great colorization's project 😉 I'm looking too for it, my real ToM pinball machine is complete and it's waiting only for the pin2dmd 😎
  27. Hi, great project, I'm looking too for this one! 😄
  1. Load more activity
×
×
  • Create New...