(腳本大師)腳本

............

謝謝大大無私的分享
本文章轉自外掛聯合國http://www.wgun.net

感謝大大的提供....yociexp195.gif

給我試試看吧 謝謝囉 大哥
本文章轉自外掛聯合國http://www.wgun.net

UserVar HPvar=DropList{Close:0|20%:1|40%:2|60%:3|80%:4}=1 補紅

UserVar MPvar=DropList{Close:0|20%:1|40%:2|60%:3|80%:4}=1 補藍

Rem start

Gosub Reject

// 搜尋怪物

VBS x0=500:n=1:y0=400:x=100

While x<800

    VBS x=x0+4*(cos(n)+n*sin(n))

    VBS y=y0+3*(sin(n)-n*cos(n))

    MoveTo x y

    Rem KillMon

    VBSCall Shape=GetCursorShape(0)

    If Shape=978197372

        LeftClick 1

        Go_Time=(Abs(x-500)/100)*1000

        KeyPress 32,1

        Delay Go_Time

        Gosub HP

        Gosub MP

        Goto start

    ElseIf Shape=0

        LeftClick 1

        Go_Time=(Abs(x-500)/100)*1000

        Delay Go_Time

        Goto KillMon

    EndIf

    Delay 10

    VBS n=n+0.1

EndFor

// 無怪物時，轉方向搜尋

For 5

    MoveTo 500,400

    RightDown 1

    Delay 40

    MoveR 200,0

    Delay 40

    RightUp 1

EndFor

Goto start

// 偵測HP，補紅

Sub HP

    If HPvar=1

        // 20%

        IfColor 37,35,50606,2

            KeyPress 49,1

            Delay 1800

        EndIf

    ElseIf HPvar=2

        // 40%

        IfColor 70,35,171104,2

            KeyPress 49,1

            Delay 1800

        EndIf

    ElseIf HPvar=3

        // 60%

        IfColor 103,35,90a08,2

            KeyPress 49,1

            Delay 1800

        EndIf

    ElseIf HPvar=4

        // 80%

        IfColor 136,35,80c0b,2

            KeyPress 49,1

            Delay 1800

        EndIf

    EndIf

Return HP

// 偵測MP，補藍

Sub MP

    If MPvar=1

        // 20%

        IfColor 37,60,9120f,2

            KeyPress 50,1

            Delay 1800

        EndIf

    ElseIf MPvar=2

        // 40%

        IfColor 70,60,282a1e,2

            KeyPress 50,1

            Delay 1800

        EndIf

    ElseIf MPvar=3

        // 60%

        IfColor 103,60,9140f,2

            KeyPress 50,1

            Delay 1800

        EndIf

    ElseIf MPvar=4

        // 80%

        IfColor 136,60,f130b,2

            KeyPress 50,1

            Delay 1800

        EndIf

    EndIf

Return MP

// 拒絕組隊

Sub Reject

    IfColor 563,419,cecece,0

        IfColor 563,438,848484,0

            IfColor 609,428,fefefe,0

                MoveTo 609,428.

                Delay 100

                LeftClick 1

                Delay 100

            EndIf

        EndIf

    EndIf

Return Reject

3030303033030