?? opponenthandler.bas
字號:
Attribute VB_Name = "OpponentHandler"
Public Function DoCalcs()
'And yet some more innefficent calculations that throw the game out of sync
'on fast and slow computers alike...
Dim Xdif As Integer 'what this does is calculate the X-Difference
'in the 2 discs, and the same for the Y-Difference
Dim Ydif As Integer
If Form1.Circle1.Left > Form1.Circle2.Left Then
Xdif = Form1.Circle1.Left - Form1.Circle2.Left
ElseIf Form1.Circle1.Left < Form1.Circle2.Left Then
Xdif = Form1.Circle2.Left - Form1.Circle1.Left
End If
If Form1.Circle1.Top > Form1.Circle2.Top Then
Ydif = Form1.Circle1.Top - Form1.Circle2.Top
ElseIf Form1.Circle1.Top < Form1.Circle2.Top Then
Ydif = Form1.Circle2.Top - Form1.Circle1.Top
End If
If Ydif < 120 And Xdif < 120 Then Call WeScoreP 'if we hit them, then we sored
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -