• Home
 · 
• Games
 · 
• This game is a lot like AllyWay only without the blocks to destroy. Feel free however to fiddle and

This game is a lot like AllyWay only without the blocks to destroy. Feel free however to fiddle and

This game is a lot like AllyWay only without the blocks to destroy. Feel free however to fiddle and add the blocks in

Rate This game is a lot like AllyWay only without the blocks to destroy. Feel free however to fiddle and

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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