//----用户自定义变量
UserVar Wide=1024 屏幕分辨率(1024*768/800*600/1280*1024)请输入宽度
UserVar Hp_Eat=15 当HP值低于()%时,吃红药
UserVar Hp_Sit=30 当HP值低于()%时,打坐
UserVar Hp_Up=95 当HP值低于()%时,取消打坐(设置低于95%)
UserVar Mp_Eat=15 当MP值低于()%时,吃红药
UserVar Mp_Sit=30 当MP值低于()%时,打坐
UserVar Mp_Up=95 当MP值低于()%时,取消打坐(设置低于95%)
UserVar StateTime=30 每隔()分钟使用一次加状态
UserVar PickTimes=2 每回合捡()个物品(0/1/2/3)
UserVar KeyKillMain=112 (ASIIC码112是F1)主要组合技能攻击
UserVar KeyKillTwo=113 (ASIIC码113是F2)第二组合技能攻击
UserVar PickThings=114 (ASIIC码114是F3)捡取物品
UserVar Eat_Hp=115 (ASIIC码115是F4)HP药
UserVar Eat_Mp=116 (ASIIC码116是F5)MP药
UserVar HaveState=117 (ASIIC码117是F6)给自己加状态的技能
UserVar SitDown=118 (ASIIC码118是F7)打坐
UserVar CommonKill=119 (ASIIC码119是F8)普通攻击
UserVar KTime1=3 出错后只允许发呆()秒(推荐值:5秒左右)
UserVar KTime2=15 遇障碍()秒后重选怪(推荐值:10秒以上)
UserVar KillType=1 攻击模式(1:自动选怪 0:手动选怪或辅助攻击)
//----系统公共变量
Dim STime,KillTime1,KillTime2
Dim HpEat,HpSit,HpUp
Dim MpEat,MpSit,MpUp
Dim GetColorHp,GetColorMp,GetColorNpc
Dim BaseX,BaseHpY,BaseMpY,BaseNpcStartX,BaseNpcEndX,BaseNpcY
Dim Rate
//----初始化变量
//----HP/MP条起始/结束点
If Wide=1024
    //----分辨率为1024*768
    //----血法条X坐标基础值
    BaseX=123
    //----血法条Y坐标基础值
    BaseHpY=41
    BaseMpY=59
    //----怪物X坐标起始点/终点
    BaseNpcStartX=430
    BaseNpcEndX=548
    //----怪物Y坐标基础值
    BaseNpcY=53
    //----人物血法条与象素点比值
    Rate=1.18
Else 
    If Wide=800
        //----分辨率为800*600
        BaseX=96
        BaseHpY=32
        BaseMpY=46
        BaseNpcStartX=336
        BaseNpcEndX=428
        BaseNpcY=41
        Rate=0.92
    Else 
        If Wide=1280
            //----分辨率为1280*1024
            BaseX=153
            BaseHpY=51
            BaseMpY=73
            BaseNpcStartX=537
            BaseNpcEndX=685
            BaseNpcY=66
            Rate=1.48
        EndIf 
    EndIf 
EndIf 
//----计算出判断吃药/打坐/取消打坐的那个点
//----血条的点
HpEat=BaseX-1+Hp_Eat*Rate
HpSit=BaseX-1+Hp_Sit*Rate
HpUp=BaseX-1+Hp_Up*Rate
//----法条的点
MpEat=BaseX-1+Mp_Eat*Rate
MpSit=BaseX-1+Mp_Sit*Rate
MpUp=BaseX-1+Mp_Up*Rate
//----初始化颜色变量
//----选怪
KeyPress 9,1
Delay 1000
//----选怪后,取得人物血条/法条/怪物血条的颜色,初始化
VBSCall GetColorHp=GetPixelColor(BaseX,BaseHpY)
VBSCall GetColorMp=GetPixelColor(BaseX,BaseMpY)
VBSCall GetColorNpc=GetPixelColor(BaseNpcStartX,BaseNpcY)
Beep 
//----存储加状态时的时间
STime=now
Delay 200
//----加状态热键HaveState
KeyPress HaveState,1
Delay 200
//----主程序开始
Rem [从这里开始]
Rem 被动攻击
IfColor BaseNpcStartX BaseNpcY GetColorNpc 2
    Goto 开始攻击
EndIf 
Rem 判断HP值
IfColor HpSit BaseHpY GetColorHp 2
    Goto 判断MP值