1. //------------------------------------------------- [用户初值设置] ------------
2. //
3. //-------------- [脚本安装目录]
4. //
5. 用户定义变量 ScriptFolder=[Setting.ini]的绝对路径 [Setting 路径]
6. //
7. //-------------- [拣物点击延迟] 单位:毫秒
8. //
9. 用户定义变量 CDelay=5 [拣物点击延迟]
10. //
11. //-------------- [制造类型] 1.只做不拣 2.蓄成功率 3.拣物出售
12. //
13. 用户定义变量 Mtype=1 [制造类型]
14. //
15. //-------------- [补体方式] 1.食物 2.魔法
16. //
17. 用户定义变量 Ttype=1 [补体方式]
18. //
19. //-------------- [满包出售清空] 1.禁用 2.启用
20. //
21. 用户定义变量 Stype=1 [满包出售清空]
22. //
23. //-------------- [制造物品位置] 排: 1-2 列:1-5
24. //
25. //----- 排
26. 用户定义变量 MakeItem_Row=1 [制造物品排]
27. //----- 列
28. 用户定义变量 MakeItem_Col=1 [制造物品列]
29. //
30. //--------------------------------------------------------------------------------
31. //
32. //------------------------------------------------- [一般变量定义 ]
33. //
34. IniFile = ScriptFolder & "\Setting.ini"
35. 调用插件命令 file = File.ExistFile(IniFile)
36. 如果表达式 (file <> 1) 为真,则
37.     调用插件命令 IniFile = File.SelectFile()
38. 条件结束
39. Dim BuyItem(4),BuyItem_PosX(4),BuyItem_PosY(4),BuyItem_Page(4),BuyItem_Amount(4)
40. StoreList = "" : ItemList = "" : ScriptList ="":StoreName = ""
41. BuyItemCount = 0 :ScriptHaved = 0 :Ptype = 1
42. //
43. //------------------------------------------------- [脚本流程]
44. //
45. 按键<Enter>
46. 延时50毫秒
47. Mystring = "[羽枫进阶工作脚本][4.0]版...By CDK1 YS 飘飘的枫"
48. 调用子程序 [说话]
49. 调用子程序 [选择菜单]
50. 脚本停止运行
51. //
52. //------------------------------------------------- [过程定义]
53. //
54. 子程序 [读取商店列表]
55.     StoreList = ""
56.     StoreCount = 0
57.     调用插件命令 Store = File.ReadINI("商店",Hex(StoreCount+1),IniFile)
58.     如果表达式 (Store <> "0") 为真,则循环执行
59.         StoreList = StoreList & "│<" & Hex(StoreCount+1) & ">" & Store & vblf
60.         StoreCount = StoreCount + 1
61.         调用插件命令 Store = File.ReadINI("商店",Hex(StoreCount+1),IniFile)
62.     循环结束
63. 子程序结束,回到调用处
64. 子程序 [读取商店材料列表]
65.     ItemList = ""
66.     ItemCount = 0
67.     调用插件命令 Item = File.ReadINI(StoreName,Hex(ItemCount+1),IniFile)
68.     如果表达式 (Item <> "0") 为真,则循环执行
69.         ItemList = ItemList & "│<" & Hex(ItemCount+1) & ">" & Mid(Item,5) & vblf
70.         ItemCount = ItemCount + 1
71.         调用插件命令 Item = File.ReadINI(StoreName,Hex(ItemCount+1),IniFile)
72.     循环结束
73. 子程序结束,回到调用处
74. 子程序 [工作]
75.     标记 [开始工作]
76.     按键<Space>
77.     延时200毫秒
78.     按键<Space>
79.     延时200毫秒
80.     调用子程序 [补充体力]
81.     恢复鼠标位置
82.     延时100毫秒
83.     按键<Enter>
84.     延时100毫秒
85.     Boss = Boss + 1
86.     Mystring= "BOSS[" & Boss & "]次｜羽枫进阶工作脚本[4.0]版｜制作[" & Make & "]出售[" & Sale & "]次..."
87.     调用子程序 [说话]
88.     stime = now()
89.     标记 [买卖界面]
90.     如果 (485,73) 的颜色不等于 #8c9aad 则
91.         如果表达式 (DateDiff("s",stime,now()) < 5) 为真,则
92.             延时100毫秒
93.             跳转到标记 [买卖界面]
94.         否则
95.             调用子程序 [取消国战]
96.             如果表达式 (Ptype = 2) 为真,则
97.                 调用子程序 [购买取消]
98.             条件结束
99.             按键<Esc>
100.             延时300毫秒