自動打怪跟撿物同時發動會很卡

當我2樣同時運行時 瑪奇會變得超級卡 卡到走不到路
但只運行一種/2個組合成一個居然不會卡
要怎麼令2個同時運行又不會卡呢?

我也想知道 請求 高手幫忙吧YCT49B

可把兩個腳本寫入同一個腳本中
//一開始先檢測血量是否足夠，不足就喝水再次檢測，足夠則進行下一個動作
//接下來按下CTRL鎖定怪物並且滑鼠連點使它自動打怪最後延遲5秒鐘
//開始檢測圖中是否有掉落A物品，有則撿取並且再次檢測是否有A物品，沒有則下一步動作
//開始撿測圖中是否有掉落B物品，有則撿取並且再次檢測是否有B物品，沒有則回到一開始動作
//重複檢查CD道具後，檢查武器是否損毀，是的話按下W否的話回到一開始動作
**************************************************
Rem s
IfColor 100,932,9f4bdf,1
    Delay 500
    KeyPress 72,1
    Delay 500
    Goto s
Else
    KeyDown 17,1
    Delay 1000
    LeftClick 1
    LeftClick 1
    KeyUp 17,1
    Delay 3000
    Rem A
    VBSCall FindColorEx(418,294,950,796,"9FC7C0",1,1,x,y)
    If x>=0 and y>=0
        MoveTo x y
        Delay 100
        KeyDown 18,1
        Delay 100
        LeftClick 1
        Delay 100
        KeyUp 18 1
        Delay 500
        Goto A
    Else
        Rem B
        VBSCall FindColorEx(418,294,950,796,"CEA3E2",1,1,x,y)
        If x>=0 and y>=0
            MoveTo x y
            Delay 100
            KeyDown 18,1
            Delay 100
            LeftClick 1
            Delay 100
            KeyUp 18 1
            Delay 500
            Goto B
        Else
            Rem c
            VBSCall FindColorEx(418,294,950,796,"CEA9DA",1,1,x,y)
            If x>=0 and y>=0
                MoveTo x y
                Delay 100
                KeyDown 18,1
                Delay 100
                LeftClick 1
                Delay 100
                KeyUp 18 1
                Delay 500
                Goto c
            Else
                Rem d
                VBSCall FindColorEx(418,294,950,796,"E8D9EA",1,1,x,y)
                If x>=0 and y>=0
                    MoveTo x y
                    Delay 100
                    KeyDown 18,1
                    Delay 100
                    LeftClick 1
                    Delay 100
                    KeyUp 18 1
                    Delay 500
                    Goto d
                Else
                    IfColor 1067,132,0F0B03,1
                        Delay 1000
                        KeyPress 87,1
                    Else
                        Goto s
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndIf