撿中野電漿球之外掛問題

以下是小弟稍微修改的撿電漿球版本

請各位大大幫忙修改到更好，讓大家玩遊戲更開心

若有人願意一起修改程式CODE~本人將提供更好的其他腳本一起分享

MSN      u u g y k i m o 小老鼠 .c o m . t w   歡迎一起加入討論

這版本能避開光球太遠的問題~但是還是會遇到光球重疊而點選錯誤的問題


另外我已聽說有人研究出自動撿垃圾，自動回村，自動賣垃圾，自動到倉庫存錢

自動跑回去撿垃圾的腳本~~可否請各位大大有的一起分享出來

讓我們不要被遊戲玩~而是去玩遊戲~~不然花一小時撿電球真的很悶....又不是玩電漿球ONLINE.....XD


//標記開始
Rem start
//標記99
Rem 99
//尋找白色電光球，若找到~滑鼠移至x,y處
VBSCall FindColorEx(0,0,1024,768,"fff1ff",1,0.9,x,y)
If x>=0 and y>=0
    MoveTo x y
//延遲0.5秒後，點擊滑鼠
    Delay 500
    LeftClick 1
//延遲0.5秒後，點擊滑鼠
    Delay 500
    LeftClick 1
//判斷如果滑鼠被點擊，跳至標記4，若不是則跳至標記2
    If LeftClick 1
        Goto 4
    Else
        Goto 2
    EndIf
//標記4
    Rem 4
//延遲3秒後找再找一次光球...怕光球太遠點到移動....
    Delay 3000
    VBSCall FindColorEx(0,0,1024,768,"fff1ff",1,0.9,x,y)
    If x>=0 and y>=0
        MoveTo x y
        Delay 500
        LeftClick 1
        Delay 500
    Else
        Goto 2
    EndIf
//尋找是否有stop圖案(判斷   |  是否已經在游移了)
//若有則跳至標記3，沒有則跳回標記開始
    While
        VBSCall FindPic(0,0,1024,768,"stop.bmp",0.6,x,y)
        If x>=0 and y>=0
            Goto 3
        Else
            Goto start
        EndWhile
//標記3(此處判斷是否  |   已對準該區段並按下 )
        Rem 3
        VBS j=0
        While j=0
            VBSCall FindColor(0,0,1024,768,"51b9ff",x,y)
            If X>0 and y>0
                IfColor x,y+10,"b6b6b6",0
                    MoveTo 241,477
                    Delay 50
                    LeftClick 1
                    VBS j=1
                EndIf
            EndIf
            Delay 50
        EndWhile
//延遲3秒後再去點變藍的光球
        Delay 3000
        VBS j=1
        While j=1
            VBSCall FindColorEx(0,0,1024,768,"ffc7b0",1,0.9,x,y)
            If X>0 and y>0
                MoveTo x y
                Delay 50
                LeftClick 1
                VBS j=0
            EndIf
            Delay 50
        EndWhile
//撿東西
        VBS j=1
        While j=1
            VBSCall FindPic(0,0,1024,768,"1.bmp",0.8,x,y)
            If x>=0 and y>=0
                MoveTo x+25 y+10
                Delay 70
                LeftClick 1
                VBS j=0
            EndIf
            Delay 180
        EndWhile
//標記2
        Rem 2
//重覆3次，按A轉方向再找光球用
        For 3
            KeyPress 65,1
            Delay 400
            KeyPress 65,1
            Delay 400
            KeyPress 65,1
            Delay 400
            KeyPress 65,1
            Delay 400
        EndFor
        Delay 500
//跳至標記START
        Goto start
    EndScript

[ 本帖最後由 t0202860 於 2009-5-14 03:34 編輯 ]

good~~~~~~~~~~
推推推

//標記3(此處判斷是否  |   已對準該區段並按下 )
        Rem 3
        VBS j=0
        While j=0
            VBSCall FindColor(0,0,1024,768,"51b9ff",x,y)
            If X>0 and y>0
                IfColor x,y+10,"b6b6b6",0
本文章轉自外掛聯合國http://www.wgun.net



請問一下  

VBSCall FindColor(0,0,1024,768,"51b9ff",x,y)
是找哪裡的顏色的

還有
IfColor x,y+10,"b6b6b6",0
又是哪裡的顏色呢
我都跑到stop就都沒反應了
拜託了
我用的是正式版案件精靈

這位大大
請問一下 把顏色修正好
是能開光糗 撿光球沒錯
不過有幾個問題
1 開失敗無法繼續動
2 走路走一走會突然不會在動 可能是尋找光球的設計不太理想

這個能用啊YCT50B

請問一下喔圖要放哪裡啊?
YCT62B

原帖由 j19890225 於 2009-5-24 12:54 發表
這個能用啊YCT50B

可以請教一下嗎??
你有修改哪邊嗎??
我用原本的設定是不會動的!!

收藏，改天再來慢慢研究邏輯
感謝分享