怎么制作捡东西游戏脚本

Ⅰ 游戏脚本怎么做

制作游戏脚本有很多软件，但是很多都需要您学习编程，那么问题来了，玩个游戏有必要去学枯燥的编程吗，答案是完全没必要，下面介绍几款脚本制作软件给大家。

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简单开发”下载