//====================内部控制命令==============================
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