首页 天龙脚本第四篇-----完美跑商,支持所有商线

天龙脚本第四篇-----完美跑商,支持所有商线

举报
开通vip

天龙脚本第四篇-----完美跑商,支持所有商线楼主 倒序看帖 天龙脚本第四篇-----完美跑商,支持所有商线 Plugin SiMiniOCR.SetDict("songti_9.mdb") Plugin hwnd=Window.GetKeyFocusWnd() Plugin rect=Window.GetClientRect(hwnd) MyArray=Split(rect,"|",-1,1) x1=MyArray(0) y1=MyArray(1) bky=30 bkx=4 x2=x1+800 y2=y1+600 UserVar luxian="城市1-西湖...

天龙脚本第四篇-----完美跑商,支持所有商线
楼主 倒序看帖 天龙脚本第四篇-----完美跑商,支持所有商线 Plugin SiMiniOCR.SetDict("songti_9.mdb") Plugin hwnd=Window.GetKeyFocusWnd() Plugin rect=Window.GetClientRect(hwnd) MyArray=Split(rect,"|",-1,1) x1=MyArray(0) y1=MyArray(1) bky=30 bkx=4 x2=x1+800 y2=y1+600 UserVar luxian="城市1-西湖西南校尉-西湖-苏州-太湖-嵩山-洛阳-雁南-雁南正东校尉-城市2" 跑商路线 UserVar jin=94 出售商品价格X银 UserVar yin=50 出售商品价格X铜 UserVar jiasu=否 是否使用加速技能,可选择“是”或者“否”(仅支持非外功门派,选择是则需要将加速技能放置到F1) dim map MyArray2=Split(luxian,"-",-1,1) Rem 开始 Delay 500 Gosub 关闭 VBSCall a=InputBox("1.全新开始。 "&(Chr(10))&"2.已领取银票。"&(Chr(10))&"3.准备在本城购买商品。"&(Chr(10))&"4.购买完成,准备离开本帮城市。"&(Chr(10))&"5.正在前往对方帮派城市。"&(Chr(13) & Chr(10))&"6.已在对方城市,准备找钱为一卖出商品。"&(Chr(13) & Chr(10))&"7.在对方城市,等待合适价格卖出。"&(Chr(13))&"8.已在对方城市卖出商品,准备购买。"&(Chr(13))&"9.已在对方城市购买商品,准备出城。"&(Chr(13))&"10.正在返回己方帮派城市。"&(Chr(13))&"11.已返回本帮城市,准备找钱为一。"&(Chr(13))&"12.已找到本帮钱为一,等待合适价格卖出。"&(Chr(13))&"13.交还银票,重新领取。","请选择您当前跑商状态:") If a=1     Goto 重新开始 ElseIf a=2     Goto 2 ElseIf a=3     Goto 3 ElseIf a=4     Goto 4 ElseIf a=5     Goto 5 ElseIf a=6     Goto 6 ElseIf a=7     Goto 7 ElseIf a=8     Goto 8 ElseIf a=9     Goto 9 ElseIf a=10     Goto 10 ElseIf a=11     Goto 11 ElseIf a=12     Goto 12 ElseIf a=13     Goto 13 Else     MessageBox 未知状态,请重新选择     Goto 开始 EndIf Rem 重新开始 Gosub 关闭 Gosub 找财政官员 Rem 2 Gosub 领取银票 Rem 3 Gosub 购买商品 Rem 4 Gosub 出城 Rem 5 Gosub 前往对方帮派 Gosub 进入对方城市 Rem 6 Gosub 找财政官员 Rem 7 Gosub 判断价格 Gosub 卖出 Rem 8 Gosub 购买商品 Rem 9 Gosub 出城 Rem 10 Gosub 返回己方帮派 Gosub 进入已方城市 Rem 11 Gosub 找财政官员 Rem 12 Gosub 判断价格 Gosub 卖出 Rem 13 Gosub 交还银票 Goto 2 EndScript Sub 找财政官员     Rem 城市_打开寻路     KeyDown 18,1     KeyPress 192,1     KeyUp 18,1     Delay 50     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\坐标输入框.bmp",0.9,intX,intY)     If intx>0 and inty>0         MoveTo intx+15,inty+8         Delay 500         LeftClick 1         Delay 100         SayString "149"         Delay 100         MoveTo intx+45,inty+8         Delay 500         LeftClick 1         Delay 100         SayString "56"         Delay 500         Rem 寻找_钱为一         MoveTo intx+75,inty+8         LeftClick 1     Else         Goto 城市_打开寻路     EndIf     KeyDown 18,1     KeyPress 86,1     Delay 5000     KeyUp 18,1     KeyPress 123,1     MoveTo x1+410,y1+300     Delay 500     VBSCall varshubiao=GetCursorShape(0)     If varshubiao=302826352         KeyDown 18,1         KeyPress 192,1         KeyUp 18,1         SayString "命令一:找到钱为一 目标找到"         KeyPress 13,1         Delay 500         LeftClick 1     Else         Goto 城市_打开寻路     EndIf     Delay 2000 Return Sub 领取银票     Rem 领银票     Delay 3000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\领银票.bmp",0.9,intX,intY)     If intx>0 and inty>0         MoveTo intx+15,inty+8         LeftClick 1         SayString "命令:领取银票已经完成"         KeyPress 13,1     Else         SayString "命令:领取银票无法完成"         KeyPress 13,1     EndIf     KeyDown 18,1     KeyPress 65,1     KeyUp 18,1     Delay 3000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\任务包袱.bmp",0.9,intX,intY)     If intx>0 and inty>0         MoveTo intx+10,inty+8         LeftClick 1     Else         SayString "出现错误:找不到任务包袱"         KeyPress 13,1     EndIf     Delay 2000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\银票.bmp",0.9,intX,intY)     If intx>0 and inty>0         SayString "命令:领取银票 完成 下一步:购买商品"         KeyPress 13,1     Else         SayString "命令:找不到银票"         KeyPress 13,1     EndIf Return Sub 购买商品     Rem 打开店铺     Delay 1000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\打开店铺.bmp",0.8,intX,intY)     If intx>0 and inty>0         MoveTo intx+15,inty+8         LeftClick 1         SayString "命令:打开店铺完成"         KeyPress 13,1     Else         Gosub 关闭         Gosub 找财政官员         Goto 打开店铺     EndIf     Delay 2000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\店铺.bmp",0.9,intX,intY)     If intx>0 and inty>0         MoveTo intx+15,inty+8         LeftClick 1     Else         SayString "命令:店铺无法完成"         KeyPress 13,1     EndIf     Delay 2000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\粮食.bmp",0.8,intX,intY)     If intx>0 and inty>0         MoveTo intx,inty+8         Rem 重复购买         VBSCall FindPic(x1,y1,x2,y2,"Attachment:\购买完成.bmp",0.5,intX,intY)         If intx<0 and inty<0             LeftClick 1             Gosub 反作弊             Delay 10             VBSCall FindPic(x1,y1,x2,y2,"Attachment:\需要等待.bmp",0.6,intX2,intY2)             If intx2>0 and inty2>0                 Goto 打开店铺             EndIf             Goto 重复购买         Else             Goto 购买完成         EndIf     Else         Goto 打开店铺     EndIf     Rem 购买完成     SayString "命令:已经完成购买"     KeyPress 13,1 Return Sub 出城     Rem 出城_打开寻路     MoveTo x1+40,y1+40     LeftDoubleClick 1     Delay 500     KeyDown 18,1     KeyPress 192,1     KeyUp 18,1     Delay 1000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\坐标输入框.bmp",0.9,intX,intY)     If intx>0 and inty>0         MoveTo intx+15,inty+8         Delay 500         LeftClick 1         SayString "100"         Delay 500         MoveTo intx+45,inty+8         LeftClick 1         Delay 500         SayString "156"         Rem 判断出城         MoveTo intx+75,inty+8         LeftClick 1         Delay 5000         VBSCall FindPic(x1,y1,x2,y2,"Attachment:\坐标输入框.bmp",0.9,intX2,intY2)         If intx2>0 and inty2>0             Goto 判断出城         Else             Goto 已出城         EndIf     Else         Goto 出城_打开寻路     EndIf     Delay 5000     Rem 已出城     SayString "命令:已经成功离开城市"     KeyPress 13,1 Return Sub 前往对方帮派     Rem 开始判断当前地图     Delay 500     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\进城.bmp",0.9,intX4,intY4)     If intx4>0 and inty4>0         Goto 已经到达目的地     EndIf     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\12.bmp",0.7,intX,intY)     If intx>0 and inty>0         Plugin SiMiniOCR.SetFontColor("ffffff")         Plugin s=SiMiniOCR.OCR(intx,inty+158,intx+95,inty+178)         s=Replace(s," ","")         If s=""             Plugin SiMiniOCR.SetFontColor("ffffff")             Plugin s=SiMiniOCR.OCR(intx,inty+25,intx+95,inty+178)             If InStr(s,"阮星竹")>0                 map="镜湖"             EndIf         Else             Gosub 判断地图         EndIf         k=0         For UBound(MyArray2)             k=k+1             a=MyArray2(k)             If a=map                 inmap=MyArray2(k)                 tomap=MyArray2(k+1)                 Goto 找到当前地图             EndIf         EndFor     Else         MoveTo x1,y1         KeyDown 18,1         KeyPress 192,1         KeyUp 18,1         Goto 开始判断当前地图     EndIf     Rem 找到当前地图     SayString "命令:当前地图<"& inmap &">,将前往下个地图<"& tomap &">"     KeyPress 13,1     Gosub 下个地图     Goto 开始判断当前地图     Rem 已经到达目的地 Return Sub 下个地图     Rem 判断位置     Delay 500     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\12.bmp",0.7,intX,intY)     If intx>0 and inty>0         Plugin SiMiniOCR.SetFontColor("ffffff")         Plugin s=SiMiniOCR.OCR(intx,inty+158,intx+95,inty+178)         s=Replace(s," ","")         If s=""             Plugin SiMiniOCR.SetFontColor("ffffff")             Plugin s=SiMiniOCR.OCR(intx,inty+25,intx+95,inty+178)             If InStr(s,"阮星竹")>0                 map="镜湖"             EndIf         Else             Gosub 判断地图         EndIf         If map=inmap             xuny1=inty+158             xuny2=inty+178             For 8                 xuny1=xuny1-17                 xuny2=xuny2-16                 Plugin sf=SiMiniOCR.OCR(intx,xuny1,intx+95,xuny2)                 sf=Replace(sf," ","")                 If InStr(sf,tomap)>0                     If jiasu="是"                         KeyPress 112,1                     EndIf                     MoveTo intx+100,xuny1+8                     LeftDoubleClick 1                     Delay 5000                     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\进入镜湖.bmp",0.9,intX4,intY4)                     If intx4>0 and inty4>0                         MoveTo intx4+5,inty4+5                         LeftClick 1                     EndIf                     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\进城.bmp",0.9,intX4,intY4)                     If intx4>0 and inty4>0                         Goto 到达城市                     EndIf                     Goto 判断位置                 EndIf             EndFor         Else             Goto 到达城市         EndIf     Else         MoveTo x1,y1         KeyDown 18,1         KeyPress 192,1         KeyUp 18,1         Goto 判断位置     EndIf     Rem 到达城市 Return Sub 判断地图     VBSBegin         Select Case s         case "白堤柳鬼" map="西湖"         case "童贯" map="洛阳"         case "金钱豹" map="雁南"         case "阿林" map="草原"         case "阿史那默谷" map="辽西"         case "纥石烈阿疏" map="长白山"         case "大黑熊" map="黄龙府"         case "韦大叔" map="苏州"         case "程青霜" map="大理"         case "打草谷辽兵" map="雁北"         case "江湖游医" map="嵩山"         case "寇循" map="太湖"         case "法河" map="龙泉"         case "白花蜘蛛" map="武夷"         case "甘草" map="梅岭"         case "鳄鱼帮打手" map="南海"         case "凌忆慈" map="琼州"         case "曹延惠" map="敦煌"         case "大脸" map="剑阁"         case "方光智" map="无量山"         case "白景武" map="南诏"         case "阿雨" map="苗疆"         case "阿支" map="石林"         case "简丁" map="洱海"         case "古鲁拉" map="玉溪"         case "长毛雪怪" map="苍山"         End Select     VBSEnd Return Sub 进入对方城市     tomap="Attachment:\"& MyArray2(UBound(MyArray2)) &".bmp"     VBSCall FindPic(x1,y1,x2,y2,tomap,0.9,intX4,intY4)     If intx4>0 and inty4>0         MoveTo intx4+10,inty4+8         Delay 500         LeftClick 1     Else         SayString "命令:找不到您指定的帮会城市,请检查设置."         KeyPress 13,1     EndIf     Delay 3000 Return Sub 判断价格     Rem 出售_打开店铺     Delay 1000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\打开店铺.bmp",0.7,intX,intY)     If intx>0 and inty>0         MoveTo intx+15,inty+8         LeftClick 1     Else         SayString "命令:打开店铺无法完成"         KeyPress 13,1     EndIf     Delay 2000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\店铺.bmp",0.7,intX,intY)     If intx>0 and inty>0         MoveTo intx+15,inty+8         LeftClick 1     Else         SayString "命令:店铺无法完成"         KeyPress 13,1     EndIf     Delay 2000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\粮食.bmp",0.8,intX,intY)     Delay 1000     If intx>0 and inty>0         Plugin SiMiniOCR.SetFontColor("ffffff")         Plugin jiage=SiMiniOCR.OCR(intX,intY,intX+140,intY+45)         jiage=Replace(jiage," ","-")         MyArray3=Split(jiage,"-",-1,1)         If cint(MyArray3(0))=jin and cint(MyArray3(1))=yin             SayString "价格判断:达到设定价格"& jin &"银"& yin &"铜,开始卖出"             KeyPress 13,1             Goto 可以卖出         EndIf     Else         SayString "命令:找不到粮食"         KeyPress 13,1     EndIf     Goto 出售_打开店铺     Rem 可以卖出 Return Sub 卖出     Rem 卖出_打开包袱     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\任务包袱.bmp",0.5,intX,intY)     If intx>0 and inty>0         MoveTo intx+10,inty+7         LeftClick 1         Delay 1000         Rem 重复卖出         VBSCall FindPic(x1,y1,x2,y2,"Attachment:\粮食2.bmp",0.7,intX,intY)         If intx>0 and inty>0             MoveTo intx+10,inty+10             RightClick 1             Delay 500             Goto 重复卖出         Else             SayString "未找到商品"             KeyPress 13,1         EndIf     Else         KeyDown 18,1         KeyPress 65,1         KeyUp 18,1         Delay 1000         Goto 卖出_打开包袱     EndIf     SayString "命令:完成出售,开始买进"     KeyPress 13,1 Return Sub 返回己方帮派     Rem 返回_开始判断当前地图     Delay 500     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\进城.bmp",0.9,intX4,intY4)     If intx4>0 and inty4>0         Goto 返回_已经到达目的地     EndIf     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\12.bmp",0.7,intX,intY)     If intx>0 and inty>0         Plugin SiMiniOCR.SetFontColor("ffffff")         Plugin s=SiMiniOCR.OCR(intx,inty+158,intx+95,inty+178)         s=Replace(s," ","")         If s=""             Plugin SiMiniOCR.SetFontColor("ffffff")             Plugin s=SiMiniOCR.OCR(intx,inty+25,intx+95,inty+178)             If InStr(s,"阮星竹")>0                 map="镜湖"             EndIf         Else             Gosub 判断地图         EndIf         k=UBound(MyArray2)         For UBound(MyArray2)             k=k-1             a=MyArray2(k)             If a=map                 inmap=MyArray2(k)                 tomap=MyArray2(k-1)                 Goto 返回_找到当前地图             EndIf         EndFor     Else         MoveTo x1,y1         KeyDown 18,1         KeyPress 192,1         KeyUp 18,1         Goto 返回_开始判断当前地图     EndIf     Rem 返回_找到当前地图     SayString "命令:当前地图<"& inmap &">,将前往下个地图<"& tomap &">"     KeyPress 13,1     Gosub 下个地图     Goto 返回_开始判断当前地图     Rem 返回_已经到达目的地 Return Sub 进入已方城市     tomap="Attachment:\"& MyArray2(0) &".bmp"     VBSCall FindPic(x1,y1,x2,y2,tomap,0.9,intX4,intY4)     If intx4>0 and inty4>0         MoveTo intx4+10,inty4+8         Delay 500         LeftClick 1     Else         SayString "命令:找不到您指定的帮会城市,请检查设置."         KeyPress 13,1     EndIf     Delay 3000 Return Sub 交还银票     Delay 1000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\交还银票.bmp",0.9,intX,intY)     If intx>0 and inty>0         MoveTo intx+15,inty+8         LeftClick 1     Else         SayString "命令:交还银票无法完成"         KeyPress 13,1     EndIf Return Sub 关闭     Rem 找到关闭     Delay 1000     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\关闭.bmp",0.7,intX,intY)     If intx>0 and inty>0         MoveTo intx+5,inty+5         LeftClick 1         Goto 找到关闭     EndIf Return Sub 反作弊     Rem 警报     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\1.bmp",0.8,intX,intY)     If intX>0 and intY>0         Plugin Media.Play("1.mp3")         Delay 7000         Goto 警报     EndIf     VBSCall FindPic(x1,y1,x2,y2,"Attachment:\粮食.bmp",0.8,intX,intY)     If intx>0 and inty>0         MoveTo intx,inty+8     EndIf Return 反作弊 沙发 发 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 于 2006-7-26 11:02 | 只看该作者 [General] Description=冒险岛全自动挂机脚本 BeginHotkey=121 BeginHotkeyMod=0 RunOnce=1 Enable=1 [Repeat] Type=1 Number=3717456 [Script] Delay 5000 Rem 1 For 70 KeyDown 37 1 Delay 300 KeyUp 37 1 KeyPress 90 1 Delay 300 KeyPress 77 3 Delay 300 EndFor For 70 KeyDown 39 1 Delay 300 KeyUp 39 1 KeyPress 90 1 Delay 300 KeyPress 77 3 Delay 300 EndFor KeyPress 46 1 Delay 600 KeyPress 86 1 Delay 600 KeyPress 35 1 Delay 300 Goto 1 聊天 窗体底端 ≡ 交流讨论区 ≡ ​ 【按键盒子】 ​ 『公告新闻』 ​ 『脚本源码』 ​ 『常见问题』 ​ 【按键精灵8】 ​ 【新手专区】 ​ 『版主推荐贴』 ​ 【综合讨论】 ​ 『常见问题』 ​ 『BUG反馈』 ​ 『验证码讨论』 ​ 【教程工具】 ​ 『其他教程』 ≡ 资源发布区 ≡ ​ 【免费脚本】 ​ 『脚本银币收费区』 ​ 『源码库讨论区』 ​ 【收费脚本】 ​ 『源码交易区』 ​ 【求购脚本】 ​ 『交易必看』 ≡ 专题研讨区 ≡ ​ 【插件界面】 ​ 【繁体讨论区】 ​ 【网页按键】 ​ 【办公脚本】 ​ 【游戏专区】 ​ 『大话、梦幻西游』 ​ 『热血江湖』 ​ 『热血传奇』 ​ 『星际家园』 ≡ 休闲娱乐区 ≡ ​ 【活动中心】 ​ 【闲聊茶馆】 ​ 【天下美图】 ≡ 论坛事务区 ≡ ​ 【公告新闻】 ​ 『所获荣誉』 ​ 【论坛事务】 ​ 『违规内容举报』 [收藏此主题]  [关注此主题的新回复] [通过 QQ、MSN 分享给朋友] [通过站内短消息分享给朋友] ​  下载按键精灵 ​ 下载脚本 ​ 购买会员注册码 ​ 绑定论坛会员账号 ​ 知识库 ​ 源码库
本文档为【天龙脚本第四篇-----完美跑商,支持所有商线】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_545219
暂无简介~
格式:doc
大小:155KB
软件:Word
页数:18
分类:生活休闲
上传时间:2014-04-27
浏览量:102