这是按键精灵官方论坛的,你怎么不到那里去找。
0位置是指把游戏窗口拖到电脑屏的0。0位置,当然了很难成功,所以你把脚本中的数字自己改一下,在你自己的电脑上找个合适的坐标点,我的也是一开始做好时很好用,挂一晚上也没什么问题,只要不出现让选人物就行,可是我移动了一次窗口后就不行了,不过也玩烦了,就再也没玩那个游戏。
我挂机,都不挂大号的,都是10级以内的小号,攒几百W的经验,再捉几个泡泡,卖几W的钱,嘿 嘿。
有朋友说再战斗中要加血,我想那就不叫挂机了吧,挂机都是找个能打完一回合,自己还没什么事的,至少不会死的才叫挂机吧,要是那个朋友有能力可以究研一下。
现在看一下,也许我的话有些大,有些问题还是没有解决的,比如鼠标的X轴偏移。。。。
还有,就是用全屏的坐标做脚本可能会更好些,大家自己去做吧,道理很简单,原理也很简单。
还有朋友问那个图是怎么回事,用我给命命名那些图存到我说的那个路径下。
还有呀,这个游戏不是卖给小日 本了吗,不玩的最好。
总之了,这个不是一个很好的脚本,记有高手能做出更好的脚本,我只抛砖引玉。
最后,我现在玩的是《完美世界》游戏,想做一个挂机脚本,3D的,有没有大家做好的再成的,给我啊!
真正适合任何地图的,任何职业的任何人宠攻击组合方式的脚本。
//游戏窗口模式,并且把它拖到屏幕的左上角即0,0位置。
//挂机人物和宠物攻击方式:
//1:人 物攻 宠 物攻
//2:人 物攻 宠 法攻
//3:人 法攻 宠 物攻
//4:人 法攻 宠 法攻
HotKey=0
WaitKey AnJian
If AnJian=49 or AnJian=50 or AnJian=51 or AnJian=52
Delay 1000
Delay 1000
Rem 是否战斗开始
VBSCall Call FindPic(270,54,408,141,"时间前.bmp",0.6,inx,iny)
If inx>=0 and iny>=0
Goto 开始战斗
EndIf
If inx=-1 and iny=-1
VBSCall Call FindPic(270,54,408,141,"时间后.bmp",0.6,inx,iny)
If inx>=0 and iny>=0
Goto 开始战斗
EndIf
If inx=-1 and iny=-1
VBSCall Call FindCenterColor(607,40,615,47,"0800D6",x,y)
If x-1
VBSCall Call FindColor(491,39,498,47,"0800d6",intx,inty)
If intx>=0 and inty>=0
Goto 自动行走
EndIf
If intx=-1 and inty=-1
Goto 宠物加血
EndIf
EndIf
If x=-1 and y=-1
Goto 主人自动加血
EndIf
EndIf
EndIf
Goto 是否战斗开始
Rem 开始战斗
VBSCall Call FindPic(73,145,288,274,"泡泡.bmp",0.7,intX,intY)
If intX>=0 and intY>=0
MoveTo intX+40 intY+30
Delay 1000
KeyDown 18 1
KeyPress 71 1
KeyUp 18 1
Delay 1000
LeftClick 1
Delay 500
KeyDown 18 1
KeyPress 68 1
KeyUp 18 1
EndIf
If intX=-1 and intY=-1
Goto 自动捉宝宝
EndIf
Goto 是否战斗开始
Rem 自动捉宝宝
VBSCall Call FindPic(73,145,288,274,"宝宝.bmp",0.5,intX,intY)
If intX>=0 and intY>=0
MoveTo intX+40 intY+30
Delay 1000
KeyDown 18 1
KeyPress 71 1
KeyUp 18 1
Delay 1000
LeftClick 1
Delay 500
KeyDown 18 1
KeyPress 68 1
KeyUp 18 1
EndIf
If intX=-1 and intY=-1
Goto 正式开始战斗
EndIf
Goto 是否战斗开始
Rem 正式开始战斗
If AnJian=49
KeyDown 18 1
KeyPress 65 1
KeyUp 18 1
Delay 400
KeyDown 18 1
KeyPress 65 1
KeyUp 18 1
Delay 5000
Goto 是否战斗开始
EndIf
If AnJian=50
KeyDown 18 1
KeyPress 65 1
KeyUp 18 1
Delay 400
KeyDown 18 1
KeyPress 81 1
KeyUp 18 1
Delay 5000
Goto 是否战斗开始
EndIf
If AnJian=51
KeyDown 18 1
KeyPress 81 1
KeyUp 18 1
Delay 400
KeyDown 18 1
KeyPress 65 1
KeyUp 18 1
Delay 5000
Goto 是否战斗开始
EndIf
If AnJian=52
KeyDown 18 1
KeyPress 81 1
KeyUp 18 1
Delay 400
KeyDown 18 1
KeyPress 81 1
KeyUp 18 1
Delay 5000
Goto 是否战斗开始
EndIf
Rem 自动行走
MoveTo 315 290
SaveMousePos
KeyPress 120 1
MoveR -160 0
Delay 500
LeftClick 1
Delay 500
MoveR 160 140
Delay 500
LeftClick 1
VBSCall Call FindPic(270,54,408,141,"时间前.bmp",0.6,inx,iny)
If inx>=0 and iny>=0
Goto 开始战斗
EndIf
Delay 500
KeyPress 120 1
MoveR 160 -160
Delay 500
LeftClick 1
Delay 500
MoveR -180 -160
Delay 500
LeftClick 1
Delay 500
Goto 是否战斗开始
Rem 主人自动加血
VBSCall Call FindPic(385,30,499,91,"宠物.bmp",0.9,intx,inty)
If intx>=0 and inty>=0
VBSCall Call SetCursorPos(intx,inty)
Delay 500
MoveR 170 4
Delay 500
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(607,40,615,45,"0800d6",ntx,nty)
If ntx>=0 and nty>=0
Goto 是否战斗开始
EndIf
If ntx=-1 and nty=-1
MoveR 0 5
Delay 4000
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(607,40,615,45,"0800d6",ntx,nty)
If ntx>=0 and nty>=0
Goto 是否战斗开始
EndIf
If ntx=-1 and nty=-1
MoveR 0 10
Delay 4000
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(607,40,615,45,"0800d6",ntx,nty)
If ntx>=0 and nty>=0
Goto 是否战斗开始
EndIf
If ntx=-1 and nty=-1
MoveR 0 15
Delay 4000
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(607,40,615,45,"0800d6",ntx,nty)
If ntx>=0 and nty>=0
Goto 是否战斗开始
EndIf
If ntx=-1 and nty=-1
MoveR 0 20
Delay 4000
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(607,40,615,45,"0800d6",ntx,nty)
If ntx>=0 and nty>=0
Goto 是否战斗开始
EndIf
If ntx=-1 and nty=-1
MoveR 0 25
Delay 4000
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(607,40,615,45,"0800d6",ntx,nty)
If ntx>=0 and nty>=0
Goto 是否战斗开始
EndIf
If ntx=-1 and nty=-1
MoveR 0 30
Delay 4000
RightClick 1
Delay 500
EndIf
Goto 是否战斗开始
Rem 宠物加血
VBSCall Call FindPic(385,30,499,91,"宠物.bmp",0.9,intx,inty)
If intx>=0 and inty>=0
VBSCall Call SetCursorPos(intx,inty)
Delay 500
MoveR 70 4
Delay 500
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(491,39,498,47,"0800d6",cx,cy)
If cx>=0 and cy>=0
Goto 自动行走
EndIf
If cx=-1 and cy=-1
Delay 500
MoveR 0 5
Delay 1000
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(491,39,498,47,"0800d6",cx,cy)
If cx>=0 and cy>=0
Goto 自动行走
EndIf
If cx=-1 and cy=-1
Delay 500
MoveR 0 10
Delay 1000
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(491,39,498,47,"0800d6",cx,cy)
If cx>=0 and cy>=0
Goto 自动行走
EndIf
If cx=-1 and cy=-1
Delay 500
MoveR 0 15
Delay 1000
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(491,39,498,47,"0800d6",cx,cy)
If cx>=0 and cy>=0
Goto 自动行走
EndIf
If cx=-1 and cy=-1
Delay 500
MoveR 0 20
Delay 1000
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(491,39,498,47,"0800d6",cx,cy)
If cx>=0 and cy>=0
Goto 自动行走
EndIf
If cx=-1 and cy=-1
Delay 500
MoveR 0 25
Delay 1000
RightClick 1
Delay 500
EndIf
VBSCall Call FindColor(491,39,498,47,"0800d6",cx,cy)
If cx>=0 and cy>=0
Goto 自动行走
EndIf
If cx=-1 and cy=-1
Delay 500
MoveR 0 30
Delay 1000
RightClick 1
Delay 500
EndIf
Goto 是否战斗开始
EndIf
脚本完
要用到的图
[upload=bmp]UploadFile/2005-11/20051179113455960.bmp[/upload]
宠物.bmp
[upload=bmp]UploadFile/2005-11/20051179142281471.bmp[/upload]
时间前.bmp
[upload=bmp]UploadFile/2005-11/20051179153294496.bmp[/upload]
时间后.bmp
[upload=bmp]UploadFile/2005-11/20051199451970715.bmp[/upload]
泡泡.bmp
[upload=bmp]UploadFile/2005-11/20051199455771682.bmp[/upload]
宝宝.bmp
大家把这几个图形复制到按键精灵程序的script文件夹内。例如C:\Program Files\按键精灵\script这个位置。
温馨提示:答案为网友推荐,仅供参考