//----用户自定义变量 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值