天龍腳本第四篇

天龍腳本第四篇——完美跑商,支持所有商線PluginSiMiniOCR.SetDict("songti_9.mdb")Pluginhwnd二Window.GetKeyFocusWnd()Pluginrect二Window.GetClientRect(hwnd)MyArray二Split(rect,'T,-1,1)x1=MyArray(0)y1=MyArray(1)bky=30bkx=4x2=x1+800y2=y1+600UserVarluxian="城市1-西湖西南校尉-西湖-蘇州-太湖-嵩山-洛陽-雁南-雁南正東校尉-城市2"跑商路線UserVarjin=94出售商品價格X銀UserVaryin=50出售商品價格X銅UserVarjiasu=否是否使用加速技能，可選擇“是”或者“否”(僅支持非外功門派，選擇是則需要將加速技能放置到F1)dimmapMyArray2=Split(luxian,"-",-1,1)Rem開始Delay500Gosub關(guān)閉VBSCalla=InputBox("1.全新開始。"&(Chr(10))&"2.已領(lǐng)取銀票。"&(Chr(10))&"3.準(zhǔn)備在本城購買商品。"&(Chr(10))&"4.購買完成，準(zhǔn)備離開本幫城市。"&(Chr(10))&"5.正在前往對方幫派城市。"&(Chr(13)&Chr(10))&"6.已在對方城市，準(zhǔn)備找錢為一賣出商品。"&(Chr(13)&Chr(10))&"7.在對方城市，等待合適價格賣出。"&(Chr(13))&"8.已在對方城市賣出商品，準(zhǔn)備購買。"&(Chr(13))&"9.已

在對方城市購買商品，準(zhǔn)備出城。"&(Chr(13))&"10.正在返回己方幫派城市。"&(Chr(13))&"11.已返回本幫城市，準(zhǔn)備找錢為一。"&(Chr(13))&"12.已找到本幫錢為一，等待合適價格賣出。"&(Chr(13))&"13.交還銀票，重新領(lǐng)取?！?"請選擇您當(dāng)前跑商狀態(tài):")Ifa=1Goto重新開始ElseIfa=2Goto2ElseIfa=3Goto3ElseIfa=4Goto4ElseIfa=5Goto5Elselfa=6Goto6Elselfa=7Goto7Elselfa=8Goto8Elselfa=9Goto9Elselfa=10Goto10Elselfa=11Goto11Elselfa=12Goto12Elselfa=13Goto13ElseMessageBox未知狀態(tài)，請重新選擇Goto開始EndIfRem重新開始Gosub關(guān)閉Gosub找財政官員Rem2Gosub領(lǐng)取銀票Rem3Gosub購買商品Rem4Gosub出城Rem5Gosub前往對方幫派Gosub進(jìn)入對方城市Rem6Gosub找財政官員Rem7Gosub判斷價格Gosub賣出Rem8Gosub購買商品Rem9Gosub出城Rem10Gosub返回己方幫派Gosub進(jìn)入已方城市Rem11Gosub找財政官員Rem12Gosub判斷價格Gosub賣出Rem13Gosub交還銀票Goto2EndScriptSub找財政官員Rem城市_打開尋路KeyDown18,1KeyPress192,1KeyUp18,1Delay50VBSCallFindPic(x1,y1,x2,y2,"Attachment:\坐標(biāo)輸入框.bmp”,0.9,intX,intY)Ifintx>0andinty>0MoveTointx+15,inty+8Delay500LeftClick1Delay100SayString"149”Delay100MoveTointx+45,inty+8Delay500LeftClick1Delay100Delay500Rem尋找_錢為一MoveTointx+75,inty+8LeftClick1ElseGoto城市—打開尋路EndIfKeyDown18,1KeyPress86,1Delay5000KeyUp18,1KeyPress123,1MoveTox1+410,y1+300Delay500VBSCallvarshubiao=GetCursorShape(0)Ifvarshubiao=302826352KeyDown18,1KeyPress192,1KeyUp18,1SayString”命令一：找到錢為一目標(biāo)找到”KeyPress13,1Delay500LeftClick1ElseGoto城市_打開尋路EndIfDelay2000ReturnSub領(lǐng)取銀票Rem領(lǐng)銀票Delay3000VBSCallFindPic(x1,y1,x2,y2,"Attachment:\領(lǐng)銀票.bmp”,0.9,intX,intY)Ifintx>0andinty>0MoveTointx+15,inty+8LeftClick1SayString〃命令:領(lǐng)取銀票已經(jīng)完成〃KeyPress13,1ElseSayString”命令:領(lǐng)取銀票無法完成”KeyPress13,1EndIfKeyDown18,1KeyPress65,1KeyUp18,1Delay3000VBSCallFindPic(x1,y1,x2,y2,"Attachment:\任務(wù)包袱.bmp”,0.9,intX,intY)Ifintx>0andinty>0MoveTointx+10,inty+8LeftClick1ElseSayString"出現(xiàn)錯誤:找不到任務(wù)包袱"KeyPress13,1EndIfDelay2000VBSCallFindPic(x1,y1,x2,y2,"Attachment:\銀票.bmp”,0.9,intX,intY)Ifintx>0andinty>0SayString”命令:領(lǐng)取銀票完成下一步:購買商品〃KeyPress13,1ElseSayString〃命令:找不到銀票〃KeyPress13,1EndIfReturnSub購買商品Rem打開店鋪Delay1000VBSCallFindPic(x1,y1,x2,y2,"Attachment:、打開店鋪.bmp”,0.8,intX,intY)Ifintx>0andinty>0MoveTointx+15,inty+8LeftClick1KeyPress13,1ElseGosub關(guān)閉Gosub找財政官員Goto打開店鋪EndIfDelay2000VBSCallFindPic(x1,y1,x2,y2,"Attachment:\店鋪.bmp”,0.9,intX,intY)Ifintx>0andinty>0MoveTointx+15,inty+8LeftClick1ElseSayString”命令:店鋪無法完成"KeyPress13,1EndIfDelay2000VBSCallFindPic(x1,y1,x2,y2,"Attachment:\糧食.bmp”,0.8,intX,intY)Ifintx>0andinty>0MoveTointx,inty+8Rem重復(fù)購買VBSCallFindPic(x1,y1,x2,y2,"Attachment:、購買完成.bmp”,0.5,intX,intY)Ifintx<0andinty<0LeftClick1Gosub反作弊Delay10VBSCallFindPic(x1,y1,x2,y2,"Attachment:\需要等待.bmp”,0.6,intX2,intY2)Ifintx2>0andinty2>0Goto打開店鋪EndIfGoto重復(fù)購買ElseGoto購買完成EndIfElseGoto打開店鋪EndIfSayString”命令：已經(jīng)完成購買"KeyPress13,1ReturnSub出城Rem出城_打開尋路MoveTox1+40,y1+40LeftDoubleClick1Delay500KeyDown18,1KeyPress192,1KeyUp18,1Delay1000VBSCallFindPic(x1,y1,x2,y2,"Attachment:\坐標(biāo)輸入框.bmp”,0.9,intX,intY)Ifintx>0andinty>0MoveTointx+15,inty+8Delay500LeftClick1SayString"100"Delay500MoveTointx+45,inty+8LeftClick1Delay500SayString"156"Rem判斷出城MoveTointx+75,inty+8LeftClick1Delay5000VBSCallFindPic(x1,y1,x2,y2,"Attachment:\坐標(biāo)輸入框.bmp”,0.9,intX2,intY2)Ifintx2>0andinty2>0Goto判斷出城ElseGoto已出城EndIfElseGoto出城_打開尋路Delay5000Rem已出城SayString”命令：已經(jīng)成功離開城市"KeyPress13,1ReturnSub前往對方幫派Rem開始判斷當(dāng)前地圖Delay500VBSCallFindPic(x1,y1,x2,y2,"Attachment:\進(jìn)城.bmp”,0.9,intX4,intY4)Ifintx4>0andinty4>0Goto已經(jīng)到達(dá)目的地EndIfVBSCallFindPic(x1,y1,x2,y2,"Attachment:\12.bmp”,0.7,intX,intY)Ifintx>0andinty>0PluginSiMiniOCR.SetFontColor("ffffff")Plugins=SiMiniOCR.OCR(intx,inty+158,intx+95,inty+178)s=Replace(s,〃〃,〃〃)Ifs=〃"PluginSiMiniOCR.SetFontColor("ffffff")Plugins=SiMiniOCR.OCR(intx,inty+25,intx+95,inty+178)IfInStr(s,"阮星竹〃)〉0map="鏡湖〃EndIfElseGosub判斷地圖EndIfk=0ForUBound(MyArray2)k=k+1a=MyArray2(k)Ifa=mapinmap=MyArray2(k)tomap二MyArray2(k+1)Goto找到當(dāng)前地圖ElseMoveTox1,y1KeyDown18,1KeyPress192,1KeyUp18,1Goto開始判斷當(dāng)前地圖EndIfRem找到當(dāng)前地圖SayString”命令：當(dāng)前地圖<"&inmap&">,將前往下個地圖<"&tomap&">KeyPress13,1Gosub下個地圖Goto開始判斷當(dāng)前地圖Rem已經(jīng)到達(dá)目的地ReturnSub下個地圖Rem判斷位置Delay500VBSCallFindPic(x1,y1,x2,y2,"Attachment:\12.bmp”,0.7,intX,intY)Ifintx>0andinty>0PluginSiMiniOCR.SetFontColor("ffffff")Plugins=SiMiniOCR.OCR(intx,inty+158,intx+95,inty+178)s=Replace(s,〃〃,〃〃)Ifs=〃"PluginSiMiniOCR.SetFontColor("ffffff")Plugins=SiMiniOCR.OCR(intx,inty+25,intx+95,inty+178)IfInStr(s,"阮星竹〃)〉0map="鏡湖〃EndIfElseGosub判斷地圖EndIfIfmap=inmapxuny1=inty+158xuny2=inty+178xuny2二xuny2-16Pluginsf二SiMiniOCR.OCR(intx,xuny1,intx+95,xuny2)sf=Replace(sf,"〃,〃〃)IfInStr(sf,tomap)>0Ifjiasu=”是"KeyPress112,1EndIfMoveTointx+100,xuny1+8LeftDoubleClick1Delay5000VBSCallFindPic(x1,y1,x2,y2,"Attachment:\進(jìn)入鏡湖.bmp”,0.9,intX4,intY4)Ifintx4>0andinty4>0MoveTointx4+5,inty4+5LeftClick1EndIfVBSCallFindPic(x1,y1,x2,y2,"Attachment:\進(jìn)城.bmp”,0.9,intX4,intY4)Ifintx4>0andinty4>0Goto到達(dá)城市EndIfGoto判斷位置EndIfEndForElseGoto到達(dá)城市EndIfElseMoveTox1,y1KeyDown18,1KeyPress192,1KeyUp18,1Goto判斷位置EndIfRem到達(dá)城市ReturnSub判斷地圖VBSBeginSelectCasescase〃白堤柳鬼〃map="西湖〃case〃童貫〃map二〃洛陽〃case”金錢豹”map="雁南”case〃阿林〃map二〃草原〃case〃阿史那默谷〃map="遼西〃case〃紇石烈阿疏〃map="長白山”case"大黑熊”map=”黃龍府”case〃韋大叔〃map二〃蘇州〃case〃程青霜〃map=〃大理〃case〃打草谷遼兵〃map="雁北〃case"江湖游醫(yī)"map="嵩山”case〃寇循〃map="太湖〃case〃法河〃map=〃龍泉〃case〃白花蜘蛛〃map="武夷〃case"甘草”map=”梅嶺”case〃鱷魚幫打手〃map二〃南?！╟ase"凌憶慈"map="瓊州”case"曹延惠"map="敦煌”case"大臉"map="劍閣”case"方光智"map=”無量山”case〃白景武〃map=〃南詔〃case"阿雨”map="苗疆”case"阿支”map="石林”case"簡丁”map="洱?！眂ase〃古魯拉〃map="玉溪〃case〃長毛雪怪〃map二〃蒼山〃EndSelectVBSEndReturnSub進(jìn)入對方城市tomap="Attachment:、％MyArray2(UBound(MyArray2))&".bmp”VBSCallFindPic(x1,y1,x2,y2,tomap,0.9,intX4,intY4)Ifintx4>0andinty4>0MoveTointx4+10,inty4+8Delay500LeftClick1ElseSayString”命令:找不到您指定的幫會城市，請檢查設(shè)置."KeyPress13,1EndIfDelay3000ReturnSub判斷價格Rem出售_打開店鋪Delay1000VBSCallFindPic(x1,y1,x2,y2,"Attachment:、打開店鋪.bmp”,0.7,intX,intY)Ifintx>0andinty>0MoveTointx+15,inty+8LeftClick1ElseSayString”命令:打開店鋪無法完成"KeyPress13,1EndIfDelay2000VBSCallFindPic(x1,y1,x2,y2,"Attachment:\店鋪.bmp”,0.7,intX,intY)Ifintx>0andinty>0MoveTointx+15,inty+8LeftClick1ElseSayString”命令:店鋪無法完成"KeyPress13,1EndIfDelay2000VBSCallFindPic(x1,y1,x2,y2,"Attachment:\糧食.bmp”,0.8,intX,intY)Delay1000Ifintx>0andinty>0PluginSiMiniOCR.SetFontColor("ffffff")Pluginjiage二SiMiniOCR.OCR(intX,intY,intX+140,intY+45)jiage二Replace(jiage,"”,"-")MyArray3二Split(jiage,〃-〃，-1,1)Ifcint(MyArray3(0))=jinandcint(MyArray3(1))=yinSayString”價格判斷:達(dá)到設(shè)定價格”&jin&"銀"&yin&"銅，開始賣出"KeyPress13,1Goto可以賣出EndIfElseSayString”命令:找不到糧食"KeyPress13,1EndIfGoto出售—打開店鋪Rem可以賣出ReturnSub賣出Rem賣出_打開包袱VBSCallFindPic(x1,y1,x2,y2,"Attachment:\任務(wù)包袱.bmp”,0.5,intX,intY)Ifintx>0andinty>0MoveTointx+10,inty+7LeftClick1Delay1000Rem重復(fù)賣出VBSCallFindPic(x1,y1,x2,y2,"Attachment:\糧食2.bmp”,0.7,intX,intY)Ifintx>0andinty>0MoveTointx+10,inty+10RightClick1Delay500Goto重復(fù)賣出ElseSayString”未找到商品"KeyPress13,1EndIfElseKeyDown18,1KeyPress65,1KeyUp18,1Delay1000Goto賣出_打開包袱SayString”命令:完成出售，開始買進(jìn)"KeyPress13,1ReturnSub返回己方幫派Rem返回—開始判斷當(dāng)前地圖Delay500VBSCallFindPic(x1,y1,x2,y2,"Attachment:\進(jìn)城.bmp”,0.9,intX4,intY4)Ifintx4>0andinty4>0Goto返回—已經(jīng)到達(dá)目的地EndIfVBSCallFindPic(x1,y1,x2,y2,"Attachment:\12.bmp”,0.7,intX,intY)Ifintx>0andinty>0PluginSiMiniOCR.SetFontColor("ffffff")Plugins=SiMiniOCR.OCR(intx,inty+158,intx+95,inty+178)s=Replace(s,〃〃,〃〃)Ifs=〃"PluginSiMiniOCR.SetFontColor("ffffff")Plugins=SiMiniOCR.OCR(intx,inty+25,intx+95,inty+178)IfInStr(s,"阮星竹")>0map="鏡湖〃EndIfElseGosub判斷地圖EndIfk=UBound(MyArray2)ForUBound(MyArray2)k=k-1a=MyArray2(k)Ifa=mapinmap=MyArray2(k)tomap二MyArray2(k-1)Goto返回—找到當(dāng)前地圖EndIfEndForElseKeyDown18,1KeyPress192,1KeyUp18,1Goto返回—開始判斷當(dāng)前地圖EndIfRem返回—找到當(dāng)前地圖SayString”命令：當(dāng)前地圖<"&inmap&">,將前往下個地圖<"&tomap&">”KeyPress13,1Gosub下個地圖Goto返回—開始判斷當(dāng)前地圖Rem返回_已經(jīng)到達(dá)目的地ReturnSub進(jìn)入已方城市tomap="Attachment:、％MyArray2(0)&".bmp”VBSCallFindPic(x1,y1,x2,y2,tomap,0.9,intX4,intY4)Ifintx4>0andinty4>0MoveTointx4+10,inty4+8Delay500LeftClick1ElseSayString"命令:找不到您指定的幫會城市，請檢查設(shè)置."KeyPress13,1EndIfDelay3000ReturnSub交還銀票Delay1000VBSCallFindPic(x1,y1,x