• Home
 · 
• Miscellaneous
 · 
• Table Top hockey

Table Top hockey

Table Top hockey

Rate Table Top hockey

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim dirx As String
Dim diry As String
Dim speed
Dim score1
Dim score2

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'move picture1
Select Case KeyCode 'find out which key was pressed
        Case vbKeyUp 'the up arrow was pressed
            shpl.Top = shpl.Top - 500 'move player location
        Case vbKeyDown ' the down arrow was pressed
            shpl.Top = shpl.Top + 500 'move player location
        'Case vbKeyLeft 'the left arrow was pressed
           ' shpl.Left = shpl.Left - 500 'move player location
        'Case vbKeyRight 'the right arrow was pressed
           ' shpl.Left = shpl.Left + 500 'move player location
        Case Else 'no valid key was pressed, so
           Exit Sub 'exit the sub
    End Select

If shpl.Top > Form1.ScaleHeight - shpl.Height Then
    shpl.Top = shpl.Top - 450
    ElseIf shpl.Top < 0 Then
    shpl.Top = shpl.Top + 500
End If


End Sub

Private Sub Form_Load()


dirx = "R"
diry = "D"
speed = 150


End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
shpr.Top = Y
End Sub


Private Sub Label2_Click()

End Sub

Private Sub Timer1_Timer()
' make the ball move right to left
If dirx = "R" Then
    shpball.Left = shpball.Left + speed
ElseIf dirx = "L" Then
    shpball.Left = shpball.Left - speed
End If
If diry = "D" Then
    shpball.Top = shpball.Top + speed
ElseIf diry = "U" Then
    shpball.Top = shpball.Top - speed
End If

'right and left borders
If shpball.Left > Form1.ScaleWidth - shpball.Width Then
    
    dirx = "L"
    score1 = score1 + 1
    
ElseIf shpball.Left < 0 Then
    
    dirx = "R"
   score2 = score2 + 1
    
End If
If shpball.Top > Form1.ScaleHeight - shpball.Height Then
    diry = "U"
ElseIf shpball.Top < 0 Then
diry = "D"
End If


If Abs(shpr.Top - shpball.Top) < shpr.Height And shpball.Left + shpball.Width > shpr.Left Then
dirx = "L"
If speed < 650 Then
speed = speed + 10
End If
End If
If Abs(shpl.Top - shpball.Top) < shpl.Height And shpball.Left < shpl.Left + shplWidth + 150 Then
dirx = "R"
If speed < 650 Then
speed = speed + 10
End If
End If
lbls1 = "Player 2: " & score1
lbls2 = "Player 1: " & score2

If score1 = 5 Then
Timer1.Enabled = False
MsgBox "Player 2 wins with a game speed of " & speed, , "Winner"
score1 = 0
score2 = 0
speed = 100
Timer1.Enabled = True
End If

If score2 = 5 Then
Timer1.Enabled = False
MsgBox "Player 1 Wins with a game speed of " & speed, , "Winner"
score1 = 0
score2 = 0
speed = 100
Timer1.Enabled = True
End If
Form1.Caption = "Table Top Soccer                    Game Speed " & speed & " MPS"
End Sub