诛仙半自动挂机脚本

自己点怪，其他动作都是自动所以叫半自动。捡东西３，法宝２，普通攻击１，F8加力量，F7自己的加红

//定义变量
VBS dim f8,t81,t82
UserVar f8=1500 第一个技能(f8)的间隔时间(秒)，设为0表示不用该技能
//主程序开始
KeyPress 119 1
Plugin t81=GetSysInfo.GetTime(1500)
a=1
While a=1
    Gosub 判断怪的hp
    Gosub 加技能
    Gosub 打怪
EndWhile
Sub 检测自己的hp
    IfColor 430,55,6262fe,2
        Goto 打
    Else
    EndIf
    IfColor 150,46,1010d9,2
    Else
        KeyPress 55,1
        Delay 30000
    EndIf
EndIf
Gosub 检测自己的mp
Return 检测自己的hp
Sub 检测自己的mp
    IfColor 430,55,6262fe,2
        Goto 打
    Else
    EndIf
    IfColor 141,65,ba4f03,2
    Else
        KeyPress 55,1
        Delay 30000
    EndIf
Return 检测自己的mp
Sub 判断怪的hp
    IfColor 430,55,6262fe,2
    Else
        Gosub 拣
    EndIf
    //输入怪的色 或图鼠标移到上面
    IfColor 430,55,6262fe,2
        Gosub 打怪
    Else
    EndIf
Return 判断怪的hp
Sub 拣
    Delay 500
    KeyPress 51,1
    Delay 500
    KeyPress 51,1
    Delay 500
    KeyPress 51,1
    Delay 100
    Gosub 打怪
Return 拣
Sub 打怪
    IfColor 430,55,6262fe,2
        Delay 200
        KeyPress 50,3
        Delay 50
        KeyPress 50,1
        Delay 50
        KeyPress 50,1
        Rem 打
        Delay 500
        KeyPress 49,1
    Else
    EndIf
    Gosub 检测自己的hp
Return 打怪
Sub 加技能
    Plugin t82=GetSysInfo.GetTime(1500)
    If f8
        If t82-t81>=f8*1000
            KeyPress 119 1
            Plugin t81=GetSysInfo.GetTime(1500)
                    EndIf
    EndIf
Return 加技能