Function 计算角度( n_怪坐标 As 游戏坐标 ,n_人物坐标 As 游戏坐标) As 游戏角度
Dim 临时角度 As 游戏角度
Dim As Integer x ,y
x = Sgn(n_怪坐标.x - n_人物坐标.x)
y = Sgn(n_怪坐标.y - n_人物坐标.y)
If x = 0 Then
临时角度.b = 1'写入memory基址2
Else
临时角度.b = Sin((n_怪坐标.y - n_人物坐标.y) / Abs((n_怪坐标.x - n_人物坐标.x)))
EndIf
If y = 0 Then
临时角度.a = 1'写入memory基址1
Else
临时角度.a = Sin((n_怪坐标.x - n_人物坐标.x) / Abs((n_怪坐标.y - n_人物坐标.y)))
EndIf
Return 临时角度
End Function