我的空間 ｜　會員中心　｜ VIP會員　｜ 聯合國facebook專區
黃易群俠傳M脫機外掛應用程式黃易神行
外掛聯合國討論區 › 《Face Book》 › 《開心水族箱外掛》 ›
6721
23
發佈主題
返回

[發問] 管理個人水族箱腳本

z123249944 發表於 2010-1-16 23:29:21 | 只看該作者 回帖獎勵 |倒序瀏覽 |
300論壇幣
誰可以幫我寫個管理個人水族箱的腳本!!

每30分鐘水族箱,收寶.餵食6科飼料!!

付給300幣,請寄到我的信廂3Q!!

收藏收藏 分享分享 讚讚 幹幹 分享分享 FB分享
回覆

使用道具 舉報


jqs71 當前離線
UID
1374940
熱心
46 值
嘉獎
0 次
違規
0 次
在線時間
10 小時
經驗
46 點
積分
46
精華
0
最後登錄
2010-2-3
閱讀權限
20
註冊時間
2009-12-21
論壇幣
28 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
jqs71 2010-1-17 04:15:31
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 1800000

十秒點一下，點六下…1800秒…自已設迴圈~
回覆

使用道具 舉報

z123249944 當前離線
UID
1355829
熱心
106 值
嘉獎
0 次
違規
0 次
在線時間
39 小時
經驗
85 點
積分
230
精華
0
最後登錄
2013-4-24
閱讀權限
25
註冊時間
2009-11-22
論壇幣
752 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
z123249944 2010-1-17 09:57:15
那是餵飼料吧!!那個是滿好寫的!但是檢寶就不知整麼寫了@@,1個1個找定位嗎!?
回覆

使用道具 舉報

F0916826699 當前離線
UID
1375255
熱心
16 值
嘉獎
0 次
違規
0 次
在線時間
3 小時
經驗
11 點
積分
11
精華
0
最後登錄
2010-1-17
閱讀權限
10
註冊時間
2009-12-22
論壇幣
20 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
F0916826699 2010-1-17 10:38:46
推~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
回覆

使用道具 舉報

z123249944 當前離線
UID
1355829
熱心
106 值
嘉獎
0 次
違規
0 次
在線時間
39 小時
經驗
85 點
積分
230
精華
0
最後登錄
2013-4-24
閱讀權限
25
註冊時間
2009-11-22
論壇幣
752 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
5層
z123249944 2010-1-17 18:51:26
把大大的腳暪偷改一下發現是可以的XD
但是我想因該可以更簡單化!
我是把飼料那設30分鐘=30分鐘輪一次!!


Rem 始
//01
MoveTo 754,250
Delay 500
MoveTo 671,196
LeftClick 1
Delay 200
Gosub 幹寶
Gosub 餵食
Rem 頭
Sub 餵食
    Delay 1800000
    //點擊飼料
    MoveTo 360,560
    LeftClick 1
    Delay 200
    LeftClick 1
    Delay 200
    //點擊水族箱任一處
    MoveTo 115,170
    LeftClick 1
    Delay 200
    For 4
        MoveR 100,0
        LeftClick 1
        Delay 200
    EndFor
    Delay 1800000
Return 餵食
Sub 幹寶
    Rem 延時判斷
    IfColor 666,147,999999,0 //如果為讀取狀態便不繼續執行
        Delay 1000
        Goto 延時判斷
    Else
    EndIf
    Gosub 收選單
    VBSCall FindPic(0,100,600,760,"劍魚左.bmp",0.7,X,Y)
    If X>=0 AND Y>=0
        Goto 幹完
    Else
    EndIf
    VBSCall FindPic(0,100,600,760,"劍魚右.bmp",0.7,X,Y)
    If X>=0 AND Y>=0
        Goto 幹完
    Else
    EndIf
    //點擊手形
    MoveTo 476,560
    LeftClick 1
    Delay 500
    LeftClick 1
    Delay 500
    LeftClick 1
    LeftUp 1
    //移動定位
    MoveTo 736,487
    LeftClick 1
    For 16
        Gosub 移動
    EndFor
    For 16
        Gosub 移動2
    EndFor
    For 14
        Gosub 移動
    EndFor
    Rem 幹完
Return 幹寶
Sub 移動
    MoveR -8,0
    LeftClick 1
    Gosub 集合判斷
    MoveR 0,20
    LeftClick 1
    Gosub 集合判斷
    MoveR -8,0
    LeftClick 1
    Gosub 集合判斷
    MoveR 0,-20
    LeftClick 1
    Gosub 集合判斷
Return 移動2
Sub 移動2
    MoveR -8,0
    LeftClick 1
    Gosub 集合判斷
    MoveR 0,10
    LeftClick 1
    Gosub 集合判斷
    MoveR -8,0
    LeftClick 1
    Gosub 集合判斷
    MoveR 0,-10
    LeftClick 1
    Gosub 集合判斷
Return 移動2
Sub 收選單
    Delay 800
    Rem 收回判斷
    VBSCall FindPic(586,127,626,162,"放大鏡.bmp",0.9,X,Y)
    If X>=0 AND Y>=0
        MoveTo 566,237
        LeftClick 2
        Delay 200
        MoveTo 546,237
        LeftClick 2
        Delay 200
        Goto 收回判斷
    Else
    EndIf
Return 收選單
Sub 集合判斷
    Gosub 閃劍魚
    Gosub 每日禮物
    Gosub 幫幫忙
    Gosub 好友禮物
Return 集合判斷
Sub 閃劍魚
    SaveMousePos
    IfColor 336,292,dddddd,0
        MoveTo 376,374
        LeftClick 1
        Delay 500
        MoveTo 476,560
        LeftClick 3
        Delay 500
        RestoreMousePos
    Else
    EndIf
Return 閃劍魚
Sub 每日禮物
    SaveMousePos
    IfColor 192,138,b1a17f,0
        MoveTo 346,208
        Delay 1000
        LeftClick 3
        Delay 5000
        MoveTo 378,356
        Delay 1000
        LeftClick 3
        Delay 3000
        MoveTo 346,407
        Delay 1000
        LeftClick 3
        Delay 1000
        RestoreMousePos
    Else
    EndIf
Return 每日禮物
Sub 幫幫忙
    SaveMousePos
    IfColor 350,220,D9FFFF,0
        MoveTo 395,335
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 430,350
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 329,322
        Delay 500
        LeftClick 1
        Delay 500
        MoveTo 435,360
        Delay 500
        LeftClick 1
        Delay 500
        RestoreMousePos
    Else
    EndIf
    RestoreMousePos
Return 幫幫忙
Sub 好友禮物
    SaveMousePos
    VBSCall FindPic(375,355,460,390,"每日禮物確認.bmp",0.9,X,Y)
    If X>=0 AND Y>=0
        MoveTo 418,373
        LeftClick 2
    Else
    EndIf
    RestoreMousePos
Return 好友禮物
回覆

使用道具 舉報

jqs71 當前離線
UID
1374940
熱心
46 值
嘉獎
0 次
違規
0 次
在線時間
10 小時
經驗
46 點
積分
46
精華
0
最後登錄
2010-2-3
閱讀權限
20
註冊時間
2009-12-21
論壇幣
28 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
6層
jqs71 2010-1-18 15:05:18
把大大的腳暪偷改一下發現是可以的XD
但是我想因該可以更簡單化!
我是把飼料那設30分鐘=30分鐘輪一次!!


Rem 始
//01
MoveTo 754,250
Delay 500
MoveTo 671,196
LeftClick 1
Delay 200
Gosub 幹寶
Gos ...
z123249944 發表於 2010-1-17 18:51

樓上這位也太ooxx了= ="
把別人的腳本公佈出來= =
"[閱讀權限 10]- [售價 論壇幣 5 元]"
而且還在同一個討論區= ="
回覆

使用道具 舉報

jqs71 當前離線
UID
1374940
熱心
46 值
嘉獎
0 次
違規
0 次
在線時間
10 小時
經驗
46 點
積分
46
精華
0
最後登錄
2010-2-3
閱讀權限
20
註冊時間
2009-12-21
論壇幣
28 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
7層
jqs71 2010-1-18 15:14:22
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 1800000

十秒點一下，點六下…1800秒…自已設迴圈~
jqs71 發表於 2010-1-17 04:15

沒注意到有問收寶…
MoveTo 475,566//點擊手形
MoveTo 720,487//畫面右側抓到左側抓70次
for 70
MoveR -10 , 0
LeftDoubleClick 1
EndFor
MoveTo 720,519//畫面右側抓到左側抓70次
for 70
MoveR -10 , 0
LeftDoubleClick 1
EndFor

抓兩次是因為= =寶物會有高低落差
回覆

使用道具 舉報

jqs71 當前離線
UID
1374940
熱心
46 值
嘉獎
0 次
違規
0 次
在線時間
10 小時
經驗
46 點
積分
46
精華
0
最後登錄
2010-2-3
閱讀權限
20
註冊時間
2009-12-21
論壇幣
28 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
8層
jqs71 2010-1-18 15:15:22
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 1800000

十秒點一下，點六下…1800秒…自已設迴圈~
jqs71 發表於 2010-1-17 04:15

LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 10000
LeftClick 1
Delay 1800000

十秒點一下，點六下…1800秒…自已設迴圈~
jqs71 發表於 2010-1-17 04:15

沒注意到有問收寶…
MoveTo 475,566//點擊手形
MoveTo 720,487//畫面右側抓到左側抓70次
for 70
MoveR -10 , 0
LeftDoubleClick 1
EndFor
MoveTo 720,519//畫面右側抓到左側抓70次
for 70
MoveR -10 , 0
LeftDoubleClick 1
EndFor

抓兩次是因為= =寶物會有高低落差
回覆

使用道具 舉報

tina19894 當前離線
UID
1397305
熱心
52 值
嘉獎
0 次
違規
0 次
在線時間
9 小時
經驗
47 點
積分
340
精華
0
最後登錄
2016-2-11
閱讀權限
25
註冊時間
2010-1-26
論壇幣
226 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
9層
tina19894 2010-1-28 16:06:29
太利害了推~~~~~~~~~~~~~~~~~~~~

xddddddddddddddddddddddddddddddddddddddd
回覆

使用道具 舉報

a5587211 當前離線
UID
1147654
熱心
15 值
嘉獎
0 次
違規
0 次
在線時間
3 小時
經驗
15 點
積分
15
精華
0
最後登錄
2010-1-29
閱讀權限
10
註冊時間
2009-3-6
論壇幣
25 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
10層
a5587211 2010-1-29 20:29:52
推~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies
您需要登錄後才可以回帖 登錄 | 註冊

123下一頁

手機版 | Archiver | 外掛聯合國

GMT+8, 2024-6-5 13:29 , Processed in 0.064964 second(s), 16 queries , Memcache On.

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

回頂部
第二步?
第三步?