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?