VBS dim tp(16),a,x,y,linex,liney,bx,by,s,i,jsq
VBS jsjg,jsjiage,jyjg,jyjiage,zdljg,zdljiage,mhjg,mhjiage,hmjg,hmjiage
VBS jszjg,jszjiage,jyzjg,jyzjiage,zdlzjg,zdlzjiage,mhzxjg,mhzxjiage,hmzxjg,hmzxjiage
VBS lhjg,lhjiage,ojg,ojiage,gxjg,gxjiage,sxjg,sxjiage,fzjg,fzjiage
VBS zzjg,zzjiage,cjqsjg,cjqsjiage,zongjiage
//聲明變量
UserVar jsjg=1 減傷害低級的價格
UserVar jyjg=1 經驗低級的價格
UserVar zdljg=5 戰鬥力低級的價格
UserVar mhjg=3 魔魂的價格
UserVar hmjg=7 幻魔的價格
UserVar jszjg=15 減傷害中級的價格
UserVar jyzjg=15 經驗中級的價格
UserVar zdlzjg=60 戰鬥力中級的價格
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 戰豬的價格
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"
//初始化變量，x是區域左邊、y是區域左邊、bx是區域下邊、by是區域下邊，s是圖片數量
UserVar str1="收裁決騎士莎菲7 雙防22 豬18 雙孤星8 戰鬥力+1/5" 請輸入自動叫喊的第1句話
UserVar str2="人在壹號攤位旁邊賣的速度,不收的東西放上去價格全部不計" 請輸入自動叫喊的第2句話
UserVar str3="收裁決騎士莎菲7 雙防22 豬18 雙孤星8 戰鬥力+1/5" 請輸入自動叫喊的第3句話
UserVar str4="請速度放上東西,時間不等人,不收的東西放上去價格全部不計" 請輸入自動叫喊的第4句話
UserVar str5="這是自動喊的第5句話" 請輸入自動叫喊的第5句話
UserVar Yanshi=5000 兩句喊話之間的等待時間，1秒鐘是1000
//****************設置結束*****************
Delay 4000
Rem 開始喊話
KeyPress 13 1
Delay 300
SayExpression str1
KeyPress 13 1
Delay Yanshi
Gosub 檢查有沒有交易
KeyPress 13 1
Delay 300
SayExpression str2
KeyPress 13 1
Gosub 檢查有沒有交易
Delay Yanshi
KeyPress 13 1
Delay 300
SayExpression str3
KeyPress 13 1
Gosub 檢查有沒有交易
Delay DaYanshi
Rem 等待半分鐘後，進行下壹輪叫賣
Goto 開始喊話
EndScript
Sub 程序開始
Gosub 計算物品數量
Delay 100
Gosub 輸入價錢
Delay 100
Gosub 交易等待
Return 程序開始
Sub 檢查有沒有交易
VBSCall findpic(0,0,1024,768,"..myphoto商貿.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 程序開始
EndIf
EndIf
Return 檢查有沒有交易
Sub 檢測放物品
VBS i=0
VBS a = 0 : x = 51 : y = 264
VBS s=0
For 12
Rem 開始檢測放物品
If i>=6
Goto 檢測放物品結束
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 檢測放物品結束
Return 檢測放物品
Sub 檢測交易有沒有被提前結束
IfColor 125,144,896c6,2
IfColor 149,141,896c6,2
Goto 交易沒被結束
Else
Goto 開始喊話
EndIf
Else
Goto 開始喊話
EndIf
Rem 交易沒被結束
Return 檢測交易有沒有被提前結束
Sub 計算物品數量
VBS i=0
Gosub 檢測交易有沒有被提前結束
For 17
VBS a = 0 : x = 34 : y = 247 : bx = 294 : by = 347
VBS s=0
Delay 100
While a = 0
//如果變量a等於0，則循環執行下面命令
Delay 10
VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp",0.9,x,y)
//區域找圖
If x>=0 and y>=0
//Delay 1000
//MoveTo x,y
//Delay 1000
//MoveTo 247,294
//Delay 3000
x = x + 34 : by = y + 34
//區域左邊加1。這裏的34指的是圖片的寬度，自改
s = s + 1
//如果找到圖片在數量上加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
//區域左邊加1
s = s + 1
//數量加1
Goto line
//返回同壹行再查找
Else
//否則
x = 34 : y = y + 34 : by = 347
//左邊初始為0，上邊加1，初始化區域下邊
EndIf
Else
//如果沒有找到圖片
a = 1
//變量a為1（退出循環）
EndIf
EndWhile
Gosub 計算價格
// VBSCall messagebox("***找到 " & s & " 個"&"tp("&i&") "&"相同圖片" & tp(i) & " ")
VBS i=i+1
//彈出結果
EndFor
Return 計算物品數量
Sub 計算價格
//《計算價格》
If i=0
Rizhi="減傷害低級石頭"
VBS jsjiage=(jsjg*s)
//VBSCall messagebox("合計 " & jsjiage & " MS")
ElseIf i=1
Rizhi="經驗低級石頭"
VBS jyjiage=jyjg*s
//VBSCall messagebox("合計 " & jyjiage & " MS")
ElseIf i=2
Rizhi="戰鬥力低級石頭"
VBS zdljiage=zdljg*s
//VBSCall messagebox("合計 " & zdljiage & " MS")
ElseIf i=3
Rizhi="魔魂"
VBS mhjiage=mhjg*s
//VBSCall messagebox("合計 " & mhjiage & " MS")
ElseIf i=4
Rizhi="幻魔"
VBS hmjiage=(hmjg*s)
//VBSCall messagebox("合計 " & hmjiage & " MS")
ElseIf i=5
Rizhi="減傷害中級石頭"
VBS jszjiage=jszjg*s
ElseIf i=6
Rizhi="經驗中級石頭"
VBS jyzjiage=jyzjg*s
ElseIf i=7
Rizhi="戰鬥力中級石頭"
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("合計 " & 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="戰豬"
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("合計 " & zongjiage & " MS")
Else
VBS zongjiage=0
EndIf
Return 計算價格
Sub 輸入價錢
MoveTo 200,410
Delay 1000
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 100
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 1000
SayString zongjiage
Delay 1000
Rem 輸入ms
MoveTo 263,415
Delay 1000
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 100
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 500
IfColor 263,415,8ccfde,2
Goto 輸入ms
Else
MoveTo 136,513
Delay 500
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 300
EndIf
Return 輸入價錢
Sub 交易等待
jsq=0
Rem 等待交易
If jsq>=20
MoveTo 205,515
Delay 1000
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 300
Goto 對方不交易
EndIf
IfColor 233,494,a5f62,2
Delay 1000
jsq=jsq+1
Goto 等待交易
Else
EndIf
Rem 對方不交易
Return 交易等待