//获得当前鼠标坐标
VBSCall GetCursorPos(a,b)
Delay 500
//提示
MoveTo 580,560
Delay 20
LeftClick 2
Delay 20
SayString "/自己 搜索到NPC！开始接任务......"
Delay 200
KeyPress 13,2
Delay 50
//是否打开NPC对话
VBSCall FindColorEx(140,40,140,40,"63a2bd",1,0.8,x,y)
If x>0 and y>0
    Delay 50
    //移动到设置的坐标
    MoveTo a,b
Else 
    Goto 查找NPC
EndIf 
////////////////////////////////////////////////////////
//##进入抢点循环，速度要快
///////////////////////////////////////////////////////
Rem 抢点循环
Delay 200
//找逃字，并点击
VBSCall FindPic(20,150,200,250,"Attachment:\逃.bmp",1,x,y)
If x>0 and y>0
    MoveTo x,y
    Delay 20
    MoveR 30,10
    LeftClick 2
    Delay Var1
    MoveTo 580,560
EndIf 
//
Gosub 面版消失检测
//找任字，并点击
VBSCall FindPic(20,150,150,250,"Attachment:\任.bmp",1,x,y)
If x>0 and y>0
    MoveTo x,y
    Delay 20
    LeftClick 2
    Delay Var1
    MoveTo 580,560
EndIf 
//
Gosub 面版消失检测
//找正字，并点击
VBSCall FindPic(20,150,150,250,"Attachment:\正.bmp",1,x,y)
If x>0 and y>0
    MoveTo x,y
    Delay 20
    LeftClick 2
    Delay Var1
    MoveTo 580,560
EndIf 
//
Gosub 面版消失检测
//找好字，并点击
VBSCall FindPic(20,150,150,250,"Attachment:\好.bmp",1,x,y)
If x>0 and y>0
    MoveTo x,y
    Delay 20
    LeftClick 2
    Delay Var1
    MoveTo 580,560
EndIf 
//还有面版吗
Delay 10
VBSCall FindColorEx(140,40,140,40,"63a2bd",1,0.8,x,y)
If x>0 and y>0
    Goto 抢点循环
EndIf 
//////////进任务了吗，检测洛字就可以了，d=0找不到洛字////////
d=0
Gosub 检测地图
If d = 1
    Delay 20
    //找到洛字了就是没进去，取NPC坐标，放在上面
    MoveTo a,b
    Delay 10
    Goto 检测对话框
Else 
    Goto 结束
EndIf 
//
Rem 检测对话框
//看看能否找到原来的NPC
Delay 300
VBSCall FindPic(20,20,770,500,"Attachment:\密.bmp",1,x,y)
If x>0 and y>0
    //能找到原来的NPC就继续点吧
    Delay 20
    LeftClick 2
    Delay 300
Else 
    //找不到原来的NPC，返回到前面再找
    Goto 查找NPC