UserVar v=DropList{随机选择:1|提示:2}=0 出现验证
UserVar rh=DropList{40%:1|60%:2|80%:3|90%:4}=0 角色红少于%时打坐
UserVar rl=DropList{40%:1|60%:2|80%:3|90%:4}=0 角色蓝少于%时打坐
UserVar jehl=DropList{是:1|否:2}=0 每次打坐是否等待恢复满红蓝
UserVar ks=DropList{快捷键7:1|快捷键8:2|快捷键9:3|不按键:4}=0 角色快死时按键
UserVar zduei=DropList{进队:1|不进:2}=0 组队邀请
UserVar s=DropList{快捷键1:1|快捷键2:2|快捷键3:3|快捷键4:4|快捷键5:5|快捷键6:6}=0 技能快捷键
UserVar dz=30 打坐休息时间(秒)
If rh="1"
    rh=40
ElseIf rh="2"
    rh=60
ElseIf rh="3"
    rh=80
ElseIf rh="4"
    rh=90
EndIf 
If rl="1"
    rl=40
    see="db8100"
ElseIf rl="2"
    rl=60
    see="db8100"
ElseIf rl="3"
    rl=80
    see="dc8201"
ElseIf rl="4"
    rl=90
    see="dc8300"
EndIf 
//下面这句是得到当前最前面的窗口句柄
Plugin Hwnd = Window.Foreground()
//下面这句是移动窗口到(0, 0)位置
Plugin Window.Move(Hwnd, 0, 0)
Gosub 组队邀请
Delay 1000
se="7BA72D"
zf="1|0|84BE3C,2|0|7CAF3E,3|0|7EB13F,4|0|84B942,-6|1|CA9200,-5|1|C28B00,-4|1|BC8500,-1|1|7BA82D,0|1|7EAF2F,4|1|75A43A,9|1|CC9500,10|1|BE8900,-7|2|CA9300,-6|2|BB8500,-1|2|88C536,2|2|80400,10|2|C58F00,11|2|BE8900,-8|3|C79100,-1|3|7AA22F,2|3|40200,11|3|C39000,12|3|BF8A00,-1|4|8CB539,2|4|0,5|4|749529,12|4|CD9500,13|4|C08900,-1|5|84A834,2|5|0,5|5|7DAC32,13|5|C99100,-2|6|A3D845,-1|6|A0D444,2|6|0,5|6|84BD39,6|6|79A12E,-3|7|8FC627,-2|7|6D9742,2|7|102,6|7|7DB046,7|7|68933A,-10|8|986900,-4|8|7FAF22,-3|8|5D7A17,2|8|0,7|8|709D3E,8|8|729735,-10|9|875B00,-5|9|729A1E,2|9|1,8|9|659C35,9|9|75A130,-10|10|825300,-5|10|829E20,2|10|201,9|10|86BB33,-10|11|7D4B00,2|11|400,9|11|83AA27,-10|12|7D4B00,2|12|400,10|12|9ED633,-10|13|7D4B00,2|13|400,-10|14|7D4B00,2|14|103,-10|15|7D4B00,2|15|102,-10|16|865300,2|16|103,-10|17|8F5D00,2|17|204,-10|18|956400,2|18|305,-10|19|AD7800,2|19|305,-10|20|C58D00,-10|21|C68E00,13|21|C69200,12|22|C69200,13|22|C08C00,12|23|C59100"
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, se, zf, 1)
//下面这句用于分割字符串
MyArray = Split(XY, "|")
//下面这句将字符串转换成数值
dzx = CInt(MyArray(0)): dzy = CInt(MyArray(1))
If dzx=>0 and dzy=>0
Else 
    MessageBox "没找到打坐图标,按[确定]后把鼠标放到打坐图标上按任意键"
    WaitKey 
    VBSCall GetCursorPos(dzx,dzy)
EndIf 
//下面这句是窗口属性设置为(窗口置前)
Plugin Window.Top(Hwnd, 0)
//下面这句是窗口属性设置为(取消窗口置前)
Plugin Window.Top(Hwnd, 1)
Delay 200
Gosub 检查
Gosub 组队邀请
Delay 200
//===============找怪
Rem 开始杀怪
Gosub 组队邀请
Delay 200
KeyPress 9,1
//按TAB
Rem 杀怪
Delay 200
Gosub 组队邀请
Gosub 快死
Gosub 技能
Gosub 组队邀请
Delay 200
VBSCall Call FindColorEx(362,66,542,103,"0000DC",1,0.8,x,y)
If x>=0 and y>=0
    Gosub 组队邀请
    Delay 1000
    Gosub yz
    Goto 杀怪
Else 
    Gosub 组队邀请
    Gosub yz
    Gosub 组队邀请
    Gosub 检查
    Delay 200
    Gosub 组队邀请
    Goto 开始杀怪
EndIf 
Goto 开始杀怪
EndScript 
Sub 检查
    Rem JCH
    IfColor rh/100*(250-94)+94,76,0300DF 2
    Else 
        IfColor rh/100*(250-94)+94,76,EAEAEA 2
        Else 
            Delay 800
            MoveTo dzx,dzy
            Delay 500
            LeftClickS 1
            Delay dz*1000
        EndIf 
    EndIf