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

[發問] 有關未打怪就就喝水的腳本 麻煩解救一下 謝謝^^

roy215kimo 發表於 2008-10-17 14:31:04 | 只看該作者 回帖獎勵 |倒序瀏覽 |
請問一下 我的esz的腳本設定裡面 他都會一直喝水  打怪前都會喝一次水   然後有時候執行自動練功時 他會先自己放金蟬    請問要怎麼解決呢?
我遊戲解析不能調到1280 * 800      我調到1024*768
我po腳本給你們看一下
我把喝水的stop給消掉了 因為他會打一隻怪就停 所我就消了他了
麻煩各位大大了
//-----------------------------------------
//-----------------------------------------
Var1 = 0 //原點打怪程序..啟動1.關閉0
Var2 = 1 //補助技能[戰意燃燒]..啟動1.關閉0
Var3 = 1 //補助技能[迅擊術]..啟動1.關閉0
Var4 = 1 //補助技能[元神護體]..啟動1.關閉0
Var5 = 1 //補助技能[咆嘯]..啟動1.關閉0
Var6 = 0 //撿東西程序..啟動1.關閉0
Var7 = 0 //取消交易.好友.組隊功能..啟動1.關閉0
Var8 = 0 //遇人自動說話.啟動1.關閉0..[使用時請將小地圖放到最大]
Pos1 = 0 //遇人暫停腳本.走後繼續..啟動1.關閉0..[使用時請將小地圖放到最大]
Pos2 = 60 //補HP.請設定%數.1-99之間.預設是80%補血
Pos3 = 1 //設定是否使用備用武器2..啟用1.關閉0..[使用弓請關閉備武2.將箭矢放在F10]
Pos4 = 10 //防卡點程序.建議設定在5-30之間.[打怪物的次數.幾次後如果怪物的血量是滿的.重新執行]
Pos5 = 0 //設定是否使用範圍內打怪..啟用1.關閉0
Pos6 = 10 //設定範圍..[必須啟動範圍內打怪]
//-----------------------------------------
ExtVar[17] = ReadMemory[0x00717E28,3] //X座標
ExtVar[18] = ReadMemory[0x00717E24,3] //y座標
//-----------------------------------------
Start_FOD: //原點程序
        If Var1 = 1
                ExtVar[0] = GetPicPos["Picture\bb.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
                While ExtVar[0] = -1
                        ExtVar[0] = GetPicPos["Picture\bb.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
                        Delay(500)
                Wend
        End If
        CAll GET_MP
Return
//----------------------------------------
GET_MP: //補助技能程序
        ExtVar[4] = GetPicPos["Picture\cc.bmp",XY2Pos[50,577],XY2Pos[224,620],30] //F4的圖片
        ExtVar[5] = GetPicPos["Picture\dd.bmp",XY2Pos[50,577],XY2Pos[224,620],30] //F5的圖片
        ExtVar[6] = GetPicPos["Picture\ee.bmp",XY2Pos[50,577],XY2Pos[224,620],30] //F6的圖片
        ExtVar[7] = GetPicPos["Picture\ff.bmp",XY2Pos[50,577],XY2Pos[224,620],30] //F7的圖片
        If Var2 = 1
                If ExtVar[4] = -1  //戰意燃燒
                        KeyPress(115)
                        Delay(2500)
                End If
        End If
        If Var3 = 1
                If ExtVar[5] = -1  //迅擊術
                        KeyPress(116)
                        Delay(2500)
                End If
        End If
        If Var4 = 1
                If ExtVar[6] = -1  //元神護體
                        KeyPress(117)
                        Delay(2500)
                End If
        End If
        If Var5 = 1
                If ExtVar[7] = -1  //咆嘯
                        KeyPress(118)
                        Delay(2500)
                End If
        End If
        Call Look_For_Map_Atk
Return
//-----------------------------------------
Look_For_Map_Atk: //搜尋怪程序
        ExtVar[3] = 0
        ExtVar[25] = 0
        ExtVar[26] = 0
        KeyPress(9)
        Delay(100)
        ExtVar[8] = Color[XY2Pos[840, 36], 50]
        If ExtVar[8] < 3096319 //搜尋到怪的血量有人打過就重新搜尋,避免發生搶怪
                Call Look_For_Map_Atk
        End If
        Call OVER
Return
//-----------------------------------------
OVER: //打完怪物程序
        ExtVar[0] = GetPicPos["Picture\bb.bmp",XY2Pos[643,0],XY2Pos[695,51],30] //普通怪物
        ExtVar[1] = GetPicPos["Picture\aa.bmp",XY2Pos[643,0],XY2Pos[695,51],30] //洞內怪物
        ExtVar[2] = GetPicPos["Picture\hh.bmp",XY2Pos[643,0],XY2Pos[695,51],30] //王
        While ExtVar[0] > -1 || ExtVar[1] > -1 || ExtVar[2] > -1
                ExtVar[0] = GetPicPos["Picture\bb.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
                ExtVar[1] = GetPicPos["Picture\aa.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
                ExtVar[2] = GetPicPos["Picture\hh.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
                KeyPress(112)
                Delay(100)
                ExtVar[3] = ExtVar[3]+1 //防卡點程序
                If ExtVar[3] > Pos4
                        ExtVar[9] = Color[XY2Pos[840, 36, ], 50]
                        If ExtVar[9] = 3096319
                                Call Look_For_Map_Atk
                        End If
                End If
                Call HP
   Wend
   Call Take_Something
Return
//-----------------------------------------
HP: //補血程序
        ExtVar[10] = GetColorPos[3096319,XY2Pos[Pos2*1.14+100,36],XY2Pos[214,39]] //HP
        If ExtVar[10] = -1
                KeyPress(114)
        End If
        ExtVar[11] = GetColorPos[3096319,XY2Pos[30*1.14+100,36],XY2Pos[214,39]] //HP低於30%回城
        If ExtVar[11] = -1
                KeyPress(119)
                Delay(3000)
        End If
        Call BAD
Return
//-----------------------------------------
BAD: //武器更換程序
        ExtVar[12] = GetPicPos["Picture\bad.bmp",XY2Pos[380,113],XY2Pos[404,134],30]
        If ExtVar[12] > -1 //武器損壞替換
                Delay(100)
                ExtVar[13] = ExtVar[13]+1
                If ExtVar[13] = 1 || ExtVar[13] = 3 || ExtVar[13] = 5
                        KeyPress(120)
                        Delay(3000)
                        If Pos3 = 0
                                If ExtVar[13] = 3 || ExtVar[13] = 5
                                        KeyPress(119)
                                        Delay(3000)
                                        Stop
                                End If
                        End If
                End If
        End If
        If Pos3 = 1
                ExtVar[12] = GetPicPos["Picture\bad.bmp",XY2Pos[380,113],XY2Pos[404,134],30]
                If ExtVar[12] > -1 //武器損壞替換
                        Delay(100)
                        If ExtVar[13] = 2 || ExtVar[13] = 4 || ExtVar[13] = 6
                                KeyPress(121)
                                Delay(3000)
                        End If
                End If
        End If
        ExtVar[12] = GetPicPos["Picture\bad.bmp",XY2Pos[380,113],XY2Pos[404,134],30]
        If ExtVar[12] > -1 //全部武器損壞回城
                Delay(100)
                If ExtVar[13] > 7
                        KeyPress(119)
                        Delay(3000)
                        Stop
                End If
        End If
        Call OVER
Return
//-----------------------------------------
Take_Something: //撿東西程序
        If Var6 = 1
                KeyPress(113)
                Delay(700)
                KeyPress(113)
                Delay(700)
                KeyPress(113)
                Delay(700)
        End If
        Call Cancel
Return
//-----------------------------------------
Cancel: //取消組隊.交易.好友功能.自動說話功能
        If Var7 = 1
                ExtVar[14] = GetPicPos["Picture\ii.bmp",XY2Pos[514,419],XY2Pos[558,436],30]
                If ExtVar[14] > -1
                        MouseMove XY2Pos[535,427]
                        Delay(1000)
                        Left DbClick
                        Delay(1000)
                End If
        End If
        If Var8 = 1
                ExtVar[15] = GetPicPos["Picture\say.bmp",XY2Pos[871,41],XY2Pos[980,113],30]
                If ExtVar[15] > -1
                        KeyPress(13)
                        Delay(500)
                        Text "請不要搶點好嗎??非常感謝"  //請在" "之間輸入你想說的話
                        Delay(500)
                        KeyPress(13)
                        Delay(500)
                        MouseMove XY2Pos[520,388]
                        Delay(500)
                        Left DbClick
                End If
        End If
        If Pos1 = 1
                ExtVar[16] = GetPicPos["Picture\say.bmp",XY2Pos[871,41],XY2Pos[980,113],30]
                While ExtVar[16] > -1 //遇人停止腳本
                        ExtVar[16] = GetPicPos["Picture\say.bmp",XY2Pos[871,41],XY2Pos[980,113],30]
                        Delay(1000)
                        ExtVar[0] = GetPicPos["Picture\bb.bmp",XY2Pos[643,0],XY2Pos[695,51],30]
                        If ExtVar[0] > -1  //被紅怪打反擊
                                Call OVER
                        End If
                Wend
        End If
        Call FOP
//-----------------------------------------
FOP:
        If Pos5 = 1
                ExtVar[19] = ReadMemory[0x00717E28,3] //X座標
                ExtVar[20] = ReadMemory[0x00717E24,3] //y座標
                ExtVar[21] = ExtVar[17]+Pos6
                ExtVar[22] = ExtVar[17]-Pos6
                ExtVar[23] = ExtVar[18]+Pos6
                ExtVar[24] = ExtVar[18]-Pos6
                While ExtVar[19] > ExtVar[21]
                        ExtVar[19] = ReadMemory[0x00717E28,3] //X座標
                        MouseMove XY2Pos[162,398]
                        Left DbClick
                        Delay(500)
                        ExtVar[25] = ExtVar[25]+1 //防卡點程序
                        If ExtVar[25] = 20
                                Call Look_For_Map_Atk
                        End If
                Wend
                While ExtVar[19] < ExtVar[22]
                        ExtVar[19] = ReadMemory[0x00717E28,3] //X座標
                        MouseMove XY2Pos[832,398]
                        Left DbClick
                        Delay(500)
                        ExtVar[25] = ExtVar[25]+1 //防卡點程序
                        If ExtVar[25] = 20
                                Call Look_For_Map_Atk
                        End If
                Wend
                While ExtVar[20] > ExtVar[23]
                        ExtVar[20] = ReadMemory[0x00717E24,3] //y座標
                        MouseMove XY2Pos[511,623]
                        Left DbClick
                        Delay(500)
                        ExtVar[26] = ExtVar[26]+1 //防卡點程序
                        If ExtVar[26] = 20
                                Call Look_For_Map_Atk
                        End If
                Wend
                While ExtVar[20] < ExtVar[24]
                        ExtVar[20] = ReadMemory[0x00717E24,3] //y座標
                        MouseMove XY2Pos[505,95]
                        Left DbClick
                        Delay(500)
                        ExtVar[26] = ExtVar[26]+1 //防卡點程序
                        If ExtVar[26] = 20
                                Call Look_For_Map_Atk
                        End If
                Wend
        End If
        Call Start_FOD
Return
//-----------------------------------------

[ 本帖最後由 roy215kimo 於 2008-10-17 14:35 編輯 ]
收藏收藏 分享分享 讚 幹 分享分享 FB分享
回覆

使用道具 舉報


cashman8888 當前離線
UID
939887
熱心
24 值
嘉獎
0 次
違規
0 次
在線時間
10 小時
經驗
22 點
積分
22
精華
0
最後登錄
2013-2-5
閱讀權限
20
註冊時間
2008-7-17
論壇幣
26 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
cashman8888 2008-11-6 11:32:44
請照1024x768.jpg檔案的方式擺放既可.
回覆

使用道具 舉報

natamann 該用戶已被刪除
natamann 2008-12-22 03:02:46
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

juice4406 當前離線
UID
762732
熱心
98 值
嘉獎
0 次
違規
0 次
在線時間
30 小時
經驗
18 點
積分
182
精華
0
最後登錄
2016-7-20
閱讀權限
20
註冊時間
2008-2-23
論壇幣
40 幣
聯合幣
16 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
juice4406 2009-7-22 04:04:43

wetwetewtewtetwtwetwet

wetwetewtetwetwetwetewtwetewtwetewtte
回覆

使用道具 舉報

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


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-4-29 19:45 , Processed in 0.052240 second(s), 17 queries , Memcache On.

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

回頂部
第二步?
第三步?