dim ys,jn,pick,picknum,hit_xy
UserVar ys=1000 技能释放延时(单位"毫秒）
UserVar jn=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 技能释放键位‘平砍就不用放技能
UserVar fj1=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 辅助技能1键位
UserVar fsj1 辅助技能1释放间隔"分
UserVar fj2=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 辅助技能2键位
UserVar fsj2 辅助技能2释放间隔"分
UserVar fj3=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 辅助技能3键位
UserVar fsj3 辅助技能3释放间隔"分
UserVar fj4=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 辅助技能4键位
UserVar fsj4 辅助技能4释放间隔"分
UserVar pick=DropList{全部拾取:1|只拾金币:2} 拾取方式
UserVar picknum=3 拾取次数
UserVar bs=DropList{一级变身:1|二级变身:2|三级变身:3} 变身级别
UserVar qgtime=18 多长时间怪未死换怪（单位“秒）
UserVar hit_xy=40 挂机范围（游戏坐标）
UserVar Var1=DropList{未更新通知勿动:值1} #！游戏数据@@@@@@@@@@@@@@@@@@@@
//申明变量 自定义内容
fz1=now:fz2=now:fz3=now:fz4=now
Delay 700
Rem 确定挂点
VBSCall ReadMemory(bitx,2,yd_x)
Delay 70
VBSCall ReadMemory(bity,2,yd_y)
Delay 70
//读内存确定挂机地点
//msgbox yd_x&"|"&yd_y
Rem s
Rem 变身
//三种变身方式
If bs=1
    IfColor 843,705,fdfdfd,2
    Else 
        MoveTo 843,710
        Delay 200
        LeftDoubleClick 1
        Delay 10
        RightClick 1
    EndIf 
EndIf 
If bs=2
    IfColor 870,705,fdfdfd,2
    Else 
        MoveTo 870,710
        Delay 200
        LeftDoubleClick 1
        Delay 10
        RightClick 1
    EndIf 
EndIf 
If bs=3
    IfColor 895,705,ffffff,2
    Else 
        MoveTo 985,710
        Delay 200
        LeftDoubleClick 1
        Delay 10
        RightClick 1
    EndIf 
EndIf 
Rem 使用炫龙石
//点玄龙石
IfColor 981,711,27561e,2
Else 
    MoveTo 789,653
    Delay 200
    LeftDoubleClick 1
    Delay 10
    RightClick 1
EndIf 
VBSCall FindColorEx(0,0,1280,600,glast,2,0.9,x,y)
//模糊找色打怪
If x>=0 and y>=0
    MoveTo x-20,y+50
    //加偏移量
    Delay 50
    RightClick 1
    qg=now
    IfColor 538,41,ghong,2
        //判断是否点中怪物
    Else 
        MoveTo x-20,y+85
        Delay 50
        RightClick 1
    EndIf 
    IfColor 538,41,ghong,2
        Rem check
        KeyPress jn,1
        IfColor 538,41,ghong,2
            //判断怪物是否死亡 与 使用技能
            Delay ys
            If datediff("s",qg,now)>qgtime
                //自定义时间 怪没死换怪
                Goto s
            EndIf 
            Goto check
        Else 
            Gosub 拾取方式
            Rem checkxy
            VBSCall ReadMemory(bitx,2,dqx)