看得懂的人.帮我转成`TC语句`好吗?

badcwytga

//用户自定量定点坐标X,Y
Dim  X,Y
//分割坐标X,Y
DXa=Split(YD,",")
//鼠标获取游戏窗口句柄
Hd = Plugin.Window.MousePoint()
//将游戏窗口移动到屏幕0,0处
Call Plugin.Window.Move(Hd, 0, -25)//移动窗口
//调用下面的程序
Gosub 内存地址
//读取人物当前的坐标大于或小于定点坐标时，调用跑路程序。
If TX0<>DXa(0) and TY0<>DXa(1)
    TX1=DXa(0)
    TY1=DXa(1)
    Gosub 跑路
EndIf
//跑路程序
Sub 跑路
    Delay 50
MoveTo 495, 325
    Delay 50
    Gosub 内存地址
    //这下面的我都不解释了，以前我的帖子里面介绍了有的，你自己去搜索一下。
    While abs(TX1-TX0)>1 or abs(TY1-TY0)>1
        //下面是鼠标到达指定坐标需要指向的：人物中心坐标+人物步长+A*算法
        TX2=406+sgn(TX1-TX0)*160*abs(TX1-TX0)/sqr((TX1-TX0)*(TX1-TX0)+(TY1-TY0)*(TY1-TY0))
        TY2=285+sgn(TY0-TY1)*160*abs(TY1-TY0)/sqr((TX1-TX0)*(TX1-TX0)+(TY1-TY0)*(TY1-TY0))
        MoveTo TX2,TY2
        Delay 10
        LeftClick 1
        Delay 5
        Gosub 内存地址
    EndWhile
Return
Sub 内存地址
    Call ReadMemory(&H091FCB08,2,yxjz)
    Call ReadMemory(yxjz+&H1C,2,TX0)
    Call ReadMemory(yxjz+&H20,2,TY0)
Return


这是按键的语句
看得懂的人.帮我转成`TC语句`好吗?