//定位器保存在每个道的最里边 上5最右道为1 逆时针转 依次为1-18
//F1红 F2EN技能 F3PW技能 F4定点 F5舰队经验 F6战队经验 F7小队经验 F8回城卷
dim hp,m,n,a,b,e,f,g,h,i,j,k,l,q,r,o
dim zidongjianwu,xp,dao
m=85:n=10:o=0
a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""
dim jn1,jn2
jn1=0:jn2=0
dim zt(2)
dim t1,t2,t3,t4
t1=now:t2=now:t3=now:t4=now
UserVar hp=50 红量<%多少时,补红
UserVar zt(0)=302 舰队+经验状态的持续时间(秒)
UserVar zt(1)=304 战队+经验状态的持续时间(秒)
UserVar zt(2)=306 小队+经验状态的持续时间(秒)
UserVar zidongjianwu=0 0不自动捡物 1自动捡物
UserVar xp=2 选择使用哪种XP技能,从右到左1,2,3
UserVar dao=5 上5最右道为1 逆时针转 依次为1-18
Rem 机战
Gosub 移动2
Gosub 移动3
Gosub 移动5
Gosub 定位2l
Gosub 定位2h
Gosub 定位3l
Gosub 定位3h
Gosub 定位5l
Gosub 定位5h
Gosub 回定位点
Gosub 攻击
Gosub 补红
Gosub 状态
Gosub 捡钱
Gosub 捡流星
Gosub 捡粉红水晶
Gosub 捡蓝水晶
Gosub 捡聚态水晶
Gosub 检测xp
Gosub 拒绝交易
Gosub 同意组队
Gosub 关闭推荐任务
Gosub 关闭导师界面
Gosub 自动收花
Delay 32
Goto 机战
Sub 移动2
    If dao=2
        VBSCall FindColorEx(150,100,820,460,"303b8",1,0.8,x,y)
        If x<0 and y<0
            Delay 32
            o=o+1
            If o>=3
                MoveTo 290,450
                Delay 32
                LeftClick 1
                o=0
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 移动3
    If dao=3
        VBSCall FindColorEx(150,100,820,460,"303b8",1,0.8,x,y)
        If x<0 and y<0
            Delay 32
            o=o+1
            If o>=3
                MoveTo 290,450
                Delay 32
                LeftClick 1
                o=0
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 移动5
    If dao=5
        VBSCall FindColorEx(150,100,820,460,"303b8",1,0.8,x,y)
        If x<0 and y<0
            Delay 32
            o=o+1
            If o>=3
                MoveTo 290,450
                Delay 32
                LeftClick 1
                o=0
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 定位2l
    If dao=2
        VBSCall FindColorEx(986,30,987,31,"2ec638",1,0.8,x,y)
        If x>=0 and y>=0
            Delay 32
            KeyPress 115,1
        EndIf 
    EndIf 
Return 
Sub 定位2h