Rem ******************配置文件读取*****************
UserVar var1=8 加血下限
UserVar var2=5 加蓝下限
UserVar var3=250 辅助魔法1时间
UserVar var4=0 辅助魔法2时间
UserVar var5=5 侦测灵敏度
UserVar var6=0 自动捡取开关
UserVar var7=0 HP瓶耗完报警
UserVar var8=0 MP瓶耗完报警
If var1="加血下限" or var1<6 or var1>9
    var1=8
EndIf 
If var2="加蓝下限" or var2<1 or var2>9
    var2=5
EndIf 
If var5="侦测灵敏度" or var5<1 or var5>10
    var5=5
EndIf 
If var3="辅助魔法1时间" or var3<0
    var3=250
EndIf 
If var4="辅助魔法2时间" or var4<0
    var4=0
EndIf 
If var6="自动捡取开关" or var6<>1
    var6=0
EndIf 
If var7="HP瓶耗完报警"
    var7=0
EndIf 
If var8="MP瓶耗完报警"
    var8=0
EndIf 
var1=9
var2=9
hpx=int(var1)*10+222
mpx=int(var2)*10+330
time1=timer
time3=timer
Rem **************辅助子程序*****************
Rem 主程序
Gosub HP
If var7=1
    Gosub HP数量检测
EndIf 
Gosub MP
If var8=1
    Gosub MP数量检测
EndIf 
Gosub 辅助魔法
If var6<>1
    Delay 200*var5
Else 
    i=var5
    While i>0
        KeyPress 32,1
        Delay 150
        i=i-1
    EndWhile 
    Delay 300
EndIf 
Goto 主程序
Rem **************血蓝侦测子程序**************
Sub MP
    VBSCall FindColor(mpx-2,588,mpx+2,594,"525152",mx,my)
    If mx>0
        KeyPress 35,1
    EndIf 
Return 
Sub HP
    VBSCall FindColor(hpx-2,588,hpx+2,594,"525152",hx,hy)
    If hx>0
        KeyPress 46,1
    EndIf 
Return 
Sub HP数量检测
    VBSCall FindCenterColor(696,513,711,525,"FFCF9C",X1,Y1)
    If x1<1 or y1<1
        VBSCall FindCenterColor(696,513,711,525,"FFDFBC",X1,Y1)
        If x1<1 or y1<1
            VBSCall FindCenterColor(696,513,711,525,"FFCFAD",X1,Y1)
            If x1<1 or y1<1
                For 6
                    Beep 
                    Delay 300
                EndFor 
            EndIf 
        EndIf 
    EndIf 
Return 
Sub MP数量检测
    VBSCall FindCenterColor(731,520,737,525,"FFCF9C",X2,Y2)
    If x2<1 or y2<1
        VBSCall FindCenterColor(731,520,737,525,"FFCF9C",X2,Y2)
        If x2<1 or y2<1
            VBSCall FindCenterColor(731,520,737,525,"FFCF9C",X2,Y2)
            If x2<1 or y2<1
                For 6
                    Beep 
                    Delay 300