fastdraw
Inserted Coin
- Joined
- Dec 16, 2015
- Messages
- 226
- Reaction score
- 159
- Points
- 56
- Favorite Pinball Machine
- afm mm cv
at the very beginning of the starter loading
it starts like a game (ball ejected) except that the flippers are stopped.
I would like, that there are at the beginning NO BALLSs and flippers at the stop.
attached my starter below
it starts like a game (ball ejected) except that the flippers are stopped.
I would like, that there are at the beginning NO BALLSs and flippers at the stop.
attached my starter below
Option Explicit Randomize Dim Ball Dim Balls Dim Score Dim ScoreToAdd Dim InProgress: Inprogress=False Dim Credits: Credits=1 Dim light ball=0 balls=3 '**********KEYS DOWN********** Sub Table1_KeyDown(ByVal keycode) If InProgress = True Then If keycode = LeftFlipperKey Then LeftFlipper.RotateToEnd PlaySound "flipperup" End If End If If InProgress = True Then If keycode = RightFlipperKey Then RightFlipper.RotateToEnd PlaySound "flipperup" End If End If If keycode = PlungerKey Then Plunger.PullBack 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 If keycode = AddCreditKey Then Credits=credits + 1 CreditBox.Text=Credits If InProgress= False Then ScoreBox.Text = "Press Start" PlaySound "coin" End If If InProgress = False Then If Keycode = StartGameKey And Credits>0 Then Credits=Credits-1 CreditBox.Text=Credits NewGame InProgress=True End If End If End Sub '**********KEYS UP********** Sub Table1_KeyUp(ByVal keycode) If keycode = PlungerKey Then Plunger.Fire PlaySound "plunger" End If If InProgress = True Then If keycode = LeftFlipperKey Then LeftFlipper.RotateToStart PlaySound "flipperdown" End If If keycode = RightFlipperKey Then RightFlipper.RotateToStart PlaySound "flipperdown" End If End If End Sub '**********NEW GAME********** Sub NewGame InProgress=True DrainTimer.Interval=4000 DrainTimer.Enabled = True ScoreBox.Text="" Score=0 Ball=0 BallBox.Text=Ball ScoreBox.Text=Score TextBox2.Text = "BALL" End Sub '**********SCORE********** Sub AddScore(ScoreToAdd) Score=Score+ScoreToAdd ScoreBox.Text=Score End Sub '**********TABLE INIT********** Sub Table1_Init() TextBox2.Text = "" BallBox.Text = "" Ball=0 Balls=3 ScoreBox.Text = "Insert Coin" End Sub '**********DRAIN********** Sub Drain_Hit() Drain.DestroyBall If Ball < Balls Then ' Is ball played less than total Balls or is the Game Over DrainTimer.Interval=3000 DrainTimer.Enabled = True ' If not, then let's play another ball, but let's set the timer for a delay Else ' Sorry, but the game is now over GameOver ' Go to game over to finish up End If End Sub Sub DrainTimer_Timer() DrainTimer.Enabled = False ' When timer runs out we will do the stuff below Kicker1.CreateBall Kicker1.Kick 90,10 PlaySound "ballrel" Ball = Ball + 1 BallBox.Text=Ball End Sub '**********GAME OVER********** Sub GameOver TextBox2.Text = "" BallBox.Text = "" InProgress=False ScoreBox.Text="Game Over" End Sub
Attachments
Last edited: