1. //AB蓝方带4个充数的
2. //建立房间并进入,站到红方
3. c=1
4. 如果表达式 (c=1) 为真,则循环执行
5.     调用外部VBScript子程序 findpic (628,565,719,602,"Attachment:\Define entry.bmp",0.8,x,y)
6.     如果表达式 (x>=628 y>=565) 为真,则
7.         鼠标移到 x , y
8.         延时500毫秒
9.         左键单击
10.         （VBScript语句） c=2
11.     条件结束
12.     延时2000毫秒
13. 循环结束
14. //切换操纵另四个充数的.
15. e=1
16. 如果表达式 (e=1) 为真,则循环执行
17.     按住<Alt>
18.     按键<Tab>
19.     弹起<Alt>
20.     g=1
21.     d=1
22.     如果表达式 (d=1) 为真,则循环执行
23.         调用外部VBScript子程序 findpic (628,565,719,602,"Attachment:\Define entry.bmp",0.8,x,y)
24.         如果表达式 (x>=700 and y>=610) 为真,则
25.             延时2000毫秒
26.             按键<Esc>
27.             （VBScript语句） d=2
28.         条件结束
29.     循环结束
30.     延时1000毫秒
31.     鼠标移到 58 , 589
32.     延时1000毫秒
33.     左键单击
34.     （VBScript语句） f=1
35.     如果表达式 (f=1) 为真,则循环执行
36.         调用外部VBScript子程序 findpic (628,565,719,602,"Attachment:\Define entry.bmp",0.8,x,y)
37.         如果表达式 (x>=628 y>=565) 为真,则
38.             鼠标移到 x , y
39.             延时500毫秒
40.             左键单击
41.             （VBScript语句） f=2
42.         条件结束
43.     循环结束
44.     如果表达式 (g>=4) 为真,则
45.         e=2
46.     条件结束
47.     g=g+1
48. 循环结束
49. 延时1000毫秒
50. 按住<Alt>
51. 按键<Tab>
52. 弹起<Alt>
53. //进入战斗画面.
54. o=1
55. 如果表达式 (o=1) 为真,则循环执行
56.     调用外部VBScript子程序 findpic (628,565,719,602,"Attachment:\Define entry.bmp",0.8,x,y)
57.     如果表达式 (x>=883 and y>=740) 为真,则
58.         o=2
59.     条件结束
60. 循环结束
61. （VBScript语句） a=1
62. （VBScript语句） b=1
63. 鼠标移到 511 , 381
64. 延时1000毫秒
65. 左键单击
66. 鼠标移到 ,
67. 按住<F>
68. 延时5000毫秒
69. 弹起<F>
70. 按键<Space>
71. 按键<R>
72. 按住<A>
73. 延时2500毫秒
74. 弹起<A>
75. 按住<S>
76. 延时4000毫秒
77. 弹起<S>
78. 延时1000毫秒
79. 按键<Ctrl>
80. 如果表达式 (a=1) 为真,则循环执行
81.     调用外部VBScript子程序 findpic (628,565,719,602,"Attachment:\Define entry.bmp",0.8,x,y)
82.     如果表达式 (x>=170 and y>=200) 为真,则
83.         按住<V>
84.         延时4000毫秒
85.         弹起<V>
86.         a=2
87.     条件结束
88.     按键<Ctrl>
89. 循环结束
90. 按住<F>
91. 延时1000毫秒
92. 弹起<F>
93. 如果表达式 (b=1) 为真,则循环执行
94.     调用外部VBScript子程序 findpic (628,565,719,602,"Attachment:\Define entry.bmp",0.8,x,y)
95.     如果表达式 (x>=400 and y>=315) 为真,则
96.         按住<V>
97.         延时2000毫秒
98.         弹起<V>
99.         b=2
100.         按键<Enter>