VBS dim a,b,c,d,i,j,k
VBS dim x,y,x1,y1,x2,y2,x3,y3,x4,y4
UserVar a=F2 设置第一技能键（F2）。
UserVar b=F3 固定设置第一使用怒气技能键（F3）。
UserVar c=F4 设置第二技能键（F4）。
UserVar d=F5 设置打坐回血蓝键（F5）。
Delay 200
i=0
j=0
While true
    x=0
    y=0
    Delay 200
    VBSCall FindColorEx(100,100,870,510,"0000FD",0,0.8,x,y)
    If x>=10 and y>=10
        MoveTo x+8,y+25
        LeftClick 1
        Delay 200
        Gosub 技能
        Gosub 杀怪
    ElseIf x<10 and y<10
        Delay 200
        k=1
        KeyPress 116,1
        Delay 3000
    EndIf 
EndWhile 
Sub 技能
    Delay 200
    If k=1
        MoveTo 767,35
        Delay 350
        RightClick 1
        Delay 350
        k=0
    EndIf 
    VBSCall FindColorEx(172,42,172,42,"D5FFFF",0,0.9,x3,y3)
    If x3=172 and y3=42
        Delay 200
        KeyPress 114,1
        x3=0
        y3=0
    EndIf 
    Delay 200
    VBSCall FindColorEx(187,37,187,37,"FF5C5D",0,0.9,x4,y4)
    If x4=187 and y4=37
        Delay 200
        KeyPress 115,1
        x4=0
        y4=0
    EndIf 
    Delay 200
Return 技能
Sub 杀怪
    Delay 200
    While true
        x1=0
        y1=0
        Delay 200
        VBSCall FindColorEx(221,29,224,29,"080810",0,0.9,x1,y1)
        If x1>=221 and y1>=29
            Delay 200
            Goto 怪已死
        EndIf 
        Delay 200
        VBSCall FindColorEx(221,29,224,29,"3E4DFD",0,0.8,x2,y2)
        If x2<=221 and y2<=29
            i=(x+5)-510
            j=(y+25)-400
            MoveTo ABS(i-510),ABS(j-400)
            Delay 200
            LeftClick 1
            Delay 200
            Goto 怪已死
        EndIf 
    EndWhile 
    Rem 怪已死
    Delay 200
Return 杀怪