1. //小地图有效怪范围
2. （VBScript语句） Dim MapA(4)
3. （VBScript语句） MapA(0)=723
4. （VBScript语句） MapA(1)=75
5. （VBScript语句） MapA(2)=749
6. （VBScript语句） MapA(3)=95
7. //大地图人物坐标
8. （VBScript语句） Dim PosB(2)
9. （VBScript语句） PosB(0)=400
10. （VBScript语句） PosB(1)=280
11. //小地图中心坐标
12. （VBScript语句） Dim PosA(2)
13. （VBScript语句） PosA(0)=736
14. （VBScript语句） PosA(1)=85
15. //阻挡提示文字坐标范围
16. （VBScript语句） Dim PosL(2,2)
17. （VBScript语句） PosL(0,0)=485
18. （VBScript语句） PosL(0,1)=278
19. （VBScript语句） PosL(1,0)=499
20. （VBScript语句） Posl(1,1)=302
21. //设置挂机参数
22. 调用子程序 SetPara
23. //--------------------
24. busy=0
25. SelectedET=0
26. SKILL_NUM=100
27. BLOOD_LOW=9
28. BLOOD_HI=8
29. 用户定义变量 MyBlood
30. //-----------------------------------
31. （VBScript语句） time1=timer
32. （VBScript语句） time1_skill=timer
33. （VBScript语句） time20=timer
34. （VBScript语句） time30=timer
35. （VBScript语句） time40=timer
36. （VBScript语句） time50=timer
37. //----------------------------------------
38. //循环前使用一次定时技能
39. SKILL_NUM=9
40. 调用子程序 SkillA
41. //---------------------------------
42. //进入循环体
43. 如果表达式 (Mykey<>35) 为真,则循环执行
44.     //寻怪
45.     如果表达式 (SelectedEt=0) 为真,则
46.         Busy=0
47.         调用子程序 CatchET
48.     条件结束
49.     //------------------------------
50.     //使用打怪技能
51.     如果表达式 (SelectedET=1) 为真,则
52.         SKILL_NUM=3
53.         调用子程序 SkillA
54.     条件结束
55.     //-----------------------------
56.     //判断
57.     如果 (268,33) 的颜色等于 #0 则
58.         如果 (206,36) 的颜色大约等于 #181821 则
59.             如果表达式 (SelectedET=1) 为真,则
60.                 Busy=1
61.             条件结束
62.         否则
63.             Busy=0
64.             SelectedET=0
65.         条件结束
66.     否则
67.         Busy=0
68.         SelectedEt=0
69.     条件结束
70.     //-------------------------------
71.     //使用补血技能
72.     （VBScript语句） time21=timer
73.     如果表达式 ((time21-time20)>5) 为真,则
74.         time20=time21
75.         调用子程序 CheckMyBlood
76.         如果表达式 (MyBlood=BLOOD_LOW) 为真,则
77.             SKILL_NUM=4
78.             调用子程序 SkillA
79.         条件结束
80.     否则
81.         如果表达式 ((time21-time20)<0) 为真,则
82.             time20=time21
83.         条件结束
84.     条件结束
85.     //-------------------------------
86.     //使用定时技能
87.     （VBScript语句） time2_skill=timer
88.     如果表达式 ((time2_skill-time1_skill)>600) 为真,则
89.         SKILL_NUM=9
90.         调用子程序 SkillA
91.     否则
92.         如果表达式 ((time2_skill-time1_skill)<0) 为真,则
93.             time1=time2
94.         条件结束
95.     条件结束
96.     //-----------------------------------------------------------
97.     //时间片断内检查控制人物坐标
98.     （VBScript语句） time41=timer
99.     如果表达式 ((time41-time40)>1) 为真,则
100.         调用子程序 RangeCtrl