1. 定义变量 sTime(4), sj(4), key(4), keyj(1), a(1), b(1), c(1), d(1), e(1), x(2), y(2), GetColor(2)
2. 用户定义变量 进行jx=52 "加血键"
3. 用户定义变量 进行jl=53 "加蓝键"
4. 用户定义变量 xg=9 "寻怪键"
5. 用户定义变量 sq=229 "拾取键"
6. 用户定义变量 ja="49,1000" "<技能.时间>一"
7. 用户定义变量 jb="50,1000" "<技能.时间>二"
8. 用户定义变量 jc="51,1500" "<技能.时间>三"
9. 用户定义变量 jd="57,50000" "<辅助技能.时间>一"
10. 用户定义变量 je="48,50000" "<辅助技能.时间>二"
11. 令 a = split(ja,",")
12. 令 b = split(jb,",")
13. 令 c = split(jc,",")
14. 令 d = split(jd,",")
15. 令 e = split(je,",")
16. 标记 ajp7
17. 弹出窗口 "请把鼠标移动到补<血>位置，按小键盘数字:7.确定。"
18. 令 jb7 = （键盘）等待按任意键
19. 如果 jb7 = 103 则
20.     把当前鼠标所在的位置保存到 (x(0), y(0))
21.     令 GetColor(0) = 得到指定点 (x(0), y(0)) 的颜色
22. 否则
23.     跳转到标记 ajp7
24. 条件结束
25. 标记 ajp8
26. 弹出窗口 "请把鼠标移动到补<蓝>位置，按小键盘数字:8.确定。"
27. 令 jb8 = （键盘）等待按任意键
28. 如果 jb8 = 104 则
29.     把当前鼠标所在的位置保存到 (x(1), y(1))
30.     令 GetColor(1) = 得到指定点 (x(1), y(1)) 的颜色
31. 否则
32.     跳转到标记 ajp8
33. 条件结束
34. 标记 ajp9
35. 弹出窗口 "请把鼠标移动到<怪>空血位置，按小键盘数字:9.确定。"
36. 令 jb9 = （键盘）等待按任意键
37. 如果 jb9 = 105 则
38.     把当前鼠标所在的位置保存到 (x(2), y(2))
39.     令 GetColor(2) = 得到指定点 (x(2), y(2)) 的颜色
40. 否则
41.     跳转到标记 ajp9
42. 条件结束
43. 弹出窗口 "确认完毕，游戏开始！" & vbcrlf & " 祝你游戏愉快！"
44. 循环 i 从 0 到 4
45.     令 sTime(k) = now
46. 循环结束
47. 令 key(0) = d(1)
48. 令 key(1) = e(1)
49. 令 key(2) = a(1)
50. 令 key(3) = b(1)
51. 令 key(4) = c(1)
52. 令 sj(0) = d(2)
53. 令 sj(1) = e(2)
54. 令 sj(2) = a(2)
55. 令 sj(3) = b(2)
56. 令 sj(4) = c(2)
57. 令 keyj(0) = jx
58. 令 keyj(1) = jl
59. 标记 ks
60. 循环 i 从 0 到 1
61.     如果点 (x(i),y(i)) 的颜色约等于 GetColor(i) 则
62.     否则
63.         延时 50 毫秒
64.         （键盘）按 keyj(i) 键, 1次
65.         延时 100 毫秒
66.     条件结束
67. 循环结束
68. 如果点 (x(2),y(2)) 的颜色约等于 GetColor(2) 则
69.     调用 jnj()
70.     跳转到标记 ks
71. 否则
72.     （键盘）按 xg 键, 1次
73. 条件结束
74. 子程序 jnj()
75.     循环 k 从 0 到 4
76.         如果 DateDiff("s",sTime(k),now) >= sj(k) 则
77.             延时 10 毫秒
78.             （键盘）按 key(k) 键, 1次
79.             令 sTime(k) = now
80.         条件结束
81.     循环结束
82. 子程序结束