1. 用户定义变量 Var1=DropList{6星O礼包:1|8星O礼包:2|12星XO礼包:3|19星XO礼包:4|25星XO礼包:5}=1 请选折磨石商店需要副宠星数
2. 按键<Esc>
3. 保存鼠标位置
4. 左键单击
5. 延时300毫秒
6. 鼠标移到 321 , 338
7. 延时500毫秒
8. 左键单击
9. 循环 10 遍
10.     标记 zz
11.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\主宝宝.bmp",0.9,intX,intY)
12.     如果表达式 (intX>0 and intY>0) 为真,则
13.         鼠标移到 intX , intY
14.     否则
15.         跳转到标记 zz
16.     条件结束
17.     鼠标移到 748 , 70
18.     延时100毫秒
19.     左键单击
20.     鼠标移到 207 , 378
21.     左键按下
22.     延时200毫秒
23.     左键弹起
24.     鼠标移到 743 , 145
25.     延时100毫秒
26.     左键单击
27.     标记 44
28.     鼠标移到 355 , 334
29.     左键按下
30.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\主宝宝.bmp",0.9,intX,intY)
31.     如果表达式 (intX>0 , intY>0) 为真,则
32.         左键弹起
33.     否则
34.         跳转到标记 44
35.     条件结束
36.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\主宝宝.bmp",0.9,intX,intY)
37.     如果表达式 (intX>0 and intY>0) 为真,则
38.         鼠标移到 intX , intY
39.         左键单击
40.     条件结束
41.     延时300毫秒
42.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\主宝宝.bmp",0.9,intX,intY)
43.     如果表达式 (intX>0 and intY>0) 为真,则
44.         鼠标移到 intX , intY
45.         左键单击
46.     条件结束
47.     延时100毫秒
48.     标记 55
49.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\主宝宝.bmp",0.9,intX,intY)
50.     如果表达式 (intX>0 and intY>0) 为真,则
51.         鼠标移到 intX , intY
52.         左键单击
53.         鼠标移到 705 , 99
54.         延时100毫秒
55.         左键单击
56.         标记 10
57.         如果 (473,442) 的颜色等于 #1ba2ec 则
58.             鼠标移到 473 , 442
59.             左键单击
60.         否则
61.             跳转到标记 10
62.         条件结束
63.     否则
64.         跳转到标记 55
65.     条件结束
66. 循环结束
67. 鼠标移到 578 , 678
68. 延时200毫秒
69. 左键单击
70. 延时1500毫秒
71. 如果表达式 (Var1=1) 为真,则
72.     标记 20
73.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\主宝宝.bmp",0.9,intX,intY)
74.     如果表达式 (intX>0 and intY>0) 为真,则
75.         鼠标移到 intX , intY
76.     否则
77.         鼠标移到 449 , 502
78.         延时100毫秒
79.         左键单击
80.         延时1000毫秒
81.         跳转到标记 20
82.     条件结束
83. 否则如果(Var1=2)为真,则
84.     标记 21
85.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\主宝宝.bmp",0.9,intX,intY)
86.     如果表达式 (intX>0 and intY>0) 为真,则
87.         鼠标移到 intX , intY
88.     否则
89.         鼠标移到 449 , 502
90.         延时100毫秒
91.         左键单击
92.         延时1000毫秒
93.         跳转到标记 21
94.     条件结束
95. 否则如果(Var1=3)为真,则
96.     标记 22
97.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\主宝宝.bmp",0.9,intX,intY)
98.     如果表达式 (intX>0 and intY>0) 为真,则
99.         鼠标移到 intX , intY
100.     否则