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