1. Dim Time_skill(9)
2. 用户定义变量 GetYN=1 捡物(1捡，0不捡)
3. 用户定义变量 SitDwonYN=1 打坐(1坐，0不坐)
4. 用户定义变量 SitDown_MP1=0 蓝少也打坐(1是，0否)
5. 用户定义变量 SitDown_MP2=0 黄少也打坐(1是，0否)
6. 用户定义变量 Count_Skill=3 攻击技能使用个数
7. 用户定义变量 Count_State=2 状态技能使用个数
8. 用户定义变量 Time_skill(2)=6 攻击技能1冷却(秒)
9. 用户定义变量 Time_skill(3)=6 攻击技能2冷却(秒)
10. 用户定义变量 Time_skill(4)=6 攻击技能3冷却(秒)
11. 用户定义变量 Time_skill(5)=6 攻击技能4冷却(秒)
12. 用户定义变量 Time_skill(6)=6 攻击技能5冷却(秒)
13. 用户定义变量 Time_skill(0)=300 状态技能1冷却(秒)
14. 用户定义变量 Time_skill(9)=300 状态技能2冷却(秒)
15. 用户定义变量 Time_skill(8)=300 状态技能3冷却(秒)
16. 用户定义变量 Time_skill(7)=600 状态技能4冷却(秒)
17. //--------------------------------------------------------
18. //1024*768 全屏 16位色
19. x_HP=110
20. y_HP=44
21. color_HP="390CAD"
22. x_MP1=114
23. y_MP1=62
24. color_MP1="D6A200"
25. x_MP2=118
26. y_MP2=82
27. color_MP2="008ABD"
28. x_ET=250
29. y_ET=36
30. color_ET="4218A5"
31. //--------------------------------------------------------
32. TIMESKILL=1
33. //技能类型，涉及到冷却。
34. LESSHALF=92
35. LESS=90
36. //状态描述。
37. NONE=0
38. //状态描述
39. NORMAL=91
40. //状态描述。
41. SkillType=99
42. //技能类型，分为TIMESKILL、NORMAL两种
43. //99仅为标识初始化。
44. SkillNum=99
45. //技能编号。99仅为标识初始化。
46. Dim T_Time(9,2)
47. //记录时间的起止，用于技能。
48. //*初始化数组time
49. time0=timer
50. n=0
51. 循环 10 遍
52.     T_Time(n,0)=time0-Time_skill(n)
53.     n=n+1
54. 循环结束
55. //-----------------------------------------------------------
56. //*进入循环打怪前，释放状态技能一次
57. SkillType=TIMESKILL
58. SkillNum=0
59. 调用子程序 Skill
60. n=9
61. 循环 Count_State-1 遍
62.     SkillNum=n
63.     调用子程序 Skill
64.     n=n-1
65. 循环结束
66. //-----------------------------------------------------------
67. //*循环杀怪
68. 如果表达式 (1) 为真,则循环执行
69.     调用子程序 CheckETHP
70.     如果表达式 (ETHP=NONE) 为真,则
71.         //怪已死,则
72.         //*释放状态技能。
73.         SkillType=TIMESKILL
74.         SkillNum=0
75.         调用子程序 Skill
76.         n=9
77.         循环 Count_State-1 遍
78.             SkillNum=n
79.             调用子程序 Skill
80.             n=n-1
81.         循环结束
82.         //*打坐
83.         如果表达式 (SitDwonYN=1) 为真,则
84.             调用子程序 CheckHP
85.             调用子程序 CheckMP1
86.             调用子程序 CheckMP2
87.             如果表达式 ((HP<>NORMAL) or (MP1=LESS and SitDown_MP1=1) or (MP2=LESS and SitDown_MP2=1)) 为真,则
88.                 调用子程序 TakeRest
89.             条件结束
90.         条件结束
91.         //*拾物
92.         如果表达式 (GetYN=1 and LockET=1) 为真,则
93.             调用子程序 GetGoods
94.         条件结束
95.         //*寻下一个怪。
96.         按键<T>
97.         延时150毫秒
98.         LockET=0
99.     否则
100.         LockET=1