騎士 簡單掛 (按鍵精靈)

VBS Dim addhp,addnmp,addhpT,addnpT
UserVar addhp=35 血量<addhp%時，自動吃紅。
UserVar addmp=15 藍量<amdhp%時，自動吃藍。
UserVar addhpT=500 補血延時時間（毫秒）
UserVar addmpT=500 補藍延時時間（毫秒）
//=
VBS Dim chpColor,cmpColor,mhpColor,chplx,chpnx,chprx,chpy,mhplx,mhpnx,mhprx,mhpy,cmpy,cmplx,cmpnx,cmprx
//x-->X座標, y-->y座標, l -->左邊, r-->右邊, n-->中間, c-->角色, m-->怪物 hp-->紅色,mp-->藍或魔
//chpColor:角色紅血顏色，cmpColor:角色魔顏色，怪物紅顏色mreColor
//chplx代表角色血條左邊X座標       chpnx代表角色血條中間x座標
VBS Dim ztjnt,ztjn,aniSki3,keyF2,bour,rota,sk1,sk2
ztjnt=20
Delay 1000
rota=now

//=
//角色血條顏色
chpColor="2610E0"
//角色藍顏色
cmpColor="EB8400"
//怪物血條顏色
mhpColor="07008C"
////////////////
//角色血條最左邊X座標值
chplx=11
//角色血條最右邊X座標值
chprx=148
//角色血條中間X座標值
chpnx=75
//角色血條Y座標值
chpy=34
///////////////
//怪物血條最左邊X座標值
mhplx=397
//怪物血條最右邊X座標值
mhprx=626
//怪物血條中間X座標值
mhpnx=497
//怪物血條Y座標值
mhpy=41
///////////////
//角色藍條最左邊X座標值
cmplx=11
//角色藍條最右邊X座標值
cmprx=148
//角色藍條中間X座標值
cmpnx=75
//角色藍條Y座標值
cmpy=50
//=
//=
Rem 開始掛機
Rem 0
Gosub 打坐
Rem 滿血
//Gosub 狀態技能
Rem 1
//Gosub rotate
Gosub 尋怪
Rem 2
Gosub 判斷攻擊方式
Rem 3
//Delay 100
Gosub 確認無他怪
Rem 4
//Gosub 揀物
Goto 開始掛機
//=
//=
Sub 打坐
    Gosub 打坐遇怪反擊
    //    IfColor chpnx,chpy,chpColor,1
    //chpnx 角色血條中間X座標＝血不夠多準備打坐
    //chpy  角色血條Y座標
    //chpColor  角色血條顏色
    // chpColor,1 非角色血條顏色
    IfColor chpnx,chpy,chpColor,1
        //IfColor 76,34,2610E0,1  血低於多少打坐
        //黑血
        Delay 100
        KeyPress 83,1
        //F9
        Delay 1000
        Rem sitre
        Delay 500
        Gosub 打坐遇怪反擊
        //    IfColor chprx,chpy,chpColor,0
        //chprx 角色血條右邊X座標＝滿血位置
        //chpy  角色血條Y座標
        //chpColor  角色血條顏色
        //IfColor 148,34,2610E0,0 滿血判斷
        IfColor chprx,chpy,chpColor,0
            Delay 32
            KeyPress 120,1
            Delay 1000
            Goto 滿血
        EndIf
        Delay 1000
        Goto sitre
    Else
        Delay 32
    EndIf
Return
//=
Sub 打坐遇怪反擊
    //怪物血條左邊X座標mhplx  被怪鎖定
    //IfColor mhplx,mhpy,mhpColor,0
    //mhpCloro =#07008c  怪物紅血顏色
    //IfColor 397,41,07008C,0 怪有最低血量
    IfColor mhplx,mhpy,mhpColor,0
        KeyPress 83,1
        //F9佔起
        Delay 200
        Goto 攻擊
    EndIf
Return
//=
Sub 尋怪
    //Rem 開始掛機
    //怪物血條左邊X座標mhplx
    //IfColor mhplx,mhpy,mhpColor,0
    //mhpcloro =#07008c  怪物紅血顏色
    // IfColor 397,41,07008C,0  怪有最低血量
    IfColor mhplx,mhpy,mhpColor,0
        Delay 32
        //怪物血條右邊X座標mhprx
        //怪物紅血Y座標mhpy
        //IfColor mhprx,mhpy,mhpColor,0
        //mhpCloro =#07008c  怪物紅血顏色
        //IfColor 625,41,07008C,1  怪物血不是滿的，避免搶怪
        IfColor mhprx,mhpy,mhpColor,1
            KeyPress 9,1
        EndIf
        Goto 2
    Else
        KeyPress 9,1
        Delay 200
    EndIf
Return
//=
Sub 判斷攻擊方式
    //0相等1不等
    //怪物血條右邊X座標mhprx
    //怪物紅血Y座標mhpy
    //IfColor mhprx,mhpy,mhpColor,0
    //mhpCloro =#07008c  怪物紅血顏色
    // IfColor 625,41,07008C,0  怪物滿血
    IfColor mhprx,mhpy,mhpColor,0
        Delay 450
        bour=now
        Goto 攻擊
    Else
        Delay 450
        Goto 1
        //尋怪
        //Goto 開始掛機
    EndIf
Return
//=
Sub 確認無他怪
    //怪物血條左邊X座標mhlx  被怪鎖定
    //IfColor mhplx,mhpy,mhpColor,0
    //mhpCloro =#07008c  怪物紅血顏色
    //IfColor 397,41,07008C,0     怪有最低血量
    IfColor mhplx,mhpy,mhpColor,0
        if jobKey<117
        KeyPress 49,1
        Delay 1000
        KeyPress 50,1
        Delay 800
        else
        KeyPress 50,1
        Delay 800
        endif
        Goto 小護士
        
    Else
        Goto 4
    EndIf
Return
//=
Sub 防呆裝置
    If DateDiff("s",bour,Now) >=10
        Delay 100
        //怪物血條右邊X座標mhprx  表怪物滿血
        //怪物紅血Y座標mhpy
        //IfColor mhprx,mhpy,mhpColor,0
        //mhpcloro =#07008c  怪物紅血顏色
        //IfColor 625,41,07008C,0 怪物滿血
        IfColor mhprx,mhpy,mhpColor,0
            KeyDown 83,1
            Delay 500
            KeyUp 83,1
            KeyPress 9,1
            Delay 200
            // Gosub 打坐
            Goto 2
        EndIf
    EndIf
Return
//=
Rem 攻擊
if jobKey<117
    KeyPress 49,1
        Delay 1000
    endif

Gosub 攻擊技能sk1
Gosub 攻擊技能sk2
if jobKey>=117
           IfColor 30,cmpy,cmpColor,1
        KeyPress 49,1
        Delay 1000
        endif
    endif   
Goto 小護士
Rem 檢測攻擊目標是否死亡
Gosub 防呆裝置
//怪物血條左邊點mhplx
//IfColor mhplx,mhpy,mhpColor,0
//mhpcloro =#07008C
//IfColor 397,41,07008C,0   怪有最低血量
IfColor mhplx,mhpy,mhpColor,0
    Delay 450
    Goto 攻擊
Else
    Delay 600
    Goto 3
    //3 揀物
EndIf

//=
//數字3  紅，數字4  藍
//在遊戲中利用按鍵抓點抓色工具找到hplx,hprx,hpy,color所對應的值並替換。
Rem 小護士
Delay 250
//循環小延時，防止出現CPU使用率過高，腳本卡
Rem 補紅
//IfColor addhp/100*(148-11)+11,34,2610E0,1
IfColor addhp/100*(chprx-chplx)+chplx,chpy,chpColor,1
    //hprx=血條在屏幕最右端x坐標104，hplx=血條在屏幕最左端y坐標393，
    //hpy=hplx,hprx在血條中的同一縱坐標。
    //IfColor addhp/100*(chprx-chplx)+chplx,chpy,chpColor,1
    KeyPress 112,1
    //按下補血快捷?
    Delay addhpT
    //補血延時
Else
    //Goto 檢測攻擊目標是否死亡
    //Delay 100
    Goto 補藍
EndIf
Rem 補藍
IfColor addmp/100*(cmprx-cmplx)+cmplx,cmpy,cmpColor,1
    //IfColor addmp/100*(148-11)+11,50,EB8400,1
    //mprx=藍條在屏幕最右端坐標，mplx=藍條在屏幕最左端坐標，
    //mpy=mplx,mprx在藍條中的同一縱坐標。
    //IfColor addmp/100*(cmprx-cmplx)+cmplx,cmpy,cmpColor,1
    KeyPress 113,1
    //按下補藍快捷鍵4
    Delay addmpT
    //補藍延時
Else
    Goto 檢測攻擊目標是否死亡
EndIf
//=
Sub 狀態技能
    If DateDiff("s",ztjn,Now) >= ztjnt
    IfColor chpnx-2,chpy,chpColor,0
        Delay 500
        KeyPress 84,1
        Delay 1000
        VBS ztjn=now
    endif
   
    EndIf
Return
//=
Sub rotate
    If DateDiff("s",rota,Now) >= 120
        RightDown 1                                    
        Delay 1000
        MoveR -200,0                                 
        Delay 1000
        MoveR -200,0                                
        Delay 1000
        RightUp 1
        rota=now
    EndIf
Return
//=
Sub 攻擊技能sk1
    //IfColor 76,50,EB8400,0
    If DateDiff("s",sk1,Now) >= 3
        Delay 200
        KeyPress 50,1
        Delay 1000
        VBS sk1=now
    EndIf
    // EndIf
Return
//=
Sub 攻擊技能sk2
    If DateDiff("s",sk2,Now) >= 3
        Delay 200
        KeyPress 51,1
        Delay 500
        VBS sk2=now
    Else
        Delay 32
    EndIf
Return
//=

我找了好久的說
謝謝這位大大

謝謝你的分享
感動><yociexp170.gif

有點麻煩....不過還是感謝大大