Return 快红
//+快速回血药子程序
Sub 状态
    Delay 50
    VBSCall FindPic(60,90,200,115,"防御.bmp",1,x,y)
    If x<=0 and y<=0
        KeyPress 52,1
        Delay 50
    EndIf 
Return 状态
//状态检测，参考qmmwn
Sub 喊话
    KeyPress 13,1
    Delay 200
    SayString 请在TAB调出大地图后5秒内将鼠标移到代表角色的黄点
    Delay 200
    KeyPress 13,1
    Delay 200
Return 喊话
//喊话子程序，个人爱好，想调用就调用，话的内容可以自己改
Sub 躲怪
    VBSCall FindColorEx(910,118,916,124,"5a30de",1,0.8,x,y)
    If x<=913 and y<=121 and x>0 and y>0
        Rem 躲怪1
        MoveTo 696,478
        Delay 50
        LeftClick 1
        Delay 100
        VBSCall GetCursorPos(x,y)
        If x=696
            Goto 躲怪2
        EndIf 
    ElseIf x>=913 and y>=121
        Rem 躲怪2
        MoveTo 352,276
        Delay 50
        LeftClick 1
        Delay 100
        VBSCall GetCursorPos(x,y)
        If x=352
            Goto 躲怪3
        EndIf 
    EndIf 
    Delay 50
    If x>=913 and y<=121
        Rem 躲怪3
        MoveTo 286,485
        Delay 50
        LeftClick 1
        Delay 100
        VBSCall GetCursorPos(x,y)
        If x=286
            Goto 躲怪4
        EndIf 
    ElseIf x<=913 and y>=121
        Rem 躲怪4
        MoveTo 701,256
        Delay 50
        LeftClick 1
        Delay 100
        VBSCall GetCursorPos(x,y)
        If x=701
            Goto 躲怪1
        EndIf 
    EndIf 
Return 躲怪
//参照qmmwn,加入了躲怪循环，防止角色退到角落，无法移动，而怪物和角色重叠，鼠标刚好点到是角色，始终循环找怪躲怪打怪，通过记录鼠标位置辨别
Sub 修理
    Delay 5000
    KeyPress 9,1
    Delay 1000
    MoveTo 272,184
    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,264
    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