我的空間 ｜　會員中心　｜ VIP會員　｜ 聯合國facebook專區
黃易群俠傳M脫機外掛應用程式黃易神行
外掛聯合國討論區 › 《鈊象電子》 › 《夢夢外掛》 ›
347248
811
發佈主題
返回

[分享] 自動練功、挖礦 (按鍵精靈)(5/3起腳本全失效囉)

金浪漫 發表於 2010-3-27 01:27:27 | 只看該作者 回帖獎勵 |倒序瀏覽 |
本帖最後由 金浪漫 於 2010-6-3 17:29 編輯


目前腳本 :
1.自動練功 (可視窗版、後台、多開)
2.自動挖礦 (可視窗版、後台、多開)
3.自動挖礦加強版 (限定全視窗 , 無法後台)
4.手動練功版 (補紅、補藍、補寵、輔助技能)
5.自動買賣 (限定全視窗 , 與自動練功配合使用)
6.自動釣魚 (可視窗版、後台、多開)
PS : 因為腳本1字元就超過5萬
無法直接貼在POST,所以改發文字檔給大家下載
腳本2.3.4.5.6都放在第3篇POST

小幫手腳本 :
快速幫你撿取物品
還有防止軍團變更職位
建議另建立腳本輔助你其他的腳本運作

  2. Plugin hwnd=Window.Foreground()
  3. Rem 開始
  4. Plugin RRR=MemoryS3.ReadInt(hwnd,"[E3B460]",0)
  5. If Clng(RRR)=1
  6.     Plugin MemoryFish.WriteInt(hwnd,&hE3B460,0,1)
  7. EndIf
  8. Plugin Bkgnd.KeyPress(hwnd,32)
  9. Delay 100
  10. Goto 開始
複製代碼
使用上如有問題 , 請再多看幾次說明
如果還是有問題在提出來
最好的話把問題詳細的說一遍
這樣我比較好清楚的回答你 , 謝謝
PS : 因為個人技術有限
腳本無法做到撿拾非自身附近的物品

關於組隊技能也在此說明一下
因為組隊技能跟一般技能都屬於同類型技能
所以只要有施放組隊技能
之後要放一般技能會放不下去
要等到組隊技能狀態結束才放的下去

自動扭蛋發現一個BUG
第一次扭蛋時候 有時候會點不到物品
請掛網前先把道具欄打開一次就可以解決此問題

電腦作業系統如果是WIN7或VISTA請由系統管理員開啟按鍵精靈

//////////////////////////////更新分隔線/////////////////////////////////
//////////////////////////////更新分隔線/////////////////////////////////
//////////////////////////////更新分隔線/////////////////////////////////

6/3 對應遊戲更新
5/30 對應遊戲更新
5/29 釣魚腳本簡易版 :
支持後台、多開
自動幫按↑↓←→簡單的功能
飼料用光或是釣竿耐久0
腳本自動停止


5/16 自動買賣腳本
增加買箭桶功能
當道具欄中沒有箭桶自動購買5個箭桶
修正之前某些部分寫錯

5/9 自動練功、買賣
對應遊戲更新增加自動開活動箱子
增加固定範圍打怪(需全視窗執行)
例如腳本在100,100啟動
使用範圍20
腳本會在遊戲X座標80-120、Y座標80-120打怪
PS:小地圖需要打開
(不能用2倍地圖、全地圖座標會計算錯誤)
此功能個人覺得運行速度太慢
大家可選擇用或不用

自動練功功能 (整理一下)
自動補紅、補藍、補寵
靈魂伴侶補血(幫伴侶補血非自身補血)
自動放輔助技能
自動放守護神技能(內建熱鍵 1.Insert 2.Home 3.PageUp)
範圍打怪(需全視窗並且打開小地圖)
自動扭蛋(需全視窗使用)
自動回家(負重大於88%、紅藍水任一種喝光)
PS:腳本如果沒有使用全視窗功能就可以後台使用

自動買賣功能 : (限制全視窗版)
自動買水(紅藍水任何低於5灌)
自動賣雜物
自動賣防武 (可選擇級別)
自動修理裝備

內建保留物 : 黃金、歸還卷、物品編號 20900 ∼ 21000
扭蛋裝備 66600-67500 活動箱子22971-22974
預設保留物 : 所有商店的紅藍水、飼料(自定義中)

4/19 挖礦腳本加強版 :
自動賣掉不要物品、自動開箱子
腳本內建保留物品 :
黃金、復活卷、歸還卷、魂石碎片
旅行者專用鏟子、普通鏟子、灰色寶物箱子等7項外
外加 20900 ∼ 21000 這些編號都內建腳本
使用商城鏟子一定要加設
修改後按保存 , 重啟腳本就可以了
PS : 請不熟悉又看不太懂使用方法的人 , 先問清楚在使用
如何得知物品編號 :
請把道具放到前面5格裡
啟動以下的腳本就可以讀取道具的編號

  2. VBSCall ReadMemory(&HE3D03E,2,GoodsID1)
  3. VBSCall ReadMemory(&HE3D077,2,GoodsID2)
  4. VBSCall ReadMemory(&HE3D0B0,2,GoodsID3)
  5. VBSCall ReadMemory(&HE3D0E9,2,GoodsID4)
  6. VBSCall ReadMemory(&HE3D122,2,GoodsID5)
  7. MessageBox "第一格的道具編號：" & GoodsID1 &vbcrlf& "第二格的道具編號：" & GoodsID2 &vbcrlf& "第三格的道具編號：" & GoodsID3 &vbcrlf& "第四格的道具編號：" & GoodsID4 &vbcrlf& "第五格的道具編號：" & GoodsID5
複製代碼
移動滑鼠顯示編號

  2. Plugin hwnd=Window.Foreground()
  3. a=0
  4. Rem 開始
  5. Plugin GoodsID1=MemoryS3.ReadInt(hwnd,"[10D168C]",2)
  6. If GoodsID1<>0 and a=0
  7.     MessageBox "滑鼠所指的道具編號：" & GoodsID1
  8.     a=a+1
  9.     Plugin GoodsID2=MemoryS3.ReadInt(hwnd,"[10D168C]",2)
  10. EndIf
  11. Plugin GoodsID1=MemoryS3.ReadInt(hwnd,"[10D168C]",2)
  12. If GoodsID1<>0 and GoodsID1<>GoodsID2
  13.     MessageBox "滑鼠所指的道具編號：" & GoodsID1
  14.     Plugin GoodsID2=MemoryS3.ReadInt(hwnd,"[10D168C]",2)
  15. EndIf
  16. Delay 100
  17. Goto 開始
複製代碼

遊戲視窗化:
C:\Program Files\IGS\夢夢Online\system
config 筆記本 \ 第一行修改成 RESOLUTION: 800 600 32 -1


注意事項 :
腳本適用       : 台灣伺服器
遊戲版本       : 06031303 (P)
全視窗腳本     : 請把遊戲跟電腦解析設置1024*768(避免錯誤)
按鍵精靈版本 : 7.21 (7.1X以上也可以的樣子)
需要下載插件 : MemoryS3插件、MemoryFish插件
插件網頁位置 : http://bbs.vrbrothers.com/viewth ... hlight=%2B361%B6%C8
以下是MemoryFish.dll插件載點 :
載點1 : http://vspace.cc/file/YITG9VKC6C6WLANL.html
載點2 : http://www.eoenet.com/manage/login.aspx?durl=0100310622275
載點3 : http://fhd.iwgun.net/downfile.ph ... 5&file_key=o0qCzqmf
以下是MemoryFish.dll插件掃毒報告連結 :
http://www.virustotal.com/zh-tw/ ... 0cecdeac-1271547700
以上連結如有違規請通知 , 會把連結取消
如果沒有兄弟論壇的帳號 , 提供一組帳號給人去下載插件
帳號 : ASDF20100407
密碼 : 11111111
插件解壓縮後 , 請放在C:\Program Files\按鍵精靈\plugin
按鍵精靈7.21版本可以去軟體王下載 , 速度會比較快一點

常見問題 :
1.腳本複製建立後 , 啟動腳本為什麼不會動
答 : 需要設定自定義熱鍵

2.啟動腳本後 , 會亂喝水或者滑鼠亂點
答 : 腳本需要下載MemoryS3跟MemoryFish才會正常

3.啟動腳本會一直施放輔助技能
答 : 輔助技能必須放置在技能第一行

4.自定義改變設定後 , 為什麼腳本一樣沒改變
答 : 每次改變自定義設定 , 都需要重新啟動腳本

5.為什麼插件有下載 , 腳本依然無法作用
答 : 下載插件就要重新開啟按鍵精靈才能使用

6.為什麼用沙盤雙開 , 第二個遊戲人物完全不會動
答 : 使用沙盤開啟的遊戲 , 必須用沙盤開啟的按鍵精靈去運作

7.為什麼使用全視窗腳本 , 滑鼠會亂移動
答 : 把電腦跟遊戲解析調成1024*768

8.為什麼常常掛網時候技能會自動跳行
答 : 把快速槽1-5熱鍵全改成NONE(無)

以下是腳本製作程序 :





遊戲修改熱鍵如下 :

【選擇自己】熱鍵改成【 ` 】
因為【 ` 】不明顯 , 所以圖文寫成 【 ∼ 】



１．自動練功腳本 :
腳本載點 :
http://fhd.iwgun.net/downfile.ph ... p;file_key=XPhKi0H3
文件掃毒報告 :
http://www.virustotal.com/zh-tw/ ... 676a0c0b-1275556903
收藏收藏 分享分享 讚讚 幹幹 分享分享 FB分享
回覆

使用道具 舉報


aiwa 當前離線
UID
934191
熱心
63 值
嘉獎
0 次
違規
0 次
在線時間
17 小時
經驗
50 點
積分
50
精華
0
最後登錄
2013-3-14
閱讀權限
20
註冊時間
2008-7-14
論壇幣
71 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
aiwa 2010-3-27 01:46:42
想問大大
如果使用中
切換視窗
遊戲中是否會繼續動作?
還是會停止動作?
或者變系統其餘視窗繼續動作?
YCT62B
回覆

使用道具 舉報

金浪漫 當前離線
UID
498537
熱心
2155 值
嘉獎
0 次
違規
0 次
在線時間
2350 小時
經驗
1335 點
積分
86360
精華
0
最後登錄
2023-11-2
閱讀權限
60
註冊時間
2007-8-16
論壇幣
78185 幣
聯合幣
2324 枚
幸運鑽
833 顆
招待卷
0 點
查看詳細資料
Rank: 7Rank: 7Rank: 7
金浪漫 2010-3-27 01:52:03
本帖最後由 金浪漫 於 2010-6-5 19:05 編輯

２．自動挖礦腳本 :


  3. Plugin hwnd=Window.Foreground()
  4. UserVar aa1=DropList{無:0|按鍵F1:112|按鍵F2:113|按鍵F3:114|按鍵F4:115|按鍵F5:116|按鍵F6:117|按鍵F7:118|按鍵F8:119|按鍵F9:120|按鍵F10:121|按鍵F11:122|按鍵F12:123}=0 【工具熱鍵】
  5. Rem 開始
  6. Gosub 工作
  7. Delay 100
  8. Goto 開始
  9. Sub 工作
  10. Plugin TT=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+2E4F0]",1)
  11. If Clng(TT)=0
  12. Plugin Bkgnd.KeyPress(hwnd,32)
  13. Delay 100
  14. Plugin Bkgnd.KeyPress(hwnd,aa1)
  15. Delay 100
  16. ElseIf Clng(TT)=40
  17. Delay 1000
  18. EndIf
  19. Return 工作

複製代碼
３．自動挖礦腳本增強版 :


  3. Plugin hwnd=Window.Foreground()
  4. UserVar aa1=DropList{無:0|按鍵F1:112|按鍵F2:113|按鍵F3:114|按鍵F4:115|按鍵F5:116|按鍵F6:117|按鍵F7:118|按鍵F8:119|按鍵F9:120|按鍵F10:121|按鍵F11:122|按鍵F12:123}=0 【工具熱鍵】
  5. UserVar dd8=0 保留物品編號
  6. UserVar dd9=0 保留物品編號
  7. UserVar dd10=0 保留物品編號
  8. UserVar dd11=0 保留物品編號
  9. UserVar dd12=0 保留物品編號
  10. UserVar dd13=0 保留物品編號
  11. UserVar dd14=0 保留物品編號
  12. UserVar dd15=0 保留物品編號
  13. UserVar dd16=0 保留物品編號
  14. UserVar dd17=0 保留物品編號
  15. UserVar dd18=0 保留物品編號
  16. UserVar dd19=0 保留物品編號
  17. UserVar dd20=0 保留物品編號
  18. UserVar dd21=0 保留物品編號
  19. UserVar dd22=0 保留物品編號
  20. UserVar dd23=0 保留物品編號
  21. UserVar dd24=0 保留物品編號
  22. UserVar dd25=0 保留物品編號
  23. UserVar dd26=0 保留物品編號
  24. UserVar dd27=0 保留物品編號
  25. UserVar dd28=0 保留物品編號
  26. UserVar dd29=0 保留物品編號
  27. UserVar dd30=0 保留物品編號
  28. dd1=20551
  29. dd2=20592
  30. dd3=20593
  31. dd4=41821
  32. dd5=21093
  33. dd6=23516
  34. dd7=21096
  35. t1=time
  36. Rem 開始
  37. Gosub 工作
  38. Delay 100
  39. Goto 開始
  40. Sub 工作
  41.     Plugin TT=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+2E4F0]",1)
  42.     If Clng(TT)=0
  43.         Plugin Bkgnd.KeyPress(hwnd,aa1)
  44.         Delay 1000
  45.         Gosub 軍團
  46.         Plugin Bkgnd.KeyPress(hwnd,32)
  47.         If DateDiff("s",t1,time)>=2
  48.             Gosub 檢查物品
  49.             t1=time
  50.         EndIf
  51.     ElseIf Clng(TT)=40
  52.         Delay 500
  53.         Gosub 軍團
  54.     EndIf
  55. Return 工作
  56. Sub 檢查物品
  57.     Goods1="E3D03E"
  58.     GoodsDS="E3D047"
  59.     For 60
  60.         Plugin GoodsID=Memory.Read32Bit(hwnd,"&H"&Goods1)
  61.         If clng(GoodsID)=41821
  62.             Gosub 檢查物品1
  63.         EndIf
  64.         If (clng(GoodsID)=>20900 and clng(GoodsID)=<21000) or clng(GoodsID)=dd1 or clng(GoodsID)=dd2 or clng(GoodsID)=dd3 or clng(GoodsID)=dd4 or clng(GoodsID)=dd5 or clng(GoodsID)=dd6 or clng(GoodsID)=dd7 or clng(GoodsID)=dd8 or clng(GoodsID)=dd9 or clng(GoodsID)=dd10 or clng(GoodsID)=dd11 or clng(GoodsID)=dd12 or clng(GoodsID)=dd13 or clng(GoodsID)=dd14 or clng(GoodsID)=dd15 or clng(GoodsID)=dd16 or clng(GoodsID)=dd17 or clng(GoodsID)=dd18 or clng(GoodsID)=dd19 or clng(GoodsID)=dd20 or clng(GoodsID)=dd21 or clng(GoodsID)=dd22 or clng(GoodsID)=dd23 or clng(GoodsID)=dd24 or clng(GoodsID)=dd25 or clng(GoodsID)=dd26 or clng(GoodsID)=dd27 or clng(GoodsID)=dd28 or clng(GoodsID)=dd29 or clng(GoodsID)=dd30 or clng(GoodsID)=0
  65.         Else
  66.             Rem 遠端
  67.             Plugin MemoryFish.WriteInt(hwnd,&H10A93F8,30002,2)
  68.             Plugin MemoryFish.WriteInt(hwnd,&H10A9480,1,1)
  69.             Plugin Ranks0=MemoryS3.ReadInt(hwnd,"[10A6E40]",2)
  70.             Plugin Ranks5=MemoryS3.ReadInt(hwnd,"[10A6E68]",2)
  71.             Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,1,1)
  72.             Plugin MemoryFish.WriteInt(hwnd,Ranks5+292,1,1)
  73.             MoveTo 670,662
  74.             Delay 300
  75.             MoveR 1,0
  76.             Delay 100
  77.             Gosub 軍團
  78.             LeftClick 2
  79.             Delay 300
  80.             Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,0,1)
  81.             Plugin GoodsX=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+128]",1)
  82.             Plugin GoodsY=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+12C]",1)
  83.             FX=GoodsX+28:FY=GoodsY+80:jm=1
  84.             VBSCall ReadMemory(&H10C904C,2,Selling)
  85.             For 60
  86.                 Gosub 軍團
  87.                 VBSCall ReadMemory(Selling,2,SellingID)
  88.                 VBSCall ReadMemory(Selling+&h10,1,SellingS)
  89.                 If clng(SellingID)=0
  90.                     Delay 100
  91.                     Goto 開始
  92.                 ElseIf (clng(SellingID)<20900 or clng(SellingID)>21000) and clng(SellingID)<>dd1 and clng(SellingID)<>dd2 and clng(SellingID)<>dd3 and clng(SellingID)<>dd4 and clng(SellingID)<>dd5 and clng(SellingID)<>dd6 and clng(SellingID)<>dd7 and clng(SellingID)<>dd8 and clng(SellingID)<>dd9 and clng(SellingID)<>dd10 and clng(SellingID)<>dd11 and clng(SellingID)<>dd12 and clng(SellingID)<>dd13 and clng(SellingID)<>dd14 and clng(SellingID)<>dd15 and clng(SellingID)<>dd16 and clng(SellingID)<>dd17 and clng(SellingID)<>dd18 and clng(SellingID)<>dd19 and clng(SellingID)<>dd20 and clng(SellingID)<>dd21 and clng(SellingID)<>dd22 and clng(SellingID)<>dd23 and clng(SellingID)<>dd24 and clng(SellingID)<>dd25 and clng(SellingID)<>dd26 and clng(SellingID)<>dd27 and clng(SellingID)<>dd28 and clng(SellingID)<>dd29 and clng(SellingID)<>dd30 and clng(SellingID)<>0
  93.                     If jm=>31 and jm<=42
  94.                         MoveTo GoodsX+28,GoodsY+80
  95.                         Delay 100
  96.                         MoveR 1,0
  97.                         Delay 100
  98.                         MouseWheel -1
  99.                         Delay 300
  100.                     ElseIf jm=>43 and jm<=55
  101.                         For 2
  102.                             MoveTo GoodsX+28,GoodsY+80
  103.                             Delay 100
  104.                             MoveR 1,0
  105.                             Delay 100
  106.                             MouseWheel -1
  107.                             Delay 300
  108.                         EndFor
  109.                         Delay 300
  110.                     ElseIf jm=>56 and jm<=60
  111.                         For 3
  112.                             MoveTo GoodsX+28,GoodsY+80
  113.                             Delay 100
  114.                             MoveR 1,0
  115.                             Delay 100
  116.                             MouseWheel -1
  117.                         EndFor
  118.                         Delay 300
  119.                     EndIf
  120.                     MoveTo fx,fy
  121.                     Delay 100
  122.                     MoveR 1,0
  123.                     LeftDoubleClick 1
  124.                     Delay 300
  125.                     If clng(SellingS)>1 and clng(SellingS)<500
  126.                         MoveTo fx+76,fy+56
  127.                         Delay 100
  128.                         MoveR 1,0
  129.                         LeftClick 2
  130.                         Delay 300
  131.                         MoveTo fx+87,fy+93
  132.                         Delay 100
  133.                         MoveR 1,0
  134.                         LeftClick 1
  135.                         Delay 300
  136.                     EndIf
  137.                     MoveTo GoodsX+196,GoodsY+309
  138.                     Delay 100
  139.                     MoveR 1,0
  140.                     LeftClick 2
  141.                     Delay 300
  142.                     KeyPress 27,1
  143.                     t1=time
  144.                     Goto 開始
  145.                 EndIf
  146.                 jm=jm+1
  147.                 If jm=7
  148.                     FX=GoodsX+28:FY=GoodsY+113
  149.                 ElseIf jm=13
  150.                     FX=GoodsX+28:FY=GoodsY+146
  151.                 ElseIf jm=19 or jm=31 or jm=43
  152.                     FX=GoodsX+28:FY=GoodsY+179
  153.                 ElseIf jm=25 or jm=37 or jm=49 or jm=55
  154.                     FX=GoodsX+28:FY=GoodsY+212
  155.                 EndIf
  156.                 If jm<>1 and jm<>7 and jm<>13 and jm<>19 and jm<>25 and jm<>31 and jm<>37 and jm<>43 and jm<>49 and jm<>55
  157.                     FX=FX+33
  158.                 EndIf
  159.                 Selling = Selling+20
  160.             EndFor
  161.         EndIf
  162.         Goods1 = Hex(("&H"&Goods1)+&H39)
  163.     EndFor
  164. Return 檢查物品
  165. Sub 檢查物品1
  166.     GGoods1="E3D03E"
  167.     VBSCall ReadMemory(&H109BE08,2,GGoodsM)
  168.     VBSCall ReadMemory(GGoodsM+&H128,1,GGoodsX)
  169.     VBSCall ReadMemory(GGoodsM+&H12C,1,GGoodsY)
  170.     FFX=GGoodsX+26:FFY=GGoodsY+280:jjm=1
  171.     For 60
  172.         Gosub 軍團
  173.         VBSCall ReadMemory("&H"&GGoods1,2,GGoodsID)
  174.         If clng(GGoodsID)=41821
  175.             KeyPress 73,1
  176.             Delay 300
  177.             VBSCall ReadMemory(&H109C000,1,GGSS)
  178.             VBSCall ReadMemory(&H109BFE8,1,GGB)
  179.             If clng(GGB)=1
  180.                 MoveTo GGoodsX+59,GGoodsY+252
  181.                 Delay 100
  182.                 MoveR 1,0
  183.                 LeftClick 1
  184.             EndIf
  185.             If clng(GGSS)<>0
  186.                 For 3
  187.                     MoveTo GGoodsX+26,GGoodsY+280
  188.                     Delay 100
  189.                     MoveR 1,0
  190.                     Delay 100
  191.                     MouseWheel 1
  192.                 EndFor
  193.             EndIf
  194.             If jjm=>31 and jjm<=42
  195.                 MoveTo GGoodsX+26,GGoodsY+280
  196.                 Delay 100
  197.                 MoveR 1,0
  198.                 Delay 100
  199.                 MouseWheel -1
  200.                 Delay 300
  201.             ElseIf jjm=>43 and jjm<=55
  202.                 For 2
  203.                     MoveTo GGoodsX+26,GGoodsY+280
  204.                     Delay 100
  205.                     MoveR 1,0
  206.                     Delay 100
  207.                     MouseWheel -1
  208.                 EndFor
  209.                 Delay 300
  210.             ElseIf jjm=>56 and jjm<=60
  211.                 For 3
  212.                     MoveTo GGoodsX+26,GGoodsY+280
  213.                     Delay 100
  214.                     MoveR 1,0
  215.                     Delay 100
  216.                     MouseWheel -1
  217.                 EndFor
  218.                 Delay 300
  219.             EndIf
  220.             MoveTo FFX,FFY
  221.             Delay 100
  222.             MoveR 1,0
  223.             LeftDoubleClick 1
  224.             Delay 300
  225.             MoveTo 584,484
  226.             Delay 100
  227.             MoveR 1,0
  228.             LeftClick 1
  229.             Delay 8000
  230.             Gosub 軍團
  231.             MoveTo 511,483
  232.             Delay 100
  233.             MoveR 1,0
  234.             Delay 100
  235.             LeftClick 1
  236.             Delay 300
  237.             VBSCall ReadMemory(&H109BFF4,1,GGD)
  238.             If clng(GGD)=1
  239.                 KeyPress 73,1
  240.             EndIf
  241.             t1=time
  242.             Goto 開始
  243.             If jjm>=31
  244.                 For 3
  245.                     MoveTo GGoodsX+26,GGoodsY+280
  246.                     Delay 100
  247.                     MoveR 1,0
  248.                     Delay 100
  249.                     MouseWheel 3
  250.                 EndFor
  251.             EndIf
  252.         EndIf
  253.         jjm=jjm+1
  254.         If jjm=7
  255.             FFX=GGoodsX+26:FFY=GGoodsY+313
  256.         ElseIf jjm=13
  257.             FFX=GGoodsX+26:FFY=GGoodsY+336
  258.         ElseIf jjm=19 or jjm=31 or jjm=43
  259.             FFX=GGoodsX+26:FFY=GGoodsY+369
  260.         ElseIf jjm=25 or jjm=37 or jjm=49 or jjm=55
  261.             FFX=GGoodsX+26:FFY=GGoodsY+402
  262.         EndIf
  263.         If jjm<>1 and jjm<>7 and jjm<>13 and jjm<>19 and jjm<>25 and jjm<>31 and jjm<>37 and jjm<>43 and jjm<>49 and jjm<>55
  264.             FFX=FFX+33
  265.         EndIf
  266.         GGoods1 = Hex(("&H"&GGoods1)+&H39)
  267.     EndFor
  268. Return 檢查物品1
  269. Sub 軍團
  270.     Plugin RRR=MemoryS3.ReadInt(hwnd,"[E3B460]",0)
  271.     If Clng(RRR)=1
  272.         Plugin MemoryFish.WriteInt(hwnd,&hE3B460,0,1)
  273.     EndIf
  274. Return 軍團

複製代碼
４．自動補紅、補藍、補寵、輔助技能 :


  3. Plugin hwnd=Window.Foreground()
  4. UserVar as1=DropList{無:0|按鍵F1:112|按鍵F2:113|按鍵F3:114|按鍵F4:115|按鍵F5:116|按鍵F6:117|按鍵F7:118|按鍵F8:119|按鍵F9:120|按鍵F10:121|按鍵F11:122|按鍵F12:123}=0 【藥水補HP熱鍵】
  5. UserVar hpt=DropList{無:0|10%補HP:0.1|20%補HP:0.2|30%補HP:0.3|40%補HP:0.4|50%補HP:0.5|60%補HP:0.6|70%補HP:0.7|80%補HP:0.8|90%補HP:0.9}=0 【藥水補HP%數】
  6. UserVar as9=DropList{無:0|按鍵F1:112|按鍵F2:113|按鍵F3:114|按鍵F4:115|按鍵F5:116|按鍵F6:117|按鍵F7:118|按鍵F8:119|按鍵F9:120|按鍵F10:121|按鍵F11:122|按鍵F12:123}=0 【瞬補HP熱鍵】
  7. UserVar hpatt=DropList{無:0|10%補HP:0.1|20%補HP:0.2|30%補HP:0.3|40%補HP:0.4|50%補HP:0.5}=0 【瞬補HP%數】
  8. UserVar as2=DropList{無:0|按鍵F1:112|按鍵F2:113|按鍵F3:114|按鍵F4:115|按鍵F5:116|按鍵F6:117|按鍵F7:118|按鍵F8:119|按鍵F9:120|按鍵F10:121|按鍵F11:122|按鍵F12:123}=0 【藥水補MP熱鍵】
  9. UserVar mpt=DropList{無:0|10%補MP:0.1|20%補MP:0.2|30%補MP:0.3|40%補MP:0.4|50%補MP:0.5|60%補MP:0.6|70%補MP:0.7|80%補MP:0.8|90%補MP:0.9}=0 【藥水補MP%數】
  10. UserVar ad1=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【輔助技能1】
  11. UserVar ad2=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【輔助技能2】
  12. UserVar ad3=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【輔助技能3】
  13. UserVar ad4=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【輔助技能4】
  14. UserVar ad5=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【輔助技能5】
  15. UserVar ad6=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【點人輔助技能1】
  16. UserVar ad7=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【點人輔助技能2】
  17. UserVar ad8=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【點人輔助技能3】
  18. UserVar ad9=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【點人輔助技能4】
  19. UserVar ad10=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【點人輔助技能5】
  20. UserVar zoo1=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:48|按鍵-:189|按鍵=:187}=0 【飼料熱鍵】
  21. DDD=0
  22. Rem 開始
  23. Gosub 偵測HPMP
  24. Gosub 輔助技能
  25. Delay 100
  26. Goto 開始
  27. Sub 偵測HPMP
  28.     Gosub 記憶體
  29.     If Clng(HP)<=Clng(HPM)*hpatt and as9<>0 and (E1<>28 and E2<>28 and E3<>28 and E4<>28 and E5<>28 and E6<>28 and E7<>28 and E8<>28 and E9<>28and E10<>28 and E11<>28 and E12<>28)
  30.         Plugin Bkgnd.KeyPress(hwnd,as9)
  31.     EndIf
  32.     If Clng(HP)<=Clng(HPM)*hpt and as1<>0 and Clng(HPF)=0 and (E1<>28 and E2<>28 and E3<>28 and E4<>28 and E5<>28 and E6<>28 and E7<>28 and E8<>28 and E9<>28and E10<>28 and E11<>28 and E12<>28)
  33.         Plugin Bkgnd.KeyPress(hwnd,as1)
  34.     EndIf
  35.     If Clng(MP)<=Clng(MPM)*mpt
  36.         Plugin Bkgnd.KeyPress(hwnd,as2)
  37.     EndIf
  38.     If Clng(ZOO)<=79 and Clng(ZOO)<>0
  39.         Plugin Bkgnd.KeyPress(hwnd,zoo1)
  40.     EndIf
  41.     Delay 100
  42. Return 偵測HPMP
  43. Sub 輔助技能
  44.     Gosub 記憶體
  45.     If (Clng(E1)<>Clng(W1) and Clng(E2)<>Clng(W1) and Clng(E3)<>Clng(W1) and Clng(E4)<>Clng(W1) and Clng(E5)<>Clng(W1) and Clng(E6)<>Clng(W1) and Clng(E7)<>Clng(W1) and Clng(E8)<>Clng(W1) and Clng(E9)<>Clng(W1) and Clng(E10)<>Clng(W1) and Clng(E11)<>Clng(W1) and Clng(E12)<>Clng(W1) and Clng(E13)<>Clng(W1) and Clng(E14)<>Clng(W1)) and (Clng(W1)<>0 or Clng(W1)<>65535) and (ad1=49 or ad2=49 or ad3=49 or ad4=49 or ad5=49 or ad6=49 or ad7=49 or ad8=49 or ad9=49 or ad10=49) and Clng(M1)=0
  46.         If ad6=49 or ad7=49 or ad8=49 or ad9=49 or ad10=49
  47.             Plugin Bkgnd.KeyPress(hwnd,192)
  48.         EndIf
  49.         If DDD=>1 and DDD<=12
  50.             Delay 3200
  51.         EndIf
  52.         Plugin Bkgnd.KeyPress(hwnd,49)
  53.         DDD=DDD+1
  54.     EndIf
  55.     If (Clng(E1)<>Clng(W2) and Clng(E2)<>Clng(W2) and Clng(E3)<>Clng(W2) and Clng(E4)<>Clng(W2) and Clng(E5)<>Clng(W2) and Clng(E6)<>Clng(W2) and Clng(E7)<>Clng(W2) and Clng(E8)<>Clng(W2) and Clng(E9)<>Clng(W2) and Clng(E10)<>Clng(W2) and Clng(E11)<>Clng(W2) and Clng(E12)<>Clng(W2) and Clng(E13)<>Clng(W2) and Clng(E14)<>Clng(W2)) and (Clng(W2)<>0 or Clng(W2)<>65535) and (ad1=50 or ad2=50 or ad3=50 or ad4=50 or ad5=50 or ad6=50 or ad7=50 or ad8=50 or ad9=50 or ad10=50) and Clng(M2)=0
  56.         If ad6=50 or ad7=50 or ad8=50 or ad9=50 or ad10=50
  57.             Plugin Bkgnd.KeyPress(hwnd,192)
  58.         EndIf
  59.         If DDD=>1 and DDD<=12
  60.             Delay 3200
  61.         EndIf
  62.         Plugin Bkgnd.KeyPress(hwnd,50)
  63.         DDD=DDD+1
  64.     EndIf
  65.     If (Clng(E1)<>Clng(W3) and Clng(E2)<>Clng(W3) and Clng(E3)<>Clng(W3) and Clng(E4)<>Clng(W3) and Clng(E5)<>Clng(W3) and Clng(E6)<>Clng(W3) and Clng(E7)<>Clng(W3) and Clng(E8)<>Clng(W3) and Clng(E9)<>Clng(W3) and Clng(E10)<>Clng(W3) and Clng(E11)<>Clng(W3) and Clng(E12)<>Clng(W3) and Clng(E13)<>Clng(W3) and Clng(E14)<>Clng(W3)) and (Clng(W3)<>0 or Clng(W3)<>65535) and (ad1=51 or ad2=51 or ad3=51 or ad4=51 or ad5=51 or ad6=51 or ad7=51 or ad8<>0 or ad9=51 or ad10=51) and Clng(M3)=0
  66.         If ad6=51 or ad7=51 or ad8=51 or ad9=51 or ad10=51
  67.             Plugin Bkgnd.KeyPress(hwnd,192)
  68.         EndIf
  69.         If DDD=>1 and DDD<=12
  70.             Delay 3200
  71.         EndIf
  72.         Plugin Bkgnd.KeyPress(hwnd,51)
  73.         DDD=DDD+1
  74.     EndIf
  75.     If (Clng(E1)<>Clng(W4) and Clng(E2)<>Clng(W4) and Clng(E3)<>Clng(W4) and Clng(E4)<>Clng(W4) and Clng(E5)<>Clng(W4) and Clng(E6)<>Clng(W4) and Clng(E7)<>Clng(W4) and Clng(E8)<>Clng(W4) and Clng(E9)<>Clng(W4) and Clng(E10)<>Clng(W4) and Clng(E11)<>Clng(W4) and Clng(E12)<>Clng(W4) and Clng(E13)<>Clng(W4) and Clng(E14)<>Clng(W4)) and (Clng(W4)<>0 or Clng(W4)<>65535) and (ad1=52 or ad2=52 or ad3=52 or ad4=52 or ad5=52 or ad6=52 or ad7=52 or ad8=52 or ad9=52 or ad10=52) and Clng(M4)=0
  76.         If ad6=52 or ad7=52 or ad8=52 or ad9=52 or ad10=52
  77.             Plugin Bkgnd.KeyPress(hwnd,192)
  78.         EndIf
  79.         If DDD=>1 and DDD<=12
  80.             Delay 3200
  81.         EndIf
  82.         Plugin Bkgnd.KeyPress(hwnd,52)
  83.         DDD=DDD+1
  84.     EndIf
  85.     If (Clng(E1)<>Clng(W5) and Clng(E2)<>Clng(W5) and Clng(E3)<>Clng(W5) and Clng(E4)<>Clng(W5) and Clng(E5)<>Clng(W5) and Clng(E6)<>Clng(W5) and Clng(E7)<>Clng(W5) and Clng(E8)<>Clng(W5) and Clng(E9)<>Clng(W5) and Clng(E10)<>Clng(W5) and Clng(E11)<>Clng(W5) and Clng(E12)<>Clng(W5) and Clng(E13)<>Clng(W5) and Clng(E14)<>Clng(W5)) and (Clng(W5)<>0 or Clng(W5)<>65535) and (ad1=53 or ad2=53 or ad3=53 or ad4=53 or ad5=53 or ad6=53 or ad7=53 or ad8=53 or ad9=53 or ad10=53) and Clng(M5)=0
  86.         If ad6=53 or ad7=53 or ad8=53 or ad9=53 or ad10=53
  87.             Plugin Bkgnd.KeyPress(hwnd,192)
  88.         EndIf
  89.         If DDD=>1 and DDD<=12
  90.             Delay 3200
  91.         EndIf
  92.         Plugin Bkgnd.KeyPress(hwnd,53)
  93.         DDD=DDD+1
  94.     EndIf
  95.     If (Clng(E1)<>Clng(W6) and Clng(E2)<>Clng(W6) and Clng(E3)<>Clng(W6) and Clng(E4)<>Clng(W6) and Clng(E5)<>Clng(W6) and Clng(E6)<>Clng(W6) and Clng(E7)<>Clng(W6) and Clng(E8)<>Clng(W6) and Clng(E9)<>Clng(W6) and Clng(E10)<>Clng(W6) and Clng(E11)<>Clng(W6) and Clng(E12)<>Clng(W6) and Clng(E13)<>Clng(W6) and Clng(E14)<>Clng(W6)) and (Clng(W6)<>0 or Clng(W6)<>65535) and (ad1=54 or ad2=54 or ad3=54 or ad4=54 or ad5=54 or ad6=54 or ad7=54 or ad8=54 or ad9=54 or ad10=54) and Clng(M6)=0
  96.         If ad6=54 or ad7=54 or ad8=54 or ad9=54 or ad10=54
  97.             Plugin Bkgnd.KeyPress(hwnd,192)
  98.         EndIf
  99.         If DDD=>1 and DDD<=12
  100.             Delay 3200
  101.         EndIf
  102.         Plugin Bkgnd.KeyPress(hwnd,54)
  103.         DDD=DDD+1
  104.     EndIf
  105.     If (Clng(E1)<>Clng(W7) and Clng(E2)<>Clng(W7) and Clng(E3)<>Clng(W7) and Clng(E4)<>Clng(W7) and Clng(E5)<>Clng(W7) and Clng(E6)<>Clng(W7) and Clng(E7)<>Clng(W7) and Clng(E8)<>Clng(W7) and Clng(E9)<>Clng(W7) and Clng(E10)<>Clng(W7) and Clng(E11)<>Clng(W7) and Clng(E12)<>Clng(W7) and Clng(E13)<>Clng(W7) and Clng(E14)<>Clng(W7)) and (Clng(W7)<>0 or Clng(W7)<>65535) and (ad1=55 or ad2=55 or ad3=55 or ad4=55 or ad5=55 or ad6=55 or ad7=55 or ad8=55 or ad9=55 or ad10=55) and Clng(M7)=0
  106.         If ad6=55 or ad7=55 or ad8=55 or ad9=55 or ad10=55
  107.             Plugin Bkgnd.KeyPress(hwnd,192)
  108.         EndIf
  109.         If DDD=>1 and DDD<=12
  110.             Delay 3200
  111.         EndIf
  112.         Plugin Bkgnd.KeyPress(hwnd,55)
  113.         DDD=DDD+1
  114.     EndIf
  115.     If (Clng(E1)<>Clng(W8) and Clng(E2)<>Clng(W8) and Clng(E3)<>Clng(W8) and Clng(E4)<>Clng(W8) and Clng(E5)<>Clng(W8) and Clng(E6)<>Clng(W8) and Clng(E7)<>Clng(W8) and Clng(E8)<>Clng(W8) and Clng(E9)<>Clng(W8) and Clng(E10)<>Clng(W8) and Clng(E11)<>Clng(W8) and Clng(E12)<>Clng(W8) and Clng(E13)<>Clng(W8) and Clng(E14)<>Clng(W8)) and (Clng(W8)<>0 or Clng(W8)<>65535) and (ad1=56 or ad2=56 or ad3=56 or ad4=56 or ad5=56 or ad6=56 or ad7=56 or ad8=56 or ad9=56 or ad10=56) and Clng(M8)=0
  116.         If ad6=56 or ad7=56 or ad8=56 or ad9=56 or ad10=56
  117.             Plugin Bkgnd.KeyPress(hwnd,192)
  118.         EndIf
  119.         If DDD=>1 and DDD<=12
  120.             Delay 3200
  121.         EndIf
  122.         Plugin Bkgnd.KeyPress(hwnd,56)
  123.         DDD=DDD+1
  124.     EndIf
  125.     If (Clng(E1)<>Clng(W9) and Clng(E2)<>Clng(W9) and Clng(E3)<>Clng(W9) and Clng(E4)<>Clng(W9) and Clng(E5)<>Clng(W9) and Clng(E6)<>Clng(W9) and Clng(E7)<>Clng(W9) and Clng(E8)<>Clng(W9) and Clng(E9)<>Clng(W9) and Clng(E10)<>Clng(W9) and Clng(E11)<>Clng(W9) and Clng(E12)<>Clng(W9) and Clng(E13)<>Clng(W9) and Clng(E14)<>Clng(W9)) and (Clng(W9)<>0 or Clng(W9)<>65535) and (ad1=57 or ad2=57 or ad3=57 or ad4=57 or ad5=57 or ad6=57 or ad7=57 or ad8=57 or ad9=57 or ad10=57) and Clng(M9)=0
  126.         If ad6=57 or ad7=57 or ad8=57 or ad9=57 or ad10=57
  127.             Plugin Bkgnd.KeyPress(hwnd,192)
  128.         EndIf
  129.         If DDD=>1 and DDD<=12
  130.             Delay 3200
  131.         EndIf
  132.         Plugin Bkgnd.KeyPress(hwnd,57)
  133.         DDD=DDD+1
  134.     EndIf
  135.     If (Clng(E1)<>Clng(W10) and Clng(E2)<>Clng(W10) and Clng(E3)<>Clng(W10) and Clng(E4)<>Clng(W10) and Clng(E5)<>Clng(W10) and Clng(E6)<>Clng(W10) and Clng(E7)<>Clng(W10) and Clng(E8)<>Clng(W10) and Clng(E9)<>Clng(W10) and Clng(E10)<>Clng(W10) and Clng(E11)<>Clng(W10) and Clng(E12)<>Clng(W10) and Clng(E13)<>Clng(W10) and Clng(E14)<>Clng(W10)) and (Clng(W10)<>0 or Clng(W10)<>65535) and (ad1=48 or ad2=48 or ad3=48 or ad4=48 or ad5=48 or ad6=48 or ad7=48 or ad8=48 or ad9=48 or ad10=48) and Clng(M10)=0
  136.         If ad6=48 or ad7=48 or ad8=48 or ad9=48 or ad10=48
  137.             Plugin Bkgnd.KeyPress(hwnd,192)
  138.         EndIf
  139.         If DDD=>1 and DDD<=12
  140.             Delay 3200
  141.         EndIf
  142.         Plugin Bkgnd.KeyPress(hwnd,48)
  143.         DDD=DDD+1
  144.     EndIf
  145.     If (Clng(E1)<>Clng(W11) and Clng(E2)<>Clng(W11) and Clng(E3)<>Clng(W11) and Clng(E4)<>Clng(W11) and Clng(E5)<>Clng(W11) and Clng(E6)<>Clng(W11) and Clng(E7)<>Clng(W11) and Clng(E8)<>Clng(W11) and Clng(E9)<>Clng(W11) and Clng(E10)<>Clng(W11) and Clng(E11)<>Clng(W11) and Clng(E12)<>Clng(W11) and Clng(E13)<>Clng(W11) and Clng(E14)<>Clng(W11)) and (Clng(W11)<>0 or Clng(W11)<>65535) and (ad1=189 or ad2=189 or ad3=189 or ad4=189 or ad5=189 or ad6=189 or ad7=189 or ad8=189 or ad9=189 or ad10=189) and Clng(M11)=0
  146.         If ad6=189 or ad7=189 or ad8=189 or ad9=189 or ad10=189
  147.             Plugin Bkgnd.KeyPress(hwnd,192)
  148.         EndIf
  149.         If DDD=>1 and DDD<=12
  150.             Delay 3200
  151.         EndIf
  152.         Plugin Bkgnd.KeyPress(hwnd,189)
  153.         DDD=DDD+1
  154.     EndIf
  155.     If (Clng(E1)<>Clng(W12) and Clng(E2)<>Clng(W12) and Clng(E3)<>Clng(W12) and Clng(E4)<>Clng(W12) and Clng(E5)<>Clng(W12) and Clng(E6)<>Clng(W12) and Clng(E7)<>Clng(W12) and Clng(E8)<>Clng(W12) and Clng(E9)<>Clng(W12) and Clng(E10)<>Clng(W12) and Clng(E11)<>Clng(W12) and Clng(E12)<>Clng(W12) and Clng(E13)<>Clng(W12) and Clng(E14)<>Clng(W12)) and (Clng(W12)<>0 or Clng(W12)<>65535) and (ad1=187 or ad2=187 or ad3=187 or ad4=187 or ad5=187 or ad6=187 or ad7=187 or ad8=187 or ad9=187 or ad10=187) and Clng(M12)=0
  156.         If ad6=187 or ad7=187 or ad8=187 or ad9=187 or ad10=187
  157.             Plugin Bkgnd.KeyPress(hwnd,192)
  158.         EndIf
  159.         If DDD=>1 and DDD<=12
  160.             Delay 3200
  161.         EndIf
  162.         Plugin Bkgnd.KeyPress(hwnd,187)
  163.         DDD=DDD+1
  164.     EndIf
  165.     DDD=13
  166. Return 輔助技能
  167. Sub 記憶體
  168.     Plugin E1=MemoryS3.ReadInt(hwnd,"[[[E3DDBC]+7F0]+2]",1)
  169.     Plugin E2=MemoryS3.ReadInt(hwnd,"[[[[E3DDBC]+7F0]+24]+2]",1)
  170.     Plugin E3=MemoryS3.ReadInt(hwnd,"[[[[[E3DDBC]+7F0]+24]+24]+2]",1)
  171.     Plugin E4=MemoryS3.ReadInt(hwnd,"[[[[[[E3DDBC]+7F0]+24]+24]+24]+2]",1)
  172.     Plugin E5=MemoryS3.ReadInt(hwnd,"[[[[[[[E3DDBC]+7F0]+24]+24]+24]+24]+2]",1)
  173.     Plugin E6=MemoryS3.ReadInt(hwnd,"[[[[[[[[E3DDBC]+7F0]+24]+24]+24]+24]+24]+2]",1)
  174.     Plugin E7=MemoryS3.ReadInt(hwnd,"[[[[[[[[[E3DDBC]+7F0]+24]+24]+24]+24]+24]+24]+2]",1)
  175.     Plugin E8=MemoryS3.ReadInt(hwnd,"[[[[[[[[[[E3DDBC]+7F0]+24]+24]+24]+24]+24]+24]+24]+2]",1)
  176.     Plugin E9=MemoryS3.ReadInt(hwnd,"[[[[[[[[[[[E3DDBC]+7F0]+24]+24]+24]+24]+24]+24]+24]+24]+2]",1)
  177.     Plugin E10=MemoryS3.ReadInt(hwnd,"[[[[[[[[[[[[E3DDBC]+7F0]+24]+24]+24]+24]+24]+24]+24]+24]+24]+2]",1)
  178.     Plugin E11=MemoryS3.ReadInt(hwnd,"[[[[[[[[[[[[[E3DDBC]+7F0]+24]+24]+24]+24]+24]+24]+24]+24]+24]+24]+2]",1)
  179.     Plugin E12=MemoryS3.ReadInt(hwnd,"[[[[[[[[[[[[[[E3DDBC]+7F0]+24]+24]+24]+24]+24]+24]+24]+24]+24]+24]+24]+2]",1)
  180.     Plugin E13=MemoryS3.ReadInt(hwnd,"[[[[[[[[[[[[[[[E3DDBC]+7F0]+24]+24]+24]+24]+24]+24]+24]+24]+24]+24]+24]+24]+2]",1)
  181.     Plugin E14=MemoryS3.ReadInt(hwnd,"[[[[[[[[[[[[[[[[E3DDBC]+7F0]+24]+24]+24]+24]+24]+24]+24]+24]+24]+24]+24]+24]+24]+2]",1)
  182.     Plugin w1=MemoryS3.ReadInt(hwnd,"[10C20CC]",1)
  183.     Plugin w2=MemoryS3.ReadInt(hwnd,"[10C21F0]",1)
  184.     Plugin w3=MemoryS3.ReadInt(hwnd,"[10C2314]",1)
  185.     Plugin w4=MemoryS3.ReadInt(hwnd,"[10C2438]",1)
  186.     Plugin w5=MemoryS3.ReadInt(hwnd,"[10C255C]",1)
  187.     Plugin w6=MemoryS3.ReadInt(hwnd,"[10C2680]",1)
  188.     Plugin w7=MemoryS3.ReadInt(hwnd,"[10C27A4]",1)
  189.     Plugin w8=MemoryS3.ReadInt(hwnd,"[10C28C8]",1)
  190.     Plugin w9=MemoryS3.ReadInt(hwnd,"[10C29EC]",1)
  191.     Plugin w10=MemoryS3.ReadInt(hwnd,"[10C2B10]",1)
  192.     Plugin w11=MemoryS3.ReadInt(hwnd,"[10C2C34]",1)
  193.     Plugin w12=MemoryS3.ReadInt(hwnd,"[10C2D58]",1)
  194.     Plugin M1=MemoryS3.ReadInt(hwnd,"[[10C1BC4]+124]",0)
  195.     Plugin M2=MemoryS3.ReadInt(hwnd,"[[10C1BC8]+124]",0)
  196.     Plugin M3=MemoryS3.ReadInt(hwnd,"[[10C1BCC]+124]",0)
  197.     Plugin M4=MemoryS3.ReadInt(hwnd,"[[10C1BD0]+124]",0)
  198.     Plugin M5=MemoryS3.ReadInt(hwnd,"[[10C1BD4]+124]",0)
  199.     Plugin M6=MemoryS3.ReadInt(hwnd,"[[10C1BD8]+124]",0)
  200.     Plugin M7=MemoryS3.ReadInt(hwnd,"[[10C1BDC]+124]",0)
  201.     Plugin M8=MemoryS3.ReadInt(hwnd,"[[10C1BE0]+124]",0)
  202.     Plugin M9=MemoryS3.ReadInt(hwnd,"[[10C1BE4]+124]",0)
  203.     Plugin M10=MemoryS3.ReadInt(hwnd,"[[10C1BE8]+124]",0)
  204.     Plugin M11=MemoryS3.ReadInt(hwnd,"[[10C1BEC]+124]",0)
  205.     Plugin M12=MemoryS3.ReadInt(hwnd,"[[10C1BF0]+124]",0)
  206.     Plugin HP=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+262]",2)
  207.     Plugin HPM=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+25C]",2)
  208.     Plugin MP=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+266]",1)
  209.     Plugin MPM=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+260]",1)
  210.     Plugin HPF=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+2C4]",2)
  211.     Plugin ZOO=MemoryS3.ReadInt(hwnd,"[[10C0BA4]+4C]",1)
  212. Return 記憶體

複製代碼
５．自動買賣 :


  3. Plugin hwnd=Window.Foreground()
  4. UserVar as1=DropList{無:0|按鍵F1:112|按鍵F2:113|按鍵F3:114|按鍵F4:115|按鍵F5:116|按鍵F6:117|按鍵F7:118|按鍵F8:119|按鍵F9:120|按鍵F10:121|按鍵F11:122|按鍵F12:123}=0 【紅水位置】
  5. UserVar as2=DropList{無:0|按鍵F1:112|按鍵F2:113|按鍵F3:114|按鍵F4:115|按鍵F5:116|按鍵F6:117|按鍵F7:118|按鍵F8:119|按鍵F9:120|按鍵F10:121|按鍵F11:122|按鍵F12:123}=0 【藍水位置】
  6. UserVar aa1=DropList{無:0,0|小的體力恢復劑(1000):28,80|體力恢復劑(2000):61,80|大的體力恢復劑(4000):94,80|強力體力恢復劑(8000):127,80|驚喜體力恢復劑(16000):160,80|神秘的體力恢復劑(32000):193,80|特別的體力恢復劑(64000):28,113}=0 【購買紅水種類】
  7. UserVar aas1=DropList{無:0,0,0,0|10灌:15,54,34,111|20灌:34,54,34,111|30灌:53,54,34,111|40灌:15,73,34,111|50灌:34,73,34,111|60灌:53,73,34,111|70灌:15,92,34,111|80灌:34,92,34,111|90灌:53,92,34,111}=0 【購買紅水數量】
  8. UserVar aa2=DropList{無:0,0|小的魔力恢復劑(100):61,113|魔力恢復劑(200):94,113|大的魔力恢復劑(300):127,113|強力魔力恢復劑(400):160,113|驚喜魔力恢復劑(500):193,113|神秘的魔力恢復劑(600):28,146|特別的魔力恢復劑(700):61,146}=0 【購買藍水種類】
  9. UserVar aas2=DropList{無:0,0,0,0|10灌:15,54,34,111|20灌:34,54,34,111|30灌:53,54,34,111|40灌:15,73,34,111|50灌:34,73,34,111|60灌:53,73,34,111|70灌:15,92,34,111|80灌:34,92,34,111|90灌:53,92,34,111}=0 【購買藍水數量】
  10. UserVar aa3=DropList{不購買:0,0,0|箭桶:160,179,20562|石功箭桶:193,179,20565|弩炮箭桶:28,213,20568}=0 【購買箭桶種類】
  11. UserVar YDD=DropList{不賣裝:0|精品裝以下(黃):6|希有裝以下(紫):7}=0 【賣裝備】
  12. UserVar YYD=DropList{不修理:0|耐久小於10:10|耐久小於20:20|耐久小於30:30|耐久小於40:40|耐久小於50:50|耐久小於60:60|耐久小於70:118|耐久小於80:80|耐久小於90:90}=0 【修理裝備】
  13. aa1 = Split(aa1,",")
  14. aa2 = Split(aa2,",")
  15. aa3 = Split(aa3,",")
  16. aas1 = Split(aas1,",")
  17. aas2 = Split(aas2,",")
  18. as1bits="10C6AEC":as2bits="10C6AEC":ass1=as1-112:ass2=as2-112
  19. UserVar dd3=20586 【1000紅】
  20. UserVar dd4=20572 【2000紅】
  21. UserVar dd5=20573 【4000紅】
  22. UserVar dd6=20589 【8000紅】
  23. UserVar dd7=20587 【16000紅】
  24. UserVar dd8=20616 【32000紅】
  25. UserVar dd9=20618 【64000紅】
  26. UserVar dd10=20577 【100藍】
  27. UserVar dd11=20578 【200藍】
  28. UserVar dd12=20579 【300藍】
  29. UserVar dd13=20590 【400藍】
  30. UserVar dd14=20588 【500藍】
  31. UserVar dd15=20617 【600藍】
  32. UserVar dd16=20619 【700藍】
  33. UserVar dd17=23225 【低階的野菜飼料】
  34. UserVar dd18=23227 【低階的肉質飼料】
  35. UserVar dd19=23228 【低階的油質飼料】
  36. UserVar dd20=0 【保留物品編號】
  37. UserVar dd21=0 【保留物品編號】
  38. UserVar dd22=0 【保留物品編號】
  39. UserVar dd23=0 【保留物品編號】
  40. UserVar dd24=0 【保留物品編號】
  41. UserVar dd25=0 【保留物品編號】
  42. UserVar dd26=0 【保留物品編號】
  43. UserVar dd27=0 【保留物品編號】
  44. UserVar dd28=0 【保留物品編號】
  45. UserVar dd29=0 【保留物品編號】
  46. UserVar dd30=0 【保留物品編號】
  47. dd1=20551
  48. dd2=20593
  49. If as1<>0
  50.     For ass1
  51.         as1bits = Hex(("&H"&as1bits)+&H124)
  52.     EndFor
  53. EndIf
  54. If as2<>0
  55.     For ass2
  56.         as2bits = Hex(("&H"&as2bits)+&H124)
  57.     EndFor
  58. EndIf
  59. Rem 開始
  60. Gosub 除錯
  61. Gosub 檢查轉蛋
  62. Gosub 購買紅藍
  63. Gosub 檢查物品
  64. Gosub 檢查防武
  65. Gosub 檢查裝備
  66. Gosub 檢查箭桶
  67. Delay 100
  68. Goto 開始
  69. Sub 檢查轉蛋
  70.     Goods1="E3D03E"
  71.     For 60
  72.         Plugin GoodsID=Memory.Read32Bit(hwnd,"&H"&Goods1)
  73.         If (clng(GoodsID)=>66600 and clng(GoodsID)=<67500) or (clng(GoodsID)=>22791 and clng(GoodsID)=<22794)
  74.             Delay 1000
  75.             Goto 開始
  76.         EndIf
  77.         Goods1 = Hex(("&H"&Goods1)+&H39)
  78.     EndFor
  79. Return 檢查轉蛋
  80. Sub 檢查箭桶
  81.     Goods1="E3D03E"
  82.     For 60
  83.         Plugin GoodsID=Memory.Read32Bit(hwnd,"&H"&Goods1)
  84.         If clng(GoodsID)=clng(aa3(2)) or clng(aa3(2))=0
  85.             Delay 1000
  86.             Goto 開始
  87.         EndIf
  88.         Goods1 = Hex(("&H"&Goods1)+&H39)
  89.     EndFor
  90.     Gosub 購買箭桶
  91. Return 檢查箭桶
  92. Sub 購買箭桶
  93.     Gosub 遠端
  94.     Plugin GoodsX=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+128]",1)
  95.     Plugin GoodsY=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+12C]",1)
  96.     For 5
  97.         MoveTo Clng(GoodsX)+aa3(0),Clng(GoodsY)+aa3(1)
  98.         Delay 100
  99.         MoveR 0,1
  100.         Delay 30
  101.         LeftDoubleClick 1
  102.         Delay 30
  103.     EndFor
  104.     MoveTo Clng(GoodsX)+196,Clng(GoodsY)+309
  105.     Delay 100
  106.     MoveR 0,1
  107.     Delay 30
  108.     LeftClick 1
  109.     Delay 300
  110.     Gosub 除錯
  111.     Plugin GSSX=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+124]",0)
  112.     If Clng(GSSX)=1
  113.         KeyPress 27,1
  114.         Delay 5000
  115.     EndIf
  116. Return 購買箭桶
  117. Sub 購買紅藍
  118.     Plugin as1bit=Memory.Read16Bit(hwnd,"&H"&as1bits)
  119.     Plugin as2bit=Memory.Read16Bit(hwnd,"&H"&as2bits)
  120.     If clng(as1bit)<=5
  121.         Gosub 遠端
  122.         Plugin GoodsX=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+128]",1)
  123.         Plugin GoodsY=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+12C]",1)
  124.         MoveTo Clng(GoodsX)+aa1(0),Clng(GoodsY)+aa1(1)
  125.         Delay 100
  126.         MoveR 0,1
  127.         Delay 30
  128.         LeftDoubleClick 1
  129.         Delay 200
  130.         MoveTo Clng(GoodsX)+aa1(0)+aas1(0),Clng(GoodsY)+aa1(1)+aas1(1)
  131.         Delay 100
  132.         MoveR 0,1
  133.         Delay 100
  134.         LeftClick 1
  135.         Delay 200
  136.         If aas1(2)<>0
  137.             MoveTo Clng(GoodsX)+aa1(0)+aas1(2),Clng(GoodsY)+aa1(1)+aas1(3)
  138.             Delay 100
  139.             MoveR 0,1
  140.             Delay 30
  141.             LeftClick 1
  142.             Delay 200
  143.         EndIf
  144.         MoveTo Clng(GoodsX)+aa1(0)+85,Clng(GoodsY)+aa1(1)+91
  145.         Delay 100
  146.         MoveR 0,1
  147.         Delay 30
  148.         LeftClick 1
  149.         Delay 200
  150.         MoveTo Clng(GoodsX)+196,Clng(GoodsY)+309
  151.         Delay 100
  152.         MoveR 0,1
  153.         Delay 30
  154.         LeftClick 1
  155.         Delay 300
  156.     EndIf
  157.     If clng(as2bit)<=5
  158.         Gosub 遠端
  159.         Plugin GoodsX=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+128]",1)
  160.         Plugin GoodsY=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+12C]",1)
  161.         MoveTo Clng(GoodsX)+aa2(0),Clng(GoodsY)+aa2(1)
  162.         Delay 100
  163.         MoveR 0,1
  164.         Delay 30
  165.         LeftDoubleClick 1
  166.         Delay 200
  167.         MoveTo Clng(GoodsX)+aa2(0)+aas2(0),Clng(GoodsY)+aa2(1)+aas2(1)
  168.         Delay 100
  169.         MoveR 0,1
  170.         Delay 30
  171.         LeftClick 1
  172.         Delay 200
  173.         If aas2(2)<>0
  174.             MoveTo Clng(GoodsX)+aa2(0)+aas2(2),Clng(GoodsY)+aa2(1)+aas2(3)
  175.             Delay 100
  176.             MoveR 0,1
  177.             Delay 30
  178.             LeftClick 1
  179.             Delay 200
  180.         EndIf
  181.         MoveTo Clng(GoodsX)+aa2(0)+85,Clng(GoodsY)+aa2(1)+91
  182.         Delay 100
  183.         MoveR 0,1
  184.         Delay 30
  185.         LeftClick 1
  186.         Delay 200
  187.         MoveTo Clng(GoodsX)+196,Clng(GoodsY)+309
  188.         Delay 100
  189.         MoveR 0,1
  190.         Delay 100
  191.         LeftClick 1
  192.         Delay 300
  193.     EndIf
  194.     Gosub 除錯
  195.     Plugin GSSX=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+124]",0)
  196.     If Clng(GSSX)=1
  197.         KeyPress 27,1
  198.         Delay 5000
  199.     EndIf
  200. Return 購買紅藍
  201. Sub 除錯
  202.     Plugin FFSX=MemoryS3.ReadInt(hwnd,"[[13C1168]+124]",0)
  203.     If Clng(FFSX)=1
  204.         KeyPress 27,1
  205.     EndIf
  206.     Plugin DSX=MemoryS3.ReadInt(hwnd,"[[109F74C]+124]",0)
  207.     If Clng(DSX)=1
  208.         Delay 300
  209.         MoveTo 515,430
  210.         Delay 300
  211.         MoveR 1,0
  212.         Delay 100
  213.         LeftClick 1
  214.         Delay 300
  215.     EndIf
  216. Return 除錯
  217. Sub 遠端
  218.     Plugin MemoryFish.WriteInt(hwnd,&H10A93F8,30001,2)
  219.     Plugin MemoryFish.WriteInt(hwnd,&H10A9480,1,1)
  220.     Plugin Ranks0=MemoryS3.ReadInt(hwnd,"[10A6E40]",2)
  221.     Plugin Ranks5=MemoryS3.ReadInt(hwnd,"[10A6E68]",2)
  222.     Plugin MemoryFish.WriteInt(hwnd,&H10A32C0,4,1)
  223.     Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,1,1)
  224.     Plugin MemoryFish.WriteInt(hwnd,Ranks5+292,1,1)
  225.     MoveTo 670,662
  226.     Delay 300
  227.     MoveR 1,0
  228.     Delay 100
  229.     LeftClick 1
  230.     Delay 300
  231.     Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,0,1)
  232.     Plugin MemoryFish.WriteInt(hwnd,&H109F4EC,0,1)
  233.     Plugin MemoryFish.WriteInt(hwnd,&H10C8F24,0,1)
  234.     Plugin MemoryFish.WriteInt(hwnd,&H10C9124,0,1)
  235. Return 遠端
  236. Sub 檢查物品
  237.     Goods1="E3D03E"
  238.     GoodsDS="E3D047"
  239.     For 60
  240.         Plugin GoodsID=Memory.Read32Bit(hwnd,"&H"&Goods1)
  241.         If (clng(GoodsID)=>20900 and clng(GoodsID)=<21000) or (clng(GoodsID)=>22971 and clng(GoodsID)=<22794) or clng(SellingID)=clng(aa3(2)) or (clng(GoodsID)=>66600 and clng(GoodsID)=<67500) or clng(GoodsID)=dd1 or clng(GoodsID)=dd2 or clng(GoodsID)=dd3 or clng(GoodsID)=dd4 or clng(GoodsID)=dd5 or clng(GoodsID)=dd6 or clng(GoodsID)=dd7 or clng(GoodsID)=dd8 or clng(GoodsID)=dd9 or clng(GoodsID)=dd10 or clng(GoodsID)=dd11 or clng(GoodsID)=dd12 or clng(GoodsID)=dd13 or clng(GoodsID)=dd14 or clng(GoodsID)=dd15 or clng(GoodsID)=dd16 or clng(GoodsID)=dd17 or clng(GoodsID)=dd18 or clng(GoodsID)=dd19 or clng(GoodsID)=dd20 or clng(GoodsID)=dd21 or clng(GoodsID)=dd22 or clng(GoodsID)=dd23 or clng(GoodsID)=dd24 or clng(GoodsID)=dd25 or clng(GoodsID)=dd26 or clng(GoodsID)=dd27 or clng(GoodsID)=dd28 or clng(GoodsID)=dd29 or clng(GoodsID)=dd30 or clng(GoodsID)=0
  242.         Else
  243.             Rem 遠端賣
  244.             Plugin MemoryFish.WriteInt(hwnd,&H10A93F8,30002,2)
  245.             Plugin MemoryFish.WriteInt(hwnd,&H10A9480,1,1)
  246.             Plugin Ranks0=MemoryS3.ReadInt(hwnd,"[10A6E40]",2)
  247.             Plugin Ranks5=MemoryS3.ReadInt(hwnd,"[10A6E68]",2)
  248.             Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,1,1)
  249.             Plugin MemoryFish.WriteInt(hwnd,Ranks5+292,1,1)
  250.             MoveTo 670,662
  251.             Delay 300
  252.             MoveR 1,0
  253.             Delay 100
  254.             LeftClick 2
  255.             Delay 300
  256.             Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,0,1)
  257.             Plugin MemoryFish.WriteInt(hwnd,&H109F4EC,0,1)
  258.             Plugin MemoryFish.WriteInt(hwnd,&H10C8F24,0,1)
  259.             Plugin MemoryFish.WriteInt(hwnd,&H10C9124,0,1)
  260.             Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,0,1)
  261.             Plugin GoodsX=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+128]",1)
  262.             Plugin GoodsY=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+12C]",1)
  263.             FX=GoodsX+28:FY=GoodsY+80:jm=1
  264.             VBSCall ReadMemory(&H10C904C,2,Selling)
  265.             For 60
  266.                 VBSCall ReadMemory(Selling,2,SellingID)
  267.                 VBSCall ReadMemory(Selling+&h10,2,SellingS)
  268.                 If clng(SellingID)=0
  269.                     Delay 100
  270.                     Goto 開始
  271.                 ElseIf (clng(SellingID)<20900 or clng(SellingID)>21000) and (clng(SellingID)<22971 or clng(SellingID)>22974) and (clng(SellingID)<66600 or clng(SellingID)>67500) and clng(SellingID)<>clng(aa3(2)) and clng(SellingID)<>dd1 and clng(SellingID)<>dd2 and clng(SellingID)<>dd3 and clng(SellingID)<>dd4 and clng(SellingID)<>dd5 and clng(SellingID)<>dd6 and clng(SellingID)<>dd7 and clng(SellingID)<>dd8 and clng(SellingID)<>dd9 and clng(SellingID)<>dd10 and clng(SellingID)<>dd11 and clng(SellingID)<>dd12 and clng(SellingID)<>dd13 and clng(SellingID)<>dd14 and clng(SellingID)<>dd15 and clng(SellingID)<>dd16 and clng(SellingID)<>dd17 and clng(SellingID)<>dd18 and clng(SellingID)<>dd19 and clng(SellingID)<>dd20 and clng(SellingID)<>dd21 and clng(SellingID)<>dd22 and clng(SellingID)<>dd23 and clng(SellingID)<>dd24 and clng(SellingID)<>dd25 and clng(SellingID)<>dd26 and clng(SellingID)<>dd27 and clng(SellingID)<>dd28 and clng(SellingID)<>dd29 and clng(SellingID)<>dd30 and clng(SellingID)<>0
  272.                     If jm=>31 and jm<=42
  273.                         MoveTo GoodsX+28,GoodsY+80
  274.                         Delay 100
  275.                         MoveR 1,0
  276.                         Delay 100
  277.                         MouseWheel -1
  278.                         Delay 300
  279.                     ElseIf jm=>43 and jm<=55
  280.                         For 2
  281.                             MoveTo GoodsX+28,GoodsY+80
  282.                             Delay 100
  283.                             MoveR 1,0
  284.                             Delay 100
  285.                             MouseWheel -1
  286.                             Delay 300
  287.                         EndFor
  288.                         Delay 300
  289.                     ElseIf jm=>56 and jm<=60
  290.                         For 3
  291.                             MoveTo GoodsX+28,GoodsY+80
  292.                             Delay 100
  293.                             MoveR 1,0
  294.                             Delay 100
  295.                             MouseWheel -1
  296.                         EndFor
  297.                         Delay 300
  298.                     EndIf
  299.                     MoveTo fx,fy
  300.                     Delay 100
  301.                     MoveR 1,0
  302.                     LeftDoubleClick 1
  303.                     Delay 300
  304.                     If clng(SellingS)>1 and clng(SellingS)<500 and clng(SellingS)<>300
  305.                         MoveTo fx+76,fy+56
  306.                         Delay 100
  307.                         MoveR 1,0
  308.                         LeftClick 2
  309.                         Delay 300
  310.                         MoveTo fx+87,fy+93
  311.                         Delay 100
  312.                         MoveR 1,0
  313.                         LeftClick 1
  314.                         Delay 300
  315.                     EndIf
  316.                     MoveTo GoodsX+196,GoodsY+309
  317.                     Delay 100
  318.                     MoveR 1,0
  319.                     LeftClick 2
  320.                     Delay 300
  321.                     KeyPress 27,1
  322.                     Delay 5000
  323.                     Goto 開始
  324.                 EndIf
  325.                 jm=jm+1
  326.                 If jm=7
  327.                     FX=GoodsX+28:FY=GoodsY+113
  328.                 ElseIf jm=13
  329.                     FX=GoodsX+28:FY=GoodsY+146
  330.                 ElseIf jm=19 or jm=31 or jm=43
  331.                     FX=GoodsX+28:FY=GoodsY+179
  332.                 ElseIf jm=25 or jm=37 or jm=49 or jm=55
  333.                     FX=GoodsX+28:FY=GoodsY+212
  334.                 EndIf
  335.                 If jm<>1 and jm<>7 and jm<>13 and jm<>19 and jm<>25 and jm<>31 and jm<>37 and jm<>43 and jm<>49 and jm<>55
  336.                     FX=FX+33
  337.                 EndIf
  338.                 Selling = Selling+20
  339.             EndFor
  340.         EndIf
  341.         Goods1 = Hex(("&H"&Goods1)+&H39)
  342.     EndFor
  343. Return 檢查物品
  344. Sub 檢查防武
  345.     If YDD<>0
  346.         Gttds1="E3C990"
  347.         Gttds2="E3C99E"
  348.         GttdsDS="E3C9AA"
  349.         For 30
  350.             Plugin GttdsID=Memory.Read32Bit(hwnd,"&H"&Gttds1)
  351.             Plugin GttdsT=Memory.Read16Bit(hwnd,"&H"&Gttds2)
  352.             Plugin GttdsR=Memory.Read8Bit(hwnd,"&H"&GttdsDS)
  353.             If clng(GttdsR)>=YDD and clng(GttdsT)>=50
  354.             ElseIf clng(GttdsR)<YDD and clng(GttdsT)>=50
  355.                 Rem 遠端賣防武
  356.                 Plugin MemoryFish.WriteInt(hwnd,&H10A93F8,30026,2)
  357.                 Plugin MemoryFish.WriteInt(hwnd,&H10A9480,1,1)
  358.                 Plugin Ranks0=MemoryS3.ReadInt(hwnd,"[10A6E40]",2)
  359.                 Plugin Ranks5=MemoryS3.ReadInt(hwnd,"[10A6E68]",2)
  360.                 Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,1,1)
  361.                 Plugin MemoryFish.WriteInt(hwnd,Ranks5+292,1,1)
  362.                 MoveTo 670,662
  363.                 Delay 300
  364.                 MoveR 1,0
  365.                 Delay 100
  366.                 LeftClick 2
  367.                 Delay 300
  368.                 Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,0,1)
  369.                 Plugin MemoryFish.WriteInt(hwnd,&H109F4EC,0,1)
  370.                 Plugin MemoryFish.WriteInt(hwnd,&H10C8F24,0,1)
  371.                 Plugin MemoryFish.WriteInt(hwnd,&H10C9124,0,1)
  372.                 Plugin GoodsX=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+128]",1)
  373.                 Plugin GoodsY=MemoryS3.ReadInt(hwnd,"[[10C8D5C]+12C]",1)
  374.                 FX=GoodsX+28:FY=GoodsY+80:jm=1
  375.                 VBSCall ReadMemory(&H10C904C,2,Selling)
  376.                 For 30
  377.                     VBSCall ReadMemory(Selling,2,SellingID)
  378.                     If clng(SellingID)=0
  379.                         Delay 100
  380.                         Goto 開始
  381.                     ElseIf clng(SellingID)=clng(GttdsID)
  382.                         MoveTo fx,fy
  383.                         Delay 100
  384.                         MoveR 1,0
  385.                         LeftDoubleClick 1
  386.                         Delay 300
  387.                         MoveTo GoodsX+196,GoodsY+309
  388.                         Delay 100
  389.                         MoveR 1,0
  390.                         LeftClick 2
  391.                         Delay 500
  392.                         KeyPress 27,1
  393.                         Delay 5000
  394.                         Goto 開始
  395.                     EndIf
  396.                     jm=jm+1
  397.                     If jm=7
  398.                         FX=GoodsX+28:FY=GoodsY+113
  399.                     ElseIf jm=13
  400.                         FX=GoodsX+28:FY=GoodsY+146
  401.                     ElseIf jm=19
  402.                         FX=GoodsX+28:FY=GoodsY+179
  403.                     ElseIf jm=25
  404.                         FX=GoodsX+28:FY=GoodsY+212
  405.                     EndIf
  406.                     If jm<>1 and jm<>7 and jm<>13 and jm<>19 and jm<>25
  407.                         FX=FX+33
  408.                     EndIf
  409.                     Selling = Selling+20
  410.                 EndFor
  411.             EndIf
  412.             Gttds1 = Hex(("&H"&Gttds1)+&H39)
  413.             Gttds2 = Hex(("&H"&Gttds2)+&H39)
  414.             GttdsDS = Hex(("&H"&GttdsDS)+&H39)
  415.         EndFor
  416.     EndIf
  417. Return 檢查防武
  418. Sub 檢查裝備
  419.     Plugin RAE1=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+435]",0)
  420.     Plugin RAE2=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+46E]",0)
  421.     Plugin RAE3=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+4A7]",0)
  422.     Plugin RAE4=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+4E0]",0)
  423.     Plugin RAE5=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+519]",0)
  424.     Plugin RAE6=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+5FD]",0)
  425.     Plugin RAE7=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+636]",0)
  426.     Plugin RAE1T=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+436]",1)
  427.     Plugin RAE2T=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+46F]",1)
  428.     Plugin RAE3T=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+4A8]",1)
  429.     Plugin RAE4T=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+4E1]",1)
  430.     Plugin RAE5T=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+51A]",1)
  431.     Plugin RAE6T=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+5FE]",1)
  432.     Plugin RAE7T=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+637]",1)
  433.     If ((Clng(RAE1)<=YYD and Clng(RAE1T)<>0) or (Clng(RAE2)<=YYD and Clng(RAE2T)<>0) or (Clng(RAE3)<=YYD and Clng(RAE3T)<>0) or (Clng(RAE4)<=YYD and Clng(RAE4T)<>0) or (Clng(RAE5)<=YYD and Clng(RAE5T)<>0) or (Clng(RAE6)<=YYD and Clng(RAE6T)<>0) or (Clng(RAE7)<=YYD and Clng(RAE7T)<>0)) and YYD<>0
  434.         Gosub 裝備修理
  435.     EndIf
  436. Return 檢查裝備
  437. Sub 裝備修理
  438.     Plugin MemoryFish.WriteInt(hwnd,&H10A93F8,30069,2)
  439.     Plugin MemoryFish.WriteInt(hwnd,&H10A9480,1,1)
  440.     Plugin Ranks0=MemoryS3.ReadInt(hwnd,"[10A6E40]",2)
  441.     Plugin Ranks5=MemoryS3.ReadInt(hwnd,"[10A6E68]",2)
  442.     Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,1,1)
  443.     Plugin MemoryFish.WriteInt(hwnd,Ranks5+292,1,1)
  444.     MoveTo 670,662
  445.     Delay 300
  446.     MoveR 1,0
  447.     Delay 100
  448.     LeftClick 2
  449.     Delay 300
  450.     Plugin MemoryFish.WriteInt(hwnd,Ranks0+292,0,1)
  451.     Plugin GoodAX=MemoryS3.ReadInt(hwnd,"[[13C1620]+128]",1)
  452.     Plugin GoodAY=MemoryS3.ReadInt(hwnd,"[[13C1620]+12C]",1)
  453.     If Clng(GoodAY)>60000
  454.         GoodAY=Clng(GoodAY)-65535
  455.     EndIf
  456.     MoveTo GoodAX+88,GoodAY+581
  457.     Delay 100
  458.     MoveR 1,0
  459.     Delay 100
  460.     LeftClick 1
  461.     Delay 1000
  462.     MoveTo 453,430
  463.     Delay 50
  464.     MoveR 1,0
  465.     Delay 100
  466.     LeftClick 1
  467.     Delay 1000
  468.     MoveTo 515,430
  469.     Delay 50
  470.     MoveR 1,0
  471.     Delay 100
  472.     LeftClick 1
  473.     Delay 300
  474.     Plugin GAAX=MemoryS3.ReadInt(hwnd,"[[13C1620]+124]",0)
  475.     If Clng(GAAX)=1
  476.         KeyPress 27,1
  477.         Delay 5000
  478.     EndIf
  479. Return 裝備修理

複製代碼
６．自動釣魚腳本 :


  3. Plugin hwnd=Window.Foreground()
  4. UserVar as1=DropList{無:0|按鍵【F1】:112|按鍵【F2】:113|按鍵【F3】:114|按鍵【F4】:115|按鍵【F5】:116|按鍵【F6】:117|按鍵【F7】:118|按鍵【F8】:119|按鍵【F9】:120|按鍵【F10】:121|按鍵【F11】:122|按鍵【F12】:123|按鍵【1】:49|按鍵【2】:50|按鍵【3】:51|按鍵【4】:52|按鍵【5】:53|按鍵【6】:54|按鍵【7】:55|按鍵【8】:56|按鍵【9】:57|按鍵【0】:48|按鍵【-】:189|按鍵【=】:187}=0 【釣魚技能】
  5. UserVar CCC=DropList{不換餌:0|自動換餌(限全視窗):1}=0 【換餌選擇】
  6. Rem 開始
  7. Plugin D0=Memory.Read8Bit(hwnd,&H17D2698)
  8. If Clng(D0)=1
  9.     Key="17D14E4"
  10.     For 8
  11.         Plugin Keys=Memory.Read16Bit(hwnd,"&H"&Key)
  12.         If clng(Keys)=37
  13.             Plugin Bkgnd.KeyPress(hwnd,37)
  14.         ElseIf clng(Keys)=38
  15.             Plugin Bkgnd.KeyPress(hwnd,38)
  16.         ElseIf clng(Keys)=39
  17.             Plugin Bkgnd.KeyPress(hwnd,39)
  18.         ElseIf clng(Keys)=40
  19.             Plugin Bkgnd.KeyPress(hwnd,40)
  20.         ElseIf clng(Keys)>40 or clng(Keys)<37
  21.             Goto 開始
  22.         EndIf
  23.         Key = Hex(("&H"&Key)+&HC)
  24.     EndFor
  25. ElseIf Clng(D0)=0 and ccc=1
  26.     Gosub 記憶體
  27.     If Clng(FID)=0 and Clng(D1)=1 and (SAID="釣魚竿的耐久度不足." or SAID="背包空間不足.")
  28.         EndScript
  29.     ElseIf Clng(FIE)=0 and Clng(D1)=1 and SAID="沒有魚餌."
  30.         MoveTo 515,430
  31.         Gosub 移動滑鼠單擊
  32.         Delay 300
  33.     EndIf
  34.     Gosub 記憶體
  35.     If Clng(D1)=0 and Clng(D2)=0 and Clng(QQO)=0
  36.         Plugin Bkgnd.KeyPress(hwnd,as1)
  37.         Delay 300
  38.     ElseIf Clng(QQO)=1 and Clng(D1)=0 and Clng(D2)=0
  39.         Gosub 進行扭蛋
  40.     EndIf
  41.     Gosub 記憶體
  42.     If Clng(D1)=1 and Clng(D2)=104
  43.         MoveTo 423,430
  44.         Gosub 移動滑鼠單擊
  45.         Delay 500
  46.     EndIf
  47.     Gosub 記憶體
  48.     If Clng(D1)=1 and Clng(D2)=109
  49.         MoveTo 423,430
  50.         Gosub 移動滑鼠單擊
  51.         Delay 500
  52.     EndIf
  53. EndIf
  54. Delay 30
  55. Goto 開始
  56. Sub 進行扭蛋
  57.     MoveTo 584,484
  58.     Gosub 移動滑鼠單擊
  59.     Delay 500
  60.     Rem 等扭蛋結束
  61.     Gosub 記憶體
  62.     If clng(QQA)=0
  63.         Delay 100
  64.         Goto 等扭蛋結束
  65.     ElseIf clng(QQA)=1
  66.         MoveTo 511,483
  67.         Gosub 移動滑鼠單擊
  68.         Delay 500
  69.     EndIf
  70. Return 進行扭蛋
  71. Sub 移動滑鼠單擊
  72.     Delay 100
  73.     MoveR 1,0
  74.     Delay 30
  75.     LeftClick 1
  76. Return 移動滑鼠單擊
  77. Sub 記憶體
  78.     Plugin FID=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+636]",0)
  79.     Plugin SAID=MemoryS3.ReadString(hwnd,"[[109F750]+25C]",20,0)
  80.     Plugin FIE=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+66B]",1)
  81.     Plugin QQO=MemoryS3.ReadInt(hwnd,"[109C1DC]",0)
  82.     Plugin QQA=MemoryS3.ReadInt(hwnd,"[[109C1A4]+124]",0)
  83.     Plugin D1=MemoryS3.ReadInt(hwnd,"[E3B460]",0)
  84.     Plugin D2=MemoryS3.ReadInt(hwnd,"[17D1D30]",0)
  85. Return 記憶體
複製代碼
葉子的離開　
是因為風的追求 ?　
還是樹的不挽留 ?

都錯!! 那是因為你平常都不澆水
或著是太陽太大、季節變化
不要老懷著浪漫情節對你是好的!!
回覆

使用道具 舉報

aiwa 當前離線
UID
934191
熱心
63 值
嘉獎
0 次
違規
0 次
在線時間
17 小時
經驗
50 點
積分
50
精華
0
最後登錄
2013-3-14
閱讀權限
20
註冊時間
2008-7-14
論壇幣
71 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
aiwa 2010-3-27 01:53:53
相當感謝大大分享
應該也可以邊掛邊去玩其他遊戲吧
YCT39B
回覆

使用道具 舉報

金浪漫 當前離線
UID
498537
熱心
2155 值
嘉獎
0 次
違規
0 次
在線時間
2350 小時
經驗
1335 點
積分
86360
精華
0
最後登錄
2023-11-2
閱讀權限
60
註冊時間
2007-8-16
論壇幣
78185 幣
聯合幣
2324 枚
幸運鑽
833 顆
招待卷
0 點
查看詳細資料
Rank: 7Rank: 7Rank: 7
5層
金浪漫 2010-3-27 01:55:58
自行測試看看吧
不過其他遊戲不要有np或者hs
還是其他的防外掛軟體
不然按鍵精靈一樣會被檔
葉子的離開　
是因為風的追求 ?　
還是樹的不挽留 ?

都錯!! 那是因為你平常都不澆水
或著是太陽太大、季節變化
不要老懷著浪漫情節對你是好的!!
回覆

使用道具 舉報

aiwa 當前離線
UID
934191
熱心
63 值
嘉獎
0 次
違規
0 次
在線時間
17 小時
經驗
50 點
積分
50
精華
0
最後登錄
2013-3-14
閱讀權限
20
註冊時間
2008-7-14
論壇幣
71 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
6層
aiwa 2010-3-27 01:57:21
那還真的糟糕了...
YCT57B

果然還是要找破解才行阿
回覆

使用道具 舉報

gost101730 當前離線
UID
1429924
熱心
27 值
嘉獎
0 次
違規
0 次
在線時間
7 小時
經驗
27 點
積分
27
精華
0
最後登錄
2010-4-18
閱讀權限
20
註冊時間
2010-3-22
論壇幣
29 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
7層
gost101730 2010-3-27 02:38:58
@@"按鍵精靈不會被擋住嗎? 但還是謝謝大大的分享!
回覆

使用道具 舉報

aiwa 當前離線
UID
934191
熱心
63 值
嘉獎
0 次
違規
0 次
在線時間
17 小時
經驗
50 點
積分
50
精華
0
最後登錄
2013-3-14
閱讀權限
20
註冊時間
2008-7-14
論壇幣
71 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
8層
aiwa 2010-3-27 02:43:41
夢夢目前已經把神盾關閉了喔
所以就趁現在快用吧
YCT47B
回覆

使用道具 舉報

bearcook 當前離線
UID
678624
熱心
58 值
嘉獎
0 次
違規
0 次
在線時間
21 小時
經驗
58 點
積分
58
精華
0
最後登錄
2012-6-25
閱讀權限
20
註冊時間
2007-12-15
論壇幣
28 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
9層
bearcook 2010-3-27 03:22:25
謝謝大大分享
很感謝你 可以多一點分享讓我們有機會知道多一點　
回覆

使用道具 舉報

neverdark 當前離線
UID
1426343
熱心
32 值
嘉獎
0 次
違規
0 次
在線時間
26 小時
經驗
28 點
積分
28
精華
0
最後登錄
2014-2-6
閱讀權限
20
註冊時間
2010-3-15
論壇幣
754 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
10層
neverdark 2010-3-27 05:10:55
大大可以請教一下嗎？小弟修改script遇到下面問題：
Q1:
Sub 偵測HPMP
    Gosub 記憶體
    If Clng(HP)<=(Clng(HPM)*0.4)
        Plugin Bkgnd.KeyPress(hwnd,187)
    EndIf
    If Clng(MPM)<=(Clng(MP)*0.2)
        Plugin Bkgnd.KeyPress(hwnd,189)
    EndIf
Return 偵測HPMP
為什麼我開使就會猛喝藍喝紅？？？我有設定hp小於40%mp小於20%為何指令無法運作？

Q2:
If Clng(QT)>=(Clng(QTM)*0.9) or Clng(HP)<=(Clng(HPM)*0.3)
        Plugin Bkgnd.KeyPress(hwnd,117)
        Delay 1000
        MessageBox 使用歸還卷軸1 , 停止腳本
    EndIf

小弟將回卷改到F6, 同時並設定hp低於30%會使用捲軸...但是開場就會跳出使用回卷訊息...是hp偵測那邊有問題嗎？有問題要如何修正？

麻煩大大解謎阿...第一次用按鍵精靈><
回覆

使用道具 舉報

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

12345678910... 82下一頁

手機版 | Archiver | 外掛聯合國

GMT+8, 2024-11-22 08:51 , Processed in 0.058695 second(s), 16 queries , Memcache On.

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

回頂部