//===============================

Sub 解绿毒

    VBSCall FindPic(900,100,965,450,"KO2_G.bmp",0.9,x,y)

    If x>=900 and y>=100

        MoveTo x y

        MoveR 50 5

        Delay 300

        LeftClick 3

        Delay 300

        KeyPress 56 1

        Delay 1800

    EndIf 

Return 解绿毒

//===============================

Sub 解诅咒

    VBSCall FindPic(900,100,965,450,"KO2_Z.bmp",0.9,x,y)

    If x>=900 and y>=100

        MoveTo x y

        MoveR 50 5

        Delay 300

        LeftClick 3

        Delay 300

        KeyPress 56 1

        Delay 1800

    EndIf 

Return 解诅咒

//===============================

Sub 打坐

    IfColor 978 748 0 0

        VBS k=0

    Else 

        VBS k=k+1

        If k>3

            VBS k=0

            KeyDown 67 1

            Delay 400

            KeyUp 67 1

            Delay 100

        EndIf 

    EndIf 

Return 打坐

//===============================

Sub 全捡

    MoveTo 400 580

    KeyPress 32 1

    KeyPress 103 1

    KeyPress 104 1

    KeyPress 100 1

    KeyPress 101 1

    KeyPress 97 1