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

gooddddddddd

感謝嚕
終於可以掛囉

//環境 1024*768
//全螢幕
//遊戲預設按鍵1  攻擊
//遊戲預設按鍵2  每3秒技能
//遊戲預設按鍵3  每3秒技能
//按鍵45789技能
//F7放鈴鐺 在自己主要職業的武器放在F4 F5 F6 相對位置 會視情形鈴鐺補補
//仙魔集滿 自動仙魔化
//F1 補紅
//F2 補藍
//遊戲預設F9 休息
//遊戲預設TAB 尋怪

UserVar jobKey=DropList{劍客:115|槍手:116|拿馬尾:117|拿鈴鐺:118}=0 主角的職業
UserVar noteam=1 1拒組隊 0 看看再說
UserVar addhp=25 血量<addhp%時，自動吃紅。
UserVar addmp=20 藍量<amdhp%時，自動吃藍。
UserVar addhpT=500 補血延時時間（毫秒）
UserVar addmpT=500 補藍延時時間（毫秒）
UserVar regen=DropList{打坐回紅:0|打坐回藍:1}=0 打坐回滿攻擊
UserVar key4=DropList{不使用4放技能:0|4放技能:1}=0 數字4技能開啟，預設關閉
UserVar key5=DropList{不使用5放技能:0|5放技能:1}=0 數字5技能開啟，預設關閉
UserVar key7=DropList{不使用7放技能:0|7放技能:1}=0 數字7技能開啟，預設關閉
UserVar key8=600 數字8狀態技能有效時間（秒）
UserVar key9=600 數字9狀態技能有效時間（秒）
//=
VBS Dim addhp,addnmp,addhpT,addnpT
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,,sk3,sk4,sk5,sk7,sk8,sk9
//ztjnt=300
Delay 1000
rota=now
KeyPress 84,1
ztjn=now
ztjnt=20

//=
//角色血條顏色
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 銅鈴補紅
Gosub 打坐
Rem 滿血
If key8<>0
        Gosub 攻擊技能sk8
  EndIf
     If key9=<>0
        Gosub 攻擊技能sk9
    EndIf  
   
Rem 1

Gosub 尋怪
Rem 2
Gosub 判斷攻擊方式
Rem 3
//Delay 100
Gosub 確認無他怪
Rem 4
//Gosub 揀物
Goto 開始掛機

//=
Sub 打坐
    If regen=0
        Gosub 打坐回紅
    Else
        Delay 32
        // Gosub 坐回魔
    EndIf
Return
//=
Sub 坐回魔
    Gosub 打坐遇怪反擊
  
    //黑血
    IfColor chpnx,chpy,chpColor,1
        Delay 100
        KeyPress 120,1
        //F9
        Delay 1000
        Rem sitre
        Delay 500
        Gosub 打坐遇怪反擊
  
        IfColor cmprx-1,cmpy,cmpColor,0
            Delay 32
            KeyPress 120,1
            Delay 1000
            Goto 滿血
        EndIf
        Delay 1000
        Goto sitre
    Else
        Delay 32
    EndIf
Return
Sub 打坐回紅
    Gosub 打坐遇怪反擊
    IfColor chpnx,chpy,chpColor,1
        //黑血
        //IfColor cmpnx-10,cmpy,cmpColor,1
        Delay 100
        KeyPress 120,1
        //F9
        Delay 1000
        Rem sitreR
        Delay 500
        Gosub 打坐遇怪反擊
        IfColor chprx,chpy,chpColor,0
            Delay 32
            KeyPress 120,1
            Delay 1000
            Goto 滿血
        EndIf
        Delay 1000
        Goto sitreR
    Else
        Delay 32
    EndIf
Return
//=
Sub 打坐遇怪反擊
    IfColor mhplx,mhpy,mhpColor,0
        KeyPress 83,1
        //F9佔起
        Delay 500
        Gosub 用力攻擊
    EndIf
Return
//=
Sub 尋怪
    IfColor mhplx,mhpy,mhpColor,0
        Delay 32
        IfColor mhprx,mhpy,mhpColor,1
            KeyPress 9,1
        EndIf
    Gosub 狀態技能
        Goto 2
    Else
        Delay 32
        If noteam=1
            KeyPress 27,1
            Delay 300
        EndIf
        KeyPress 9,1
        Delay 200
    EndIf
Return
//=
Sub 判斷攻擊方式
  
    IfColor mhprx,mhpy,mhpColor,0
        Delay 100
        //bour=now
        Gosub 用力攻擊
    Else
        Delay 450
        Goto 1
        //尋怪
        //Goto 開始掛機
    EndIf
Return
//=
Sub 確認無他怪
    Delay 1000
    IfColor mhplx,mhpy,mhpColor,0
        Gosub 用力攻擊
    Else
        Goto 4
    EndIf
Return
//=
Sub 防呆裝置
    If DateDiff("s",bour,Now) >10
        Delay 100
        IfColor mhprx,mhpy,mhpColor,0
            // IfColor 605,11,8C0C68,1
            KeyDown 83,1
            Delay 300
            KeyUp 83,1
        Gosub rotate
            KeyDown 65,1
            Delay 250
            KeyUp 65,1
            KeyPress 9,1
            Delay 200
            // Gosub 打坐
            Goto 2
        EndIf
    EndIf
Return
//=
Sub 用力攻擊
    if jobKey<117
    KeyPress 49,1
        Delay 1000
    endif
    bour=now
    Rem 呼依死
    Gosub 攻擊技能sk2
    Gosub 補紅藍
    Delay 100
    Gosub 攻擊技能sk3
    Gosub 補紅藍
    Delay 100
    If key4<>0
        Gosub 攻擊技能sk4
        Gosub 補紅藍
      
    EndIf
    If key5<>0
        Gosub 攻擊技能sk5
        Gosub 補紅藍
      
    EndIf
    If key7<>0
        Gosub 攻擊技能sk7
        Gosub 補紅藍
   
    EndIf
        if jobKey<117
    KeyPress 49,1
    Delay 1000
    endif
    if jobKey>=117
           IfColor 30,cmpy,cmpColor,1
        KeyPress 49,1
        Delay 1000
        endif
    endif   
    Gosub 補紅藍
    Gosub 防呆裝置
    Goto 呼依死
Return
//=
//F1紅 F2藍
Sub 補紅藍
    IfColor addhp/100*(chprx-chplx)+chplx,chpy,chpColor,1
        KeyPress 112,1
        Delay addhpT
    EndIf
    IfColor addmp/100*(cmprx-cmplx)+cmplx,cmpy,cmpColor,1
        KeyPress 113,1
        Delay addmpT
    EndIf
    Gosub 目標是否死亡
Return
//=
Sub 目標是否死亡
    IfColor mhplx,mhpy,mhpColor,1
           Goto 3
        //3 揀物
    EndIf
Return

//=
Sub 狀態技能
    If DateDiff("s",ztjn,Now) >= ztjnt
           IfColor chpnx-20,chpy,chpColor,0
            Delay 500
            KeyPress 84,1
            Delay 1000
            VBS ztjn=now
        EndIf
    EndIf
EndIf
Return
//=
Sub rotate
        RightDown 1                                 
        Delay 1000
        MoveR -400,0                              
        Delay 1000
        //MoveR -200,0                             
        Delay 1000
        RightUp 1
        rota=now
    EndIf
Return
//=
Sub 攻擊技能sk2
    //IfColor 76,50,EB8400,0
    If DateDiff("s",sk2,Now) >= 3
             KeyPress 50,1
        Delay 800
        VBS sk2=now
    EndIf
    // EndIf
Return
//=
Sub 攻擊技能sk3
    If DateDiff("s",sk3,Now) >= 3
     
        KeyPress 51,1
        Delay 800
        VBS sk3=now
    Else
        Delay 32
    EndIf
Return
//=
Sub 攻擊技能sk4
    If DateDiff("s",sk4,Now) >= 3
      
        KeyPress 52,1
        Delay 800
        VBS sk4=now
  
    EndIf
Return
//=
Sub 攻擊技能sk5
    If DateDiff("s",sk5,Now) >= 3
     
        KeyPress 53,1
        Delay 800
        VBS sk5=now
    Else
        Delay 32
    EndIf
Return
//=
Sub 攻擊技能sk7
    If DateDiff("s",sk7,Now) >= 3
   
        KeyPress 55,1
        Delay 800
        VBS sk7=now

    EndIf
Return
//=
Sub 攻擊技能sk8
    If DateDiff("s",sk8,Now) >= key8
      
        KeyPress 56,1
        Delay 1000
        VBS sk8=now
    Else
        Delay 32
    EndIf
Return
//=
Sub 攻擊技能sk9
    If DateDiff("s",sk9,Now) >= key9
   
        KeyPress 57,1
        Delay 1000
        VBS sk9=now
    EndIf
Return
//=
Sub 銅鈴補紅
    IfColor chpnx-2,chpy,chpColor,1
     
        IfColor cmpnx,cmpy,cmpColor,0
            KeyPress 118,1
            Delay 400
            KeyPress 54,1
            Delay 3000
            //KeyPress 115,1
            KeyPress jobKey,1
            Delay 400
        EndIf
    EndIf
Return
//=

非常謝謝大大的分享 辛苦您了yociexp196.gif