Dim hong,lan
UserVar Yq=DropList{是:0|否:1}=0 是否自动运气
UserVar H=DropList{快捷键1:49|快捷键2:50|快捷键3:51|快捷键4:52|快捷键5:53|快捷键6:54|快捷键7:55|快捷键8:56|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119}=10 红药
UserVar L=DropList{快捷键1:49|快捷键2:50|快捷键3:51|快捷键4:52|快捷键5:53|快捷键6:54|快捷键7:55|快捷键8:56|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119}=11 蓝药
UserVar J=DropList{快捷键1:49|快捷键2:50|快捷键3:51|快捷键4:52|快捷键5:53|快捷键6:54|快捷键7:55|快捷键8:56|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119}=13 捡物
UserVar Wl=DropList{快捷键1:49|快捷键2:50|快捷键3:51|快捷键4:52|快捷键5:53|快捷键6:54|快捷键7:55|快捷键8:56|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119}=0 物理
UserVar Yc=DropList{快捷键1:49|快捷键2:50|快捷键3:51|快捷键4:52|快捷键5:53|快捷键6:54|快捷键7:55|快捷键8:56|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119}=1 运气
UserVar Yq2=DropList{快捷键1:49|快捷键2:50|快捷键3:51|快捷键4:52|快捷键5:53|快捷键6:54|快捷键7:55|快捷键8:56|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119}=1 勇气
UserVar Sf=DropList{不使用:1|快捷键1:49|快捷键2:50|快捷键3:51|快捷键4:52|快捷键5:53|快捷键6:54|快捷键7:55|快捷键8:56|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119}=2 首发技能
UserVar Yc1=2000 首发技能吟唱时间
//------------------[主程序]
For 3
    Beep 
    Delay 10
EndFor 
Rem 开始
t1=now
Gosub 检查红蓝
Rem 检查打坐
If Yq=1
    Goto 下面
Else 
    Gosub 检查运气
EndIf 
Rem 下面
Gosub 锁怪
Gosub 首发技能
Rem 下面1
Gosub 打怪
Gosub 勇气
Gosub 拾取
Gosub 检查验证
Goto 开始
//------------------[检查红蓝]
Sub 检查红蓝
    MoveTo 30,60
    Delay 100
    LeftClick 1
    Delay 1500
    IfColor 538,35,c2,2
        //MessageBox 不要补
        Goto 补篮
    Else 
        //MessageBox 要补
        KeyPressH H,1
    EndIf 
    Rem 补篮
    IfColor 537,52,9c4709,2
        Goto 回去
    Else 
        KeyPressH L,1
    EndIf 
    Rem 回去
Return 
//------------------[检查运气]
Sub 检查运气
    MoveTo 30,60
    Delay 100
    LeftClick 1
    Delay 1500
    IfColor 550,35,c2,2
        Goto 蓝运气
    Else 
        KeyPressH Yc,1
        Delay 4000
        Gosub 红运气
    EndIf 
    Rem 蓝运气
    IfColor 552,50,cd6317,2
        Goto 下面3
    Else 
        KeyPressH Yc,1
        Delay 4000
        Gosub 蓝运气
    EndIf 
    Rem 下面3
Return 
//------------------[红运气]
Sub 红运气
    Rem 红运气
    MoveTo 30,60
    Delay 100
    LeftClick 1
    Delay 1500
    IfColor 589,34,f0fd9,2
        Delay 100
        KeyPressH Yc,1
        Delay 100
    Else 
        Goto 红运气
    EndIf 
Return 
//------------------[蓝运气]
Sub 蓝运气
    Rem 蓝运气
    MoveTo 30,60
    Delay 100
    LeftClick 1
    Delay 1500
    IfColor 589,51,b64f04,2