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，宗加格
//聲明變量
UserVar jsjg=1減去傷害低價。
UserVar jyjg=1體驗低級價格。
UserVar zdljg=5戰鬥力低級價格。
UserVar mhjg=3妖魂的價格。
UserVar hmjg=7魔術魔術的價格。
UserVar jszjg=15減傷中級的價格。
UserVar jyzjg=15經驗中級價格。
用戶var zdlzjg = 60戰力中級的價格。
UserVar mhzxjg=90妖魂之心的價格。
UserVar hmzxjg=120魔心的價格。
UserVar lhjg=60靈魂的價格
用戶var ojg =嬰兒型20 o的價格。
UserVar gxjg=6孤星的價格。
UserVar sxjg=6兩顆星的價格。
UserVar fzjg=15法豬價格。
UserVar zzjg=15戰豬的價格。
UserVar cjqsjg=7沙飛的價格。
VBS TP(0)= " 1js 1 ":TP(1)= " 2jyx 1 ":TP(2)= " 3zdx 5 ":TP(3)= " 4mh 4 ":TP(4)= " 5hm 8 ":TP(5)= " 6jsz 15 "
VBS TP(6)= " 7jyz 15 ":TP(7)= " 8zdz 60 ":TP(8)= " 9 mhzx 100 ":TP(9)= " 10 hmzx 120 ":TP(10)= " 11lh 70 ":TP(11)= " 120
VBS TP(12)= " 13gx 5 ":TP(13)= " 14sx 5 ":TP(14)= " 15fz 14 ":TP(15)= " 16zz 14 ":TP(16)= " 65438
//初始化變量，其中X為區域左側，Y為區域左側，bx為區域底部，by為區域底部，S為圖片數量。
UserVar str1= "法官沙飛7雙防22豬18雙孤星8戰力+1/5 "，請輸入自動呼喊1的句子。
user var str 2 =“1號攤位旁邊賣東西的人的速度，不考慮不收的東西的價格”，請輸入自動喊話的第二句話。
UserVar str3= "法官騎士沙飛7雙防22豬18雙孤星8戰力+1/5 "請輸入自動呼喊第三句。
UserVar str4= "請快點把東西穿上，時間不等人，沒收好的東西價格不算。"請輸入第四句自動喊話。
UserVar str5= "這是自動喊話的第五句話"。請輸入第五句自動喊話。
UserVar Yanshi=5000兩個口號之間的等待時間，1秒就是1000。
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
延遲4000
雷姆開始大叫。
按鍵13 1
延遲300
SayExpression str1
按鍵13 1
延偃師
Gosub檢查交易。
按鍵13 1
延遲300
SayExpression str2
按鍵13 1
Gosub檢查交易。
延偃師
按鍵13 1
延遲300
SayExpression str3
按鍵13 1
Gosub檢查交易。
延遲大宴時
雷姆在下壹輪拋售前等待半分鐘。
後藤開始大叫
EndScript
子程序開始
Gosub計算項目的數量。
延遲100
Gosub輸入價格
延遲100
Gosub事務等待
返回程序開始。
Sub，檢查是否有交易。
VBScall查找pic (0，0，1024，768，"...myphoto business.bmp "，0.9，x，y)。
如果x & gt=0且y & gt=0
延遲300
移到443，446
延遲500
左鍵點擊1
延遲2000年
Gosub檢測並釋放項目。
延遲500
Gosub計劃開始
EndIf
EndIf
返回檢查是否有任何交易。
Sub檢測並釋放物品。
VBS i=0
VBS a = 0 : x = 51 : y = 264
VBS s=0
對於12
雷姆開始檢測和擺放物品。
如果我& gt=6
轉到檢測，放置項目結束。
EndIf
IfColor x，y，80808，2
延遲2000年
VBS i=i+1
Goto開始檢測並放置物品。
其他
VBS x=x+34
VBS i=0
VBS a=a+1
如果a=5
VBS x = 51 : y = 264+34
EndIf
EndIf
結束
物品放置結束的Rem檢測。
Return檢測並放置項目。
Sub檢測交易是否被提前終止。
IfColor 125，144，896c6，2
IfColor 149，141，896c6，2
後藤，交易還沒結束。
其他
後藤開始大叫
EndIf
其他
後藤開始大叫
EndIf
雷，交易還沒結束。
Return檢測事務是否被提前終止。
Sub計算項目的數量
VBS i=0
Gosub檢測事務是否被提前終止。
對於17
VBS a = 0:x = 34:y = 247:bx = 294:by = 347
VBS s=0
延遲100
當a = 0時
//如果變量A等於0，循環執行下面的命令。
延遲10
VBSCall findpic(x，y，bx，by，"..我的照片”& amptp(i)和amp".bmp "，0.9，x，y)
//區域地圖查找
如果x & gt=0且y & gt=0
//延遲1000
//移動到x，y
//延遲1000
//移動到247，294
//延遲3000
x = x + 34 : by = y + 34
//在區域左側添加1。這裏34指的是畫面的寬度，是自己改的。
s = s + 1
//如果找到圖片，數量加1。
雷姆線
延遲10
VBSCall findpic(x，y，bx，by，"..我的照片”& amptp(i)和amp".骨形態發生蛋白”，0.9，linex，liney)
//這是在同壹行中再次查找。
如果linex & gt=0且liney & gt=0
//延遲1000
//MoveTo linex，liney
//延遲1000
//移動到247，294
//延遲3000
x = linex + 34
//在區域左側添加1。
s = s + 1
//數量加1
轉到行
//返回同壹行，再次搜索。
其他
//否則
x = 34 : y = y + 34 : by = 347
//左側初始為0，頂部加1初始化區域底部。
EndIf
其他
//如果沒有找到圖片。
a = 1
//變量A是1(退出循環)
EndIf
結束時間
Gosub計算價格
//VBS call messagebox(" * * * Found " &；標準普爾。“個”&；“TP(& amp；我& amp”)”& amp" &圖片" & amptp(i)和amp" ")
VBS i=i+1
//彈出結果
結束
Return計算項目的數量。
子計算價格
//計算價格
如果i=0
日之= "降低低級石頭傷害"
VBS jsjiage=(jsjg*s)
//VBS call messagebox(" Total " &；jsjiage & amp“女士”)
ElseIf i=1
日之= "體驗低級石"
VBS jyjiage=jyjg*s
//VBS call messagebox(" Total " &；jyjiage & amp“女士”)
ElseIf i=2
日之=“有戰鬥力的低級石頭”
VBS zdljiage=zdljg*s
//VBS call messagebox(" Total " &；zdljiage & amp“女士”)
ElseIf i=3
日之= "鬼魂"
VBS mhjiage=mhjg*s
//VBS call messagebox(" Total " &；mhjiage & amp“女士”)
ElseIf i=4
Rizhi= "magic "
VBS hmjiage=(hmjg*s)
//VBS call messagebox(" Total " &；hmjiage & amp“女士”)
ElseIf i=5
日之= "減傷中級石"
VBS jszjiage=jszjg*s
ElseIf i=6
日之= "歷練中級石"
VBS jyzjiage=jyzjg*s
ElseIf i=7
日之=“中等戰鬥力的石頭”
VBS zdlzjiage=zdlzjg*s
ElseIf i=8
Rizhi=“魔鬼的靈魂之心”
VBS mhzxjiage=mhzxjg*s
ElseIf i=9
日之= "魔心"
VBS hmzxjiage=hmzxjg*s
ElseIf i=10
日治=“靈魂”
VBS lhjiage=lhjg*s
//VBS call messagebox(" Total " &；洛迦格& amp“女士”)
ElseIf i=11
Rizhi =型嬰兒"
VBS·奧賈格=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
日治=“戰豬”
VBS zzjiage=zzjg*s
ElseIf i=16
日誌= "沙飛"
VBS cjqsjiage=cjqsjg*s
VBS宗加格=0
VBS宗加格=(js Jia ge+jyjia ge+zdljia ge+mhjia ge+hmjia ge+jszjia ge+jyzjia ge+mhzxjia ge+hmzxjia ge+lhjia ge+ojia ge+gxjia ge+sxjia ge+fzjia ge+zzjia ge+cjqsjia ge)
//VBS call messagebox(" Total " &；宗加閣& amp“女士”)
其他
VBS宗加格=0
EndIf
Return計算價格
子投入價格
移動到200，410
延遲1000
Gosub檢測事務是否被提前終止。
左鍵點擊1
延遲100
Gosub檢測事務是否被提前終止。
左鍵點擊1
延遲1000
SayString宗加閣
延遲1000
Rem輸入毫秒
移動到263，415
延遲1000
Gosub檢測事務是否被提前終止。
左鍵點擊1
延遲100
Gosub檢測事務是否被提前終止。
左鍵點擊1
延遲500
IfColor 263，415，8ccfde，2
轉到輸入毫秒
其他
移動到136，513
延遲500
Gosub檢測事務是否被提前終止。
左鍵點擊1
延遲300
EndIf
返回輸入價格
等待子交易
jsq=0
Rem等待事務處理。
如果jsq & gt=20
移動到205，515
延遲1000
Gosub檢測事務是否被提前終止。
左鍵點擊1
延遲300
後藤，對方不交易
EndIf
IfColor 233，494，a5f62，2
延遲1000
jsq=jsq+1
Goto等待交易。
其他
EndIf
雷姆，對方不交易。
返回交易等待