按精:吃紅吃藍撿物放技能

請用1024*768視窗化.要不然吃紅吃藍惠出問題. 1放紅. 2放藍水

//定義變量
VBS dim f5,f6,f7,f8,jia,jian,t51,t61,t71,t81,t52,t62,t72,t82
//自定義設置
UserVar f5=180 第一個技能(F5)的間隔時間(秒)，設為0表示不用該技能
UserVar f6=180 第一個技能(F6)的間隔時間(秒)，設為0表示不用該技能
UserVar f7=0 第一個技能(F7)的間隔時間(秒)，設為0表示不用該技能
UserVar f8=0 第一個技能(F8)的間隔時間(秒)，設為0表示不用該技能
UserVar jia=1 是否加紅加藍，1加，0不加
UserVar jian=1 是否撿物，1撿，0不撿
EndIf
//主程序開始
If jia=1
    Gosub 加紅加藍
EndIf
KeyPress 116 1
Plugin t51=GetSysInfo.GetTime()
Delay 2000
KeyPress 117 1
Plugin t61=GetSysInfo.GetTime()
Delay 2000
KeyPress 118 1
Plugin t71=GetSysInfo.GetTime()
Delay 2000
KeyPress 119 1
Plugin t81=GetSysInfo.GetTime()
a=1
//下面是個死循環，要F12才能結束腳本
While a=1
    If jian=1
        KeyPress 192 1
    EndIf
    If jia=1
        Gosub 加紅加藍
    EndIf
    Gosub 加技能
    Delay 100
EndWhile
Sub 加紅加藍
    IfColor 71 59 0 0
        KeyPress 50 1
    Else
        IfColor 72 50 0 0
            KeyPress 50 1
        Else
            IfColor 73 50 0 0
                KeyPress 50 1
            EndIf
        EndIf
    EndIf
    IfColor 4 36 0 0
        KeyPress 49 1
    Else
        IfColor 5 36 0 0
            KeyPress 49 1
        Else
            IfColor 6 36 0 0
                KeyPress 49 1
            EndIf
        EndIf
    EndIf
Return 加紅加藍
Sub 加技能
    Plugin t52=GetSysInfo.GetTime()
    Plugin t62=GetSysInfo.GetTime()
    Plugin t72=GetSysInfo.GetTime()
    Plugin t82=GetSysInfo.GetTime()
    If f5<>0
        If t52-t51>=f5*1000
            KeyPress 116 1
            Plugin t51=GetSysInfo.GetTime()
        EndIf
    EndIf
    If f6<>0
        If t62-t61>=f6*1000
            KeyPress 117 1
            Plugin t61=GetSysInfo.GetTime()
        EndIf
    EndIf
    If f7<>0
        If t72-t71>=f7*1000
            KeyPress 118 1
            Plugin t71=GetSysInfo.GetTime()
        EndIf
    EndIf
    If f8
        If t82-t81>=f8*1000
            KeyPress 119 1
            Plugin t81=GetSysInfo.GetTime()
        EndIf
    EndIf
Return 加技能
Rem 腳本結束
EndScript

趕快來去試看看!

感謝分享

可以教一下.我案精布太會用.3Q

感謝yociexp184.gif