槍手腳本

VBS dim x,x2,y,y2,f8,x3,x4,x5,x6
x=200
y=64
x2=134
y2=79
x3=490
x4=x3+166
x5=x3+140
VBSCall hp=GetPixelColor(x,y)
Rem 開始
Gosub HP
Gosub 找怪
Gosub 打怪
Gosub 被攻擊
Goto 開始
Sub 找怪
    IfColor x3,52,b86d1d,1
        Rem f8
        KeyPress 119,1
        Delay 1000
        f8=f8+1
        If f8=1
            Gosub 轉視角
        EndIf
    Else
        Gosub 被攻擊
    EndIf
EndIf
Return 找怪
Sub 打怪
    IfColor x3,52,b86d1d,1
        //找到怪物
        IfColor x4,52,0,1
            //而且沒人打
            For 4
                KeyPress 50,2
                Delay 1000
                KeyPress 52,2
                Delay 1
            EndFor
            IfColor x5,52,2929d4,0
                Goto f8
            EndIf
            f8=0
        EndIf
    EndIf
Return 打怪
Sub 被攻擊
    IfColor x3,52,b86d1d,0
        For 2
            KeyPress 52,1
            Delay 1
            KeyPress 56,2
            Delay 1
        EndFor
        IfColor x5,52,2929d4,0
            Goto f8
        EndIf
        Gosub 被攻擊
    EndIf
Return 被攻擊
Sub HP
    For 3
        IfColor x,y,hp,1
            KeyPress 51,1
            Delay 20000
        Else
            Gosub 被攻擊
        EndIf
    EndFor
    Gosub 打怪
Return HP
Sub 轉視角
    MoveTo 518,439
    RightDown 1
    Delay 500
    MoveR 250,0
    Delay 500
    RightUp 1
    f8=0
Return 轉視角

按鈕2放精確攻擊
按鈕4放攻擊
按鈕3放補血品
按鈕8放槍柄攻擊(反擊近身怪物用)
本人沒有測試過
本人年齡只有12,寫不了很好的腳本
如有好的槍手腳本請說給我
只可以打被動怪,每次打一隻,2隻會死...yociexp192.gif
這是修改了的
請使用完本腳本的人說一逆本腳本的意見謝謝

[ 本帖最後由 raring 於 2008-3-14 18:56 編輯 ]

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

感謝大大的分享  研究看看

d大大 謝謝分享喔  恩恩