(資料圖片僅供參考)
1、沒有物品寶寶存?zhèn)}庫,有的可以自己增加一下.VBS dim tp(16),a,x,y,linex,liney,bx,by,s,i,jsqVBS jsjg,jsjiage,jyjg,jyjiage,zdljg,zdljiage,mhjg,mhjiage,hmjg,hmjiageVBS jszjg,jszjiage,jyzjg,jyzjiage,zdlzjg,zdlzjiage,mhzxjg,mhzxjiage,hmzxjg,hmzxjiageVBS lhjg,lhjiage,ojg,ojiage,gxjg,gxjiage,sxjg,sxjiage,fzjg,fzjiageVBS zzjg,zzjiage,cjqsjg,cjqsjiage,zongjiage//聲明變量UserVar jsjg=1 減傷害低級的價(jià)格UserVar jyjg=1 經(jīng)驗(yàn)低級的價(jià)格UserVar zdljg=5 戰(zhàn)斗力低級的價(jià)格UserVar mhjg=3 魔魂的價(jià)格UserVar hmjg=7 幻魔的價(jià)格UserVar jszjg=15 減傷害中級的價(jià)格UserVar jyzjg=15 經(jīng)驗(yàn)中級的價(jià)格UserVar zdlzjg=60 戰(zhàn)斗力中級的價(jià)格UserVar mhzxjg=90 魔魂之心的價(jià)格UserVar hmzxjg=120 幻魔之心的價(jià)格UserVar lhjg=60 靈魂的價(jià)格UserVar ojg=20 O型寶寶的價(jià)格UserVar gxjg=6 孤星的價(jià)格UserVar sxjg=6 雙星的價(jià)格UserVar fzjg=15 法豬的價(jià)格UserVar zzjg=15 戰(zhàn)豬的價(jià)格UserVar cjqsjg=7 莎菲的價(jià)格VBS tp(0)="1js1":tp(1)="2jyx1":tp(2)="3zdx5":tp(3)="4mh4":tp(4)="5hm8":tp(5)="6jsz15"VBS tp(6)="7jyz15":tp(7)="8zdz60":tp(8)="9mhzx100":tp(9)="10hmzx120":tp(10)="11lh70":tp(11)="12o20"VBS tp(12)="13gx5":tp(13)="14sx5":tp(14)="15fz14":tp(15)="16zz14":tp(16)="17cjqs7"http://初始化變量,x是區(qū)域左邊、y是區(qū)域左邊、bx是區(qū)域下邊、by是區(qū)域下邊,s是圖片數(shù)量UserVar str1="收裁決騎士莎菲7 雙防22 豬18 雙孤星8 戰(zhàn)斗力+1/5" 請輸入自動叫喊的第1句話UserVar str2="人在【一】號攤位旁邊賣的速度,不收的東西放上去價(jià)格全部不計(jì)" 請輸入自動叫喊的第2句話UserVar str3="收裁決騎士莎菲7 雙防22 豬18 雙孤星8 戰(zhàn)斗力+1/5" 請輸入自動叫喊的第3句話UserVar str4="請速度放上東西,時(shí)間不等人,不收的東西放上去價(jià)格全部不計(jì)" 請輸入自動叫喊的第4句話UserVar str5="這是自動喊的第5句話" 請輸入自動叫喊的第5句話UserVar Yanshi=5000 兩句喊話之間的等待時(shí)間,1秒鐘是1000//****************設(shè)置結(jié)束*****************Delay 4000Rem 開始喊話KeyPress 13 1Delay 300SayExpression str1KeyPress 13 1Delay YanshiGosub 檢查有沒有交易KeyPress 13 1Delay 300SayExpression str2KeyPress 13 1Gosub 檢查有沒有交易Delay YanshiKeyPress 13 1Delay 300SayExpression str3KeyPress 13 1Gosub 檢查有沒有交易Delay DaYanshiRem 等待半分鐘后,進(jìn)行下一輪叫賣Goto 開始喊話EndScriptSub 程序開始 Gosub 計(jì)算物品數(shù)量 Delay 100 Gosub 輸入價(jià)錢 Delay 100 Gosub 交易等待Return 程序開始Sub 檢查有沒有交易 VBSCall findpic(0,0,1024,768,"..myphoto商貿(mào).bmp",0.9,x,y) If x>=0 and y>=0 Delay 300 MoveTo 443,446 Delay 500 LeftClick 1 Delay 2000 Gosub 檢測放物品 Delay 500 Gosub 程序開始 EndIfEndIfReturn 檢查有沒有交易Sub 檢測放物品 VBS i=0 VBS a = 0 : x = 51 : y = 264 VBS s=0 For 12 Rem 開始檢測放物品 If i>=6 Goto 檢測放物品結(jié)束 EndIf IfColor x,y,80808,2 Delay 2000 VBS i=i+1 Goto 開始檢測放物品 Else VBS x=x+34 VBS i=0 VBS a=a+1 If a=5 VBS x = 51 : y = 264+34 EndIf EndIf EndFor Rem 檢測放物品結(jié)束Return 檢測放物品Sub 檢測交易有沒有被提前結(jié)束 IfColor 125,144,896c6,2 IfColor 149,141,896c6,2 Goto 交易沒被結(jié)束 Else Goto 開始喊話 EndIf Else Goto 開始喊話 EndIf Rem 交易沒被結(jié)束Return 檢測交易有沒有被提前結(jié)束Sub 計(jì)算物品數(shù)量 VBS i=0 Gosub 檢測交易有沒有被提前結(jié)束 For 17 VBS a = 0 : x = 34 : y = 247 : bx = 294 : by = 347 VBS s=0 Delay 100 While a = 0 //如果變量a等于0,則循環(huán)執(zhí)行下面命令 Delay 10 VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp",0.9,x,y) //區(qū)域找圖 If x>=0 and y>=0 //Delay 1000 //MoveTo x,y //Delay 1000 //MoveTo 247,294 //Delay 3000 x = x + 34 : by = y + 34 //區(qū)域左邊加1。
2、這里的34指的是圖片的寬度,自改 s = s + 1 //如果找到圖片在數(shù)量上加1 Rem line Delay 10 VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp",0.9,linex,liney) //這是是在同一行再查找 If linex>=0 and liney>=0 //Delay 1000 //MoveTo linex,liney //Delay 1000 //MoveTo 247,294 //Delay 3000 x = linex + 34 //區(qū)域左邊加1 s = s + 1 //數(shù)量加1 Goto line //返回同一行再查找 Else //否則 x = 34 : y = y + 34 : by = 347 //左邊初始為0,上邊加1,初始化區(qū)域下邊 EndIf Else //如果沒有找到圖片 a = 1 //變量a為1(退出循環(huán)) EndIf EndWhile Gosub 計(jì)算價(jià)格 // VBSCall messagebox("共找到 " & s & " 個(gè)"&"tp("&i&") "&"相同圖片" & tp(i) & " ") VBS i=i+1 //彈出結(jié)果 EndForReturn 計(jì)算物品數(shù)量Sub 計(jì)算價(jià)格 //《計(jì)算價(jià)格》 If i=0 Rizhi="減傷害低級石頭" VBS jsjiage=(jsjg*s) //VBSCall messagebox("合計(jì) " & jsjiage & " MS") ElseIf i=1 Rizhi="經(jīng)驗(yàn)低級石頭" VBS jyjiage=jyjg*s //VBSCall messagebox("合計(jì) " & jyjiage & " MS") ElseIf i=2 Rizhi="戰(zhàn)斗力低級石頭" VBS zdljiage=zdljg*s //VBSCall messagebox("合計(jì) " & zdljiage & " MS") ElseIf i=3 Rizhi="魔魂" VBS mhjiage=mhjg*s //VBSCall messagebox("合計(jì) " & mhjiage & " MS") ElseIf i=4 Rizhi="幻魔" VBS hmjiage=(hmjg*s) //VBSCall messagebox("合計(jì) " & hmjiage & " MS") ElseIf i=5 Rizhi="減傷害中級石頭" VBS jszjiage=jszjg*s ElseIf i=6 Rizhi="經(jīng)驗(yàn)中級石頭" VBS jyzjiage=jyzjg*s ElseIf i=7 Rizhi="戰(zhàn)斗力中級石頭" VBS zdlzjiage=zdlzjg*s ElseIf i=8 Rizhi="魔魂之心" VBS mhzxjiage=mhzxjg*s ElseIf i=9 Rizhi="幻魔之心" VBS hmzxjiage=hmzxjg*s ElseIf i=10 Rizhi="靈魂" VBS lhjiage=lhjg*s //VBSCall messagebox("合計(jì) " & lhjiage & " MS") ElseIf i=11 Rizhi="O型寶寶" VBS ojiage=ojg*s ElseIf i=12 Rizhi="孤星" VBS gxjiage=gxjg*s ElseIf i=13 Rizhi="雙星" VBS sxjiage=sxjg*s ElseIf i=14 Rizhi="法豬" VBS fzjiage=fzjg*s ElseIf i=15 Rizhi="戰(zhàn)豬" VBS zzjiage=zzjg*s ElseIf i=16 Rizhi="莎菲" VBS cjqsjiage=cjqsjg*s VBS zongjiage=0 VBS zongjiage=(jsjiage+jyjiage+zdljiage+mhjiage+hmjiage+jszjiage+jyzjiage+zdlzjiage+mhzxjiage+hmzxjiage+lhjiage+ojiage+gxjiage+sxjiage+fzjiage+zzjiage+cjqsjiage) //VBSCall messagebox("合計(jì) " & zongjiage & " MS") Else VBS zongjiage=0 EndIfReturn 計(jì)算價(jià)格Sub 輸入價(jià)錢 MoveTo 200,410 Delay 1000 Gosub 檢測交易有沒有被提前結(jié)束 LeftClick 1 Delay 100 Gosub 檢測交易有沒有被提前結(jié)束 LeftClick 1 Delay 1000 SayString zongjiage Delay 1000 Rem 輸入ms MoveTo 263,415 Delay 1000 Gosub 檢測交易有沒有被提前結(jié)束 LeftClick 1 Delay 100 Gosub 檢測交易有沒有被提前結(jié)束 LeftClick 1 Delay 500 IfColor 263,415,8ccfde,2 Goto 輸入ms Else MoveTo 136,513 Delay 500 Gosub 檢測交易有沒有被提前結(jié)束 LeftClick 1 Delay 300 EndIfReturn 輸入價(jià)錢Sub 交易等待 jsq=0 Rem 等待交易 If jsq>=20 MoveTo 205,515 Delay 1000 Gosub 檢測交易有沒有被提前結(jié)束 LeftClick 1 Delay 300 Goto 對方不交易 EndIf IfColor 233,494,a5f62,2 Delay 1000 jsq=jsq+1 Goto 等待交易 Else EndIf Rem 對方不交易Return 交易等待好象沒有哦。
本文到此分享完畢,希望對大家有所幫助。
關(guān)鍵詞:
凡注有"實(shí)況網(wǎng)-重新發(fā)現(xiàn)生活"或電頭為"實(shí)況網(wǎng)-重新發(fā)現(xiàn)生活"的稿件,均為實(shí)況網(wǎng)-重新發(fā)現(xiàn)生活獨(dú)家版權(quán)所有,未經(jīng)許可不得轉(zhuǎn)載或鏡像;授權(quán)轉(zhuǎn)載必須注明來源為"實(shí)況網(wǎng)-重新發(fā)現(xiàn)生活",并保留"實(shí)況網(wǎng)-重新發(fā)現(xiàn)生活"的電頭。
熱點(diǎn)
- 死了都要愛?(關(guān)于死了都要愛?介紹)
- 動態(tài):最后的德魯伊電影_最后的德魯伊
- 特朗普再次被起訴,轉(zhuǎn)頭又去打高爾夫,網(wǎng)友:他和高爾夫是真愛-當(dāng)前熱訊
- 花椒蒸梨的正確做法_花椒蒸梨的禁忌癥
- 焦點(diǎn)觀察:高考配置用筆漏墨:招標(biāo)背后可有“貓膩”?
- 全球最新:中國代表敦促日方勿讓福島核污染水危害人類健康
- 霍尊前女友被移交檢方,為900萬搭上一生,小作文以后不好使了?
- 全球要聞:【共同締造安全江夏?】做好安全江夏的“共同”文章
- 王楠跪在地上指導(dǎo)女兒打球,鼓掌叫好,老公郭斌:這媽能打90分
- 首臺套50萬千瓦沖擊式水電機(jī)組項(xiàng)目開工 世界快播報(bào)
頭條
- 文博會:“科技+創(chuàng)意”讓文化遺產(chǎn)活起來_世界聚看點(diǎn)
- 焦點(diǎn)消息!東西問丨許燎源:大運(yùn)會火炬何以跨國界產(chǎn)生情感共鳴?
- 實(shí)用收藏!高考填志愿你需要知道的事
- 高質(zhì)量發(fā)展調(diào)研行丨他們沒有考上大學(xué),卻成了世界冠軍
- 全球微頭條丨“廣東造”憑啥高質(zhì)量?快來這里找答案 | 高質(zhì)量發(fā)展調(diào)研行?廣東站
- 熱點(diǎn)在線丨全球連線|從賀蘭山到波爾多,中國紅酒產(chǎn)區(qū)在交流互鑒中走向世界
- 潮頭觀瀾丨祖國北疆的綠色答卷
- 治沙70載 沙海變綠洲-每日信息
- 新華全媒+丨小村夜“戰(zhàn)”:中原麥?zhǔn)?“搶”字當(dāng)頭
- 世界海洋日 | 保護(hù)海洋 我們能做些什么?