EndIf 
        EndIf 
    EndFor 
    MoveTo 272,344
    Delay 1000
    For 11
        VBSCall GetCursorPos(xb,yb)
        MoveTo xb+40,yb
        Delay 200
        RightClick 1
        Delay 200
        IfColor 429,15,b5ebf7,2
            IfColor 416,52,b58a5a,2
                IfColor 430,45,000000,2
                    Goto 药品商人
                EndIf 
            EndIf 
        EndIf 
    EndFor 
    MoveTo 272,424
    Delay 1000
    For 11
        VBSCall GetCursorPos(xb,yb)
        MoveTo xb+40,yb
        Delay 200
        RightClick 1
        Delay 200
        IfColor 429,15,b5ebf7,2
            IfColor 416,52,b58a5a,2
                IfColor 430,45,000000,2
                    Goto 药品商人
                EndIf 
            EndIf 
        EndIf 
    EndFor 
    MoveTo 272,504
    Delay 1000
    For 11
        VBSCall GetCursorPos(xb,yb)
        MoveTo xb+40,yb
        Delay 200
        RightClick 1
        Delay 200
        IfColor 429,15,b5ebf7,2
            IfColor 416,52,b58a5a,2
                IfColor 430,45,000000,2
                    Goto 药品商人
                EndIf 
            EndIf 
        EndIf 
    EndFor 
    MoveTo 272,584
    Delay 1000
    For 11
        VBSCall GetCursorPos(xb,yb)
        MoveTo xb+40,yb
        Delay 200
        RightClick 1
        Delay 200
        IfColor 429,15,b5ebf7,2
            IfColor 416,52,b58a5a,2
                IfColor 430,45,000000,2
                    Goto 药品商人
                EndIf 
            EndIf 
        EndIf 
    EndFor 
    //找药瓶商人并和药品商人对话的循环，想用图片查找，但始终做不好图片，于是改用400X400范围间隔右键点击，通过头像状态的颜色进行判别
    Rem 药品商人
    LeftClick 1
    Delay 1000
    MoveTo 92,321
    Delay 1000
    LeftClick 1
    Delay 1000
    MoveTo 172,429
    Delay 1000
    LeftClick 1
    Delay 500
Return 修理
//此段为修理装备子程序
Sub 买药
    Delay 500
    MoveTo 170,213
    Delay 1000
    For 3
        RightClick 1
        Delay 500
    EndFor 
    Delay 500
    MoveTo 238,212
    Delay 1000
    For 3
        RightClick 1
        Delay 500
    EndFor 
    Delay 1000
    Gosub 红蓝
    KeyPress 66,1
    Delay 1000