自動打怪.撿多樣道具.喝水.附加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 5000
    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 100
        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 100
            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 100
                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 100
                    Goto d
                Else
                    IfColor 1068,180,100c04,1
                        Delay 1000
                        KeyPress 87,1
                    Else
                        Goto s
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndIf
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 5000
    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 100
        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 100
            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 100
                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 100
                    Goto d
                Else
                    IfColor 1068,180,100c04,1
                        Delay 1000
                        KeyPress 87,1
                    Else
                        Goto s
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndIf

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 5000
    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 100
        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 100
            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 100
                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 100
                    Goto d
                Else
                    IfColor 1068,180,100c04,1
                        Delay 1000
                        KeyPress 87,1
                    Else
                        Goto s
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndIf

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 5000
    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 100
        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 100
            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 100
                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 100
                    Goto d
                Else
                    IfColor 1068,180,100c04,1
                        Delay 1000
                        KeyPress 87,1
                    Else
                        Goto s
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndIf

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 5000
    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 100
        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 100
            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 100
                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 100
                    Goto d
                Else
                    IfColor 1068,180,100c04,1
                        Delay 1000
                        KeyPress 87,1
                    Else
                        Goto s
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndIf
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 5000
    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 100
        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 100
            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 100
                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 100
                    Goto d
                Else
                    IfColor 1068,180,100c04,1
                        Delay 1000
                        KeyPress 87,1
                    Else
                        Goto s
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndIf

這個做完之後我覺得不錯用
把他PO上來,如果有大大覺得我要改進的地方請說
我會盡量修看看XD
YCT49B (武器的地方要抓色看你用的是什麼喔)

對不起0.0我電腦怪怪的一次爆出太多個了
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 5000
    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 100
        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 100
            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 100
                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 100
                    Goto d
                Else
                    IfColor 1068,180,100c04,1
                        Delay 1000
                        KeyPress 87,1
                    Else
                        Goto s
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndIf

YCT61B (@@我太不小心了)

没看懂你的脚本，D是换武器吧
哪一部分是喝水？？？？YCT62B

哪個部分是哪個部分阿 = = ?
看不懂

想請教一下~
撿錢的方式是???
可否簡單敘述一下!?

看不太懂
這個應該只能當作範例吧
來試試看-ˇ-

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 5000
    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 100
        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 100
            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 100
                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 100
                    Goto d
                Else
                    IfColor 1068,180,100c04,1
                        Delay 1000
                        KeyPress 87,1
                    Else
                        Goto s
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndIf
*****************************************************
//一開始先檢測血量是否足夠，不足就喝水再次檢測，足夠則進行下一個動作
//接下來按下CTRL鎖定怪物並且滑鼠連點使它自動打怪最後延遲5秒鐘
//開始檢測圖中是否有掉落A物品，有則撿取並且再次檢測是否有A物品，沒有則下一步動作
//開始撿測圖中是否有掉落B物品，有則撿取並且再次檢測是否有B物品，沒有則回到一開始動作
//重複檢查CD道具後，檢查武器是否損毀，是的話按下W否的話回到一開始動作


還有po別人的就說一下轉載
不要說你自己做的= =
裡面東西都沒更改過.......
此腳本轉載自小北鼻的瑪奇天地

wow真酷= =
不過好像是轉的喔
之前好像看過

YCT65B

這個我找蠻久了 3q大大 趕快複製用用看

GOOD耶!!!!!!!!!!!!!!!!!謝謝大大