＃2仙魔道腳本 加註解 請反應是否反正常可用 強化了＃1版0318再次修訂

謝謝大大 那麼分享  謝謝你喔

這是案件精靈的媽??

不太清楚耶

感謝提共

一在更新 就越好 ^^~

//********************
//環境 1024*768
//全螢幕
//遊戲預設按鍵1  攻擊
//遊戲預設按鍵2  技能
//F1 補紅
//F2 補藍
//遊戲預設F9 休息
//遊戲預設TAB 尋怪
//********************
//防呆部份有待改進，請大家幫忙改一改
//裡面有相當多不必要的東西，不影響執行，可隨意刪除"//"之後都可刪

//********************


VBS Dim addhp,addnmp,addhpT,addnpT
UserVar addhp=30 血量<addhp%時，自動吃紅。
UserVar addmp=15 藍量<amdhp%時，自動吃藍。
UserVar addhpT=1000 補血延時時間（毫秒）
UserVar addmpT=1000 補藍延時時間（毫秒）
VBS Dim charRed,charBlue,monRed,redLeft.redMiddle,redRight,monLeft.monMiddle,monRight
VBS Dim ztjnt,ztjn,aniSki3,keyF2,bour,rota,monX,sk1,sk2
ztjnt=30
Delay 1000
rota=now
monX=666
//KeyPress 115,1
ztjn=now
//Delay 2200
//****************************************************************
//****************************************************************
Rem 開始掛機
Rem 0
Gosub 打坐
Rem 滿血
Gosub 狀態技能
Rem 1
//Gosub rotate
Gosub 尋怪
Rem 2
Gosub 判斷攻擊方式
Rem 3
//Delay 100
Gosub 確認無他怪
Rem 4
//Gosub 揀物
Goto 開始掛機
Sub 確認無他怪
    IfColor 397,41,07008C,0
        KeyPress 49,1
        Delay 800
        KeyPress 50,1
        Delay 800
        Goto 小護士
        Goto 3
    Else
        Goto 4
    EndIf
Return
//****************************************************************
Sub 防呆裝置
    If DateDiff("s",bour,Now) >=10
        Delay 100
        IfColor 625,41,07008C,0
            //IfColor 950,26,2929D4,0
            KeyDown 83,1
            Delay 200
            KeyUp 83,1
            KeyPress 9,1
            Delay 200
            // Gosub 打坐
            Goto 2
        EndIf
    EndIf
Return
//****************************************************************
Rem 攻擊
KeyPressH 49,1
Delay 800
KeyPressH 50,1
Delay 1000
//Gosub 攻擊技能sk1
//Gosub 攻擊技能sk1
//Gosub 攻擊技能sk2
Goto 小護士
Rem 檢測攻擊目標是否死亡
Gosub 防呆裝置
IfColor 397,41,07008C,0
    //IfColor 839,26,2929D4,0
    Delay 450
    Goto 攻擊
Else
    Delay 600
    Goto 3
    //3 揀物
EndIf
//****************************************************************
Sub 揀物
    KeyPress 50,2
    Delay 500
    KeyPress 50,2
    Delay 500
    KeyPress 50,2
    Delay 500
Return
//****************************************************************
//數字3  紅，數字4  藍
//在遊戲中利用按鍵抓點抓色工具找到hplx,hprx,hpy,color所對應的值並替換。
Rem 小護士
Delay 250
//循環小延時，防止出現CPU使用率過高，腳本卡
Rem 補紅
IfColor addhp/100*(148-11)+11,34,2610E0,1
    //hprx=血條在屏幕最右端x坐標104，hplx=血條在屏幕最左端y坐標393，
    //hpy=hplx,hprx在血條中的同一縱坐標。
    //addhp/100*(hprx216-hplx104)+hplx104,hpy38,color
    KeyPress 112,1
    //按下補血快捷?
    Delay addhpT
    //補血延時
Else
    Goto 檢測攻擊目標是否死亡
    //Delay 100
    //Goto 補藍
EndIf
Rem 補藍
IfColor addmp/100*(148-11)+11,50,EB8400,1
    //mprx=藍條在屏幕最右端坐標，mplx=藍條在屏幕最左端坐標，
    //mpy=mplx,mprx在藍條中的同一縱坐標。
    //addmp/100*(mprx-mplx)+mplx,mpy,color
    KeyPress 113,1
    //按下補藍快捷鍵4
    Delay addmpT
    //補藍延時
Else
    Goto 檢測攻擊目標是否死亡
EndIf
//////////////////////////////////
Sub 尋怪
    //Rem 開始掛機
    IfColor 397,41,07008C,0
        // monLeft,monY monRed
        Delay 32
        IfColor 625,41,07008C,1
            KeyPress 9,1
        EndIf
        Goto 2
    Else
        KeyPress 9,1
        Delay 200
    EndIf
Return
////////////////////////////////////
Sub 判斷攻擊方式
    //0相等1不等
    IfColor 625,41,07008C,0
        //   IfColor monX,19,2020DA,0
        // IfColor 900,26,2929D4,0
        Delay 450
        // IfColor 1040,26,2929D4,0
        bour=now
        Goto 攻擊
        // Else
        //   Goto 1
        // EndIf
    Else
        Delay 450
        //Goto 攻擊
        Goto 1
        //尋怪
        //Goto 開始掛機
    EndIf
Return
//===============================================================
Sub 狀態技能
    If DateDiff("s",ztjn,Now) >= ztjnt
        Delay 500
        KeyPress 84,1
        Delay 1000
        VBS ztjn=now
    Else
        Delay 32
    EndIf
Return
//================
Sub 打坐
    Gosub 打坐遇怪反擊
    // IfColor 95/100*(175-20)+20,30 1000F7,0
    //       Goto 滿血
    //   EndIf
    IfColor 76,34,2610E0,1
        //黑血
        //IfColor 78/100*(175-20)+20,30 1000F7,1
        //KeyPress 123,1
        Delay 100
        KeyPress 120,1
        Delay 1000
        Rem sitre
        Delay 500
        //  Delay 50
        // IfColor 397,41,07008C,0
        Gosub 打坐遇怪反擊
        IfColor 148,34,2610E0,0
            Delay 32
            KeyPress 120,1
            Delay 1000
            Goto 滿血
        EndIf
        Delay 1000
        Goto sitre
    Else
        Delay 32
    EndIf
Return
//=========================================================
//=========================================================
Sub 打坐遇怪反擊
    IfColor 397,41,07008C,0
        //  IfColor monX,19,2020DA,0
        //    IfColor 839,26,2929D4,0
        //    IfColor 640,27,1000F7,0
        KeyPress 120,1
        Delay 350
        Goto 攻擊
    EndIf
Return
////////////////////////////////////
//
Sub rotate
    If DateDiff("s",rota,Now) >= 120
        RightDown 1                                    
        Delay 500
        MoveR -200,0                                 
        Delay 500
        RightUp 1
        rota=now
    EndIf
Return
Sub 攻擊技能sk1
    //IfColor 76,50,EB8400,0
    If DateDiff("s",sk1,Now) >= 4
        Delay 200
        KeyPress 50,1
        Delay 1000
        VBS sk1=now
    EndIf
    // EndIf
Return
Sub 攻擊技能sk2
    If DateDiff("s",sk2,Now) >= 7
        Delay 200
        KeyPress 51,1
        Delay 500
        VBS sk2=now
    Else
        Delay 32
    EndIf
Return

0.0 這是用vb寫的 還是??

最近在學vb 剛好看到 大大所提供的 小掛

謝嚕