by James Wilson (2 Submissions)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 2nd December 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This game is a lot like AllyWay only without the blocks to destroy. Feel free however to fiddle and add the blocks in
VBcoders
'designed by james wilson
'start date 04/02/03
'finnished 07/02/03
'version 1.1
Option Explicit
Public fryer1x
Public fryer1y
Public fryer2x
Public fryer2y
Public fryer3x
Public fryer3y
Public fryer4x
Public fryer4y
Public fleaflick
Public flyauto
Public bounce
Private Sub doits()
Do While fleaflick = True
fryer3x = fryer1x
fryer3y = fryer1y
fryer1x = fryer1x + fryer2x
fryer1y = fryer1y + fryer2y
If fryer1x > 4300 Then fryer2x = 0 - fryer2x
If fryer1x < 300 Then fryer2x = 0 - fryer2x
If fryer1y > 5000 Then
fryer2y = 0 - fryer2y
fryer2y = fryer2y - 50
bounce = bounce + 1
End If
If fryer1y < 10 Then fryer2y = 0 - fryer2y
Sleep (100)
Call ball
'Call paddle
DoEvents
Loop
End Sub
Private Sub cmddemo_Click()
Dim fatcat As String
If flyauto = False Then
flyauto = True
Else: flyauto = False
End If
'fatcat = Text1.Text
'If Text1.Text <> "" Then Text1.Text = Asc(fatcat)
End Sub
Private Sub cmdnewball_Click()
'release the ball
fleaflick = True
fryer1x = 300
fryer1y = 200
fryer2x = 200
fryer2y = 100
fryer4x = 400
fryer4y = 5300
'sets paddle speed
bounce = 400
Call doits
End Sub
Private Sub paddle()
'this changes paddle background colour
pingpong.ForeColor = &H0&
Line (1, fryer4y)-(5300, fryer4y)
'this changes the paddle colour
pingpong.ForeColor = &HFF00&
Line ((fryer4x - 200), fryer4y)-((fryer4x + 200), fryer4y)
End Sub
Private Sub cmdpause_Click()
pingpong.ForeColor = &H0
Line (1, fryer4y)-(5000, fryer4y)
Circle (fryer1x, fryer1y), 25
fleaflick = False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If flyauto = False Then
If KeyAscii = Asc("4") Then
fryer4x = fryer4x - bounce
If fryer4x < 300 Then fryer4x = 500
Call paddle
End If
If KeyAscii = Asc("6") Then
fryer4x = fryer4x + bounce
If fryer4x > 4200 Then fryer4x = 4200
Call paddle
End If
End If
End Sub
Private Sub Form_Load()
Dim fryer1x As Integer
Dim fryer1y As Integer
Dim fryer2x As Integer
Dim fryer2y As Integer
Dim fryer3x As Integer
Dim fryer3y As Integer
Dim fryer4x As Integer
Dim fryer4y As Integer
Dim fleaflick As Boolean
Dim flyauto As Boolean
Dim bounce As Integer
flyauto = False
End Sub
Private Sub ball()
Dim flipper As Boolean
flipper = False
If flyauto = True Then
fryer4x = fryer1x
flipper = True
End If
If flyauto = False Then
If fryer1y > 5000 Then
If fryer4x > fryer1x Then
If (fryer4x - fryer1x) <= 500 Then flipper = True
End If
If fryer1x > fryer4x Then
If (fryer1x - fryer4x) <= 500 Then flipper = True
End If
Else: flipper = True
End If
End If
If flipper = True Then
Call paddle
'this changes the track colour of the ball
pingpong.ForeColor = &H0&
Circle (fryer3x, fryer3y), 25
'this changes the ball colour
pingpong.ForeColor = &HFF00&
Circle (fryer1x, fryer1y), 25
Else: fleaflick = False
End If
Text1.Text = bounce
If bounce > 1000 Then
bounce = 50
fryer2y = 200
End If
End Sub
' Sleep (1000) ' Sleep for 1 seconds
Sub Sleep(ByVal MillaSec As Long, Optional ByVal DeepSleep As Boolean = False)
Dim tStart#, Tmr#
tStart = Timer
While Tmr < (MillaSec / 1000)
Tmr = Timer - tStart
If DeepSleep = False Then DoEvents
Wend
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
End
End Sub
Private Sub Text1_Change()
End Sub
No comments have been posted about This game is a lot like AllyWay only without the blocks to destroy. Feel free however to fiddle and. Why not be the first to post a comment about This game is a lot like AllyWay only without the blocks to destroy. Feel free however to fiddle and.
