求高手.帮我转成.TC的语法

badcwytga

这是按键 利用内存坐标的方法。

有谁懂得 TC 如何调用内存坐标  然后实现定点挂机的吗？

内存坐标 我已经托人给找到了

Dim dx,dy,a,b,c,r,x,y,cx,cy
mx=43:my=223
Call 移动坐标()
Sub 移动坐标()
Rem jx
    Call 坐标()
a=Abs(mx-dx)
b=Abs(my-dy)
If a=0 Then
If b>1 Then
b=1
End If
Goto p
End If
c = Atn(b/a)
r=Sqr(a*a+b*b)
If r>8 Then
r = 8
End If
Do
a=Int(r*cos(c))
b=Int(r*Sin(c))
r =r-1
If r<8 OR (a+b)<9 Then
Exit Do
End If
Loop While (a+b)>0
rem p
If (mx-dx)<0 Then
a=(-1)*a
End If
If (my-dy)>0 Then
b=(-1)*b
End If
x=402+32*(a-b)
y=285+16*(a+b)
MoveTo x, y
Delay 50
LeftClick 1
Delay 50
    Call 坐标()
    End Sub
Sub 坐标()
    Call ReadMemory(&H091FCB08,2,yxjz)
    Call ReadMemory(yxjz+&H1C,2,dx)
    Call ReadMemory(yxjz+&H20,2,dy)
End Sub

这是按键 利用内存坐标的方法。

有谁懂得 TC 如何调用内存坐标  然后实现定点挂机的吗？

内存坐标 我已经托人给找到了

陌上青衣。

  什么情况

badcwytga

回复 2楼陌上青衣。的帖子

这是按键 利用内存坐标的方法。
TC 如何调用内存坐标  然后实现定点挂机？
内存坐标 我已经托人给找到了

badcwytga

没人懂吗?  我郁闷中.....