Jump to content

All my products and services are free. All my costs are met by donations I receive from my users. If you enjoy using any of my products, please donate to support me. My bare hosting costs are currently not met so please consider becoming a contibuting member by either clicking this text or the Patreon link on the right.

Patreon

ronindoc

GameEx Lifetime Member
  • Posts

    2
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

ronindoc's Achievements

Member

Member (1/5)

0

Reputation

  1. First, sorry did not realize until after Draco1962 said, that I was on a PinballX forum. I am using Pinup popper mainly. I started with pinballx put have moved over. But the game starts up and runs fine, it is only when I try to record.
  2. When I try to record the playfield in pinup popper I keep getting the following error: Line: 885 Subscript out of range: (number 18) this is that section: '****** ' Rules '****** Dim Msg(17) Sub Rules() Msg(0) = "Batman - by LuvtheCubs" &Chr(10) &Chr(10) Msg(1) = "" Msg(2) = "Insert coin and wait for machine to reset before inserting coin for" Msg(3) = " next player." Msg(4) = "" Msg(5) = "Making 1 - 2 - 3 lights 2x. Making 1 - 2 - 3 - 4 lights 3x." Msg(6) = "Making 3 bank drop targets advances thru 5, 10, and" Msg(7) = "20 Thousand." Msg(8) = "" Msg(9) = "Making 5 bank targets 1st time advances Hole Kicker value, 2nd" Msg(10) = "time lights Extra Ball, 3rd time lights out lane specials." Msg(11) = "" Msg(12) = "Tilt penalty - Ball in Play - does not disqualify player." Msg(13) = "Special scores 1 Credit." Msg(14) = "Beating highest score scores 3 credits." Msg(15) = "Matching last two numbers on score with numbers in match window" Msg(16) = "on backglass scores 1 credit" Msg(17) = "" Msg(18) = "Difusing bomb 3 times scores 50000" For X = 1 To 18 Msg(0) = Msg(0) + Msg(X) &Chr(13) Next MsgBox Msg(0), , " Instructions and Rule Card" End Sub Sub Table1_Exit():Controller.Games(cGameName).Settings.Value("sound") = 1:Controller.Stop:End Sub How do I fix this?
×
×
  • Create New...