1. //----用户自定义变量
2. 用户定义变量 Wide=1024 屏幕分辨率(1024*768/800*600/1280*1024)请输入宽度
3. 用户定义变量 Hp_Eat=15 当HP值低于()%时,吃红药
4. 用户定义变量 Hp_Sit=30 当HP值低于()%时,打坐
5. 用户定义变量 Hp_Up=95 当HP值低于()%时,取消打坐(设置低于95%)
6. 用户定义变量 Mp_Eat=15 当MP值低于()%时,吃红药
7. 用户定义变量 Mp_Sit=30 当MP值低于()%时,打坐
8. 用户定义变量 Mp_Up=95 当MP值低于()%时,取消打坐(设置低于95%)
9. 用户定义变量 StateTime=30 每隔()分钟使用一次加状态
10. 用户定义变量 PickTimes=2 每回合捡()个物品(0/1/2/3)
11. 用户定义变量 KeyKillMain=112 (ASIIC码112是F1)主要组合技能攻击
12. 用户定义变量 KeyKillTwo=113 (ASIIC码113是F2)第二组合技能攻击
13. 用户定义变量 PickThings=114 (ASIIC码114是F3)捡取物品
14. 用户定义变量 Eat_Hp=115 (ASIIC码115是F4)HP药
15. 用户定义变量 Eat_Mp=116 (ASIIC码116是F5)MP药
16. 用户定义变量 HaveState=117 (ASIIC码117是F6)给自己加状态的技能
17. 用户定义变量 SitDown=118 (ASIIC码118是F7)打坐
18. 用户定义变量 CommonKill=119 (ASIIC码119是F8)普通攻击
19. 用户定义变量 KTime1=3 出错后只允许发呆()秒(推荐值:5秒左右)
20. 用户定义变量 KTime2=15 遇障碍()秒后重选怪(推荐值:10秒以上)
21. 用户定义变量 KillType=1 攻击模式(1:自动选怪 0:手动选怪或辅助攻击)
22. //----系统公共变量
23. Dim STime,KillTime1,KillTime2
24. Dim HpEat,HpSit,HpUp
25. Dim MpEat,MpSit,MpUp
26. Dim GetColorHp,GetColorMp,GetColorNpc
27. Dim BaseX,BaseHpY,BaseMpY,BaseNpcStartX,BaseNpcEndX,BaseNpcY
28. Dim Rate
29. //----初始化变量
30. //----HP/MP条起始/结束点
31. 如果表达式 (Wide=1024) 为真,则
32.     //----分辨率为1024*768
33.     //----血法条X坐标基础值
34.     BaseX=123
35.     //----血法条Y坐标基础值
36.     BaseHpY=41
37.     BaseMpY=59
38.     //----怪物X坐标起始点/终点
39.     BaseNpcStartX=430
40.     BaseNpcEndX=548
41.     //----怪物Y坐标基础值
42.     BaseNpcY=53
43.     //----人物血法条与象素点比值
44.     Rate=1.18
45. 否则
46.     如果表达式 (Wide=800) 为真,则
47.         //----分辨率为800*600
48.         BaseX=96
49.         BaseHpY=32
50.         BaseMpY=46
51.         BaseNpcStartX=336
52.         BaseNpcEndX=428
53.         BaseNpcY=41
54.         Rate=0.92
55.     否则
56.         如果表达式 (Wide=1280) 为真,则
57.             //----分辨率为1280*1024
58.             BaseX=153
59.             BaseHpY=51
60.             BaseMpY=73
61.             BaseNpcStartX=537
62.             BaseNpcEndX=685
63.             BaseNpcY=66
64.             Rate=1.48
65.         条件结束
66.     条件结束
67. 条件结束
68. //----计算出判断吃药/打坐/取消打坐的那个点
69. //----血条的点
70. HpEat=BaseX-1+Hp_Eat*Rate
71. HpSit=BaseX-1+Hp_Sit*Rate
72. HpUp=BaseX-1+Hp_Up*Rate
73. //----法条的点
74. MpEat=BaseX-1+Mp_Eat*Rate
75. MpSit=BaseX-1+Mp_Sit*Rate
76. MpUp=BaseX-1+Mp_Up*Rate
77. //----初始化颜色变量
78. //----选怪
79. 按键<Tab>
80. 延时1000毫秒
81. //----选怪后,取得人物血条/法条/怪物血条的颜色,初始化
82. 调用外部VBScript子程序 GetColorHp=得到指定点的颜色(BaseX,BaseHpY)
83. 调用外部VBScript子程序 GetColorHp=得到指定点的颜色(BaseX,BaseHpY)
84. 调用外部VBScript子程序 GetColorHp=得到指定点的颜色(BaseX,BaseHpY)
85. 响一声
86. //----存储加状态时的时间
87. STime=now
88. 延时200毫秒
89. //----加状态热键HaveState
90. 按键#HaveState
91. 延时200毫秒
92. //----主程序开始
93. 标记 [从这里开始]
94. 标记 被动攻击
95. 如果 (BaseNpcStartX,BaseNpcY) 的颜色大约等于 #GetColorNpc 则
96.     跳转到标记 开始攻击
97. 条件结束
98. 标记 判断HP值
99. 如果 (HpSit,BaseHpY) 的颜色大约等于 #GetColorHp 则
100.     跳转到标记 判断MP值