1. 调用插件命令 hwnd=Window.GetKeyFocusWnd()
2. 调用插件命令 cc=Window.GetClass(hwnd)
3. 如果表达式 (StrComp(cc,"MacromediaFlashPlayerActiveX")<>0) 为真,则
4.     （VBScript语句） MsgBox "遊戲視窗註冊失敗！"+vbCrLf+"* 請點擊一下遊戲畫面再啟動腳本"
5. 脚本停止运行
6. 条件结束
7. 调用插件命令 rect=Window.GetClientRect(hwnd)
8. （VBScript语句） rect2=Split(rect,"|"):x=rect2(0):y=rect2(1)
9. （VBScript语句） Dim p:p=0
10. （VBScript语句） Dim k(10)
11. 如果表达式 (true) 为真,则循环执行
12.     调用外部VBScript子程序 color=得到指定点的颜色(x+202+5*34,y+346)
13.     如果表达式 (color="6A453E" or color="6F5651" or color="FEA796" or color="EA9A8A" or color="7B74FF" or color="8A7CDA" or color="323978" or color="49496D" or color="E0A09B" or color="EDEADC" or color="E4DBD8" or color="7E5C56" or color="443D8E" or color="D2DFDD" or color="CFDAFF" or color="7071E9") 为真,则
14.         （VBScript语句） s=0
15.     否则
16.         调用外部VBScript子程序 color=得到指定点的颜色(x+202+5*34,y+346)
17.         如果表达式 (color="6A453E" or color="6F5651" or color="FEA796" or color="EA9A8A" or color="7B74FF" or color="8A7CDA" or color="323978" or color="49496D" or color="E0A09B" or color="EDEADC" or color="E4DBD8" or color="7E5C56" or color="443D8E" or color="D2DFDD" or color="CFDAFF" or color="7071E9") 为真,则
18.             （VBScript语句） s=17
19.         否则
20.             跳转到标记 PressSpace
21.         条件结束
22.     条件结束
23.     （VBScript语句） i=0
24.     循环 11 遍
25.         调用外部VBScript子程序 color=得到指定点的颜色(x+202+5*34,y+346)
26.         如果表达式 (color="6A453E" or color="7B74FF") 为真,则
27.             （VBScript语句） k(i)=4
28.         否则
29.             如果表达式 (color="6F5651" or color="8A7CDA") 为真,则
30.                 （VBScript语句） k(i)=8
31.             否则
32.                 如果表达式 (color="FEA796" or color="323978") 为真,则
33.                     （VBScript语句） k(i)=6
34.                 否则
35.                     如果表达式 (color="EA9A8A" or color="49496D") 为真,则
36.                         （VBScript语句） k(i)=2
37.                     否则
38.                         如果表达式 (color="E0A09B" or color="443D8E") 为真,则
39.                             （VBScript语句） k(i)=1
40.                         否则
41.                             如果表达式 (color="EDEADC" or color="D2DFDD") 为真,则
42.                                 （VBScript语句） k(i)=3
43.                             否则
44.                                 如果表达式 (color="E4DBD8" or color="CFDAFF") 为真,则
45.                                     （VBScript语句） k(i)=7
46.                                 否则
47.                                     如果表达式 (color="7E5C56" or color="7071E9") 为真,则
48.                                         （VBScript语句） k(i)=9
49.                                     否则
50.                                         （VBScript语句） k(i)=0
51.                                     条件结束
52.                                 条件结束
53.                             条件结束
54.                         条件结束
55.                     条件结束
56.                 条件结束
57.             条件结束
58.         条件结束
59.         （VBScript语句） i=i+1
60.     循环结束
61.     （VBScript语句） i=0
62.     循环 11 遍
63.         如果表达式 (k(i)>0) 为真,则
64.             （VBScript语句） vk=96+k(i)
65.             按住#vk
66.             弹起#vk
67.         条件结束
68.         （VBScript语句） i=i+1
69.     循环结束
70.     标记 PressSpace
71.     如果 (x+479+p,y+315) 的颜色等于 #ffffff 则
72.         按住<Space>
73.         弹起<Space>
74.     条件结束
75.     检测上次按键，保存到变量hotkey中
76.     如果表达式 (hotkey=120) 为真,则
77.         （VBScript语句） p=0
78.         响一声
79.     否则如果(hotkey=118)为真,则
80.         （VBScript语句） p=p-1
81.         响一声
82.     否则如果(hotkey=119)为真,则
83.         （VBScript语句） p=p+1
84.         响一声
85.     条件结束
86.     （VBScript语句） hotkey=0
87. 循环结束