Gosub 解绿毒

        Gosub 解诅咒

        Goto 【开始】

    EndIf 

Return +++

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

Sub 有祝福

    IfColor 1000 79 0 1

        IfColor 992 73 0 1

            IfColor 968 79 0 1

                IfColor 960 73 0 1

                    IfColor 936 79 0 1

                        // Gosub 群上限和防

                        Gosub 单加上限和防

                        Gosub 自动吃红蓝

                    EndIf 

                EndIf 

            EndIf 

        EndIf 

    EndIf 

Return 有祝福

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

Sub +SX

    VBS bt=time

    VBS ct=DateDiff("s",at,bt)

    VBS ct=Abs(ct)

    If ct>605

        VBS at=time

        Delay 2000

        //        Gosub 群上限和防

        Gosub 单加上限和防

    EndIf 

Return +SX

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

Sub +SX&F

    IfColor 871 12 217939 2

        IfColor 900 12 108a52 2

            IfColor 955 12 ffffff 2

                Gosub 有祝福

            EndIf 

        EndIf 

    Else 

        Gosub 无祝福

    EndIf 

Return +SX&F

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

Sub 无祝福

    IfColor 1000 55 0 1

        IfColor 992 50 0 1

            IfColor 968 55 0 1