Delay 1800

        KeyPress 67 1

        Delay 1000

    EndIf 

Return +480MP

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

Sub +960MP

    IfColor 413 42 9c 2

        Delay 350

        KeyPress 50 1

        Delay 1800

        KeyPress 67 1

        Delay 1000

    EndIf 

    IfColor 413 80 9c 2

        Delay 350

        KeyPress 50 1

        Delay 1800

        KeyPress 67 1

        Delay 1000

    EndIf 

Return +960MP

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

Sub 自动吃红蓝

    IfColor 150 42 1031 2

        IfColor 125 42 1031 2

            KeyPress 53 1

        EndIf 

    EndIf 

    IfColor 125 58 1031 2

        IfColor 80 58 1031 2

            IfColor 150 58 1031 2

                KeyPress 54 1

            EndIf 

        EndIf 

    EndIf 

Return 自动吃红蓝

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

Sub 解黄毒

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

    If x>=900 and y>=100

        MoveTo x y

        MoveR 50 5

        Delay 300

        LeftClick 3

        Delay 300

        KeyPress 55 1

        Delay 1800

    EndIf 

Return 解黄毒