超猛按鍵精靈腳本

[Script]
VBS dim x,x2,y,y2,tab,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)
VBSCall mp=GetPixelColor(x2,y2)
Rem 開始
Gosub HP
Gosub MP
Gosub 找怪
Gosub 打怪
Gosub 被攻擊
Goto 開始
Sub 找怪
    IfColor x3,52,b86d1d,1
        Rem tab
        KeyPress 9,1
        Delay 1000
        tab=tab+1
        If tab=3
            Gosub 轉視角
        EndIf
    Else
        Gosub 被攻擊
    EndIf
EndIf
Return 找怪
Sub 打怪
    IfColor x3,52,b86d1d,1
        //找到怪物
        IfColor x4,52,0,1
            //而且沒人打
            For 4
                KeyPress 52,2
                Delay 1000
            EndFor
            IfColor x5,52,2929d4,0
                Goto tab
            EndIf
            tab=0
        EndIf
    EndIf
Return 打怪
Sub 被攻擊
    IfColor x3,52,b86d1d,0
        For 2
            KeyPress 52,1
            Delay 1000
        EndFor
        IfColor x5,52,2929d4,0
            Goto tab
        EndIf
        Gosub 被攻擊
    EndIf
Return 被攻擊
Sub HP
    IfColor x,y,hp,1
        KeyDown 17,1
        KeyPress 187,1
        KeyUp 17,1
        Delay 2000
        KeyPress 53,5
        Delay 1000
        For 3
            Delay 1000
            Gosub 被攻擊
        EndFor
        Rem 補血
        KeyPress 112,1
        KeyDown 17,1
        KeyPress 50,1
        KeyUp 17,1
        Delay 2000
        //補血延時
        IfColor 220,y,hp,1
            Goto 補血
        EndIf
        KeyPress 27,1
        Delay 1000
    EndIf
Return HP
Sub MP
    IfColor x2,y2,mp,1
        For 3
            Delay 1000
            Gosub 被攻擊
        EndFor
        KeyDown 17,1
        KeyPress 52,1
        KeyUp 17,1
        Delay 20000
    EndIf
Return MP
Sub 轉視角
    MoveTo 518,439
    RightDown 1
    Delay 500
    MoveR 250,0
    Delay 500
    RightUp 1
    tab=0
Return 轉視角

趕緊來去試試看
謝謝大大囉

yociexp170.gif