1. 用户定义变量 Var1=40 帐号数量
2. （VBScript语句） dim id,pw,x,info,Color2
3. 调用插件命令 info=Sys.GetScRY()
4. 如果表达式 (info=768) 为真,则
5.     跳转到标记 Color
6. 否则
7.     弹出窗口 "请设置为1024*768分辨率"
8.     跳转到标记 结束
9. 条件结束
10. 标记 Color
11. 调用插件命令 Color2=Sys.GetScDep()
12. 如果表达式 (Color2=32) 为真,则
13.     跳转到标记 启动
14. 否则
15.     弹出窗口 "请设置为32位颜色质量"
16.     跳转到标记 结束
17. 条件结束
18. 调用插件命令 AllTxt=File.ReadFile("c:\id.txt")
19. MyArray=Split(AllTxt,"|")
20. 如果表达式 (Var1>UBound(MyArray)) 为真,则
21.     弹出窗口 "你填的帐号数量超出!!"
22. 脚本停止运行
23. 条件结束
24. x=1
25. 标记 启动
26. 循环 Var1 遍
27.     id=MyArray(x)
28.     pw=MyArray(0)
29.     调用子程序 子程序1
30.     输入文本 id
31.     延时100毫秒
32.     按键<Tab>
33.     延时100毫秒
34.     输入文本 pw
35.     调用子程序 子程序2
36.     x=x+1
37. 循环结束
38. 脚本停止运行
39. 子程序 子程序1
40.     延时200毫秒
41.     标记 启动外挂
42.     鼠标移到 741 , 573
43.     延时100毫秒
44.     鼠标移到 767 , 572
45.     延时200毫秒
46.     左键单击
47.     延时200毫秒
48.     标记 选择服务器
49.     如果 (644,658) 的颜色大约等于 #deebef 则
50.         鼠标移到 644 , 658
51.         延时200毫秒
52.         左键单击
53.     否则
54.         跳转到标记 选择服务器
55.     条件结束
56.     标记 准备输入
57.     如果 (645,191) 的颜色大约等于 #ef 则
58.         跳转到标记 输入帐号
59.     否则
60.         跳转到标记 准备输入
61.     条件结束
62.     标记 输入帐号
63.     延时100毫秒
64. 子程序结束,回到调用处
65. 子程序 子程序2
66.     延时400毫秒
67.     按键<Enter>
68.     标记 选择人物
69.     如果 (366,605) 的颜色大约等于 #deebef 则
70.         延时200毫秒
71.         按键<Enter>
72.     否则
73.         跳转到标记 选择人物
74.     条件结束
75.     标记 进入游戏
76.     如果 (172,148) 的颜色大约等于 #63f75a 则
77.         延时400毫秒
78.         鼠标移到 839 , 219
79.         延时200毫秒
80.         左键单击
81.         延时200毫秒
82.         鼠标移到 202 , 630
83.         延时200毫秒
84.         左键单击
85.         延时200毫秒
86.         硬件模拟按键<F8>
87.         延时50毫秒
88.         硬件模拟按键<F7>
89.         延时50毫秒
90.         硬件模拟按键<F12>
91.         延时50毫秒
92.     否则
93.         跳转到标记 进入游戏
94.     条件结束
95.     硬件模拟按键<Home>
96.     标记 呼挂
97.     如果 (378,523) 的颜色大约等于 #ced3d6 则
98.         延时400毫秒
99.         鼠标移到 476 , 571
100.         延时400毫秒