喝水~輔助~撿物

由taiwanjp3發表的腳本進行修改加入撿物功能
紅字部分為自動撿物 我已經掛三天了  ㄧ切正常 掛牧師賺錢最快

Sub take
    Delay 100
    KeyPress 192,4 //按四次~
    Delay 300 //修正一下改成300檢東西比較順   
    Gosub hp
Return take
Sub hp
    Delay 300
    IfColor 148,92,303f4,1
        KeyPress 49,1
        Delay 1000
    Else
        Goto b
    EndIf
    Rem b
    Delay 300
    IfColor 217,124,fb1a01,1
        KeyPress 50,1
        Delay 1000
    Else
        Gosub skill
    EndIf
Return hp
Sub skill
    If datediff("s",thistime,now)>480
        Delay 100
        KeyPress 114,1
        Delay 6000
        VBS thistime=now
    EndIf
    Gosub skill1
    Sub skill1
        If datediff("s",thistime1,now)>330
            Delay 100
            KeyPress 115,1
            Delay 6000
            VBS thistime1=now
        EndIf
    Return hp
     

2009/1/27
   有人反應會狂喝水　因為我是用抓色抓點　不是抓記憶體　所以　色跟點你們要自己抓　畢竟我的畫面跟你不同
還有在掛的時候　不能把視窗縮小　就是要維持你抓色點時候的位置　沒辦法　我不會抓記憶體位置。。。等好心的人發佈記憶體版本吧　我也好期待說。。。
另外關於執行一次就停格的  你點開腳本進去編輯 注意右邊  有一行叫 腳本回圈  把他改成 直到按下結束鍵  預設是一次  就醬囉
改色點方法  我放在http://bbs.wgun.net/thread-246354-1-1.html 第一篇回應  去照著做看看吧....我能幫的就這麼多了
按精去官網抓 http://www.qmacro.com  抓下來不用註冊就可以用  沒有次數限制  只是不能用神盾跟關閉程式要等5秒的問題而已
加油....祝大家新年快樂 ^^




[ 本帖最後由 kkmamdidisi 於 2009-1-28 20:31 編輯 ]

要錢 不要命 要命不要錢

YCT53B YCT53B goooooooooooooooooooooooooooooood

qqqqqqqqqqqqqqqqqqqq

感謝大大喔)))))))))))))

非常感謝唷^^
試用看看~

原來還可以這樣，利害利害，感謝分享

//定義變量
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

YCT62B 這要怎麼用阿

YCT25B YCT25B   謝謝大大的分享