//quse1为重复旁边的颜色
//quse2为逃跑旁边的颜色
//quse3为重复上的白色
//quse4为自动上的白色
//quse5为左上血条颜色
//quse6为左上血条颜色
//quse7为左上SP条颜色
//quse8为左上sp条颜色
//quse9为右上血条颜色
//quse10为右上血条颜色
PutAttachment plugin
Plugin a=Window.Foreground()
hwnd=a
Plugin pos=Window.GetClientRect(hwnd)
//Plugin pos=Window.GetClientPos(hwnd)
t=instr(pos,","):x0=mid(pos,1,t-1):y0=mid(pos,t+1,t)
Rem 移动量
ydlx=x0-192
ydly=y0-153
Rem 选2
//选择是否需要自动遇敌
UserVar ynzdyd=1 (1为自动遇敌，2为不遇敌)
Rem 对于血条的相对移动到补血位置
UserVar rwx=-3 对于人物血条的相对移动到补血X轴位置,数值越小越左移
UserVar rwy=65 对于人物血条的相对移动到补血Y轴位置，数值越大越下移
UserVar zhsx=-7 对于召唤兽血条的相对移动到补血X轴位置，数值越小越左移
UserVar zhsy=48 对于召唤兽物血条的相对移动到补血Y轴位置，数值越大越下移
//颜色相似度设置（找不到颜色的话改成0.6-0.8）
UserVar xsd=0.9 颜色的相似度，0.3-1，数值越大越精确速度也越快
Rem 战斗内补血的百分比设置
UserVar w=25  设定人在战斗内少了％的血　则魔法补血
UserVar z=25  设定召唤兽在战斗内少了％的血　则魔法补血
//战斗外补血补蓝的百分比设置
UserVar j=50 设定在战斗外人少了％的血　则自己补血
UserVar jj=75 设定在战斗外人少％了的ＳＰ　则自己补蓝
UserVar k=100 设定在战斗外召唤兽少了％的血　则自己补血
UserVar kk=100 设定在战斗外召唤兽少了％的ＳＰ　则自己补蓝
//碰到选头像则放歌提醒
UserVar tx=d:\winamp\winamp.exe 碰到选头像，需要提醒的话，请在次输入您放歌的路径必须为exe文件
tixing=cstr(tx)
Rem 遇敌坐标左右上下的步长
UserVar a=3 遇敌的步长,鼠标离中心点的距离。（范围1-8）单位：厘米
UserVar b=1 遇敌步长上，鼠标离中心点的距离。（范围1-8）单位：厘米
Rem 遇敌延时
UserVar h=800 自己设置吧，遇敌延时，用了就知道作用了。单位（毫秒）
Rem start
zdyd=cint(ynzdyd)
If cbool (zdyd=1)
    Gosub 自动遇敌
Else 
    If cbool (zdyd=2)
        Gosub 不遇敌
    Else 
        MessageBox "请输入正确的遇敌是否参数"
    EndScript 
EndIf 
EndIf 
Goto start
EndScript 
Sub 不遇敌
    Rem 不遇敌
    Gosub 进入战斗
    Gosub 补血补蓝
    Gosub 判断是否选头像
    Gosub 组队
    Gosub 碰盗贼
    Goto 不遇敌
Return 不遇敌
Sub 自动遇敌
    Rem 自动遇敌
    //a,b
    MoveTo 512-32*a+ydlx,393-32*b+ydly
    Delay h
    LeftClick 1
    Gosub 进入战斗
    Gosub 补血补蓝
    Gosub 判断是否选头像
    Gosub 组队
    Gosub 碰盗贼
    MoveTo 512+32*a+ydlx,393+32*b+ydly
    Delay h
    LeftClick 1
    Gosub 进入战斗
    Gosub 补血补蓝
    Gosub 判断是否选头像
    Gosub 组队
    Gosub 碰盗贼
    Goto 自动遇敌
Return 自动遇敌
Sub 进入战斗
    Rem 进入战斗
    VBSCall quse1=GetPixelColor(768+ydlx,244+ydly)
    VBSCall quse2=GetPixelColor(815+ydlx,424+ydly)
    VBSCall quse9=GetPixelColor(686+ydlx,164+ydly)
    VBSCall quse10=GetPixelColor(685+ydlx,164+ydly)
    If quse1=quse2 and quse9=quse10
        VBSCall quse=GetPixelColor(744+ydlx,183+ydly)
        Gosub 判断1
        Delay 20
        Gosub 判断2