ContributorFile Submitter: hmueck
File Submitted: 17 Mar 2013
File Category: HyperPin Media Packs
XML:
<game name="TableName goes here">
<description>Sky Kings (Bally 1973)</description>
<manufacturer>Bally</manufacturer>
<year>1973</year>
<type>EM</type>
</game>
The media pack contains an instruction card, a backglass image, a table image, a wheel image and a flyer.
Special thanks to:
IPDB.org - flyer
I included not the B2S backglass image, but a new one - for future dB2S use. Anyone there who would like to create the script changes to implement the neccesary dB2S routines?
Updated script with B2S autoloading:
'Skykings, 1973 by Bally - UPDATED FROM VP6 to VP9 by Druadic - Ver. 1.1
'
'Plunger rountine used from Rascal's plunger demo. Thanks Rascal!
'
'1970's Bally Apron used from Grizz. Thanks Grizz!
'Option Explicit
Randomize
ExecuteGlobal GetTextFile("core.vbs"):If Err Then MsgBox "Can't open ""core.vbs""" 'Impulse Plunger
ExecuteGlobal GetTextFile("b2s.vbs"):If Err Then MsgBox "Can't open ""b2s.vbs"""
Const LaunchB2SBackglass = true ' true/false
dim tm
dim i
Dim Active, ActBalls, Score, Credits, Bonus, DoubleBonus, Match, Score2
Dim B, BM1, BM2, BT1, BT2, B1, B2, T, T2, B5EB, HighScore, DefaultHighScore
Dim BALL, LOL, ROL, EB1, EB2, DBL, SPIN
Dim SECS, NUD, TILT, TI '<- for nudging
Dim pcounter 'Loop counter variable for plunger
Dim pullback 'Booleen variable for plunger
Dim plungerpos 'Variable to store plunger position
Dim ballready 'Booleen variable for when ball is in position
Dim plunger(4) 'Array for plunger balls
Dim bal 'Variable for ball object
Dim recoil 'Booleen variable for plunger recoil (Thanks Highrise for the suggestion)
Dim recoilpos 'Variable for recoil position
Dim Score10k, ScoreK, Score100, Score10, Score1 'Define 5 different score values for each reel to use
Dim ActivePlayer, roll
Dim reelpulseslocal(24,2) '(PulseQueue, ReelValue)
dim spinnum1
Sub Table1_Init()
ResetB2SData 0,49,0 'Initialise the b2s data area
LaunchBackGlass "Skykings_FS_VP911_B2S", LaunchB2SBackglass
recoil = False 'Set recoil booleen to False
plungerpos = 0 'Set plunger position to zero
pullback = False 'Set pullback booleen to False
ballready = False 'Set ballready booleen to False
Set plunger(1) = kicker5.CreateBall 'Create first ball in plunger, set to array item 1
Set plunger(2) = kicker6.CreateBall 'Create second ball in plunger, set to array item 2
Set plunger(3) = kicker7.CreateBall 'Create third ball in plunger, set to array item 3
Set plunger(4) = kicker8.CreateBall
plunger(1).Image = "plunger1" 'Set image on plunger(1) to plunger1 image in image collection
plunger(2).Image = "plunger2" 'Set image on plunger(2) to plunger1 image in image collection
plunger(3).Image = "plunger3" 'Set image on plunger(3) to plunger1 image in image collection
plunger(4).Image = "plunger3"
For pcounter = 1 to 4 'This counter raises the balls that make up the plunger to a height of 40
plunger(pcounter).z = 40
Next
Score=0
DefaultHighScore=10
HighScore=LoadValue("Table1","HighScore")
If HighScore="" then
HighScore=DefaultHighScore
Else
HighScore=Cdbl(HighScore)
End If
HScore.Text=HighScore
For Each i In BReels
i.SetValue 0
Next
BReels(48).SetValue 1 'Game Over
ActivePlayer=1
End Sub
Sub TimeBox_Timer
TimeBox.Text=Date&chr(13)&Time
End Sub
Active = False:Timer3.Enabled=False
Kicker2.CreateBall:Kicker2.Kick 135,4
Kicker3.CreateBall:Kicker3.Kick -135,4
TargetLB2.IsDropped=True:TargetRB2.IsDropped=True
TargetLT2.IsDropped=True:TargetRT2.IsDropped=True
Sub Table1_KeyDown(ByVal keycode)
If keycode = 6 and Active = False and Credits < 9 Then
PlaySound "CoinSound"
Credits = Credits + 2
EMReel3.AddValue(2)
End If
If keycode = 2 and Credits > 0 and Active = False Then
EMReel1.ResetToZero:EMReel2.ResetToZero:EMReel4.ResetToZero
'----------------------------------
For i = 1 To 24
reelpulseslocal (i,1)=0
reelpulseslocal (i,2)=0
Next
For i = 0 to 6
BReels(i).ResetToZero
Next
For i = 7 to 49
BReels(i).SetValue 0
Next
BReels(47).SetValue 10 'Match off
'------------------------------------
PlaySound "coin"
NUD = 0:TILT = 0:SECS = 100:TI = 0
Credits = Credits - 1
EMReel3.AddValue(-1)
Active = True
GameOver.Text = " "
Score = 0
Score2 = 0
EMReel2.AddValue (1)
Bonus = 1000
BonusLights
Score = 0
Match = 0
BALL = 1
B5EB = 0 '<- shuts off dbl bonus if extra ball at ball 5
B = 0
BM1 = 0
BM2 = 0
BT1 = 0
BT2 = 0
B1 = 0
B2 = 0
LOL = 0
ROL = 0
EB1 = 0
EB2 = 0
SPIN = 0
BReels(45).SetValue BALL
REM RESET ALL variables and lights here
ActBalls = 1
Timer3.Enabled = True
Set bal = Kicker4.CreateBall
'Kicker4.CreateBall
Kicker4.Kick 70,5
PlaySound "ballin"
RollTimer.Enabled=1
End If
If keycode = PlungerKey Then
pullback = True
End If
If keycode = LeftFlipperKey and Active = True Then
LeftFlipper.RotateToEnd
PlaySound "FlipperUp"
End If
If keycode = RightFlipperKey and Active = True Then
RightFlipper.RotateToEnd
PlaySound "FlipperUp"
End If
If keycode = LeftTiltKey and Active = True Then:Nudge 90,1.5:GoNudge:End If 'NUDGING
If keycode = RightTiltKey and Active = True Then:Nudge 270,1.5:GoNudge:End If
If keycode = CenterTiltKey and Active = True Then:Nudge 180,1.5:GoNudge:End If
If keycode=45 and Active = True Then:Nudge 90,1:GoNudge:End If
If keycode=52 and Active = True Then:Nudge 270,1:GoNudge:End If
If keycode=56 and Active = True or keycode=184 Then:Nudge 0,1:GoNudge:End If
If keycode = 19 Then
Playsound "info"
RulesText = " KEYPRESSES for - Skykings, 1973 Bally - VERSION 1.1 for VP9" & chr(13)
RulesText = RulesText + " UPDATED from VP6 to VP9 by druadic" & chr(13)
RulesText = RulesText + "" & chr(13)
RulesText = RulesText + " Press 5 to add credits - Press 1 to start a game." & chr(13)
RulesText = RulesText + "" & chr(13)
RulesText = RulesText + "NUDGE:" & chr(13)
RulesText = RulesText + "" & chr(13)
RulesText = RulesText + "Z and / to nudge left or right HARD." & chr(13)
RulesText = RulesText + "X and > to nudge left or right SOFT." & chr(13)
RulesText = RulesText + "" & chr(13)
RulesText = RulesText + "SPACE BAR nudge HARD UP - LEFT or RIGHT ALT nudge SOFT UP." & chr(13)
RulesText = RulesText + "" & chr(13)
RulesText = RulesText + "PLUNGER:" & chr(13)
RulesText = RulesText + "" & chr(13)
RulesText = RulesText + "RETURN or ENTER KEY to pull back or release the plunger." & chr(13)
RulesText = RulesText + "" & chr(13)
RulesText = RulesText + " For full rules read the document files included in the zip." & chr(13)
RulesText = RulesText + "" & chr(13)
MsgBox RulesText, vbOKonly, TableName
End If
End Sub
Sub Table1_KeyUp(ByVal keycode)
If keycode = PlungerKey Then
PlaySound "plungerspring"
PlaySound "BallRollSound"
pullback = False
End If
If keycode = LeftFlipperKey and Active = True Then
LeftFlipper.RotateToStart
PlaySound "FlipperDown"
End If
If keycode = RightFlipperKey and Active = True Then
RightFlipper.RotateToStart
PlaySound "FlipperDown"
End If
End Sub
Sub Drain_Hit()
If TILT = 1 Then '<- Tilt Reset
NUD = 0:TILT = 0:SECS = 100:TI = 0:TM=1
Bumper1.Disabled=False:Bumper2.Disabled=False:Bumper3.Disabled=False
Bumper4.Disabled=False:LeftSlingshot.Disabled=False
RightSlingshot.Disabled=False:LeftInlane.Enabled=True
RightInlane.Enabled=True:LeftOutlane.Enabled=True
RightOutlane.Enabled=True:Trigger1.Enabled=True
Trigger2.Enabled=True
End If
BonusBox.Text = "0"
PlaySound "ballout"
RollTimer.Enabled=0
Drain.DestroyBall
If BALL < 5 Then
BonusCheck
End If
Bumper3.State = LightStateOff:Bumper4.State = LightStateOff
Light7.State = LightStateOff:Light8.State = LightStateOff
Light9.State = LightStateOff:Light10.State = LightStateOff
Light11.State = LightStateOff:Light12.State = LightStateOff
Light13.State = LightStateOff:Light14.State = LightStateOff
Light15.State = LightStateOff:Light3.State = LightStateOff
Light4.State = LightStateOff:Light1.State = LightStateOff
Light2.State = LightStateOff:Light17.State = LightStateOff
Light18.State = LightStateOff:Light19.State = LightStateOff
Light20.State = LightStateOff:Light21.State = LightStateOff
Light22.State = LightStateOff:Light23.State = LightStateOff
Light24.State = LightStateOff:Light25.State = LightStateOff
Light26.State = LightStateOff:Light27.State = LightStateOff
Light28.State = LightStateOff
If BALL = 5 and B5EB = 0 Then
DoubleBonusCheck:DBL = 0
End If
If BALL = 5 and EB1 = 0 Then '<- GAME OVER
Active = False:ActBalls = 0:Timer3.Enabled=False
Kicker4.DestroyBall:Light5.State = LightStateOff
GameOver.Text = "Game Over":EMReel2.ResetToZero
BReels(48).SetValue 1
BReels(45).SetValue 0
LeftFlipper.RotateToStart:RightFlipper.RotateToStart
DoubleBonusCheck
Else
If EB1 = 2 Then '<- Extra Ball Awarded
DBL=0:Light5.State=LightStateOff:Light6.State=LightStateOff
GameOver.Text = "Shoot Again"
End If
If BALL <> 6 Then
Drain.TimerEnabled = True
Drain.TimerInterval = 1800
PlaySound "MekSound"
End If
End If
End Sub
Sub Drain_Timer()
Drain.TimerEnabled = False
Timer3.Enabled = True:Active = True:TiltBox.Text = ""
BReels(46).SetValue 0
PlaySound "ballin"
If BALL < 6 and EB1 = 0 Then
BALL = BALL + 1:EMReel2.AddValue (1)
BReels(45).SetValue BALL
End If
BM1 = 0:BM2 = 0:BT1 = 0:BT2 = 0:B1 = 0:B2 = 0:LOL = 0:ROL = 0
EB1 = 0:EB2 = 0:SPIN = 0:B = 0
Bonus = 1000
BonusLights
GameOver.Text = " "
BReels(49).SetValue 0
If BALL = 5 and B5EB = 1 Then
Light5.State = LightStateOff:DBL = 0
End If
If BALL = 5 and B5EB = 0 Then
Light5.State = LightStateOn:B5EB = 1:DBL = 1
End If
If BALL <> 6 Then
Set bal = Kicker4.CreateBall
Kicker4.Kick 80,5
RollTimer.Enabled=1
Timer3.Enabled = True
Active = True:TM = 1
End If
End Sub
Sub LeftSlingshot_Slingshot()
'PlaySound "bell10"
PlaySound "rsling"
EMReel1.AddValue (10)
AddScore (10) '<- add score for match
AddScore2 (10):NewScore 4,1 '10pts
End Sub
Sub RightSlingshot_Slingshot()
'PlaySound "bell10"
PlaySound "rsling"
EMReel1.AddValue (10)
AddScore (10) '<- add score for match
AddScore2 (10):NewScore 4,1 '10pts
End Sub
Sub Kicker1_Hit()
If TILT = 0 Then
EMReel1.AddValue (3000)
AddScore2 (3000):NewScore 2,3 '3000pts
'PlaySound "bell1000-3"
Light1.State = LightStateOn:Light2.State = LightStateOn
Bumper3.State=LightStateOn:Bumper4.State=LightStateOn
B1 = 1:B2 = 1
BM1 = 1:BM2 = 1
BT1 = 1:BT2 = 1
End If
Kicker1.TimerEnabled = True
Kicker1.TimerInterval = 500
End Sub
Sub Kicker1_Timer()
Kicker1.TimerEnabled = False
PlaySound "saucer"
Kicker1.Kick 192,5
End Sub
Sub Collection1_Hit(index) '<-right & left outlanes
'PlaySound "bell1000"
EMReel1.AddValue (1000)
AddScore2 (1000):NewScore 2,1 '1000pts
End Sub
Sub Collection2_Hit(index) '<-right & left inlanes
Bonus = Bonus + 1000
EMReel1.AddValue (1000)
AddScore2 (1000):NewScore 2,1 '1000pts
'PlaySound "bell1000"
BonusLights
End Sub
Sub Collection3_Hit(index) '<-all 10 point bump areas
If TILT = 0 Then
EMReel1.AddValue (10)
AddScore (10) '<- add score for match
AddScore2 (10):NewScore 4,1 '10pts
'PlaySound "bell10"
BonusLights
End If
End Sub
Sub Collection3_Hit(index)
PlaySound "rubberS"
End Sub
Sub Trigger1_Hit() '<- Yellow side trigger / yellow activation
Bumper3.State = LightStateOn:Light2.State = LightStateOn
If BM1 = 0 Then
EMReel1.AddValue (500)
AddScore2 (500):NewScore 3,5 '500pts
'PlaySound "bell100-5"
BM1 = 1':BM2 = 0
BT1 = 1':BT2 = 0
B1 = 1:B2 = 0
Else
If BM1 = 1 Then
EMReel1.AddValue (500)
AddScore2 (500):NewScore 3,5 '500pts
'PlaySound "bell100-5"
End If
End If
End Sub
Sub Trigger2_Hit() '<- Green side trigger / green activation
Bumper4.State = LightStateOn:Light1.State = LightStateOn
If BM2 = 0 Then
EMReel1.AddValue (500)
AddScore2 (500):NewScore 3,5 '500pts
'PlaySound "bell100-5"
BM2 = 1':BM1 = 0
BT2 = 1':BT1 = 0
B2 = 1:B1 = 0
Else
If BM2 = 1 Then
EMReel1.AddValue (500)
AddScore2 (500):NewScore 3,5 '500pts
'PlaySound "bell100-5"
End If
End If
End Sub
Sub Trigger3_Hit()
EMReel1.AddValue (1000)
AddScore2 (1000):NewScore 2,1 '1000pts
'PlaySound "bell1000"
Trigger3.Enabled=False
End Sub
Sub Trigger4_Hit()
EMReel1.AddValue (1000)
AddScore2 (1000):NewScore 2,1 '1000pts
'PlaySound "bell1000"
Trigger4.Enabled=False
End Sub
Sub Trigger5_Hit()
EMReel1.AddValue (1000)
AddScore2 (1000):NewScore 2,1 '1000pts
'PlaySound "bell1000"
Trigger5.Enabled=False
End Sub
Sub Trigger6_Hit()
EMReel1.AddValue (1000)
AddScore2 (1000):NewScore 2,1 '1000pts
'PlaySound "bell1000"
Trigger6.Enabled=False
End Sub
Sub Trigger7_Hit()
Trigger3.Enabled=True:Trigger4.Enabled=True
End Sub
Sub Trigger10_UnHit()
PlaySound "BallCollision1"
End Sub
Sub Trigger8_Hit()
Trigger5.Enabled=True:Trigger6.Enabled=True
End Sub
Sub Trigger11_UnHit()
PlaySound "BallCollision1"
End Sub
Sub Trigger9_Hit() '<- For plunger
ballready = True
End Sub
Sub Trigger9_Unhit() '<- For plunger
ballready = False
End Sub
Sub Bumper1_Hit() '<- Yellow mushroom bumper
Light2.State = LightStateOn:BT1 = 1:B1 = 1
PlaySound "nopoints"
End Sub
Sub Bumper2_Hit() '<- Green mushroom bumper
Light1.State = LightStateOn:BT2 = 1:B2 = 1
PlaySound "nopoints"
End Sub
Sub Bumper3_Hit() '<- Yellow TOP thumper bumper
If BM1 = 1 Then
EMReel1.AddValue (100)
AddScore2 (100):NewScore 3,1 '100pts
'PlaySound "bell100"
End If
If BM1 = 0 Then
EMReel1.AddValue (10)
AddScore2 (10):NewScore 4,1 '10pts
AddScore (10) '<- Score for match
'PlaySound "bell10"
End If
End Sub
Sub Bumper4_Hit() '<- Green TOP thumper bumper
If BM2 = 1 Then
EMReel1.AddValue (100)
AddScore2 (100):NewScore 3,1 '100pts
'PlaySound "bell100"
End If
If BM2 = 0 Then
EMReel1.AddValue (10)
AddScore2 (10):NewScore 4,1 '10pts
AddScore (10) '<- Score for match
'PlaySound "bell10"
End If
End Sub
Sub TargetRB1_Hit() ' <- bottom RIGHT FRONT target
T=0:Timer1.Enabled=True
EMReel1.AddValue (1000)
AddScore2 (1000):NewScore 2,1 '1000pts
'PlaySound "bell1000"
If ROL = 1 Then
EB1 = 2
Light4.State = LightStateOff
Light6.State = LightStateOn
BReels(49).SetValue 1
End If
TargetRB1.IsDropped=True:TargetRB2.IsDropped=False
End Sub
Sub TargetLB1_Hit() '<- bottom LEFT FRONT target
T=0:Timer1.Enabled=True
EMReel1.AddValue (1000)
AddScore2 (1000):NewScore 2,1 '1000pts
'PlaySound "bell1000"
If LOL = 1 Then
EB1 = 2
Light3.State = LightStateOff
Light6.State = LightStateOn
BReels(49).SetValue 1
End If
TargetLB1.IsDropped=True:TargetLB2.IsDropped=False
End Sub
Sub Timer1_Timer() '<-keeps track of BOTTOM moving targets
T=T+1
If T=2 Then
TargetRB2.IsDropped=True:TargetRB1.IsDropped=False
TargetLB2.IsDropped=True:TargetLB1.IsDropped=False
Timer1.Enabled=False:T=0
End If
End Sub
Sub TargetLT1_Hit() '<- top LEFT target
T2=0:Timer2.Enabled=True
'PlaySound "bell1000"
If Bonus >= 15000 and B = 1 Then '<- REPLAY PAID
B = 2:PlaySound "knocker"
EMReel3.AddValue (1)
Credits = Credits + 1
Light27.State = LightStateOff
Light28.State = LightStateOff
End If
If BT1 = 1 Then
Light27.State = LightStateOff
EMReel1.AddValue (1000)
AddScore2 (1000):NewScore 2,1 '1000pts
Bonus = Bonus + 1000
End If
TargetLT1.IsDropped=True:TargetLT2.IsDropped=False
BonusLights
End Sub
Sub TargetRT1_Hit() '<- top RIGHT target
T2=0:Timer2.Enabled=True
'PlaySound "bell1000"
If Bonus >= 15000 and B = 1 Then '<- REPLAY PAID
B = 2:PlaySound "knocker"
EMReel3.AddValue (1)
Credits = Credits + 1
Light27.State = LightStateOff
Light28.State = LightStateOff
End If
If BT2 = 1 Then
Light28.State = LightStateOff
EMReel1.AddValue (1000)
AddScore2 (1000):NewScore 2,1 '1000pts
Bonus = Bonus + 1000
End If
TargetRT1.IsDropped=True:TargetRT2.IsDropped=False
BonusLights
End Sub
Sub Timer2_Timer() '<-keeps track of TOP moving targets
T2=T2+1
If T2=2 Then
TargetRT2.IsDropped=True:TargetRT1.IsDropped=False
TargetLT2.IsDropped=True:TargetLT1.IsDropped=False
Timer2.Enabled=False:T2=0
End If
End Sub
Sub Spinner1_Spin()
If TILT = 0 Then
PlaySound "soloff"
EMReel1.AddValue (100)
AddScore2 (100):NewScore 3,1 '100pts
SpinNum1 = SpinNum1 + 1
SPIN = SPIN + 1
If SPIN = 1 Then Light17.State = LightStateOn:Light26.State = LightStateOff
If SPIN = 2 Then Light18.State = LightStateOn
If SPIN = 3 Then Light19.State = LightStateOn
If SPIN = 4 Then Light20.State = LightStateOn
If SPIN = 5 Then Light21.State = LightStateOn
If SPIN = 6 Then Light22.State = LightStateOn
If SPIN = 7 Then Light23.State = LightStateOn
If SPIN = 8 Then Light24.State = LightStateOn
If SPIN = 9 Then Light25.State = LightStateOn
If SPIN = 10 Then
Light26.State = LightStateOn
Light17.State = LightStateOff
Light18.State = LightStateOff
Light19.State = LightStateOff
Light20.State = LightStateOff
Light21.State = LightStateOff
Light22.State = LightStateOff
Light23.State = LightStateOff
Light24.State = LightStateOff
Light25.State = LightStateOff
SPIN = 0
Bonus = Bonus + 1000
BonusLights
End If
End If
End Sub
Sub Gate1_Hit()
PlaySound "Gate"
End Sub
Sub AddScore (points) '<- Check 10's in score only for free replay
Score = Score + points
If Score = 100 Then
Score = 0
End If
End Sub
Sub AddScore2 (points) '<- For Normal Scoring for Save
Score2 = Score2 + points
End Sub
Sub MatchCheck()
Randomize '<- Randomize the match points
Match = Int(Rnd(1) * 10)
BReels(47).SetValue Match-1
If Match = 1 Then:Match = 10:End If
If Match = 2 Then:Match = 20:End If
If Match = 3 Then:Match = 30:End If
If Match = 4 Then:Match = 40:End If
If Match = 5 Then:Match = 50:End If
If Match = 6 Then:Match = 60:End If
If Match = 7 Then:Match = 70:End If
If Match = 8 Then:Match = 80:End If
If Match = 9 Then:Match = 90:End If
If Match = 10 Then:Match = 00: End If
EMReel4.AddValue (Match)
If Score = Match Then '<- If Score = Match then award one replay
PlaySound "knocker"
EMReel3.AddValue (1)
Credits = Credits + 1
End If
CheckHighScore
End Sub
Sub BonusCheck() '<- Balls 1 - 4 ONLY
If Bonus >= 15000 Then
Bonus = 15000
End If
EMReel1.AddValue (Bonus)
AddScore2 Bonus
While bonus>9000
NewScore 1,1
bonus=bonus-10000
Wend
While bonus>0
NewScore 2,1
bonus=bonus-1000
Wend
Bonus = 0
End Sub
Sub DoubleBonusCheck() '<- Ball 5 ONLY
If Bonus >= 30000 Then
Bonus = 30000
End If
EMReel1.AddValue (Bonus)
AddScore2 Bonus
While bonus>9000
NewScore 1,1
bonus=bonus-10000
Wend
While bonus>0
NewScore 2,1
bonus=bonus-1000
Wend
Bonus = 0
MatchCheck
End Sub
'REM YELLOW BONUS: 8,000 / 10,000 / 12,000 / 14,000
'REM GREEN BONUS: 9,000 / 11,000 / 13,000
Sub BonusLights()
BonusBox.Text = ""&Bonus&""
If Bonus >= 15000 and B = 0 Then '<- SPECIAL LIT / Bonus at 15000
Light28.State = LightStateOn:Light27.State = LightStateOn:B = 1
End If
If Bonus >= 15000 and BALL <> 5 Then
BonusBox.Text = "15000"
End If
If Bonus >= 30000 and BALL = 5 Then
BonusBox.Text = "30000"
End If
If Bonus > 14000 Then
Light3.State = LightStateOff:Light4.State = LightStateOff
LOL = 0:ROL = 0
End If
'REM YELLOW EXTRA BALL ON (change sides ON)
If Bonus = 8000 or Bonus = 10000 or Bonus = 12000 or Bonus = 14000 Then
Light3.State = LightStateOn:Light4.State = LightStateOff
LOL = 1:ROL = 0
End If
'REM GREEN EXTRA BALL ON (change sides ON)
If Bonus = 9000 or Bonus = 11000 or Bonus = 13000 Then
Light4.State = LightStateOn:Light3.State = LightStateOff
ROL = 1:LOL = 0
End If
If EB1 = 2 or EB2 = 2 Then '<- Extra Ball GOT Check
Light3.State = LightStateOff:Light4.State = LightStateOff
LOL = 0:ROL = 0
End If
'REM CONTROLS BONUS LIGHTS BY 1000's / spinner (all below)
If Bonus = 10000 or Bonus = 20000 or Bonus = 30000 or Bonus = 40000 or Bonus = 50000 or Bonus = 60000 or Bonus = 70000 or Bonus = 80000 or Bonus = 90000 Or Bonus = 100000 Then
Light7.State = LightStateOn
Light8.State = LightStateOff
Light9.State = LightStateOff
Light10.State = LightStateOff
Light11.State = LightStateOff
Light12.State = LightStateOff
Light13.State = LightStateOff
Light14.State = LightStateOff
Light15.State = LightStateOff
Light16.State = LightStateOff
End If
If Bonus = 1000 or Bonus = 11000 or Bonus = 21000 or Bonus = 31000 or Bonus = 41000 or Bonus = 51000 or Bonus = 61000 or Bonus = 71000 or Bonus = 81000 or Bonus = 91000 Then
Light16.State = LightStateOn
End If
If Bonus = 2000 or Bonus = 12000 or Bonus = 22000 or Bonus = 32000 or Bonus = 42000 or Bonus = 52000 or Bonus = 62000 or Bonus = 72000 or Bonus = 82000 or Bonus = 92000 Then
Light15.State = LightStateOn
End If
If Bonus = 3000 or Bonus = 13000 or Bonus = 23000 or Bonus = 33000 or Bonus = 43000 or Bonus = 53000 or Bonus = 63000 or Bonus = 73000 or Bonus = 83000 or Bonus = 93000 Then
Light14.State = LightStateOn
End If
If Bonus = 4000 or Bonus = 14000 or Bonus = 24000 or Bonus = 34000 or Bonus = 44000 or Bonus = 54000 or Bonus = 64000 or Bonus = 74000 or Bonus = 84000 or Bonus = 94000 Then
Light13.State = LightStateOn
End If
If Bonus = 5000 or Bonus = 15000 or Bonus = 25000 or Bonus = 35000 or Bonus = 45000 or Bonus = 55000 or Bonus = 65000 or Bonus = 75000 or Bonus = 85000 or Bonus = 95000 Then
Light12.State = LightStateOn
End If
If Bonus = 6000 or Bonus = 16000 or Bonus = 26000 or Bonus = 36000 or Bonus = 46000 or Bonus = 56000 or Bonus = 66000 or Bonus = 76000 or Bonus = 86000 or Bonus = 96000 Then
Light11.State = LightStateOn
End If
If Bonus = 7000 or Bonus = 17000 or Bonus = 27000 or Bonus = 37000 or Bonus = 47000 or Bonus = 57000 or Bonus = 67000 or Bonus = 77000 or Bonus = 87000 or Bonus = 97000 Then
Light10.State = LightStateOn
End If
If Bonus = 8000 or Bonus = 18000 or Bonus = 28000 or Bonus = 38000 or Bonus = 48000 or Bonus = 58000 or Bonus = 68000 or Bonus = 78000 or Bonus = 88000 or Bonus = 98000 Then
Light9.State = LightStateOn
End If
If Bonus = 9000 or Bonus = 19000 or Bonus = 29000 or Bonus = 39000 or Bonus = 49000 or Bonus = 59000 or Bonus = 69000 or Bonus = 79000 or Bonus = 89000 or Bonus = 99000 Then
Light8.State = LightStateOn
End If
End Sub
Sub GoNudge '<- Table Nudging from keys
TI=TI+1
End Sub
Sub Timer3_Timer() '<- TILT "LEVEL" CHECK STATUS
SECS = SECS - 2
If TI=4 Then
TiltBox.Text = "-TILT-"
End If
If TI=3 Then
TiltBox.Text = "-TIL-"
End If
If TI=2 Then
TiltBox.Text = "-TI-"
End If
If TI=1 Then
TiltBox.Text = "-T-"
End If
If TI=0 Then
TiltBox.Text = ""
End If
If SECS=70 Then:TI=TI-1:End If
If SECS=40 Then:TI=TI-1:End If
If SECS=10 Then:TI=TI-1:End If
If SECS = 0 and TI < 9 or TI = 0 Then:SECS = 100:TI=0:End If
If TI = 4 and SECS <> 0 Then '<- TILTED
BReels(46).SetValue 1
PlaySound "solon"
TILT=1:Timer3.Enabled = False:Active = False:TiltBox.Text = "TILT"
Bumper1.Disabled=True:Bumper2.Disabled=True:Bumper3.Disabled=True
Bumper4.Disabled=True:LeftSlingshot.Disabled=True
RightSlingshot.Disabled=True:LeftInlane.Enabled=False
RightInlane.Enabled=False:LeftOutlane.Enabled=False
RightOutlane.Enabled=False:Trigger1.Enabled=False
Trigger2.Enabled=False
End If
End Sub
Sub plungertimer_Timer()
If recoil = True and recoilpos <> 0 then 'When recoil and recoil position is not zero
plungerpos = recoilpos 'Set plunger position to recoil position
recoilpos = 0 'Set recoil position to zero
For pcounter = 1 to 4 'For loop to move each plunger ball Y position to plunger position
plunger(pcounter).y = plunger(pcounter).y + plungerpos
Next
Exit Sub 'Exit the sub (recoil in showing, next pass, the plunger will go back to zero position)
End If
If pullback = True and plungerpos < 145 then 'When plungerkey is down and the plunger is not all the way back
plungerpos = plungerpos + 1 'Increment the plunger position by 1
For pcounter = 1 to 4 'For loop to move each plunger balls Y position by 1
plunger(pcounter).y = plunger(pcounter).y + 1
Next
ElseIf pullback = False and plungerpos <> 0 then 'Else if plungerkey released and plunger position is not 0
For pcounter = 1 to 4 'For loop to move each plunger ball back to it's original position
plunger(pcounter).y = plunger(pcounter).y - plungerpos
Next
If ballready = True then bal.vely = bal.vely - (plungerpos/3) 'If the ball is in position, fire ball at -Y velosity value of plunger position - 3
If recoil = False then 'If recoil is False then
plungertimer.Interval = 30 'Slow the plunger timer down to interval 30
recoilpos = plungerpos / 5 'Set the recoil position to a 5th of the plunger position
recoil = True 'Set recoil booleen to true (ready for recoil next pass through timer)
Else 'Else recoil is True
plungertimer.Interval = 10 'Set the plunger timer to normal interval of 10
recoil = False 'Set recoil booleen to False (recoil done)
End If
plungerpos = 0 'Set plunger position to zero
End If
End Sub
Sub CheckHighScore
If Score2>HighScore then
HighScore=Score2
HScore.Text=Score2
SaveValue "Table1", "HighScore", HighScore
End If
End Sub
'----------------------------------------------------------
Sub NewScore (ByVal reel,ByVal pulses)
Dim ri
'Reel Array --> reelpulseslocal(24,2) '(PulseQueue, ReelValue)
ri=(ActivePlayer-1)*6+reel
reelpulseslocal (ri,1)=reelpulseslocal (ri,1)+pulses
End Sub
Sub ScoreTimer_Timer()
Dim ri
BReels(42).SetValue Credits
If ActivePlayer>0 And TILT=0 Then
ri=(ActivePlayer-1)*6
For i =4 to 1 Step -1
If reelpulseslocal (ri+i,1)>0 Then
Select Case i
Case 4
PlaySound "CFchime1"
Case 3
PlaySound "CFchime2"
Case 2
PlaySound "CFchime3"
Case 1
PlaySound "CFchime2"
End Select
reelpulseslocal (ri+i,1)=reelpulseslocal (ri+i,1)-1
reelpulseslocal (ri+i,2)=reelpulseslocal (ri+i,2)+1
If reelpulseslocal (ri+i,2)=10 Then
If i=1 Then
' Overflow
reelpulseslocal (ri+i,1)=0
reelpulseslocal (ri+i,2)=0
' Coins=Coins+1
PlaySound "buzzer"
' PlaySound "Knocker"
BReels(37+ActivePlayer).SetValue 1
Else
reelpulseslocal (ri+i-1,1)=reelpulseslocal (ri+i-1,1)+1
reelpulseslocal (ri+i,2)=0
End If
End If
BReels(ri+i-1).SetValue reelpulseslocal (ri+i,2)
' If i=1 And reelpulseslocal (ri+i,2)=7 Then
' Coins=Coins+1
' PlaySound "Knocker"
' End If
End If
Next
End If
End Sub
Sub RollTimer_Timer()
' ****************************************************
' * Thanks to RASCAL for the rolling ball sound code *
' ****************************************************
If (Abs(int(bal.velx)) or Abs(int(bal.vely))) > 5 and roll = 0 then
roll = 1
StopSound "rollstop"
PlaySound "roll1"
ElseIf (Abs(int(bal.velx)) or Abs(int(bal.vely))) <= 6 and roll = 1 then
roll = 0
StopSound "roll1"
PlaySound "rollstop"
End If
End Sub
Click here to download this file
Top
are all trademarks of VPFORUMS.