fight2=asc(fight2)
UserVar fight3=6 技能三
fight3=asc(fight3)
UserVar fight4=7 技能四
fight4=asc(fight4)
UserVar fight5=8 技能五
fight5=asc(fight5)
UserVar zhuangt=0 定时加状态(单位:分)(0)不加
UserVar countz=1 连用(1)状态(2)状态(3)状态
UserVar shuoming=说明 第一次状态手动加，之后到时间自动加
UserVar zhuangj1=9 状态一
zhuangj1=asc(zhuangj1)
UserVar zhuangj2=0 状态二
zhuangj2=asc(zhuangj2)
UserVar zhuangj3=- 状态三
zhuangj3=asc(zhuangj3)
If zhuangt<>0
    If datediff("s",zhuangtime,time)>zhuangt*60
        KeyDown zhuangj1,1
        Delay 64
        KeyUp zhuangj1,1
        Delay 8
        If countz=2 or countz=3
            KeyDown zhuangj2,1
            Delay 64
            KeyUp zhuangj2,1
            Delay 8
        EndIf 
        If countz=3
            KeyDown zhuangj3,1
            Delay 64
            KeyUp zhuangj3,1
            Delay 8
        EndIf 
        zhuangtime=time
    EndIf 
EndIf 
//移动刷怪
If figtabz=1 or done=1 or done=2
    If movee<>0
        KeyDown 87,1
        Delay 384*movee
        KeyUp 87,2
    EndIf 
EndIf 
If done=1 or done=2
    //防卡TAB不了，按WS
    KeyPress 83,1
    KeyPress 87,1
    //按TAB选怪
    KeyDown 9,1
    Delay 256
    KeyUp 9,2
    For 4
        KeyDown pick,1
        Delay 64
        KeyUp pick,2
        Delay 192
    EndFor 
Else 
    //拣东西
    For 2
        KeyDown pick,1
        Delay 64
        KeyUp pick,2
        Delay 8
    EndFor 
EndIf 
//定位开
//先解决怪物
VBSCall FindColorEx(monsterx,monstery,monsterx+83,monstery+15,monster,1,0.8,xx,yy)
If xx>0
    //防卡住杀不了怪
    i=1
    Gosub 杀怪
EndIf 
If done=1 or done=2
    VBSCall FindColorEx(185+lifeb,36,190+lifeb,55,lifc,1,0.8,lifx,lify)
    If lifx<=0
        //定位有自动休息
        If xiuxi=1 and done=1
            VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1)
            If xx1<=0
                Gosub 开关地图
                VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1)
            EndIf 
            If xx1>0
                xx=xx1-cox:yy=yy1-1-coy:r=sqr(xx^2+yy^2)
                tmpr=r
                //防卡住一个地方
                i=1
                Gosub 定位
            EndIf 
        ElseIf xiuxi=2
            If HOME=36
                KeyDownH 36,1
                Delay 256
                KeyUpH 36,2
                Delay 256
            Else