测试脚本,要自己调试加入的哦:
//变量就不定义了(不是好习惯,呵呵)
//-----------------------------------------------------主程-------------------------------------------------------
Rem 就地保存挂机点坐标
Gosub 读取坐标
SayExpression MapX
SayExpression MapY
//在游戏聊天栏里显示当前坐标
VBS MuBiaoX=MapX+100
VBS MuBiaoY=MapY+100
//设置走到与原地x,y坐标各相差100的地方(本程序坐标设置误差为25,游戏中50约为半个屏幕宽)
Gosub 自动行走
Gosub 读取坐标
SayString ///
SayExpression MapX
SayExpression MapY
//在游戏聊天栏里显示目的坐标
EndScript
//-----------------------------------------------------子程-----------------------------------------------------------
Sub 随机旋转
    VBS Randomize
    VBS sjx = Int((100 * Rnd) + 1)
    If sjx1
        VBS MapX=Clng(Left(MapXY, i - 1))
        VBS MapY=Clng(Mid(MapXY, i + 1))
    EndIf
Return 读取坐标
Sub 读取数字
        IfColor x+1 y+4 0002BD 2
            IfColor x+3 y+4 0002BD 2
                IfColor x+5 y+4 0002BD 2
                    VBS txt="-"
                    Goto 读取完毕
                EndIf
            EndIf
        EndIf
        IfColor x+2 y+8 0002BD 2
            IfColor x+3 y+8 0002BD 2
            Else
                VBS txt="."
                Goto 读取完毕
            EndIf
        EndIf
        IfColor x+2 y 0002BD 2
            VBS txt="]"
            Goto 读取完毕
        EndIf
        IfColor x+1 y+4 0002BD 2
            IfColor x+1 y+5 0002BD 2
                IfColor x+5 y+4 0002BD 2
                    VBS txt="0"
                    Goto 读取完毕
                EndIf
            EndIf
        EndIf
        IfColor x+2 y+2 0002BD 2
            VBS txt="1"
            Goto 读取完毕
        EndIf
        IfColor x+1 y+8 0002BD 2
            IfColor x+5 y+8 0002BD 2
                VBS txt="2"
                Goto 读取完毕
            EndIf
        EndIf
        IfColor x+1 y+7 0002BD 2
            IfColor x+2 y+4 0002BD 2
            Else
                IfColor x+3 y+4 0002BD 2
                    VBS txt="3"
                    Goto 读取完毕
                EndIf
            EndIf
        EndIf
        IfColor x+2 y+3 0002BD 2
            IfColor x+4 y+3 0002BD 2
                VBS txt="4"
                Goto 读取完毕
            EndIf
        EndIf
        IfColor x+1 y+1 0002BD 2
            IfColor x+1 y+7 0002BD 2
                VBS txt="5"
                Goto 读取完毕
            EndIf
        EndIf
        IfColor x+4 y+2 0002BD 2
            IfColor x+4 y+3 0002BD 2
            Else
                VBS txt="6"
                Goto 读取完毕
            EndIf
        EndIf
        IfColor x+1 y+1 0002BD 2
            IfColor x+4 y+3 0002BD 2
                VBS txt="7"
                Goto 读取完毕
            EndIf
        EndIf
        IfColor x+1 y+4 0002BD 2
        Else
            IfColor x+1 y+5 0002BD 2
                IfColor x+5 y+5 0002BD 2
                    VBS txt="8"
                    Goto 读取完毕
                EndIf
            EndIf
        EndIf
        IfColor x+1 y+4 0002BD 2
            IfColor x+2 y+7 0002BD 2
                IfColor x+5 y+4 0002BD 2
                    VBS txt="9"
                    Goto 读取完毕
                EndIf
            EndIf
        EndIf
Return 读取数字
Sub 自动行走
    VBS FangX=0
    VBS YDR=200
    Gosub 垂直视角
    MoveTo 512 384
    Delay 128
    Gosub 读取坐标
    VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
    Rem 移动
    If JuLi1>25
        Rem 方向右
        If FangX=0
            MoveTo 512+YDR 384
            LeftClick 1
            Delay 512
            Gosub 读取坐标
            VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
            If JuLi2