1. 用户定义变量 Win=DropList{輸家:0|贏家:1}=1 輸贏家模式設定
2. 用户定义变量 Back=DropList{不回壘:0|回壘:1}=1 回壘設定
3. 用户定义变量 Play=DropList{短打推進1壘:0|短打跑4壘:1}=1 打擊模式設定
4. 标记 start
5. 调用子程序 開始
6. 调用子程序 十秒
7. 调用子程序 沒有對象
8. 调用子程序 接受邀請
9. 调用子程序 過場
10. 调用子程序 投球打球
11. 调用子程序 跑壘傳球
12. 延时100毫秒
13. 跳转到标记 start
14. // ===========副腳本區===========
15. 子程序 開始
16.     如果 (941,11) 的颜色大约等于 #ffa25a 则
17.         鼠标移到 900 , 735
18.         延时100毫秒
19.         左键单击
20.         延时1000毫秒
21.     条件结束
22. 子程序结束,回到调用处
23. 子程序 十秒
24.     如果 (674,298) 的颜色大约等于 #846861 则
25.         按键<Esc>
26.         延时100毫秒
27.         鼠标移到 900 , 735
28.         延时100毫秒
29.         左键单击
30.         延时1000毫秒
31.     条件结束
32. 子程序结束,回到调用处
33. 子程序 沒有對象
34.     如果 (674,316) 的颜色大约等于 #846861 则
35.         按键<Esc>
36.         延时1000毫秒
37.         鼠标移到 946 , 11
38.         延时100毫秒
39.         左键单击
40.         延时1000毫秒
41.     条件结束
42. 子程序结束,回到调用处
43. 子程序 接受邀請
44.     如果 (455,455) 的颜色大约等于 #c9b842 则
45.         鼠标移到 455 , 45
46.         延时100毫秒
47.         左键单击
48.         延时1000毫秒
49.     条件结束
50. 子程序结束,回到调用处
51. 子程序 過場
52.     调用外部VBScript子程序 在屏幕区域里查找图形(0,735,1023,767,"Attachment:\skip.bmp",0.9,x,y)
53.     如果表达式 (x>=0 and y>=735) 为真,则
54.         按键<Esc>
55.         延时1000毫秒
56.     条件结束
57. 子程序结束,回到调用处
58. 子程序 投球打球
59.     // 告示版
60.     如果 (993,20) 的颜色大约等于 #ffffff 则
61.         延时100毫秒
62.         // 確認分數
63.         N=1
64.         调用外部VBScript子程序 在屏幕区域里查找图形(0,735,1023,767,"Attachment:\skip.bmp",0.9,x,y)
65.         调用外部VBScript子程序 在屏幕区域里查找图形(0,735,1023,767,"Attachment:\skip.bmp",0.9,x,y)
66.         调用外部VBScript子程序 在屏幕区域里查找图形(0,735,1023,767,"Attachment:\skip.bmp",0.9,x,y)
67.         调用外部VBScript子程序 在屏幕区域里查找图形(0,735,1023,767,"Attachment:\skip.bmp",0.9,x,y)
68.         调用外部VBScript子程序 在屏幕区域里查找图形(0,735,1023,767,"Attachment:\skip.bmp",0.9,x,y)
69.         如果 (729,43) 的颜色大约等于 #color1 则
70.             如果 (729,48) 的颜色大约等于 #color2 则
71.                 如果 (729,53) 的颜色大约等于 #color3 则
72.                     如果 (726,48) 的颜色大约等于 #color4 则
73.                         如果 (732,48) 的颜色大约等于 #color5 则
74.                             N=0
75.                         条件结束
76.                     条件结束
77.                 条件结束
78.             条件结束
79.         条件结束
80.         // 確認打擊
81.         P = 0
82.         调用外部VBScript子程序 在屏幕区域里查找图形(0,735,1023,767,"Attachment:\skip.bmp",0.9,x,y)
83.         如果表达式 (x>=435 and y>=520) 为真,则
84.             P = 1
85.         条件结束
86.         // 投球打球
87.         如果 (415,750) 的颜色等于 #ffffff 则
88.             // F短打
89.             如果表达式 (Win=1 and P=1) 为真,则
90.                 按键<F>
91.             条件结束
92.             循环 4 遍
93.                 // S投球
94.                 如果表达式 (P=0) 为真,则
95.                     按键<S>
96.                 条件结束
97.                 延时1000毫秒
98.             循环结束
99.         条件结束
100.     条件结束