Here's the script I did for Impacto:
'---------------------------------------------------------------------------
'IMPACTO
'---------------------------------------------------------------------------
'
ExecuteGlobal GetTextFile("core.vbs")
ExecuteGlobal GetTextFile("b2s.vbs")
Dim Controller
Sub LoadController()
Set Controller = CreateObject("B2S.Server")
Controller.B2SName = "Impacto" ' *****!!!!This must match the name of your directb2s file!!!!
Controller.Run()
End Sub
Dim bsTrough, dt5t
Dim bump1, bump2
Dim x
Dim BallBox(5)
Dim MatchBox(10)
Set BallBox(1) = Ball1
Set BallBox(2) = Ball2
Set BallBox(3) = Ball3
Set BallBox(4) = Ball4
Set BallBox(5) = Ball5
Set MatchBox(1) = Match00
Set MatchBox(2) = Match10
Set MatchBox(3) = Match20
Set MatchBox(4) = Match30
Set MatchBox(5) = Match40
Set MatchBox(6) = Match50
Set MatchBox(7) = Match60
Set MatchBox(8) = Match70
Set MatchBox(9) = Match80
Set MatchBox(10) = Match90
Dim Digit(4)
Dim Steps(4)
Dim Match
Dim BonusPause
Dim Score
Dim GotReplay
Dim HolePause
Dim HoleExit
Dim StartPause
Dim Credits
Dim HighScore
Dim BallsLeft
Dim BallActive
Dim CreditPause
Dim SPReady
Dim TiltSensor
Dim MachineTilt
Dim P10
Dim P100
Dim P1000
Dim f, g, h
Randomize
' Bumpers
Sub Bumper1_Hit
PlaySound "Rpop"
bump1 = 1
Me.TimerEnabled = 1
If Wall202.isdropped=1 then 'bumper unlit/lit
P100 = P100 + 1
Else
P1000 = P1000 + 1
End If
End Sub
Sub Bumper1_Timer()
Select Case bump1
Case 1:Ring1a.IsDropped = 0:bump1 = 2
Case 2:Ring1b.IsDropped = 0:Ring1a.IsDropped = 1:bump1 = 3
Case 3:Ring1c.IsDropped = 0:Ring1b.IsDropped = 1:bump1 = 4
Case 4:Ring1c.IsDropped = 1:Me.TimerEnabled = 0
End Select
End Sub
Sub Bumper2_Hit
PlaySound "Lpop"
bump2 = 1
Me.TimerEnabled = 1
If Wall202.isdropped=1 then 'bumper unlit/lit
P100 = P100 + 1
Else
P1000 = P1000 + 1
End If
End Sub
Sub Bumper2_Timer()
Select Case bump2
Case 1:Ring2a.IsDropped = 0:bump2 = 2
Case 2:Ring2b.IsDropped = 0:Ring2a.IsDropped = 1:bump2 = 3
Case 3:Ring2c.IsDropped = 0:Ring2b.IsDropped = 1:bump2 = 4
Case 4:Ring2c.IsDropped = 1:Me.TimerEnabled = 0
End Select
End Sub
Sub BumpersOn()
Wall177.isdropped=0:Wall187.isdropped=0
Wall191.isdropped=0:Wall199.isdropped=0
Wall202.isdropped=1:Wall201.isdropped=1
Wall210.isdropped=1:Wall209.isdropped=1
End Sub
Sub BumpersOff()
Wall177.isdropped=1:Wall187.isdropped=1
Wall191.isdropped=1:Wall199.isdropped=1
Wall202.isdropped=0:Wall201.isdropped=0
Wall210.isdropped=0:Wall209.isdropped=0
End Sub
Sub ScoreTimer_Timer()
h = 0
If MachineTilt = 1 then
P10 = 0
P100 = 0
P1000 = 0
End If
If P10> 0 or P100> 0 or P1000> 0 then
StopSound "Bell10"
StopSound "Bell100"
StopSound "Bell1000"
PlaySound "Cluper"
End If
If P1000> 0 and h = 0 then
P1000 = P1000-1
Digit(2) = Digit(2) + 1
Digit2.AddValue(1)
If Digit(2) = 10 then
Digit(2) = 0
Digit(1) = Digit(1) + 1
Digit1.AddValue(1)
B2SData(1)=Chr(Digit(1)+1)
End If
B2SData(2)=Chr(Digit(2)+1)
If Digit(1) = 10 then Digit(1) = 0
B2SData(1)=Chr(Digit(1)+1)
AddScore(1000)
If MachineTilt = 0 then PlaySound "Bell1000"
h = 1
End If
If P100> 0 and h = 0 then
P100 = P100-1
Digit(3) = Digit(3) + 1
Digit3.AddValue(1)
If Digit(3) = 10 then
Digit(3) = 0
Digit(2) = Digit(2) + 1
Digit2.AddValue(1)
B2SData(2)=Chr(Digit(2)+1)
End If
B2SData(3)=Chr(Digit(3)+1)
If Digit(2) = 10 then
Digit(2) = 0
B2SData(2)=Chr(Digit(2)+1)
Digit(1) = Digit(1) + 1
Digit1.AddValue(1)
B2SData(1)=Chr(Digit(1)+1)
End If
If Digit(1) = 10 then Digit(1) = 0
AddScore(100)
If MachineTilt = 0 then PlaySound "Bell100"
h = 1
End If
If P10> 0 and h = 0 then
P10 = P10-1
Digit(4) = Digit(4) + 1
Digit4.AddValue(1)
If Digit(4) = 10 then
Digit(4) = 0
Digit(3) = Digit(3) + 1
Digit3.AddValue(1)
B2SData(3)=Chr(Digit(3)+1)
End If
B2SData(4)=Chr(Digit(4)+1)
If Digit(3) = 10 then
Digit(3) = 0
B2SData(3)=Chr(Digit(3)+1)
Digit(2) = Digit(2) + 1
Digit2.AddValue(1)
B2SData(2)=Chr(Digit(2)+1)
End If
If Digit(2) = 10 then
Digit(2) = 0
B2SData(2)=Chr(Digit(2)+1)
Digit(1) = Digit(1) + 1
Digit1.AddValue(1)
B2SData(1)=Chr(Digit(1)+1)
End If
If Digit(1) = 10 then Digit(1) = 0: B2SData(1)=Chr(Digit(1)+1)
AddScore(10)
If MachineTilt = 0 then PlaySound "Bell10"
End If
'***************************************
If B2Stimer.Enabled=false then controller.B2SSetData 6,0
'***************************************
If BallActive = 2 then
BonusPause = BonusPause-1
If BonusPause <1 then
If BallsLeft> 1 then
NextBall
Else
If BonusPause = 0 then PlaySound "GameOver"
If BonusPause = -6 then
Match = INT(RND * 10)
MatchBox(Match + 1).Text = Match& "0"
If Match>9 Then Match 9
If Match = 0 then
controller.B2SSetData 34,10
else
controller.B2SSetData 34,Match
end if
BallBox(5).Text = ""
controller.B2SSetData 32,0
If HighScore <Score then HighScore = Score
HighBox.Text = "High Score: " &FormatNumber(HighScore, 0, -1, 0, -1)
g = Score MOD 100
If g = Match * 10 then
Credits = Credits + 1
PlaySound "Knocker"
CreditPause = 1
End If
BallActive = 0
GoBox.Text = "GAME OVER"
controller.B2SSetData 35,1
TiltBox.Text = ""
controller.B2SSetData 33,0
StopSound "Buzz"
SaveData
End If
End If
End If
End If
End Sub
Sub GameTimer_Timer()
If HolePause> 0 then
If P10 = 0 and P100 = 0 and P1000 = 0 then HolePause = HolePause-1
If HolePause = 0 then
PlaySound "popper_ball"
End If
End If
If StartPause> 0 then
StartPause = StartPause-1
If StartPause = 185 then PlaySound "Initialize"
If StartPause = 178 then
For f = 1 to 10
MatchBox(f).Text = ""
Next
controller.B2SSetData 34,0
For f = 1 to 5
BallBox(f).Text = ""
Next
controller.B2SSetData 32,0
HighBox.Text = ""
GOBox.Text = ""
controller.B2SSetData 35,0
TiltBox.Text = ""
controller.B2SSetData 33,0
For f = 1 to 4
Steps(f) = 10-Digit(f)
If Digit(f) = 5 then Steps(f) = 15
If Digit(f) = 0 then Steps(f) = 20
Digit(f) = 0
Next
End If
If StartPause=157 then
'StepB2SData 0,11,0,2,170,""
end if
If StartPause = 157 or StartPause = 151 or StartPause = 145 or StartPause = 139 or StartPause = 133 then DoReset
If StartPause = 118 or StartPause = 112 or StartPause = 106 or StartPause = 100 or StartPause = 94 then DoReset
If StartPause = 79 or StartPause = 73 or StartPause = 67 or StartPause = 61 or StartPause = 55 then DoReset
If StartPause = 40 or StartPause = 34 or StartPause = 28 or StartPause = 22 or StartPause = 16 then DoReset
If StartPause = 8 then PlaySound "ballrel"
If StartPause = 0 then
CheckLights
TiltBox.Text = ""
controller.B2SSetData 33,0
For f = 1 to 5
BallBox(f).Text = ""
Next
BallBox(6-BallsLeft).Text = (6-BallsLeft)
controller.B2SSetData 32,6-BallsLeft
BallExit.CreateBall
BallExit.Kick 90, 8
End If
End If
If CreditPause> 0 then
CreditPause = CreditPause-1
If CreditPause = 0 then
Credits = Credits + 1
If Credits> 9 then Credits = 9
CreditBox.SetValue(Credits)
controller.B2SSetCredits Credits
End If
End If
If TiltSensor> 99 and MachineTilt = 0 and BallActive = 1 then
PlaySound "solenoidon"
MachineTilt = 1
TiltBox.Text = "TILT"
controller.B2SSetData 33,1
P10 = 0
P100 = 0
P1000 = 0
End If
If TiltSensor> 0 then
TiltSensor = TiltSensor-1
End If
End Sub
' Table init
Sub Table1_Init
LoadController
AllLightsOut
' init 100k
controller.B2SSetData 26,0
controller.B2SSetData 27,0
' Init Bumper Rings,rollovers,Roto and Standup targets
Ring1a.IsDropped = 1:Ring2a.IsDropped = 1
Ring1b.IsDropped = 1:Ring2b.IsDropped = 1
Ring1c.IsDropped = 1:Ring2c.IsDropped = 1
ResetPlungers
LeftSling.IsDropped = 1:LeftSling2.IsDropped = 1:LeftSling3.IsDropped = 1
RightSling.IsDropped = 1:RightSling2.IsDropped = 1:RightSling3.IsDropped = 1
sw41a.IsDropped = 1:sw34c.IsDropped = 1
sw32c.IsDropped = 1:sw41c.IsDropped = 1
sw12a.IsDropped = 1:sw14a.IsDropped = 1
sw9b.IsDropped = 1:sw10b.IsDropped = 1
BumpersOff
'Init alternating lanes
LeftOut.state=1
RightIn.state=1
Score = 0
Credits = 0
Match = 0
HighScore = 50000
SPReady = 0
RedDone = 0
LitLane = -1
LoadData
CheckLights
DoDigits
PlaySound "Motor2"
GOBox.Text = "GAME OVER"
controller.B2SSetData 35,1
MatchBox(Match + 1).Text = Match& "0"
If Match>9 Then Match 9
If Match = 0 then
controller.B2SSetData 34,10
else
controller.B2SSetData 34,Match
end if
CreditBox.SetValue(Credits)
controller.B2SSetCredits Credits
HighBox.Text = "High Score: " &FormatNumber(HighScore, 0, -1, 0, -1)
End Sub
Sub AddScore(f)
If MachineTilt = 0 then
Score = Score + f
If Score> 99990 then
Score100K.Text = "100,000"
controller.B2SSetData 26,1
End If
If GotReplay = 0 then
If Score> (82000) -1 then
GotReplay = 1
PlaySound "Knocker"
CreditPause = 1
End If
End If
If GotReplay = 1 then
If Score> (99000) -1 then
GotReplay = 2
PlaySound "Knocker"
CreditPause = 1
End If
End If
End If
Controller.B2SSetScorePlayer1 Score
End Sub
Sub DoDigits
If Score> 99990 then
Score100K.Text = "100,000"
controller.B2SSetData 26,1
Score = Score -(Int(Score / 100000) * 100000)
End If
Digit(1) = Int(Score / 10000)
Score = Score -(Int(Score / 10000) * 10000)
Digit(2) = Int(Score / 1000)
Score = Score -(Int(Score / 1000) * 1000)
Digit(3) = Int(Score / 100)
Score = Score -(Int(Score / 100) * 100)
Digit(4) = Score / 10
Digit1.SetValue(Digit(1) )
Digit2.SetValue(Digit(2) )
Digit3.SetValue(Digit(3) )
Digit4.SetValue(Digit(4) )
controller.B2SSetScorePlayer 1,Score
Score = 0
End Sub
Sub DoReset
If Steps(1)> 0 then
Steps(1) = Steps(1) -1
Digit1.AddValue(1)
End If
If Steps(2)> 0 then
Steps(2) = Steps(2) -1
Digit2.AddValue(1)
End If
If Steps(3)> 0 then
Steps(3) = Steps(3) -1
Digit3.AddValue(1)
End If
If Steps(4)> 0 then
Steps(4) = Steps(4) -1
Digit4.AddValue(1)
End If
End Sub
Sub CheckLights
End Sub
Sub SaveData
SaveValue "HTD", "HighScore", HighScore
SaveValue "HTD", "Credits", Credits
SaveValue "HTD", "Score", Score
SaveValue "HTD", "Match", Match
End Sub
Sub LoadData
Dim value
Value = LoadValue("HTD", "HighScore")
If(Value <> "") then HighScore = CDbl(Value) End If
Value = LoadValue("HTD", "Credits")
If(Value <> "") then Credits = CDbl(Value) End If
Value = LoadValue("HTD", "Score")
If(Value <> "") then Score = CDbl(Value) End If
Value = LoadValue("HTD", "Match")
If(Value <> "") then Match = CDbl(Value) End If
End Sub
Sub FirstBall
StopSound "GameOver"
StartPause = 186
Score = 0
Controller.B2SSetScorePlayer1 0
GotReplay = 0
BallsLeft = 6
ResetCenter
NextBall
End Sub
Sub NextBall
P10 = 0
P100 = 0
P1000 = 0
TiltSensor = 0
MachineTilt = 0
BallsLeft = BallsLeft-1
If StartPause <1 then StartPause = 10
BallActive = 1
ResetCenter
End Sub
'********
'Plunger
'********
dim PCount:Pcount = 0
Sub PTime_Timer
Select Case Pcount
Case 0:p1.state = 1
Case 1:p1.state = 0
Case 2:p2.state = 1
Case 3:p2.state = 1
Case 4:p2.state = 0
Case 5:p3.state = 1
Case 6:p3.state = 0
Case 7:p4.state = 1
Case 8:p4.state = 0
Case 9:p5.state = 1
Case 10:p5.state = 0
Case 11:p6.state = 1
Case 12:p6.state = 0:Me.Enabled = 0
End Select
Pcount = Pcount + 1
End Sub
Sub PTime2_Timer
Select Case Pcount
Case 0:ResetPlungers:PlaySound "plunger2"
Case 1:p1.state = 0
Case 2:p1.state = 1:Me.Enabled = 0
End Select
Pcount = Pcount + 1
End Sub
Sub ResetPlungers
p1.state = 1
p2.state = 0
p3.state = 0
p4.state = 0
p5.state = 0
p6.state = 0
End Sub
Sub Table1_KeyDown(ByVal keycode)
If keycode = PlungerKey Then
Plunger.PullBack
Pcount = 0:PTime.Enabled = 1
End If
If keycode = LeftFlipperKey and MachineTilt = 0 and BallActive> 0 Then
LeftFlipper.RotateToEnd
PlaySound "FlipperUp"
PlaySound "Buzz", -1
End If
If keycode = RightFlipperKey and MachineTilt = 0 and BallActive> 0 Then
RightFlipper.RotateToEnd
PlaySound "FlipperUp"
PlaySound "Buzz", -1
End If
If keycode = LeftTiltKey and MachineTilt = 0 and BallActive = 1 Then
Nudge 15, 1.4 :PlaySound "nudge_left"
TiltSensor = TiltSensor + 50
End If
If keycode = RightTiltKey and MachineTilt = 0 and BallActive = 1 Then
Nudge 345, 1.4:PlaySound "nudge_right"
TiltSensor = TiltSensor + 50
End If
If keycode = CenterTiltKey and MachineTilt = 0 and BallActive = 1 Then
Nudge 0, 1.4:PlaySound "nudge_forward"
TiltSensor = TiltSensor + 50
End If
If keycode = 6 and CreditPause = 0 then
PlaySound "Coin"
CreditPause = 60
Playsound "reel"
End If
If keycode = 2 and BallActive = 0 and StartPause = 0 then
If Credits> 0 then
Credits = Credits-1
CreditBox.SetValue(Credits)
controller.B2SSetCredits Credits
FirstBall
End If
End If
End Sub
Sub Table1_KeyUp(ByVal keycode)
If keycode = PlungerKey Then
Plunger.Fire
playsound "plunger"
PTime.Enabled = 0:Pcount = 0:PTime2.Enabled = 1
End If
If keycode = LeftFlipperKey Then
LeftFlipper.RotateToStart
If MachineTilt = 0 and BallActive> 0 then
PlaySound "FlipperDown"
StopSound "Buzz"
End If
End If
If keycode = RightFlipperKey Then
RightFlipper.RotateToStart
If MachineTilt = 0 and BallActive> 0 then
PlaySound "FlipperDown"
StopSound "Buzz"
End If
End If
End Sub
Sub Drain_Hit()
Drain.DestroyBall
PlaySound "Drain"
BallActive = 2
BonusPause = 10
playsound "drop_reset_center"
sw1.IsDropped = 0:sw2.IsDropped = 0:sw3.IsDropped = 0:sw8.IsDropped = 0
sw4.IsDropped = 0:sw5.IsDropped = 0:sw6.IsDropped = 0:sw7.IsDropped = 0
sw1a.IsDropped = 0:sw2a.IsDropped = 0:sw3a.IsDropped = 0:sw8a.IsDropped = 0
sw4a.IsDropped = 0:sw5a.IsDropped = 0:sw6a.IsDropped = 0:sw7a.IsDropped = 0
LeftLoop.state=0: RightLoop.state=0
TopRight.state=0:TopLeft.state=0
BumpersOff
End Sub
' Slingshots
'alternate inlane and outlane lamps.
'starts with left outlane/right inlane lit
'
Dim LStep
Sub LeftSlingShot_Slingshot:LeftSling.IsDropped = 0:PlaySound "slingshot":LStep = 0:Me.TimerEnabled = 1:End Sub
Sub LeftSlingShot_Timer
Select Case LStep
Case 0:LeftSLing.IsDropped = 0
Case 1: 'pause
Case 2:LeftSLing.IsDropped = 1:LeftSLing2.IsDropped = 0
Case 3:LeftSLing2.IsDropped = 1:LeftSLing3.IsDropped = 0
Case 4:LeftSLing3.IsDropped = 1:Me.TimerEnabled = 0
End Select
LStep = LStep + 1
P10 = P10 + 1
Alternate
End Sub
Dim RStep
Sub RightSlingShot_Slingshot:RightSling.IsDropped = 0:PlaySound "slingshot":RStep = 0:Me.TimerEnabled = 1:End Sub
Sub RightSlingShot_Timer
Select Case RStep
Case 0:RightSLing.IsDropped = 0
Case 1: 'pause
Case 2:RightSLing.IsDropped = 1:RightSLing2.IsDropped = 0
Case 3:RightSLing2.IsDropped = 1:RightSLing3.IsDropped = 0
Case 4:RightSLing3.IsDropped = 1:Me.TimerEnabled = 0
End Select
RStep = RStep + 1
P10 = P10 + 1
Alternate
End Sub
' Rollovers
Sub sw12_Hit
sw12a.IsDropped=0
CheckCenter
P100 = P100 + 5
PlaySound "sensor"
End Sub
Sub sw12_UnHit:sw12a.IsDropped=1:TopLeft.state=1:End Sub
Sub sw13_Hit:sw13a.IsDropped=0:P100 = P100 + 5:PlaySound "sensor":End Sub
Sub sw13_UnHit:sw13a.IsDropped=1:End Sub
Sub sw14_Hit
sw14a.IsDropped=0
CheckCenter
P100 = P100 + 5
PlaySound "sensor"
End Sub
Sub sw14_UnHit:sw14a.IsDropped=1:TopRight.state=1:End Sub
Sub sw41_Hit
sw41a.IsDropped=0
If LeftIn.Isdropped=1 then
P100 = P100 + 5
Else
P10 = P10 + 5
End If
PlaySound "sensor"
End Sub
Sub sw41_UnHit:sw41a.IsDropped=1:End Sub
Sub sw10_Hit
sw10b.IsDropped=0
P100 = P100 + 5
PlaySound "sensor"
'Special
If RightLoop.state=1 then
Credits = Credits + 1
PlaySound "Knocker"
CreditPause = 1
RightLoop.state=0
End If
End Sub
Sub sw10_UnHit:sw10b.IsDropped=1:End Sub
Sub sw9_Hit
sw9b.IsDropped=0
P100 = P100 + 5
PlaySound "sensor"
'Special
If LeftLoop.state=1 then
Credits = Credits + 1
PlaySound "Knocker"
CreditPause = 1
End If
End Sub
Sub sw9_UnHit:sw9b.IsDropped=1:End Sub
'rollovers double
Sub sw32b_Hit:sw32c.IsDropped=0
If LeftOut.state=1 then
P100 = P100 + 5
Else
P10 = P10 + 5
End If
PlaySound "sensor"
End Sub
Sub sw32b_UnHit:sw32c.IsDropped=1:End Sub
Sub sw41_Hit
sw41a.IsDropped=0
If LeftIn.state=1 then
P100 = P100 + 5
Else
P10 = P10 + 5
End If
PlaySound "sensor"
End Sub
Sub sw41_UnHit:sw41a.IsDropped=1:End Sub
Sub sw41b_Hit
sw41c.IsDropped=0
If RightIn.state=1 then
P100 = P100 + 5
Else
P10 = P10 + 5
End If
PlaySound "sensor"
End Sub
Sub sw41b_UnHit:sw41c.IsDropped=1:End Sub
Sub sw34b_Hit
sw34c.IsDropped=0
If RightOut.state=1 then
P100 = P100 + 5
Else
P10 = P10 + 5
End If
PlaySound "sensor"
End Sub
Sub sw34b_UnHit:sw34c.IsDropped=1:End Sub
'SlingShots sws
'Drop Targets
'left bank
Sub sw1_Hit
sw1.IsDropped = 1:sw1a.IsDropped = 1
P100 = P100 + 5
PlaySound "drop_down_left"
If sw1.isdropped = 1 and sw2.isdropped = 1 and sw3.isdropped = 1 and sw8.isdropped=1 then
LeftLoop.state=1
End If
End Sub
Sub sw2_Hit
sw2.IsDropped = 1:sw2a.IsDropped = 1
P100 = P100 + 5
PlaySound "drop_down_left"
If sw1.isdropped = 1 and sw2.isdropped = 1 and sw3.isdropped = 1 and sw8.isdropped=1 then
LeftLoop.state=1
End If
End Sub
Sub sw3_Hit
sw3.IsDropped = 1:sw3a.IsDropped = 1
P100 = P100 + 5
PlaySound "drop_down_left"
If sw1.isdropped = 1 and sw2.isdropped = 1 and sw3.isdropped = 1 and sw8.isdropped=1 then
LeftLoop.state=1
End If
End Sub
Sub sw8_Hit
sw8.IsDropped = 1:sw8a.IsDropped = 1
P100 = P100 + 5
PlaySound "drop_down_left"
If sw1.isdropped = 1 and sw2.isdropped = 1 and sw3.isdropped = 1 and sw8.isdropped=1 then
LeftLoop.state=1
End If
End Sub
'right bank
Sub sw4_Hit
sw4.IsDropped = 1:sw4a.IsDropped = 1
P100 = P100 + 5
PlaySound "drop_down_right"
If sw4.isdropped = 1 and sw5.isdropped = 1 and sw6.isdropped = 1 and sw7.isdropped=1 then
RightLoop.state=1
End If
End Sub
Sub sw5_Hit
sw5.IsDropped = 1:sw5a.IsDropped = 1
P100 = P100 + 5
PlaySound "drop_down_right"
If sw4.isdropped = 1 and sw5.isdropped = 1 and sw6.isdropped = 1 and sw7.isdropped=1 then
RightLoop.state=1
End If
End Sub
Sub sw6_Hit
sw6.IsDropped = 1:sw6a.IsDropped = 1
P100 = P100 + 5
PlaySound "drop_down_right"
If sw4.isdropped = 1 and sw5.isdropped = 1 and sw6.isdropped = 1 and sw7.isdropped=1 then
RightLoop.state=1
End If
End Sub
Sub sw7_Hit
sw7.IsDropped = 1:sw7a.IsDropped = 1
P100 = P100 + 5
PlaySound "drop_down_right"
If sw4.isdropped = 1 and sw5.isdropped = 1 and sw6.isdropped = 1 and sw7.isdropped=1 then
RightLoop.state=1
End If
End Sub
' Gate
Sub Gate_Hit():PlaySound "gate":End Sub
Sub Gate2_Hit():PlaySound "gate":End Sub
Sub Wall471_hit():playsound "metalhit":end sub
Sub Kicker1_Hit
CheckSpecial
End Sub
Sub Kicker1_Timer
Kicker1.Kick 190,5 'Kick the ball out after a delay
PlaySound"Kicker"
Me.TimerEnabled=False
ResetBonus
End Sub
Sub AllLightsOut()
TopLeft.state=0
TopRight.state=0
LeftLoop.state=0
RightLoop.state=0
Special.state=0
TwentyFiveK.state=0
TwentyK.state=0
FifteenK.state=0
TenK.state=0
FiveK.state=0
LeftOut.state=0
LeftIn.state=0
RightOut.state=0
RightIn.state=0
End Sub
Sub ResetBonus()
FiveK.state=0
TenK.state=0
FifteenK.state=0
TwentyK.state=0
TwentyfiveK.state=0
Special.state=0
End Sub
Sub Alternate()
'alternate inlane/outlane lighting
If LeftOut.state =1 then
LeftIn.state=1
RightOut.state=1
RightIn.state=0
LeftOut.state=0
BumpersOn
Else
LeftIn.state=0
RightOut.state=0
RightIn.state=1
LeftOut.state=1
End If
End Sub
Sub CheckCenter()
' If Special.IsDropped = False Then Special.IsDropped = False: Exit Sub
If TwentyFiveK.state=1 Then TwentyFiveK.state=0:Special.state=1: Exit Sub
If TwentyK.state =1 Then TwentyK.state=0:TwentyFiveK.state=1: Exit Sub
If FifteenK.state=1 Then FifteenK.state=0: TwentyK.state=1: Exit Sub
If TenK.state=1 Then TenK.state=0: FifteenK.state=1
If FiveK.state=1 Then FiveK.state=0: TenK.state = 1
End Sub
Sub ResetCenter()
FiveK.state = 1
TenK.state=0
FifteenK.state=0
TwentyK.state=0
TwentyfiveK.state=0
Special.state=0
End Sub
Sub CheckSpecial()
If FiveK.state=1 then P1000=P1000+5
If TenK.state=1 then P1000=P1000+10
If FifteenK.state=1 then P1000=P1000+15
If TwentyK.state=1 then P1000=P1000+20
If TwentyfiveK.state=1 then P1000=P1000+25
If Special.state=1 then
Credits = Credits + 1
PlaySound "Knocker"
CreditPause = 1
End If
Kicker1.TimerEnabled=True
End Sub
Top
are all trademarks of VPFORUMS.