你的位置：
想做个传奇si服的自动打怪和拣指定装备的脚本，求优化
来源: 按键精灵资源站
问题1：本来想直接找怪色打怪的，结果很多怪色在另外的地图就像地板色，只好找怪血条打怪。厉害的怪血条没打完去打下一个怪了，其他怪打完，半血的就不认识了
问题2：宝宝的血条如何和怪区分开，人物可以开高亮变绿
问题3：拾取装备的判断感觉太死板不先进，找装备也不很准确，如何根据装备显示的字找（我个人不会）弄了会大漠，没搞清楚杂用，什么注册的，太老火了
问题4：如何判断有人来PK，好飞
//将附件中图片释放到下行指定路径
//PutAttachment &D:\软件安装\9\screen&,&*.bmp&
//人物中心坐标
//centerx = 500
//centery = 260
//人物走动的相对量
//stepx = 60
//stepy = 40
//KeyPress &F8&, 1
//Delay 2000
//KeyPress &F8&, 1
//Delay 500
Call 会员超级打宝海岸城
Call 会员超级打宝海岸城
Rem 主循环
If m = 1 Then
Call 普通地图中超级地图的金子塔选择进入
Elseif m=2 then
Call 普通地图中超级地图的暗夜幽谷选择进入
ElseIf m = 3 Then
//Call 选择地图
ElseIf m = 4 Then
//call 选择地图
ElseIf m = 5 Then
//Call 选择地图
ElseIf m = 6 Then
//call 选择地图
ElseIf m = 7 Then
//Call 选择地图
ElseIf m = 8 Then
//call 选择地图
ElseIf m = 9 Then
//Call 选择地图
ElseIf m = 10 Then
//call 选择地图
ElseIf m = 11 Then
//Call 选择地图
ElseIf m = 12 Then
//call 选择地图
//call 用修复油
Call 找怪物血条打怪
Rem 继续跑
Call 随机跑动
sh=Plugin.GetSysInfo.GetTime
If Plugin.GetSysInfo.GetTime - sh & 30000 Then
Goto 继续跑
Goto 主循环
Sub 普通地图中超级地图的暗夜幽谷选择进入()
& & //本子程序为进入暗夜幽谷
& & Call 使用回城
& & Call 回城后跑到接近传送天神
& & call 点击盟重传送天神
& & Call 点击超级地图
& & Call 点击暗夜幽谷
Sub 普通地图中超级地图的金子塔选择进入()
& & Call 使用回城
& & Call 回城后跑到接近传送天神
& & call 点击盟重传送天神
& & call 点击中级地图
& & call 点击金字塔
Sub 使用回城()
& & Delay 2000
& & ux = 15
& & uy = 15
& & FindPic 0,0,,&Attachment:\回城卷.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intx + ux, inty + uy
& && &&&LeftDoubleClick 1
& && &&&Delay 1000
& && &&&KeyPress &F9&, 1
& && &&&KeyPress &F9&, 1
& && &&&FindPic 0, 0, , &Attachment:\回城卷.bmp&, 0.9, intX, intY
& && &&&If intX & 0 And intY & 0 Then
& && && && &KeyPress &F9&, 1
& && && && &Exit sub
& && &&&else
& && && && &MoveTo intx + ux, inty + uy
& && && && &LeftClick 2
& && && && &Delay 300
& && && && &KeyPress &F9&, 1
& && &&&End If
& & Delay 5000
& & End if
Sub 回城后跑到接近传送天神()
& & Delay 1000
& & MoveTo 980, 350
& & Delay 1000
& & RightClick 1
& & Delay 500
Sub 点击盟重传送天神()
& & FindPic 0,0,,&Attachment:\盟重传送天神.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intx + 20, inty + 40
& && &&&LeftClick 2
& && &&&Delay 1000
& && &&&LeftClick 1
& && &&&Delay 1000
& & End if
Sub 点击中级地图()
& & FindPic 0,0,,&Attachment:\中级地图.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intx + 35, inty + 20
& && &&&LeftClick 2
& && &&&Delay 1000
& & End If
Sub 点击超级地图()
& & FindPic 0,0,,&Attachment:\超级地图.bmp&,0.95,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intx + 30, inty + 12
& && &&&LeftClick 2
& && &&&Delay 1000
& & End If
Sub 点击金字塔()
& & FindPic 0,0,,&Attachment:\金子塔.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&Delay 1000
& && &&&MoveTo intx +50, inty +15
& && &&&LeftClick 2
& && &&&Delay 1000
& & End If
Sub 点击暗夜幽谷()
& & FindPic 0,0,,&Attachment:\暗夜幽谷.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intx + 30, inty + 10
& && &&&LeftClick 2
& && &&&Delay 2000
& & End If
Sub 会员打宝()
& & Delay 1350
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 500
& & SayString &@会员&
& & Delay 300
& & Delay 700
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 1000
& & // 启用会员打宝位置的查找，并点击和关闭
& & FindPic 0,0,,&Attachment:\会员打宝.bmp&,0.95,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intX + 20, intY + 10
& && &&&LeftClick 2
& && &&&Delay 1000
& & End If
& & // 如果进入地图后会员功能不关闭需在后面加入关闭界面的指令&&
Sub 会员超级打宝海岸城()
& & Delay 1350
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 500
& & SayString &@会员&
& & Delay 300
& & Delay 700
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 1000
'==========以下是按键精灵录制的内容==========
'==========以下是按键精灵录制的内容==========
MoveTo 681, 468
Delay 1163
LeftClick 1
MoveTo 244, 140
Delay 1341
LeftClick 1
MoveTo 289, 138
Delay 1507
LeftClick 1
'==========以上是按键精灵录制的内容==========
'==========以上是按键精灵录制的内容==========
Sub 会员回收装备()
& & //启用会员在线回收的查找，并一一回收，再查找和关闭
& & Delay 1350
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 500
& & SayString &@会员&
& & Delay 300
& & Delay 700
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 1000
& & MoveTo 360, 106
& & Delay 3352
& & LeftClick 1
& & MoveTo 106, 105
& & Delay 1496
& & LeftClick 1
& & MoveTo 114, 138
& & Delay 722
& & LeftClick 1
& & MoveTo 114, 166
& & Delay 720
& & LeftClick 1
& & MoveTo 110, 199
& & Delay 794
& & LeftClick 1
& & MoveTo 119, 232
& & Delay 570
& & LeftClick 1
& & MoveTo 116, 265
& & Delay 592
& & LeftClick 1
& & MoveTo 115, 296
& & Delay 560
& & LeftDown 1
& & MoveTo 116, 298
& & Delay 120
& & LeftUp 1
& & MoveTo 118, 330
& & Delay 644
& & LeftClick 1
& & MoveTo 115, 361
& & Delay 572
& & LeftClick 1
& & MoveTo 98, 91
& & Delay 1356
& & LeftClick 1
& & MoveTo 100, 121
& & Delay 695
& & LeftClick 1
& & MoveTo 102, 158
& & Delay 650
& & LeftClick 1
& & MoveTo 101, 185
& & Delay 565
& & LeftClick 1
& & MoveTo 103, 219
& & Delay 583
& & LeftClick 1
& & MoveTo 106, 251
& & Delay 667
& & LeftClick 1
& & MoveTo 96, 282
& & Delay 806
& & LeftClick 1
& & MoveTo 104, 319
& & Delay 684
& & LeftClick 1
& & MoveTo 98, 345
& & Delay 620
& & LeftClick 1
& & MoveTo 102, 378
& & Delay 660
& & LeftClick 1
& & MoveTo 108, 89
& & Delay 974
& & LeftClick 1
& & MoveTo 97, 125
& & Delay 599
& & LeftClick 1
& & MoveTo 98, 155
& & Delay 599
& & LeftClick 1
& & MoveTo 279, 349
& & Delay 2228
& & LeftClick 1
& & MoveTo 274, 346
& & Delay 4178
& & KeyDown &Esc&, 1
& & Delay 150
& & KeyUp &Esc&, 1
Sub 找怪物血条打怪()
& & //存入怪物血条到附件，点击的偏移量根据怪物大小调整
& & ux = 30
& & uy = 30
& & tp = &Attachment:\& & &怪血条.bmp&
& & Rem cxxh
& & For k = 1 To 6
//& & areatopx = 500 - 60 * k
//& & areatopy = 260 - 40 * k
//& & areadownx = 500 + 60 * k
//& & areadowny = 260 + 40 * k
//& & If areatopx & 1 or areatopy & 1 Then
//& &&&areatopx = 0
//& &&&areatopy = 0
//& & End If
//& & If areadownx &800 or areadowny &500 Then
//& &&&areatopx = 1024
//& &&&areatopy = 550
//& & End If
& & areatopx = 369
& & areatopy =145
& & areadownx =659
& & areadowny =352
& & Rem xhjc
& & FindPic areatopx,areatopy,areadownx,areadowny,tp,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intX + ux, intY + uy
& && &&&//& & 加入打怪子程序
& && &&&Call 直接砍怪
& && &&&Goto xhjc
& && &&&Call 拾取装备
& && &&&Call 会员回收装备
& & End If
& & FindPic 0,0,,tp,0.9,intX,intY
If intX & 0 And intY & 0 Then
& && &&&MoveTo intX + ux, intY + uy
& && &&&Call 直接砍怪
& && &&&Goto cxxh
Sub 直接砍怪()
& & LeftClick 1
& & Delay 7000
Sub 拾取装备()
& & //人物中心坐标
& & centerx = 500
& & centery = 260
& & //人物走动的相对量
& & stepx = 60
& & stepy = 40
& & leftpoint = centerx - stepx
& & rightpoint = centerx + stepx
& & toppoint = centery - stepy
& & downpoint = centery + stepy
& & Rem 将要拾取的装备存入附件并命名为ZB1，ZB2
& & Rem K等于在附件中已经加入的图片数量
& & For k=1 to 8
& && &&&ZB = &Attachment:\ZB& & k & &.bmp&
& && &&&FindPic 369,145,660,425,ZB,0.9,intX,intY
& && &&&If intX & 0 And intY & 0 Then
& && && && && & Rem 找到装备进行判断
& && && && && & intx = intx + 30
& && && && && & inty = inty + 14& && && && &
& && && && && & numa = int((intX - centerx)/stepx)
& && && && && & numb = int((inty - centery)/stepy)
& && && && && & If numa = 0 and numb = 0 Then
& && && && && &&&Delay 500& && && && &
& && && && && & End If
& && && && && & If numa & 0 Then
& && && && && &&&Rem 左走
& && && && && &&&MoveTo leftpoint, centery
& && && && && &&&numa = Abs(numa)
& && && && && &&&For numa
& && && && && &&&If numa&0 then
& && && && && &&&LeftClick numa - (numa - 1)
& && && && && &&&delay 300& && && && && &
& && && && && &&&End If
& && && && && &&&numa=numa-1
& && && && && &&&next& && && && && && && &
& && && && && & End If
& && && && && & If numa & 0 Then
& && && && && &&&Rem 右走
& && && && && &&&MoveTo rightpoint, centery
& && && && && &&&numa = Abs(numa)
& && && && && &&&For numa
& && && && && &&&If numa&0 then
& && && && && &&&LeftClick numa - (numa - 1)
& && && && && &&&delay 300& && && && && &&&
& && && && && &&&End If
& && && && && &&&numa=numa-1
& && && && && &&&next& && && && && && && &
& && && && && & End If& && && && && &
& && && && && & If numb & 0 Then
& && && && && && &Rem 上走& && && && && &&&
& && && && && &&&MoveTo&&centerx,toppoint
& && && && && &&&numb = Abs(numb)
& && && && && &&&For numb
& && && && && &&&If numb&0 then
& && && && && &&&LeftClick numb - (numb - 1)
& && && && && &&&delay 300& && && && && &
& && && && && &&&End If
& && && && && &&&numb=numb-1
& && && && && &&&next& && && && && && &
& && && && && & End If
& && && && && & If numb & 0 Then
& && && && && && &Rem 下走& && && && && &&&
& && && && && &&&MoveTo&&centerx,downpoint
& && && && && &&&numb = Abs(numb)
& && && && && &&&For numb
& && && && && &&&If numb&0 then
& && && && && &&&LeftClick numb - (numb - 1)
& && && && && &&&delay 300& && && && && &
& && && && && &&&End If
& && && && && &&&numb=numb-1
& && && && && &&&next& && && && && && &
& && && && && & End If& && &&&
& && &&&End If
Sub 随机跑动()
& & Randomize
& & n = Int(rnd * 7)
& & If n = 0 Then
& && &&&MoveTo 383, 18
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End if
& & If n = 1Then
& && &&&MoveTo 608,65
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 1000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 2 Then
& && &&&MoveTo 718,193
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 3 Then
& && &&&MoveTo 636,334
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 4 Then
& && &&&MoveTo 391,348
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 5 Then
& && &&&MoveTo 223,298
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 6 Then
& && &&&MoveTo 143,190
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 7 Then
& && &&&MoveTo 213,58
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End if
& & Delay 10000
Sub 自动跑图测试()
& & Call 找怪物血条打怪
& & Rem 定义h为每次按下鼠标键时间
& & Rem 右下跑
& & MoveTo 480, 256
& & RightDown 1
& & Delay h
& & Rem 下跑
& & MoveTo 395,390
& & RightDown 1
& & Delay h
& & Rem 左下跑
& & MoveTo 230,390
& & RightDown 1
& & Delay h
& & Rem 左跑
& & MoveTo 214,201
& & RightDown 1
& & Delay h
& & Rem 左上跑
& & MoveTo 252,115
& & RightDown 1
& & Delay h
& & Rem 上跑
& & MoveTo 390,77
& & RightDown 1
& & Delay h
& & Rem 右上跑
& & MoveTo 550,83
& & RightDown 1
& & Delay h
& & Rem 右跑
& & MoveTo 495,199
& & RightDown 1
& & Delay h您还未登陆，请登录后操作！
谁可以给我弄一个 按键精灵的脚本 谢谢了
这个需要自己设置 因为涉及到密码问题 其实做起来还是满简单的
因为每次登陆失败后会自动回到输入帐号密码窗口 而帐号不用重新填写 光标处于帐号栏 所以步骤如下：
选“键盘动作”
按键输入“TAB”类型“按键”执行次数“1”然后插入
这样可以自动把光标换到密码栏
接着就是依次把你密码的字母插入 类型执行次数同上
最后不要设置ENTER这个键 因为有网络延迟 所以次数不好确定 这个就手动吧
字，确定脚本启动按键，和执行次数
我选了只到按下终止键为止。然后关闭保存。
使用前看到你所确立的名字的那个脚本打钩
切到天2登陆面，按下启动脚本键就行了
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注
飚车进不去 应用程序正常初始化失败~~ ...一个很简单的按键精灵连发脚本脚本，我弄不明白呢~~求教
求教个很简单的脚本，三个地方一段时间点上一下就行！_按键精灵吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：34,200贴子：
求教个很简单的脚本，三个地方一段时间点上一下就行！收藏
高人啊快来啊！！！！！
1楼 15:02&|
放心果断粉！！！！！！
2楼 15:02&|
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
使用签名档&&
为兴趣而生，贴吧更懂你。或请教 按键精灵 后台脚本_百度知道
请教 按键精灵 后台脚本
我是按键精灵的新手 想请教下如何制作 后台运行的脚本（也就是本人开2个同样的游戏 其中有一个游戏可以在后台被按键精灵控制而且不影响我在玩的另一个游戏的控制）设置很简单 21秒左右按一次ESC即可 循环无限次数 以下是我自己制作的不知道为何不可使用 [Script]Delay 1000Plugin hwnd=Window.Foreground()Delay 1000For 16959
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：27,1)按键
Plugin Bkgnd.KeyPress(Hwnd, 27,1)
Delay 22000EndFor 请高手帮我修改下
顺便请指点下我修改过后应该如何使用
提问者采纳
Plugin Bkgnd.KeyPress(Hwnd, 27,1)这句错了，Plugin Bkgnd.KeyPress(句柄窗口, 按键码)esc在后台命令中只要写27，没有后面那个1Plugin Bkgnd.KeyPress(Hwnd, 27）
提问者评价
谢谢指点的很清楚 希望可以留下在短信里留下QQ以后有什么不明白的还需请教
后台，你首先要有需要后台操作的窗口句柄，下面假设用鼠标指向的窗口为例，可以这样： Hwnd = Plugin.Window.MousePoint() Call Plugin.Bkgnd.KeyDown(Hwnd, 49) Delay 3000 Call Plugin.Bkgnd.KeyUp(Hwnd, 49) Delay 1000 Call Plugin.Bkgnd.KeyDown(Hwnd, 50) Delay 500 Call Plugin.Bkgnd.KeyUp(Hwnd, 49) Delay 500
其他类似问题
按键精灵的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁诚心求一个按键精灵后台脚本，并能多开，我给加多分！ 下面是一个很简单的前台命令：_百度知道
诚心求一个按键精灵后台脚本，并能多开，我给加多分！ 下面是一个很简单的前台命令：
keypress &1&,1 delay 1000 keypress &2&,1 delay 3000000不停的重复如上动作
提问者采纳
Hwnd = Plugin.Window.MousePoint()DOCall Plugin.Bkgnd.KeyPress(Hwnd, 49)Delay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Delay 3000000Loop这是后台的，多开不知道怎么弄。
试了下，只能在前台呀，是不是Hwnd = Plugin.Window.MousePoint() ，这句话（）里面要有东西？
启动脚本的时候，鼠标只要指向让脚本操作的窗口。如果不行，那我也不知道了，我都是用插件的。按键自带的后台不好用。
提问者评价
实际不太满意，但我别无选择！
其他类似问题
按键精灵后台的相关知识
您可能关注的推广回答者：回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁你的位置：搜索
说的太好了，我顶！
Copyright & 2015 www.51yue.net Corporation, All Rights Reserved后使用快捷导航没有帐号？
新浪微博：
&&&&腾讯微博：
只需一步，快速开始
查看: 9165|回复: 9
UID1338221精华0在线时间13 小时阅读权限20鲜花1 个铜币80 个银币0 个金币0 个积分52帖子注册时间最后登录
小学三年级, 积分 52, 距离下一级还需 18 积分
鲜花1 个铜币80 个银币0 个积分52帖子
Description=打怪v0.6
BeginHotkey=81
BeginHotkeyMod=2
[CallBack]
//大小地图比例
VBS scale=30
//小地图上的最大距离，可以保证人物与怪在一个屏幕
//人怪相邻时的距离
//纪录停步时间
//表示移动方向上的偏移,左，下，右，上
VBS dim dirt(4,2)
VBS dirt(0,0)=-30
VBS dirt(0,1)=0
VBS dirt(1,0)=0
VBS dirt(1,1)=80
VBS dirt(2,0)=30
VBS dirt(2,1)=0
VBS dirt(3,0)=0
VBS dirt(3,1)=-30
VBS dim dirt2(4,2)
VBS dirt2(0,0)=-100
VBS dirt2(0,1)=0
VBS dirt2(1,0)=0
VBS dirt2(1,1)=150
VBS dirt2(2,0)=100
VBS dirt2(2,1)=0
VBS dirt2(3,0)=0
VBS dirt2(3,1)=-100
//打怪时鼠标的偏移量，从站的位置开始,从左开始
VBS dim fight(8,2)
VBS fight(0,0)=-40
VBS fight(0,1)=-40
VBS fight(1,0)=-25
VBS fight(1,1)=25
VBS fight(2,0)=5
VBS fight(2,1)=19
VBS fight(3,0)=25
VBS fight(3,1)=25
VBS fight(4,0)=35
VBS fight(4,1)=-20
VBS fight(5,0)=30
VBS fight(5,1)=-30
VBS fight(6,0)=0
VBS fight(6,1)=-50
VBS fight(7,0)=-30
VBS fight(7,1)=-30
//定义一个随机数
VBS rand=5
//小地图上人物坐标，此坐标固定
VBS role_x0=739
VBS role_y0=59
//大地图上人物站立位置，此坐标固定，取两脚之间的一点
VBS stand_x=390
VBS stand_y=210
VBS role_x1=390
VBS role_y1=140
//小地图上表示怪物的一点颜色为#0000FF
//小地图位置:左上角680,0& && &&&左下角680,120& && &&&右下角800,120& && &&&右上角800,0
//=====================寻找身边是否有怪==========================
VBSCall Call FindCenterColor(role_x0-d,role_y0-d,role_x0+d,role_y0+d,&0000FF&,monster_x0,monster_y0)
If monster_x0&=680 and monster_y0&=0
& & //在身边直接打怪
& & //八个打怪的方向，从左开始，逆时针打过来
& & If role_x0&monster_x0 and role_y0-d&monster_y0 and role_y0+d&monster_y0
& && &&&iii=0
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=1
& & If role_x0-d&monster_x0 and role_x0+d&monster_x0 and role_y0&monster_y0
& && &&&iii=2
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=3
& & If role_x0&monster_x0 and role_y0-d&monster_y0 and role_y0+d&monster_y0
& && &&&iii=4
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=5
& & If role_x0-d&monster_x0 and role_x0+d&monster_x0 and role_y0&monster_y0
& && &&&iii=6
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=7
& & click_x=stand_x+fight(iii,0)
& & click_y=stand_y+fight(iii,1)
& & If iii=2
& && &&&click_x=stand_x
& && &&&click_y=stand_y
& & MoveTo click_x click_y
& & LeftClick 1
& & Delay 500
& & Goto 杀怪
//========================寻找小地图上怪物坐标===========================
VBSCall Call GetCursorPos(x,y)
VBSCall new_color=GetPixelColor(x,y)
VBSCall Call FindCenterColor(680,0,800,120,&0000FF&,monster_x0,monster_y0)
If monster_x0&=680 and monster_y0&=0
& & If monster_x0&role_x0 and monster_y0&=role_y0
& && &&&//朝怪方向移动，怪在左上侧
& && &&&click_x=stand_x-50
& && &&&click_y=stand_y-50
& & If monster_x0&=role_x0 and monster_y0&role_y0
& && &&&//朝怪方向移动，怪在左下侧
& && &&&click_x=stand_x-50
& && &&&click_y=stand_y+50
& & If monster_x0&=role_x0 and monster_y0&role_y0
& && &&&//朝怪方向移动，怪在右上侧
& && &&&click_x=stand_x+50
& && &&&click_y=stand_y-50
& & If monster_x0&role_x0 and monster_y0&=role_y0
& && &&&//朝怪方向移动，怪在右下侧
& && &&&click_x=stand_x+50
& && &&&click_y=stand_y+50
& & MoveTo click_x click_y
& & LeftClick 1
& & Delay 1000
& & //路径上有障碍,这样3秒之后还站在原地，随机变向
& & If t&=3
& && &&&t=0
& && &&&VBSCall Call GetCursorPos(x,y)
& && &&&VBSCall new_color=GetPixelColor(x,y)
& && &&&If new_color=old_color
& && && && &VBSCall Call rnd=Rnd
& && && && &If rnd&=0 and rnd&0.25
& && && && && & old_color=new_color
& && && && && & click_x=stand_x-50
& && && && && & click_y=stand_y-50
& && && && &EndIf
& && && && &If rnd&=0.25 and rnd&0.5
& && && && && & old_color=new_color
& && && && && & click_x=stand_x-50
& && && && && & click_y=stand_y+50
& && && && &EndIf
& && && && &If rnd&=0.5 and rnd&0.75
& && && && && & old_color=new_color
& && && && && & click_x=stand_x+50
& && && && && & click_y=stand_y-50
& && && && &EndIf
& && && && &If rnd&=0.75 and rnd&=1
& && && && && & old_color=new_color
& && && && && & click_x=stand_x+50
& && && && && & click_y=stand_y+50
& && && && &EndIf
& && && && &MoveTo click_x click_y
& && && && &RightDown 1
& && && && &Delay 1000
& && && && &RightUp 1
& && &&&EndIf
& && &&&old_color=new_color
& & //=====================没怪跑路===========================
& & click_x=stand_x+dirt2(ii,0)
& & click_y=stand_y+dirt2(ii,1)
& & MoveTo click_x click_y
& & //LeftClick 1 走方式
& & RightDown 1
& & Delay 1000
& & RightUp 1
& & tt=tt+1
& & //路上遇到障碍，随机变道
& & If tt&=2
& && &&&tt=0
& && &&&VBSCall Call GetCursorPos(x,y)
& && &&&VBSCall new_color=GetPixelColor(x,y)
& && &&&If new_color=old_color
& && && && &ii=ii+1
& && && && &If ii&=4
& && && && && & VBSCall Call rnd=Rnd
& && && && && & If rnd&=0 and rnd&0.25
& && && && && && &&&ii=0
& && && && && & EndIf
& && && && && & If rnd&=0.25 and rnd&0.5
& && && && && && &&&ii=1
& && && && && & EndIf
& && && && && & If rnd&=0.5 and rnd&0.75
& && && && && && &&&ii=2
& && && && && & EndIf
& && && && && & If rnd&=0.75 and rnd&=1
& && && && && && &&&ii=3
& && && && && & EndIf
& && && && &EndIf
& && &&&EndIf
& && &&&old_color=new_color
//==================拾取金币=============================
VBSCall Call FindColor(stand_x-100,stand_y-100,stand_x+100,stand_y+100,&00FFFF&,x,y)
If x&=0 and y&=0
& & MoveTo x y
& & LeftClick 1
& & Delay 1000
& & Goto 拾金
总评分:&鲜花 + 1&
UID1339277精华0在线时间44 小时阅读权限20鲜花0 个铜币135 个银币0 个金币0 个积分97帖子注册时间最后登录
小学五年级, 积分 97, 距离下一级还需 13 积分
鲜花0 个铜币135 个银币0 个积分97帖子
新手受教了&&很不错哈
UID1338221精华0在线时间13 小时阅读权限20鲜花1 个铜币80 个银币0 个金币0 个积分52帖子注册时间最后登录
小学三年级, 积分 52, 距离下一级还需 18 积分
鲜花1 个铜币80 个银币0 个积分52帖子
找来的不能用
UID432937精华0在线时间34 小时阅读权限20鲜花0 个铜币109 个银币0 个金币0 个积分87帖子注册时间最后登录
小学四年级, 积分 87, 距离下一级还需 3 积分
鲜花0 个铜币109 个银币0 个积分87帖子
觉得 找图 找色&&脚本 通用性不太好
UID1827975精华0在线时间10 小时阅读权限20鲜花1 个铜币90 个银币1 个金币0 个积分48帖子注册时间最后登录
小学二年级, 积分 48, 距离下一级还需 2 积分
鲜花1 个铜币90 个银币1 个积分48帖子
学习！！！！
UID1883553精华0在线时间16 小时阅读权限20鲜花0 个铜币129 个银币0 个金币0 个积分73帖子注册时间最后登录
小学四年级, 积分 73, 距离下一级还需 17 积分
鲜花0 个铜币129 个银币0 个积分73帖子
UID1883553精华0在线时间16 小时阅读权限20鲜花0 个铜币129 个银币0 个金币0 个积分73帖子注册时间最后登录
小学四年级, 积分 73, 距离下一级还需 17 积分
鲜花0 个铜币129 个银币0 个积分73帖子
UID1720726精华0在线时间6 小时阅读权限20鲜花0 个铜币82 个银币0 个金币0 个积分58帖子注册时间最后登录
小学三年级, 积分 58, 距离下一级还需 12 积分
鲜花0 个铜币82 个银币0 个积分58帖子
UID1965525精华0在线时间1 小时阅读权限20鲜花0 个铜币24 个银币0 个金币0 个积分3帖子注册时间最后登录
小学一年级, 积分 3, 距离下一级还需 27 积分
鲜花0 个铜币24 个银币0 个积分3帖子
shentong1983 发表于
来好好学习一下!!
UID2014240精华0在线时间12 小时阅读权限40鲜花1 个铜币479 个银币1 个金币0 个积分430帖子注册时间最后登录
初中三年级, 积分 430, 距离下一级还需 20 积分
鲜花1 个铜币479 个银币1 个积分430帖子
按键精灵开发者1级
可通过提升认证等级来升级勋章：
按键精灵论坛推荐 /2
按键精灵2014.03测试版发布！新增表格控件与浏览器控件，帖内还提供了脚本实例和源码，快快点击查看！
炎炎夏日，充值酷礼，小精灵与您相约毕业季！ 各位大大们，萌萌的作者让我们一起钱铺厚季~眼疾手快，新作者畅礼，各种VIP福利等您来！活动时间: 6.15号0点-6.17号24点（只有3天！3天！！还能免门槛注册成为商业作者）
Powered by