UserVar Var1=DropList{一般:400|快速:250|极快:100}=0 点击速度设置 //--------------------------------------------------------- //#游戏设置为16位颜色下的脚本 // //--------------------------------------------------------- dim i,j,k,d,f i=0:j=0:k=0:d=0:f=0 Delay 20 //提示 MoveTo 580,560 Delay 20 LeftClick 2 Delay 20 SayString "/自己 脚本使用中有问题请联系QQ80433743" Delay 500 KeyPress 13,2 //喊话延时 Delay 2000 // MoveTo 580,560 Delay 20 LeftClick 2 Delay 20 SayString "/自己 脚本启动中......." Delay 500 KeyPress 13,2 Delay 100 //--------------------------------------------------------- //#先全屏幕移动鼠标找NPC名字,然后记下找到的坐标 //--------------------------------------------------------- Gosub 小地图检查 Delay 50 Rem 先按F2不显人名 VBSCall FindColorEx(380,190,420,200,"f7fbff",1,0.8,x,y) If x>0 and y>0 //如果检测到有开启人物显名,就提示让他关掉 Delay 10 MoveTo 580,560 Delay 20 LeftClick 3 Delay 20 SayString "/自己 如果你有开启人物名称显示的话,请在10秒内,按F2键关掉" MoveR 0,-50 Delay 10000 KeyPress 13,2 Delay 1700 Goto 查找NPC EndIf //提示信息 Rem 再按F2不显人名 VBSCall FindColorEx(380,190,420,200,"ffffff",1,0.8,x,y) If x>0 and y>0 //如果检测到有开启人物显名,就提示让他关掉 Delay 10 MoveTo 580,560 Delay 20 LeftClick 3 Delay 20 SayString "/自己 如果你有开启人物名称显示的话,请在10秒内,按F2键关掉" MoveR 0,-50 Delay 10000 KeyPress 13,2 Delay 1700 Goto 查找NPC EndIf Delay 1700 //提示 Rem 查找NPC //找NPC之前再次进行小地图检查,防止已经进入任务 //////////进任务了吗,检测洛字就可以了,d=0找不到洛字//////// d=0 Gosub 检测地图 If d = 1 Delay 10 //找到洛字了就是没进去,继续执行 Else Goto 结束 EndIf // MoveTo 580,560 Delay 20 LeftClick 2 Delay 20 SayString "/自己 任务NPC搜索中..." Delay 500 KeyPress 13,2 Delay 300 ////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////// Gosub NPC名字找图 Delay 10 //出发坐标 k=1 MoveTo 400,250 Delay 10 Gosub 移动总循环 //如果找到NPC就点击,并记下坐标 Rem 记NPC // Delay 20