黃易群俠傳M脫機外掛應用程式黃易神行
58523
91

[分享] 掛電球的按鍵精靈外掛 +找怪腳本~

sendbyicq1 發表於 2009-3-19 01:07:50 | 顯示全部樓層 |
修改自pakpak911 大大的腳本~
~找電球~
我把他分成6個腳本~
6個腳本分開運行就可以了~
腳本1~找紅球~
注意:0,0,804,624,《---坐標,畫面左上角=0,0     右下角=804,624自行修改
            "f2e6f9"〈〈---紅電球顏色自行修改


Sub 1
    Delay 1000
    VBSCall FindColorEx(0,0,804,624,"f2e6f9",1,0.8,x,y)
If x>=0 and y>=0
        MoveTo x y
        Delay 50
        LeftClick 1
        Delay 50
        Delay 1000
        Delay 2000
    Else
        For 4
            KeyPress 65,1
            Delay 400
        EndFor
        Delay 1000
        Delay 1000
        Gosub 1
         

腳本2
自動復活
注意:444,252,472,277《------自行修改
            死亡.bmp《------自行修改
            MoveTo 479,344《------死亡1後點按位置~自行修改
          MoveTo 551,476<-------死亡2後點按位置~自行修改

Sub 1
    VBSCall FindPic(444,252,472,277,"死亡.bmp",0.6,x,y)
    If x>=0 and y>=0
        MoveTo 479,344
        Delay 50
        LeftClick 1
        Delay 50
        LeftClick 1
        Delay 50
        Delay 1000
        MoveTo 551,476
        Delay 50
        LeftClick 1
        Delay 50
        LeftClick 1
        Delay 2000
    Else
        Gosub 2
        Sub 2
            VBSCall FindPic(444,252,472,277,"侚厗.bmp",0.6,x,y)
            If x>=0 and y>=0
                MoveTo 479,344
                Delay 50
                LeftClick 1
                Delay 50
                LeftClick 1
                Delay 50
                Delay 1000
                MoveTo 551,476
                Delay 50
                LeftClick 1
                Delay 50
                LeftClick 1
                Delay 2000
            Else
                Gosub 1
                 

腳本3
注意:  98,351,161,406,<-----自行修改
                 stop.bmp《--------自行復製遊戲內的STOP圖片


Rem 嶱宎
Gosub 衄瘁STOP
Gosub STOP
Return 衄瘁STOP
Sub 衄瘁STOP
    VBS j=0
    While j=0
        VBSCall FindPic(98,351,161,406,"stop.bmp",0.6,x,y)
        If x>=0 and y>=0
            Gosub STOP
            VBS j=1
        Else
            Gosub 衄瘁STOP
            VBS j=2
        EndWhile
    Return STOP
    Sub STOP
        VBS j=0
        While j=0
            VBSCall FindColor(0,0,802,541,"51b9ff",x,y)
            If X>0 and y>0
                IfColor x,y+10,b6b6b6,0
                    MoveTo 129,398
                    Delay 50
                    LeftClick 1
                    VBS j=1
                EndIf
            EndIf
            Delay 50
        EndWhile
    Return
    Goto 嶱宎



腳本4
找藍球
注意:0,0,802,541〈----自行修改遊戲畫面右上,左下角
           ffe8db〈------藍電球顏色

VBSCall FindColorEx(0,0,802,541,"ffe8db",1,0.8,x,y)
If X>0 and y>0
    MoveTo x y
    Delay 50
    LeftClick 1
EndIf
Delay 1000
EndWhile



腳本5
搭東西
注意:753,490,161,406〈------自行修改
           1.bmp〈-------自行復製遊戲內的(全部拾取)這圖片


VBSCall FindPic(753,490,161,406,"1.bmp",0.8,x,y)
If x>=0 and y>=0
    MoveTo x+25 y+10
    Delay 100
    LeftClick 1
EndIf


腳本6
死亡2
注意:441,253,472,274,"侚厗2.bmp〈--自行修改YCT61B
            MoveTo 464,340《------死亡1後點按位置~自行修改
            MoveTo 550,477《------死亡2後點按位置~自行修改

Sub 1
    VBSCall FindPic(441,253,472,274,"侚厗2.bmp",0.6,x,y)
    If x>=0 and y>=0
        MoveTo 464,340
        Delay 50
        LeftClick 1
        Delay 50
        LeftClick 1
        Delay 50
        Delay 1000
        MoveTo 550,477
        Delay 50
        LeftClick 1
        Delay 50
        LeftClick 1
        Delay 2000
    Else
        Gosub 2
回覆

使用道具 舉報


treey888 當前離線
UID
327984
熱心
74 值
嘉獎
0 次
違規
0 次
在線時間
80 小時
經驗
34 點
積分
962
精華
0
最後登錄
2018-8-6
閱讀權限
30
註冊時間
2007-4-3
論壇幣
762 幣
聯合幣
12 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 4Rank: 4
treey888 2009-3-19 10:47:37
這樣寫 用 法 按不準 判斷地方 有問題 只能撿白球
撿快速的 藍電漿球 按不準喔
回覆

使用道具 舉報

sendbyicq1 當前離線
UID
995808
熱心
56 值
嘉獎
0 次
違規
0 次
在線時間
77 小時
經驗
47 點
積分
180
精華
0
最後登錄
2015-11-22
閱讀權限
20
註冊時間
2008-8-23
論壇幣
1 幣
聯合幣
7 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
sendbyicq1 2009-3-19 11:50:01

回覆 2# 的文章

按不準(---是你找色點不正確,重找幾次色點,就可以了
回覆

使用道具 舉報

z8856294 當前離線
UID
985626
熱心
67 值
嘉獎
0 次
違規
0 次
在線時間
106 小時
經驗
47 點
積分
751
精華
0
最後登錄
2018-8-6
閱讀權限
30
註冊時間
2008-8-16
論壇幣
522 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 4Rank: 4
z8856294 2009-3-19 15:53:46
這樣寫是解決能在按a的問題 但是會點到別人的藍球不知道跑去那邊去了
有辦法雙腳本控制嗎?
回覆

使用道具 舉報

ianfo619 該用戶已被刪除
ianfo619 2009-3-20 16:33:23
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

sendbyicq1 當前離線
UID
995808
熱心
56 值
嘉獎
0 次
違規
0 次
在線時間
77 小時
經驗
47 點
積分
180
精華
0
最後登錄
2015-11-22
閱讀權限
20
註冊時間
2008-8-23
論壇幣
1 幣
聯合幣
7 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
sendbyicq1 2009-3-20 19:50:21

回覆 5# 的文章

我不是分開了6個腳本嗎?
分別單獨推行看看找不找到點~
例如~
腳本1~找紅球~
如果找不到紅球~就重新設定色點吧,每個地圖紅電球色點都有分別喔~
回覆

使用道具 舉報

tba21649 當前離線
UID
372613
熱心
11 值
嘉獎
0 次
違規
0 次
在線時間
1 小時
經驗
5 點
積分
22
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2007-5-14
論壇幣
-1 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
tba21649 2009-3-21 03:19:14

good

goodgoodgoodgoodgoodgoodgoodgoodgoodgoodgoodgood
goodgoodgoodgoodgood
回覆

使用道具 舉報

lineagezz130 當前離線
UID
1150120
熱心
2 值
嘉獎
0 次
違規
0 次
在線時間
0 小時
經驗
3 點
積分
11
精華
0
最後登錄
2017-8-21
閱讀權限
10
註冊時間
2017-8-21
論壇幣
3 幣
聯合幣
3 枚
幸運鑽
2 顆
招待卷
0 點
查看詳細資料
Rank: 1
lineagezz130 2009-3-21 04:39:02
是不是未註冊版不能 抓圖? 設定好久大部分都好了卡在STOP跟撿東西

[ 本帖最後由 lineagezz130 於 2009-3-21 04:54 編輯 ]
回覆

使用道具 舉報

ianfo619 該用戶已被刪除
ianfo619 2009-3-21 06:05:43
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

pencochen1 當前離線
UID
226661
熱心
24 值
嘉獎
0 次
違規
0 次
在線時間
47 小時
經驗
25 點
積分
25
精華
0
最後登錄
2010-3-20
閱讀權限
20
註冊時間
2007-2-19
論壇幣
45 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
pencochen1 2009-3-21 09:40:23
VBS j=0
        While j=0
            VBSCall FindColor(0,0,802,541,"51b9ff",x,y)
            If X>0 and y>0
                IfColor x,y+10,b6b6b6,0
                    MoveTo 129,398
                    Delay 50
                    LeftClick 1
                    VBS j=1
                EndIf
            EndIf
            Delay 50
     

請問這段能說明一下嗎

51b9ff
是什麼ㄋ?

MoveTo 129,398
作用是?
回覆

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 註冊


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-3-29 19:56 , Processed in 0.066207 second(s), 18 queries , Memcache On.

版權說明:
  本站不會製作、經銷、代理外掛程式。僅免費提供外掛程式下載前之掃毒及掃木馬等安全檢測驗證,協助會員遠離盜號危險程式。本站所有資料均來自網際網路收集整理,說明文字暨下載連結轉載自原程 式開發站。站上出現之公司名稱、遊戲名稱、程式等,商標及著作權,均歸各公司及程式原創所有,本站程式所有權歸外掛聯合國所有。本程式所有權歸外掛聯合國所有.......

回頂部
第二步?
第三步?