End if
        Wend
    Wend
    Rem QMScript_1
    Delay 1000
    Call FindPic(0,0,1024,768,"Attachment:\金.bmp",0.9,intX,intY)
    If intx>0 Then
        MoveTo intx,inty
    Else
        EndScript
    End if
    Delay 500
    LeftClick 1
    Delay 1000
    Call FindPic(0,0,1024,768,"Attachment:\安全.bmp",0.9,intX,intY)
    If intx>0 Then
        MoveTo intx,inty+5
        Delay 500
        LeftClick 1
    End if
    Call FindColorEx(m+207,n-174,m+159,n-209,"00ffff",0,0.9,X,Y)
    Call FindPic(0,0,1024,768,"Attachment:\那我就.bmp",0.9,intX,intY)
    If intx>0 or x>0 Then
        MoveTo intx+10,inty+7
        LeftClick 1
    End if
    Delay 1000
    KeyDown 18,1
    KeyPress 69,1
    KeyUp 18,1
    Delay 500
    Call FindPic(0,0,1024,768,"Attachment:\传送符.bmp",0.9,intX,intY)
    If intx>0 Then
        MoveTo intx,inty
        RightClick 1
        Delay 3000
        KeyPress 9,1
        Delay 500
        MoveTo m+303,n-313
        LeftClick 1
        Delay 500
        KeyPress 9,1
        Delay 60000
        Goto 开始
    End Sub
    Sub 加雪蓝()
        //人物加血
        Delay 100
        IfColor renhong*0.62+716+m,n-572,"311E73",2 Then
            MoveTo renhong*0.62+716+m,n-572
            Delay 500
            RightClick 1
        End if
        //人物加蓝
        Delay 100
        IfColor renlan*0.62+716+m,n-560,"604714",2 Then
            MoveTo renlan*0.62+716+m,n-560
            Delay 500
            RightClick 1
        End if
        //宠物加血
        Delay 100
        IfColor chonghong*0.53+571+m,n-572,"604714",2 Then
            MoveTo chonghong*0.53+571+m,n-572
            Delay 500
            RightClick 1
        End if
        //宠物加蓝
        Delay 100
        IfColor chonglan*0.53+572+m,n-560,"604717",2 Then
            MoveTo chonglan*0.53+572+m,n-560
            Delay 500
            RightClick 1
        End if
    End Sub
    Sub 精确找怪()
        MoveTo m+255,n-445
        Delay 100
        var=GetCursorShape(0)
        If var=1227848726 Then
            Delay 500
            LeftClick 1
            Goto 找怪结束
        End if
        c=c+1
        TracePrint c
        MoveTo m+174,n-401
        Delay 100
        var=GetCursorShape(0)
        If var=1227848726 Then
            Delay 500
            LeftClick 1
            Goto 找怪结束
        End if
        MoveTo m+97,n-352
        Delay 100
        var=GetCursorShape(0)
        If var=1227848726 Then
            Delay 500
            LeftClick 1