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