男女激情视频网站在线-狠狠躁夜夜躁人人爽天天3-99国产午夜在线精品-一区二区三区日本精品视频-久久99热这里只精品-国产精品熟女视频区蛋播-人久热欧美在线观看量量-加勒比熟妇中文高清-碰碰视频一区二区三区

  1. 首頁 > 生活經(jīng)驗 > >

魔域按鍵精靈腳本 魔域按鍵精靈腳本制作流程

知識經(jīng)驗


魔域按鍵精靈腳本 魔域按鍵精靈腳本制作流程

文章插圖
大家好,小豆豆來為大家解答以上的問題 。魔域按鍵精靈腳本制作流程，魔域按鍵精靈腳本這個很多人還不知道,現(xiàn)在讓我們一起來看看吧！
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 減傷害低級的價格UserVar jyjg=1 經(jīng)驗低級的價格UserVar zdljg=5 戰(zhàn)斗力低級的價格UserVar mhjg=3 魔魂的價格UserVar hmjg=7 幻魔的價格UserVar jszjg=15 減傷害中級的價格UserVar jyzjg=15 經(jīng)驗中級的價格UserVar zdlzjg=60 戰(zhàn)斗力中級的價格UserVar mhzxjg=90 魔魂之心的價格UserVar hmzxjg=120 幻魔之心的價格UserVar lhjg=60 靈魂的價格UserVar ojg=20 O型寶寶的價格UserVar gxjg=6 孤星的價格UserVar sxjg=6 雙星的價格UserVar fzjg=15 法豬的價格UserVar zzjg=15 戰(zhàn)豬的價格UserVar cjqsjg=7 莎菲的價格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="人在【一】號攤位旁邊賣的速度,不收的東西放上去價格全部不計" 請輸入自動叫喊的第2句話UserVar str3="收裁決騎士莎菲7雙防22 豬18 雙孤星8 戰(zhàn)斗力+1/5" 請輸入自動叫喊的第3句話UserVar str4="請速度放上東西,時間不等人,不收的東西放上去價格全部不計" 請輸入自動叫喊的第4句話UserVar str5="這是自動喊的第5句話" 請輸入自動叫喊的第5句話UserVar Yanshi=5000 兩句喊話之間的等待時間 ， 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 等待半分鐘后 ， 進行下一輪叫賣Goto 開始喊話EndScriptSub 程序開始Gosub 計算物品數(shù)量Delay 100Gosub 輸入價錢Delay 100Gosub 交易等待Return 程序開始Sub 檢查有沒有交易VBSCall findpic(0,0,1024,768,"..myphoto商貿(mào).bmp",0.9,x,y)If x>=0 and y>=0Delay 300MoveTo 443,446Delay 500LeftClick 1Delay 2000Gosub 檢測放物品Delay 500Gosub 程序開始EndIfEndIfReturn 檢查有沒有交易Sub 檢測放物品VBS i=0VBS a = 0 : x = 51 : y = 264VBS s=0For 12Rem 開始檢測放物品If i>=6Goto 檢測放物品結(jié)束EndIfIfColor x,y,80808,2Delay 2000VBS i=i+1Goto 開始檢測放物品ElseVBS x=x+34VBS i=0VBS a=a+1If a=5VBS x = 51 : y = 264+34EndIfEndIfEndForRem 檢測放物品結(jié)束Return 檢測放物品Sub 檢測交易有沒有被提前結(jié)束IfColor 125,144,896c6,2IfColor 149,141,896c6,2Goto 交易沒被結(jié)束ElseGoto 開始喊話EndIfElseGoto 開始喊話EndIfRem 交易沒被結(jié)束Return 檢測交易有沒有被提前結(jié)束Sub 計算物品數(shù)量VBS i=0Gosub 檢測交易有沒有被提前結(jié)束For 17VBS a = 0 : x = 34 : y = 247 : bx = 294 : by = 347VBS s=0Delay 100While a = 0//如果變量a等于0 ， 則循環(huán)執(zhí)行下面命令Delay 10VBSCall 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 3000x = x + 34 : by = y + 34//區(qū)域左邊加1 。
2、這里的34指的是圖片的寬度，自改s = s + 1//如果找到圖片在數(shù)量上加1Rem lineDelay 10VBSCall 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 3000x = linex + 34//區(qū)域左邊加1s = s + 1//數(shù)量加1Goto line//返回同一行再查找Else//否則x = 34 : y = y + 34 : by = 347//左邊初始為0，上邊加1 ， 初始化區(qū)域下邊EndIfElse//如果沒有找到圖片a = 1//變量a為1（退出循環(huán)）EndIfEndWhileGosub 計算價格//VBSCall messagebox("共找到 " & s & " 個"&"tp("&i&") "&"相同圖片" & tp(i) & " ")VBS i=i+1//彈出結(jié)果EndForReturn 計算物品數(shù)量Sub 計算價格//《計算價格》If i=0Rizhi="減傷害低級石頭"VBS jsjiage=(jsjg*s)//VBSCall messagebox("合計 " & jsjiage & " MS")ElseIf i=1Rizhi="經(jīng)驗低級石頭"VBS jyjiage=jyjg*s//VBSCall messagebox("合計 " & jyjiage & " MS")ElseIf i=2Rizhi="戰(zhàn)斗力低級石頭"VBS zdljiage=zdljg*s//VBSCall messagebox("合計 " & zdljiage & " MS")ElseIf i=3Rizhi="魔魂"VBS mhjiage=mhjg*s//VBSCall messagebox("合計 " & mhjiage & " MS")ElseIf i=4Rizhi="幻魔"VBS hmjiage=(hmjg*s)//VBSCall messagebox("合計 " & hmjiage & " MS")ElseIf i=5Rizhi="減傷害中級石頭"VBS jszjiage=jszjg*sElseIf i=6Rizhi="經(jīng)驗中級石頭"VBS jyzjiage=jyzjg*sElseIf i=7Rizhi="戰(zhàn)斗力中級石頭"VBS zdlzjiage=zdlzjg*sElseIf i=8Rizhi="魔魂之心"VBS mhzxjiage=mhzxjg*sElseIf i=9Rizhi="幻魔之心"VBS hmzxjiage=hmzxjg*sElseIf i=10Rizhi="靈魂"VBS lhjiage=lhjg*s//VBSCall messagebox("合計 " & lhjiage & " MS")ElseIf i=11Rizhi="O型寶寶"VBS ojiage=ojg*sElseIf i=12Rizhi="孤星"VBS gxjiage=gxjg*sElseIf i=13Rizhi="雙星"VBS sxjiage=sxjg*sElseIf i=14Rizhi="法豬"VBS fzjiage=fzjg*sElseIf i=15Rizhi="戰(zhàn)豬"VBS zzjiage=zzjg*sElseIf i=16Rizhi="莎菲"VBS cjqsjiage=cjqsjg*sVBS zongjiage=0VBS zongjiage=(jsjiage+jyjiage+zdljiage+mhjiage+hmjiage+jszjiage+jyzjiage+zdlzjiage+mhzxjiage+hmzxjiage+lhjiage+ojiage+gxjiage+sxjiage+fzjiage+zzjiage+cjqsjiage)//VBSCall messagebox("合計 " & zongjiage & " MS")ElseVBS zongjiage=0EndIfReturn 計算價格Sub 輸入價錢MoveTo 200,410Delay 1000Gosub 檢測交易有沒有被提前結(jié)束LeftClick 1Delay 100Gosub 檢測交易有沒有被提前結(jié)束LeftClick 1Delay 1000SayString zongjiageDelay 1000Rem 輸入msMoveTo 263,415Delay 1000Gosub 檢測交易有沒有被提前結(jié)束LeftClick 1Delay 100Gosub 檢測交易有沒有被提前結(jié)束LeftClick 1Delay 500IfColor 263,415,8ccfde,2Goto 輸入msElseMoveTo 136,513Delay 500Gosub 檢測交易有沒有被提前結(jié)束LeftClick 1Delay 300EndIfReturn 輸入價錢Sub 交易等待jsq=0Rem 等待交易If jsq>=20MoveTo 205,515Delay 1000Gosub 檢測交易有沒有被提前結(jié)束LeftClick 1Delay 300Goto 對方不交易EndIfIfColor 233,494,a5f62,2Delay 1000jsq=jsq+1Goto 等待交易ElseEndIfRem 對方不交易Return 交易等待好象沒有哦 。
【魔域按鍵精靈腳本 魔域按鍵精靈腳本制作流程】本文到此分享完畢，希望對大家有所幫助 。