怎麼製作撿東西遊戲腳本

Ⅰ 游戲腳本怎麼做

製作游戲腳本有很多軟體，但是很多都需要您學習編程，那麼問題來了，玩個游戲有必要去學枯燥的編程嗎，答案是完全沒必要，下面介紹幾款腳本製作軟體給大家。

02、1.按鍵精靈：

按鍵精靈是一款模擬滑鼠鍵盤動作的軟體。通過製作腳本，可以讓按弊裂嫌鍵精靈代替雙手，自動執行一系列滑鼠鍵盤動作。按鍵精靈簡單易用租手，不需要任何編程知識就可以作出功能強大的腳本。只要在電腦前用雙手可以完成的動作，按鍵精靈都可以替代完成。

目前按鍵精靈已經更新到[2014.03.16164]-2015.11.23更新。從編程的角度來看，它集合一些插件的腳本編輯、調試工具。代碼不公開。生成的小精靈，模式化界面。

03、2.易語言：易語言是一門以中文作為程序代碼編程語言。以「易」著稱。創始人為吳濤。早期版本的名字為E語言。易語言最早的版本的發布可追溯至2000年源凱9月11日。創造易語言的初衷是進行用中文來編寫程序的實踐。從2000年至今，易語言已經發展到一定的規模，功能上、用戶數量上都十分可觀。

04、3.TC：TC是一款簡單易學,支持中文編程,零基礎可起步的腳本開發工具。

Ⅱ 怎麼製作機戰撿物品腳本

按鍵精靈
打怪的

機戰自動打怪簡易腳本
今天用按鍵里的原有腳本組合改造出了一個機戰的自動打怪腳本，初測試了一下可以用，不過有幾個地方不足，一是不能鎖定坐標，由於是兩點抓色的尋怪，所以會有亂跑的可能，不能自動檢物品（包括錢，水晶，裝備，核心）。第一次做腳本，還請大家共同研究，有那位朋友能將這個腳本改進的也發上來共同研究下。有時間的話，我把抓圖也加進去，這樣就可以檢東西了，不過這個需要比較長的時間，最近比較忙沒太多的時間弄。腳本中不能技能只能平砍，紅放在F6。

UserVar LTop=262,154 滑鼠活動范圍：左上角坐標
UserVar RBot=776,491 滑鼠活動范圍：右下角坐標
UserVar Center=493,292方形漸開搜怪起點
UserVar L=15 2個搜怪點之間的距離
UserVar M=2 從第幾圈開始搜索
//變數定義
Dim s,v,i,n,x,y,a1,b1,a2,b2,c1,c2,x0,y0,k1,k2
s=InStr(LTop,",")
a1=int(Mid(LTop,1,s-1))
b1=int(Mid(LTop,s+1))
s=InStr(RBot,",")
a2=int(Mid(RBot,1,s-1))
b2=int(Mid(RBot,s+1))
s=InStr(Center,",")
x0=int(Mid(Center,1,s-1))
y0=int(Mid(Center,s+1))
If x0-a1>=a2-x0
n=a1
Else
n=x0-(a2-x0)
EndIf
Rem 開始
//循環開始標記
Delay 32
Rem 補紅
IfColor 196,31,92ff,1
Else
KeyPress 117,1
Delay 256
//補血延時
EndIf
v=L
i=M
x=x0:y=y0-v
While x>=n
k1=0:k2=v
For 2
For i
x=x+k1:y=y+k2
If x>=a1 and x<=a2 and y>=b1 and y<=b2
VBSCall c1=GetPixelColor(x,y)
MoveTo x y
Delay 10
VBSCall c2=GetPixelColor(x,y)
If c1<>c2
LeftClick 1
//打怪代碼
Delay 8000
//打完怪後再重新開始搜索
EndIf
Delay 1
EndIf
EndFor
k1=v:k2=0
EndFor
i=i+1:v=v*(-1)
EndWhile
Delay 200
//搜索完滑鼠活動范圍後重新開始搜索
Goto 開始

這是找怪的

Rem 找怪
VBSCall FindPic(173,201,1100,600,"sinuezhe.bmp",0.8,x,y)
If x>=0 and y>=0
i=0
MoveTo x+10 y+10
Delay 50
MoveR 30,60
Delay 60
LeftDoubleClick 1
Delay 1000
RightClick 1
Delay 1500
RightClick 1
Delay 1000
EndIf
Goto 錢
Rem 錢
For 5
VBSCall FindPic(173,201,1136,652,"qian.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x+10 y+10
Delay 50
MoveR -22,13
Delay 250
LeftClick 1
Delay 1500
VBSCall FindPic(441,273,777,535,"sinuezhe.bmp",0.8,x,y)
If x>=0 and y>=0
Goto 找怪
EndIf
EndIf
EndFor
goto 找怪
這是我的機戰找怪的腳本命令 圖片見附件。圖片的製作其實非常簡單，論壇當中有說明的。但是需要補充就是背景顏色不一定非得是白色。:lol :lol

自動檢物品的沒有..
根本不起作用 例如這些水晶 流星之類的 抓圖什麼都不起作用

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

思路是這樣的：
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

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

可以做成這樣。

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

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

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

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

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

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

Ⅵ 怎麼製作游戲採集腳本

沒那麼復雜。直接用按鍵精靈就好。網上下個破解注冊的。
上面有指令，可以自己編寫。超簡單的。
比如：1，滑鼠移到XXX，2，右鍵點擊。延時800毫秒。3，滑鼠移動到XXX，4右鍵點擊。··············
就按這樣編完一套動作就好，讓他自動循環。
說起來麻煩，事實上你自己下了試試，很簡單。
我一般是修改別人已由的祝福掛機腳本。自己重新編比較累。

Ⅶ 怎樣製作游戲腳本

自己怎麼製作游戲腳本
呱呱助手，手機或者是電腦都可以製作的，比其有的軟體需要有一些編程基礎才能做腳本，呱呱助手簡直不要太簡單，具體的教程你去他們官網看吧

kfz.guaguazs/
游戲腳本怎麼製作
呱呱助手的開發者就不錯，不需要編程基礎就可以做了,很容易上手的
如何做游戲腳本
那種只能運行在前台的估計是按鍵精靈之類的工具弄的，那種編程你只要有語文基礎，稍微學下就能寫，居然還賣30塊錢，無語了。

你要的腳本需要的知識我給你幾個關鍵字，反匯編，脫殼，驅動，還有一門可以把勞動成果編寫成軟體的工具，比如說delphi vb vc
想做一個游戲腳本怎麼做，怎麼寫，有什麼軟體 30分
；鉅款非常管用
游戲腳本怎麼寫或製作？
要寫游戲腳本就得用到游戲腳本開發工具，沒有游戲腳本開發工具來寫游戲腳本是比較困難的，目前國內比較好的並且又是免費的游戲腳本開發工具就是TC簡單程序開發工具，它是國內首款免費多線程的圖形界面腳本製作開定工具軟體，支持中英文雙語言編寫腳本程序，可以說TC開腳本界先河 ，是免費腳本開發製作工具的首選。
怎麼製作手機游戲腳本啊?
去網路搜索觸動精靈，進他們官網下載。官網里也有使用教程。 可以自己動手製作游戲腳本，特別方便。
游戲用腳本打怪的腳本怎麼製作？
很容易的啦...用選怪熱鍵選怪,然後就按技能咯
按鍵精靈製作的腳本怎麼用到游戲中！？
首先現在的網路游戲基本都有防第三方軟體的保護程序，如果想自己做的腳本能成功在游戲上運行，需要績買按鍵精靈會員，開啟神盾後才能越過保護程序。

想要腳本後台運作，需要在加上游戲窗口的句柄，和改用後台按鍵，就可以達到邊干別的事情邊玩游戲的效果。
游戲腳本怎麼寫？
TC簡單開發是款非常不錯的腳本製作工具

TC簡單開發是國內首款免費多線程的圖形界面腳本製作開發工具軟體，支持中英文雙語言編寫腳本程序，可以說TC開腳本界先河 ，是免費腳本開發製作工具的首選。通過製作腳本，可以讓TC簡單開發代替您的雙手，自動執行一系列滑鼠鍵盤動作。

製作腳本：支持多種腳本功能語句，包括鍵盤按鍵動作、滑鼠點擊動作、滑鼠移動動作、控制動作、輸入字元串動作、延遲動作等 。

動作循環：每個動作都可以進行循環，你可以定義熱鍵中止動作的循環，也可以自己定義循環的次數或者循環的時間 。

下載網址： ote/soft/31180 或者SOSO搜索「TC簡單開發」下載