c,d,i,j,k
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
    Call FindColorEx(100,100,870,510,"0000FD",0,0.8,x,y)
    If x>=10 and y>=10 Then
        MoveTo x+8,y+25
        LeftClick 1
        Delay 200
        Call 技能()
        Call 杀怪()
    ElseIf x<10 and y<10 Then
        Delay 200
        k=1
        KeyPress 116,1
        Delay 3000
    End if
Wend
Sub 技能()
    Delay 200
    If k=1 Then
        MoveTo 767,35
        Delay 350
        RightClick 1
        Delay 350
        k=0
    End if
    Call FindColorEx(172,42,172,42,"D5FFFF",0,0.9,x3,y3)
    If x3=172 and y3=42 Then
        Delay 200
        KeyPress 114,1
        x3=0
        y3=0
    End if
    Delay 200
    Call FindColorEx(187,37,187,37,"FF5C5D",0,0.9,x4,y4)
    If x4=187 and y4=37 Then
        Delay 200
        KeyPress 115,1
        x4=0
        y4=0
    End if
    Delay 200
End Sub
Sub 杀怪()
    Delay 200
    While true
        x1=0
        y1=0
        Delay 200
        Call FindColorEx(221,29,224,29,"080810",0,0.9,x1,y1)
        If x1>=221 and y1>=29 Then
            Delay 200
            Goto 怪已死
        End if
        Delay 200
        Call FindColorEx(221,29,224,29,"3E4DFD",0,0.8,x2,y2)
        If x2<=221 and y2<=29 Then
            i=(x+5)-510
            j=(y+25)-400
            MoveTo ABS(i-510),ABS(j-400)
            Delay 200
            LeftClick 1
            Delay 200
            Goto 怪已死
        End if
    Wend
    Rem 怪已死
    Delay 200
End Sub