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