我最近用的腳本 (近戰)

VBS K=0
VBS x=0
//---------------------宣告各種顏色-------------------------
VBS hp="141460"
//自己空血血條
VBS s1="E4F3F8"
//怪物臉(白)
VBS s2="5697F8"
//怪物臉(橘)
VBS s3="3A38F8"
//怪物臉(紅)
VBS q7="4731B9"
//滿血怪血條
VBS v1="F27B8E"
//Combo鑽石(藍)
VBS v2="A9EDFF"
//Combo鑽石(黃)
VBS v3="8EC97A"
//Combo鑽石(綠)
VBS v4="5382FD"
//Combo鑽石(紅)
VBS v5="39A0D8"
//Combo橘
VBS v6="BBF6FF"
//Combo金
VBS q15="00207C"
//對話框左^
VBS q16="001F7B"
//對話框右^
VBS q17=1
//Combo開關
VBS f1="2C75CB"
//快捷鍵F1底線顏色
VBS f2="266EC6"
//快捷鍵F2底線顏色
VBS g1="7F2632"
//徵兆
VBS g2="9084DC"
//活絡第2排F5
VBS g3="FFFFFF"
//活靈
VBS g4="BFD0FF"
//猛擊
VBS g5="802733"
//預知
VBS g6="826FEF"
//強經
VBS g7="F2FEE8"
//凝神
VBS g8="0E2000"
//舉盾
VBS g9="4455C7"
//聚精
//---------------------------------------程式開始------------------------------------
VBSCall Call FindCenterColor(400,300,400,800,f1,Fx,Fy)
If q17=1
    Rem 找COMBO
    VBSCall Call FindCenterColor(374,200,374,768,q15,CX,CY)
    If CX>=0 and CY>=0
        Delay 10
        VBSCall Call FindCenterColor(11,300,11,CY-3,q16,intCX,intCY)
        If intCX>=0 and intCY>=0
            VBSCall Call SetCursorPos(intCX,intCY)
            Delay 100
        Else
            VBSCall Call SetCursorPos(CX,CY)
            Delay 100
            LeftClick 1
            Delay 1000
            Goto 找COMBO
        EndIf
    Else
        VBSCall Call FindCenterColor(374,200,374,768,q16,CX,CY)
        Delay 10
        VBSCall Call FindCenterColor(11,300,11,CY-3,q16,intCX,intCY)
        If intCX>=0 and intCY>=0
            VBSCall Call SetCursorPos(intCX,intCY)
            Delay 100
        Else
            VBSCall Call SetCursorPos(CX,CY)
            Delay 100
            LeftClick 1
            Delay 1000
            Goto 找COMBO
        EndIf
    EndIf
EndIf
Rem 程式開始
IfColor 495 430 2d98ea 0
    MoveTo 495 430
    LeftClick 1
EndIf
IfColor 495 400 2d98ea 0
    MoveTo 495 400
    LeftClick 1
EndIf
//畫面移動
KeyDown 17 1
KeyDown 34 1
Delay 500
KeyUp 34 1
KeyUp 17 1
//點到非怪物或卡點.自動放棄
If x=4
    KeyPress 27 1
EndIf
If x>=30
    VBS x=0
    LeftClick 1
    KeyPress 27 1
EndIf
//------------------------------------抓點部份--------------------------------------
//常駐技能位子
VBSCall Call GetCursorPos(177,45)
k1=GetPixelColor(177,45)
VBSCall Call GetCursorPos(201,45)
k2=GetPixelColor(201,45)
VBSCall Call GetCursorPos(225,45)
k3=GetPixelColor(225,45)
VBSCall Call GetCursorPos(249,45)
k4=GetPixelColor(249,45)
VBSCall Call GetCursorPos(273,45)
k5=GetPixelColor(273,45)
VBSCall Call GetCursorPos(297,45)
k6=GetPixelColor(297,45)
VBSCall Call GetCursorPos(321,45)
k7=GetPixelColor(321,45)
/-------------------------------------------------------------------------------------------
Gosub 補血
Rem 打怪
KeyDown 18 1
KeyPress 65 1
Delay 200
KeyPress 65 1
KeyUp 18 1
Delay 200
Gosub 補血
//怪臉位子
VBSCall Call GetCursorPos(454,112)
q1=GetPixelColor(454,112)
VBSCall Call GetCursorPos(457,112)
q2=GetPixelColor(457,112)
If q1=s1 or q1=s2 or q1=s3 or q2=s1 or q2=s2 or q2=s3
    Gosub 打怪技能
    Gosub 補血
Else
    VBS x=0
    KeyDown 18 1
    KeyPress 70 1
    Delay 100
    KeyPress 70 1
    KeyUp 18 1
    Delay 200
    //怪臉位子
    VBSCall Call GetCursorPos(454,112)
    q1=GetPixelColor(454,112)
    VBSCall Call GetCursorPos(457,112)
    q2=GetPixelColor(457,112)
    If q1=s1 or q1=s2 or q1=s3 or q2=s1 or q2=s2 or q2=s3
        Gosub 打怪技能
        Gosub 補血
    Else
        Gosub 補血
        Gosub 活靈
        Gosub 活絡
        VBS x=0
        Gosub 休息
        VBSCall Call FindCenterColor(10,190,1000,560,q7,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX-55,intY+30)
            Delay 10
            LeftClick 1
            Delay 50
        Else
            VBSCall Call FindCenterColor(180,60,870,560,q7,intX,intY)
            If intX>=0 and intY>=0
                VBSCall Call SetCursorPos(intX-55,intY+15)
                Delay 10
                LeftClick 1
                Delay 50
            EndIf
        EndIf
    EndIf
EndIf
Rem 程式結尾
Goto 程式開始
Sub 補血
    Gosub 徵兆
    Gosub f7
    Gosub f8
    Gosub 升級
    Gosub 死
    Rem 補1
    IfColor 110 58 (hp) 0
        KeyDown 17 1
        KeyPress 115 1
        Delay 100
        KeyUp 17 1
        Delay 100
        KeyDown 18 1
        Delay 100
        KeyPress 49 1
        Delay 100
        KeyUp 18 1
        Delay 100
        Goto 補1
    EndIf
Return 補血
Sub 打怪技能
    VBS x=x+1
    Gosub combo
    Gosub F1
    Gosub F4
    Gosub F3
Return 打怪技能
Sub F1
    If x<4
        IfColor 390 Fy (f1) 0
            KeyPress 112 1
            Delay 500
        EndIf
    EndIf
Return F1
Sub F4
    IfColor 570 136 141460 0
        IfColor 90 70 141460 1
            IfColor 490 Fy (f2) 0
                KeyPress 115 1
                Delay 500
            EndIf
        EndIf
    EndIf
Return F4
Sub F3
    IfColor 570 136 141460 0
        IfColor 90 70 141460 1
            IfColor 460 Fy (f1) 0
                KeyPress 114 1
                Delay 500
            EndIf
        EndIf
    EndIf
Return F3
Gosub 偷
Sub 偷
    IfColor 509 136 141460 0
        IfColor 429 Fy (f2) 0
            KeyPress 113 1
        Else
        EndIf
    Else
    EndIf
Return 偷
Sub 休息
    IfColor 75 70 (hp) 0
        Delay 500
        IfColor 75 70 (hp) 0
            Rem 休
            Gosub 補血
            KeyDown 17 1
            KeyPress 119 1
            KeyUp 17 1
            Delay 5000
            KeyDown 18 1
            KeyPress 70 1
            KeyUp 18 1
            Delay 1000
            //怪臉位子
            VBSCall Call GetCursorPos(454,112)
            q1=GetPixelColor(454,112)
            VBSCall Call GetCursorPos(457,112)
            q2=GetPixelColor(457,112)
            If q1=s1 or q1=s2 or q1=s3 or q2=s1 or q2=s2 or q2=s3
                Goto 程式開始
            EndIf
            IfColor 110 70 (hp) 1
                Goto 程式開始
            EndIf
            Goto 休
        EndIf
    EndIf
Return 休息
Sub 活絡
    If k1<>g2 and k2<>g2 and k3<>g2 and k4<>g2 and k5<>g2 and k6<>g2 and k7<>g2
        KeyPress 116 1
        Delay 200
        KeyDown 18 1
        Delay 100
        KeyPress 49 1
        Delay 100
        KeyUp 18 1
        Delay 3000
    EndIf
Return 活絡
Sub 活靈
    If k1<>g3 and k2<>g3 and k3<>g3 and k4<>g3 and k5<>g3 and k6<>g3 and k7<>g3
        IfColor 552 Fy (f2) 0
            KeyPress 117 1
            Delay 5000
        EndIf
    EndIf
Return 活靈

Sub 徵兆
    k1=GetPixelColor(177,45)
    k2=GetPixelColor(201,45)
    k3=GetPixelColor(225,45)
    k4=GetPixelColor(249,45)
    k5=GetPixelColor(273,45)
    k6=GetPixelColor(297,45)
    k7=GetPixelColor(321,45)
    If k1<>g1 and k2<>g1 and k3<>g1 and k4<>g1 and k5<>g1 and k6<>g1 and k7<>g1 and k1<>g5 and k2<>g5 and k3<>g5 and k4<>g5 and k5<>g5 and k6<>g5 and k7<>g5
        Delay 100
        IfColor 680 Fy (f2) 0
            KeyPress 121 1
            Delay 4000
        EndIf
        k1=GetPixelColor(177,45)
        k2=GetPixelColor(201,45)
        k3=GetPixelColor(225,45)
        k4=GetPixelColor(249,45)
        k5=GetPixelColor(273,45)
        k6=GetPixelColor(297,45)
        k7=GetPixelColor(321,45)
        If k1<>g1 and k2<>g1 and k3<>g1 and k4<>g1 and k5<>g1 and k6<>g1 and k7<>g1 and k1<>g5 and k2<>g5 and k3<>g5 and k4<>g5 and k5<>g5 and k6<>g5 and k7<>g5
            VBS K=K+1
            If K>75
                IfColor 648 Fy (f1) 0
                    VBS K=0
                    KeyPress 120 1
                    Delay 3000
                EndIf
            EndIf
        EndIf
    EndIf
Return 徵兆
Sub 舉盾
    If k1<>g8 and k2<>g8 and k3<>g8 and k4<>g8 and k5<>g8 and k6<>g8 and k7<>g8
        IfColor 583 Fy (f1) 0
            KeyPress 118 1
            Delay 500
        EndIf
    EndIf
Return 舉盾
Sub f7
    IfColor 95 70 (hp) 0
        IfColor 585 Fy (f1) 0
            KeyPress 118 1
            Delay 500
        EndIf
    EndIf
Return f7
Sub f8
    IfColor 626 Fy (f2) 0
        KeyPress 119 1
        Delay 1000
    EndIf
Return f8
Sub combo
    IfColor 45 intCY-11 (v5) 0
        IfColor 139 intCY-15 (v1) 0
            IfColor 169 intCY-15 (v2) 0
                IfColor 199 intCY-15 (v3) 0
                    IfColor 30 intCY-14 (v4) 0
                        KeyDown 17 1
                        KeyPress 87 1
                        KeyUp 17 1
                    Else
                    EndIf
                Else
                    IfColor 30 intCY-14 (v3) 0
                        KeyDown 17 1
                        KeyPress 87 1
                        KeyUp 17 1
                    Else
                    EndIf
                EndIf
            Else
                IfColor 30 intCY-14 (v2) 0
                    KeyDown 17 1
                    KeyPress 87 1
                    KeyUp 17 1
                Else
                EndIf
            EndIf
        Else
            IfColor 30 intCY-14 (v1) 0
                KeyDown 17 1
                KeyPress 87 1
                KeyUp 17 1
            Else
            EndIf
        EndIf
    Else
        IfColor 45 intCY-11 (v6) 0
            KeyDown 17 1
            KeyPress 87 1
            KeyUp 17 1
        Else
        EndIf
    EndIf
Return combo
Sub 死
    IfColor 155 83 ffffff 1
        MoveTo 155 61
        LeftClick 1
    Else
    EndIf
    IfColor 58 58 141460 0
        WaitKey
    EndScript
EndIf
Return 死
Sub 升級
    IfColor 151 40 f6f6f8 0
        MoveTo 151 40
        LeftClick 1
    Else
    EndIf
    IfColor 151 40 ccccd6 0
        MoveTo 151 40
        LeftClick 1
    Else
    EndIf
    IfColor 151 40 f5f6f7 0
        MoveTo 151 40
        LeftClick 1
    Else
    EndIf
    Gosub 敏
Return 升級
Sub 耐
    IfColor 137 378 317dff 0
        MoveTo 137 382
        LeftClick 1
    Else
    EndIf
Return 耐
Sub 敏
    IfColor 134 353 317dff 0
        MoveTo 136 346
        LeftClick 1
    Else
        IfColor 136 346 317dff 0
            MoveTo 136 346
            LeftClick 1
        Else
        EndIf
    EndIf
Return 敏

不錯~~幫我升了兩級

會將游標一直往左上移過去
眉作用

這個是按鍵精靈的程式腳本..
上網抓按鍵精靈之後直接套入即可

不會用按鍵精靈可以貼一下教學嗎?yociexp85.gif