UserVar jibenshezi=DropList{★基本设置★:0}=0 基本设置
UserVar j=DropList{刷怪:0|捉妖:1|采集:2}=0 脚本任务
UserVar hong=50 加血设置%<
UserVar lan=30 加蓝设置%<
UserVar jiahong=DropList{喝药:0|休息:1}=0 加血方式
UserVar zydd=DropList{宁海县:0|石塘县:1|京城:2}=0 捉妖地图
UserVar huicdd=DropList{宁海县城:0|石塘县城:1|京城:2|沧浪云台:3}=0 回城点
UserVar qimen=DropList{否:0|是:1}=0 是否是奇门
UserVar xiamianshuaguai=DropList{★刷怪单独设置★:0}=0 刷怪单独设置
UserVar sfjianwu=DropList{否:0|是:1}=0 自动捡物
UserVar zdmai=DropList{关:0|倒数2排:2|倒数3排:3|倒数4排:4}=0 自动卖物
UserVar cyjianwu=1000 捡物迟延(毫秒)
UserVar caijidandu=DropList{★采集单独设置★:0}=0 采集单独设置
UserVar t1=5 采集一次的时间/秒
UserVar gjsl=5 工具的数量
UserVar njd=361 工具的耐久度
UserVar wpsl=1200 需要采集的数量
UserVar down=DropList{否:0|是:1}=0 完成后自动关机
//判断地图
If zydd=0
    zyt="Attachment:\宁海县.bmp"
ElseIf zydd=1
    zyt="Attachment:\石塘县.bmp"
ElseIf zydd=2
    zyt="Attachment:\京城.bmp"
EndIf 
If huicdd=0
    huic="Attachment:\宁海县城.bmp"
ElseIf huicdd=1
    huic="Attachment:\石塘县城.bmp"
ElseIf huicdd=2
    huic="Attachment:\京城城.bmp"
ElseIf huicdd=3
    huic="Attachment:\沧浪云台.bmp"
EndIf 
Plugin hwnd = Window.Find(0,"寻仙")
Plugin Window.Active(hwnd)
Plugin hwnd = Window.GetKeyFocusWnd()
If hwnd = 0
    MessageBox"没有找到游戏窗口"
    Goto 结束
EndIf 
//取得屏幕分辨率
Plugin w = Sys.GetScRX()
Plugin h = Sys.GetScRY()
//找小手
VBSCall FindPic(0,0,w,h,"Attachment:\小手.bmp",0.8,shoux,shouy)
If shoux=-1 or shouy=-1
    MessageBox "窗口被挡住了好像?请调整后重新启动脚本!"
    Goto 结束
EndIf 
//确定练级地点
VBS zhuo=shoux-82
VBS you=shoux+531
VBS shang=shouy+111
VBS xia=shouy+496
VBSCall FindColorEx(zhuo,shang,you,xia,"ff6400",1,0.8,ljx,ljy)
If ljx=-1 and ljy=-1
    MessageBox "脚本停止:没有找到蓝点,请确认已经打开大地图,并点了捉妖地点"
    Goto 结束
Else 
    //关地图
    Plugin Bkgnd.KeyPress(hwnd,77)
    Delay 1000
    //MessageBox "脚本成功启动!出玩吧,这里交给我了!"
    Goto 确定红蓝
EndIf 
//确定红和蓝的颜色和坐标
Rem 确定红蓝
VBSCall hongc = GetPixelColor(shoux,shouy+36)
VBSCall lanc = GetPixelColor(shoux,shouy+47)
VBS hongx=shoux-13
VBS hongy=shouy+36
VBS lanx=hongx
VBS lany=shouy+47
If j=0
    Goto 刷怪部分
ElseIf j=2
    Goto 采集部分
Else 
    Goto 捉妖部分
EndIf 
//////////////////////////////////////////捉妖部分//////////////////////////////////////////////////////
//////////////////////////////////////////捉妖部分//////////////////////////////////////////////////////
//////////////////////////////////////////捉妖部分//////////////////////////////////////////////////////
Rem 捉妖部分
//去捉妖地点,按5键寻路去,如果到达目的地,开始打怪捉妖
Rem 去地点
Delay 1000
//5键寻路
Plugin Bkgnd.KeyPress(hwnd,53)
Delay 2000
VBSCall FindPic(0,0,w,h,"Attachment:\到达目的地.bmp",0.8,mddx,mddy)
If mddx>0 and mddy>0
    //如果是奇门
    If qimen=1
        //0招兵
        Plugin Bkgnd.KeyPress(hwnd,48)
        Delay 7000
        VBS starttime=timer