—
本帖被 幻想. 执行取消锁定操作(2009-01-19)
—
测试脚本,要自己调试加入的哦:
//变量就不定义了(不是好习惯,呵呵)
//-----------------------------------------------------主程-------------------------------------------------------
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
