楼主 倒序看帖 天龙脚本第四篇-----完美跑商,支持所有商线 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 分享给朋友] [通过站内短消息分享给朋友] 下载按键精灵 下载脚本 购买会员注册码 绑定论坛会员账号 知识库 源码库