//====================内部控制命令============================== UserVar var1=51 当HP<多少%时,补血 (强烈建议大家使用51或50并尽量不要随便选择37---70之间的数字。因为该区间是生命栏中的数字,容易引起错误,) UserVar var2=30 当SP<多少%时,补精(建议大家使用30并尽量不要选择36---70之间的数字。因为该区间是精力栏中的数字,容易引起错误) UserVar var3=0 延长脚本的运行速度*%以配合旧式显卡和不流畅时的游戏 UserVar var4=20 最长尝试攻击NPC的时间,建议20-30,以避免有障碍的情况。*次以后找新NPC HP=2.5*var1 HP2=2*var1 SP=2.5*var2 SP2=2*var2 Speeds=var3 MaxTime=var4*2 Plugin Rx=Sys.GetScRX() Plugin Ry=Sys.GetScRY() KeyPress 27,1 KeyPress 27,1 KeyPress 27,1 KeyPress 27,1 KeyPress 27,1 If Rx=1280 Rem 屏幕分辨率为 1280*1024 的使用 Gosub 补血 Gosub 补充SP Gosub 防御 Gosub 战吼 Gosub 更换武器 Gosub Kill NPC Delay 60 Goto 屏幕分辨率为 1280*1024 的使用 Else Rem 屏幕分辨率为 1024*768 的使用 Gosub 补血2 Gosub 补充SP2 Gosub 防御2 Gosub 战吼2 Gosub 更换武器2 Gosub Kill NPC2 Delay 60 Goto 屏幕分辨率为 1024*768 的使用 EndIf EndScript //==============================补血(按键8)==================== Sub 补血 IfColor HP,63,000ce,0 Gosub 补充SP Else For 20 IfColor 226,56,96de,2 Gosub Kill NPC EndIf IfColor 244,66,292cde,0 Gosub 补充SP Else KeyPress 56,1 Delay 3000 KeyPress 51,1 Delay 16000 EndIf EndFor EndIf Return 补血 //==============================补充精力(按键3)============================ Sub 补充SP IfColor SP,110,29ae21,0 Gosub 防御 Else KeyPress 51,1 Delay 6000 KeyPress 51,1 For 20 IfColor 226,56,96de,2 Gosub Kill NPC EndIf IfColor 250,110,29ae21,0 Gosub 防御 Else Delay 5000 EndIf EndFor EndIf Return 补充SP //===================每300秒加一次技能(按键4)========================= Sub 防御 If datediff("s",thistime,now)>290 //VBSCall messagebox(datediff("s",thistime,now)) Delay 100 KeyPress 52,1 Delay 2500 thistime=now EndIf Gosub 战吼 Return 防御 //===================每120秒加一次战吼(按键5)========================= Sub 战吼 If datediff("s",thistime2,now)>240 //VBSCall messagebox(datediff("s",thistime,now)) Delay 100 KeyPress 53,1 Delay 2500 thistime2=now EndIf