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