當前位置:首頁 » 編程軟體 » 自動撿物品腳本

自動撿物品腳本

發布時間: 2022-07-25 16:48:05

① 按鍵精靈 腳本 自動撿物 如何做

思路是這樣的:
1、findpic找到圖的坐標x和y。假設已知物品的像素是寬x高=w和h,則物品的揀取坐標是x+(w/2)和y+(h/2)
2、屏幕點擊上述揀取坐標位置,等待人物走到物品上。
3、點擊角色腳下的位置,完成揀取。

② 按鍵精靈怎麼設置自動撿東西

//F1紅 F2 F3技能 F8回城卷
VBS dim hp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r
VBS dim ye,zidongzhaoguai,zidongjianwu,xp
VBS m=85:n=10
VBS a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""
VBS c=0:d=0
VBS dim jn1,jn2
VBS jn1=0:jn2=0
UserVar ye=1 選擇職業 0近戰 1遠戰
UserVar hp=50 紅量<%多少時,補紅
UserVar zidongzhaoguai=1 0定點刷怪 1自動刷怪
UserVar zidongjianwu=1 0不自動撿物 1自動撿物
UserVar xp=1 選擇使用哪種XP技能,從右到左1,2,3
Rem 機戰
Gosub 找怪
Gosub 攻擊怪
Gosub 補紅
Gosub 撿錢
Gosub 撿熟練度
Gosub 撿流星
Gosub 撿粉紅水晶
Gosub 撿藍水晶x
Gosub 撿聚態水晶
Gosub 檢測xp
Gosub 無彈回城
Gosub 拒絕交易
Gosub 同意組隊
Gosub 關閉推薦任務
Gosub 關閉導師界面
Delay 32
Goto 機戰
Sub 找怪
If zidongzhaoguai=1
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 32
VBS c=c+1
If c>4
Delay 225
MoveTo 510 500
LeftClick 1
Gosub 快速找怪
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 520
MoveTo 100 330
LeftClick 1
Gosub 快速找怪
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 520
MoveTo 510 200
LeftClick 1
Gosub 快速找怪
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 520
MoveTo 920 330
LeftClick 1
Gosub 快速找怪
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
Return
Sub 攻擊怪
VBSCall FindColorEx(479,49,922,399,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x-20 y+20
LeftClick 1
Delay 32
Gosub 攻擊
VBSCall FindColorEx(479,339,922,650,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x-20 y-20
LeftClick 1
Delay 32
Gosub 攻擊
VBSCall FindColorEx(99,339,479,658,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x+20 y-20
LeftClick 1
Delay 32
Gosub 攻擊
VBSCall FindColorEx(83,85,479,399,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x+20 y+20
LeftClick 1
Delay 32
Gosub 攻擊
EndIf
EndIf
EndIf
EndIf
Return
Sub 攻擊
VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)
If x>=0 and y>=0
MoveTo x+n y+m
RightClick 1
Gosub 技能1
Gosub 技能2
Else
VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)
If x>=0 and y>=0
MoveTo x+n y+m-n
RightClick 1
EndIf
EndIf
Return
Sub 快速找怪
VBSCall FindColorEx(313,10,315,12,"0",1,0.8,x,y)
If x<0 and y<0
KeyDown 17 1
LeftClick 1
KeyUp 17 1
EndIf
Return
Sub 技能1
IfColor 139 45 ae21 2
Delay 32
VBS jn1=jn1+1
If jn1>=4
KeyPress 113 1
VBS jn1=0
EndIf
EndIf
Return
Sub 技能2
IfColor 139 45 ae21 2
Delay 32
VBS jn2=jn2+1
If jn2>=8
KeyPress 114 1
VBS jn2=0
EndIf
EndIf
Return
Sub 補紅
IfColor hp*1.13+121 31 313033 2
KeyPress 112 1
EndIf
Return
Sub 撿錢
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS a=x1:b=y1
VBSCall FindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo a b
Delay 32
LeftClick 1
VBS a="":b=""
EndIf
EndIf
EndIf
Return
Sub 撿熟練度
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS e=x1:f=y1
VBSCall FindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo e f
Delay 32
LeftClick 1
VBS e="":f=""
EndIf
EndIf
EndIf
Return
Sub 撿流星
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS g=x1:h=y1
VBSCall FindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo g h
Delay 32
LeftClick 1
VBS g="":h=""
EndIf
EndIf
EndIf
Return
Sub 撿粉紅水晶
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS i=x1:j=y1
VBSCall FindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo i j
Delay 32
LeftClick 1
VBS i="":j=""
EndIf
EndIf
EndIf
Return
Sub 撿藍水晶
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS k=x1:l=y1
VBSCall FindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo k l
Delay 32
LeftClick 1
VBS k="":l=""
EndIf
EndIf
EndIf
Return
Sub 撿聚態水晶
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS q=x1:r=y1
VBSCall FindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo g h
Delay 32
LeftClick 1
VBS q="":r=""
EndIf
EndIf
EndIf
Return
Sub 檢測xp
VBSCall FindColorEx(800,500,900,550,"cdb886",1,0.8,x,y)
If x>=0 and y>=0
Gosub xp1
Gosub xp2
Gosub xp3
EndIf
Return
Sub xp1
If xp=1
MoveTo 935 540
Delay 32
LeftClick 1
EndIf
Return
Sub xp2
If xp=2
MoveTo 881 547
Delay 32
LeftClick 1
EndIf
Return
Sub xp3
If xp=3
MoveTo 812 551
Delay 32
LeftClick 1
EndIf
Return
Sub 無彈回城
If ye=1
VBSCall FindColorEx(575,6,580,10,"101010",1,0.8,x,y)
If x<0 and y<0
Delay 32
VBS d=d+1
If d=6
KeyPress 119 1
EndIf
EndIf
EndIf
Return
Sub 拒絕交易
VBSCall FindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1)
VBSCall FindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2)
VBSCall FindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3)
If x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
MoveTo 312 390
Delay 32
LeftClick 1
EndIf
Return
Sub 同意組隊
VBSCall FindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1)
VBSCall FindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2)
If x1>=0 and y1>=0 and x2>=0 and y2>=0
MoveTo 223 394
Delay 32
LeftClick 1
EndIf
Return
Sub 關閉推薦任務
VBSCall FindColorEx(905,236,907,238,"c7ff",1,0.8,x1,y1)
VBSCall FindColorEx(605,234,607,236,"c3ff",1,0.8,x2,y2)
If x1>=0 and y1>=0 and x2>=0 and y2>=0
MoveTo 906 237
Delay 32
LeftClick 1
EndIf
Return
Sub 關閉導師界面
VBSCall FindColorEx(269,180,271,182,"c3f7",1,0.8,x1,y1)
VBSCall FindColorEx(276,175,278,177,"dec7b5",1,0.8,x2,y2)
If x1>=0 and y1>=0 and x2>=0 and y2>=0
MoveTo 270 181
Delay 32
LeftClick 1
EndIf
Return

③ 用按鍵精靈編輯dnf刷圖自動撿物品原理,不是源碼,謝謝!

根據坐標電腦進行計算,自動識別。

④ 按鍵精靈 腳本 自動撿物 如何做

可以做成這樣。

但抓圖,需要你自己完成
用多點找色功能去完成

只能給你一個提示
拍下圖後,用裡面的抓抓--圖像--抓點
把滑鼠移動到你想要查找的圖上,按下CTRL+1
再移動滑鼠到另一點,再次按CTRL+1
。。。。
可多次(最好不少於8次,不多於10次)
至於移動多少像素,無所謂,但移動的位置都要在你所要找的圖片內

比如你說的這個「礦石」這2個字,因為我不知道你這2個字在游戲中是什麼字體,大小是多少,顏色是什麼,所以不好給你做,你只需把這二個字找出來(用多點找色功能)

再把代碼,復制下來,寫到裡面,就可以實現准確找到這個2個字。
至於你需要由這2個字再相對移動多少像素,去點擊你要拾取的物品,就自己看著修改了。

這個可以做成一個函數,然後,定義多個圖片,界時,可分別拾取不同的物品。

上面所說的,就是方法,但我想你可能一時聽不明白。19點到20點,我會在線,你可以在線給我發消息或是在線HI我。

⑤ 奇跡自動撿東西腳本

自動撿物腳本最好不要用,因為你撿的也有可能是垃圾,當垃圾塞滿你的倉庫時而貴重物品卻靜靜的躺在那裡等待幾秒後被別人拾去,親愛的樓主那時候哭也來不及了

⑥ 有沒有dnf 自動撿東西的腳本

DNF還有什麼秘密可言。
首先確定自己的xy坐標,白色的LV你懂的。其次,找到地上的東西,地上的東西都頂著大大的字,也沒有偏色,使用大漠插件找字簡直易如反掌。如果你不打算用大漠,也不打算用按鍵自己做個字型檔,那麼剩下的功能就只能找圖了。找圖也不難,因為掉地上的東西名字外面都有一個框框。。。把框框的一條邊截下來,也能定位。
定位完以後,就是走過去撿起來。。。
什麼?你問怎麼用鍵盤走過去?有了坐標,應該算解決一切了吧。。。

⑦ 你好,能教我下這么製作按鍵精靈自動撿東西的腳本,謝謝

到打怪的地方錄制,再按你的要求修改下~~k( 空格) 數字鍵表示你將要執行的動作~d( 空格) 數字鍵表示停頓的秒數~~連續設置k的動作會無法執行~所以在設置k後應加d0這樣動作會比較流暢~~一般游戲腳本設置這兩個比較常用

⑧ 求奇跡MU免費自動拾取腳本,最好是高級點的可以分類撿取的

自動撿東西.
腳本
其實就是在 錄制腳本的時候 加些
空格鍵
就行了
在mu里 空格鍵默認的是自動拾取物品..
自動拾取的設置時根據
伺服器
定的 有的是 優先拾取寶石 裝備類 有的是優先拾取金錢類...
至於用
按鍵精靈
掛機拾取是不會有分類的...再者mu里也沒有分類拾取的功能.
所以要是你想只拾取金錢和寶石的話 就要在背包里下點功夫..
mu里的裝備除了寶石和紅藍葯還有
小惡魔
小天使
戒指之外其他的都是3格以上的東西
所以..你可也把背包的空間里整的 沒有3格空間 都是2格空間 這樣就可以不揀裝備直接錢和寶石了..
不過這需要你在腳本里把按
空格
的間隔設置到1毫秒...
因為mu的ai很低級...如果自動撿取一個東西因為背包空間不足沒有撿取到 他會一直撿取這個沒撿取的東西 不過同一個人撿取同一樣東西有個時間間隔..
也就是說你只要按的連 在時間間隔還沒到之前你還可以撿取其他的東西..
這樣可以多少避免丟失掉寶石的幾率..
這些都是我玩mu的時候用過的方法...已經有2年沒玩mu...版本越改感覺越讓人失望.......至於現在是不是有更高科技的腳本
按鍵
...我還不知道....lz可以問問游戲里用腳本的人..可以用游戲里值錢的東西換他的地址..比如如果
靈魂
值錢了給他1靈魂就可以..
********不過
我現在
在等待********
奇跡傳說
******的到來********奇跡傳說是奇跡mu的進化版.......3d效果更強....
美工
也改進....多了個
刺客
職業......不過就是不知道要等到那年那月

熱點內容
matlab稀疏矩陣存儲 發布:2025-02-06 03:07:54 瀏覽:838
國際服2b2t伺服器地址 發布:2025-02-06 03:06:28 瀏覽:390
c語言輸出b 發布:2025-02-06 03:06:27 瀏覽:31
普通火車wifi密碼多少 發布:2025-02-06 03:04:20 瀏覽:436
可編程監控 發布:2025-02-06 03:03:33 瀏覽:645
c語言取隨機數 發布:2025-02-06 02:46:57 瀏覽:863
uc緩存的視頻卡住 發布:2025-02-06 02:17:05 瀏覽:144
解壓同學介紹 發布:2025-02-06 02:13:10 瀏覽:776
icsftp 發布:2025-02-06 02:12:59 瀏覽:325
ftp跨域上傳文件 發布:2025-02-06 02:09:22 瀏覽:822