PutAttachment .\plugin *.dll
Import window.dll
Import Chen8.dll
UserVar F1=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121|F11:122|F12:123}=0 自动技能
UserVar F8=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121|F11:122|F12:123}=7 自动拣东西按键
UserVar MONSTERA="0E28FF" 怪物血条颜色(务必确定)
UserVar dierxue=DropList{使用:1|停用:0}=0 是否使用怪物血条颜色判断二
UserVar MONSTERAE="05006E" 怪物血条颜色判断二(空血时)
UserVar YINGUAI=DropList{启动:1|停止:0}=1 **是否引怪(前提:能定位)
UserVar PICK=128 拣东西延时(毫秒)
UserVar encur=DropList{启动:1|停止:0}=0 是否启动定位
UserVar linow=60 定位时间间隔(秒S)
UserVar limits=10 锁定范围(如果不正常则调大)
UserVar goo=100 自动行走距离
UserVar godelay=128 移动延时过小可影响定位
UserVar luanjuli=100 随机乱点距离MAX
UserVar luandelay=64 乱点延时(与随机乱点有关)
UserVar fangka=25 杀死一个怪的时间(秒)(防卡)
UserVar F3=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121|F11:122|F12:123}=2 单攻技能(防卡)
UserVar nx=868 坐标符号"["左上角点X
UserVar ny=52 坐标符号"["左上角点Y
UserVar coor="0002BB" 坐标颜色
UserVar rdev=50 红色偏差(填十进制)
UserVar gdev=36 绿色偏差(填十进制)
UserVar bdev=24 蓝色偏差(填十进制)
UserVar outnumber=DropList{是:1|否:0}=1 每次读完坐标是否输出
win=Window.Foreground()
VBSCall GetCursorPos(mx,my)
Delay 32
cur=0
If encur=0
    Goto 寻怪
EndIf 
Gosub 读出坐标
If cur=0
    encur=0
    SayString "无法定位"
Else 
    userx=curx:usery=cury
    myway="锁定坐标"&cstr(userx)&"."&cstr(usery)&"，请确定人物方向与地图人物箭头方向一致"
    SayString myway
    strnow=now
EndIf 
Rem 寻怪
wins=Window.Foreground()
If wins=win
    If encur=1
        Gosub 乱点引怪
        VBSCall Findcentercolor(mx-350,my-300,mx+300,my+200,MONSTERA,x1,y1)
        If x1>0
            Gosub 有怪
        EndIf 
        If datediff("s",strnow,now)>linow
            Gosub 定位
        EndIf 
        Goto 寻怪
    EndIf 
    VBSCall Findcentercolor(mx-350,my-300,mx+300,my+200,MONSTERA,x1,y1)
    If x1>0
        Gosub 有怪
    EndIf 
    MoveTo -1,384
    Delay 64
    MoveTo mx,my
    LeftClick 2
EndIf 
Delay 32
Goto 寻怪
Sub 定位
    If encur=1
        //捡东西
        KeyPress F8,2
        //捡东西
        Delay PICK
    EndIf 
    Gosub 读出坐标
    If cur=0
        strnow=now
        Goto 定位结束
    EndIf 
    h=curx-userx:v=cury-usery:r=sqr(h^2+v^2):tmpr=r
    If r<limits
        strnow=now
        Goto 定位结束
    EndIf 
    cosa=h/r:sina=v/r
    Rem 移动
    gox=goo*cosa:goy=goo*sina
    Delay 8
    MoveTo mx-gox,my+goy
    LeftClick 2
    Delay godelay
    Gosub 读出坐标
    h=curx-userx:v=cury-usery:r=sqr(h^2+v^2)
    If r<limits
        strnow=now
        Goto 定位结束
    EndIf 
    If r<tmpr
        tmpr=r:cosa=h/r:sina=v/r