你的位置：
想做个传奇si服的自动打怪和拣指定装备的脚本，求优化
23:50:49 |
来源: 按键精灵资源站
问题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&¢erx,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&¢erx,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急！求高手详细指导下按键精灵怎么制作传奇三私服挂机的脚本
不需要很复杂的！ 只要人物能在地图的几个 坐标之间  来回跑 就行了！ 求高手详细说下！！！
09-09-28 &匿名提问
按键精灵是根据你要按的键,他自动帮你按 首先你要知道你需要按哪些键,和这些键的顺序 和按每个键之间的时间 然后在按键精灵里面编辑脚本 最后设置热键启动按键精灵 它就可以自动的帮你按这些键了 而且可以无限循环 (个人认为按键精灵不好用!) 按键精灵5.7版下载+注册码 按键精灵是一个模拟鼠标键盘动作的软件。通过制作脚本，可以让按键精灵代替您的双手，自动执行一系列鼠标键盘动作。按键精灵简单易用，不需要任何编程知识就可以作出功能强大的脚本。只要您在电脑前用双手可以完成的动作，按键精灵都可以替您完成。按键精灵用途广泛，具有大量脚本资源。欢迎大家访问按键精灵网下载脚本、交流脚本制作心得。 下载地址:
初次使用时需要输入注册码: HBVIWGVHASAHFIBKFKGGTGEERDHGUBRCBIFTJEDTFSSKCEVGGUUWJIJBVKJUAFUB （这个注册码绝对可以用，我已验证过）
按键精灵最简单的用法就是：打开按键精灵，选择左上角的”增加”，那是做一个新脚本时用的． 进入脚本编辑器后，先看你的顶上，选一个脚本名字（这个名字就会成为脚本在硬盘上的文件名），选好启动热键和中止热键． 然后你看到左边有一个”鼠标动作”了吗？在这个里面有一个鼠标动作的选择，你把它选到”右键按下”，后面的”执行次数”不要动它，再按一下后面的”插入”，好现在这一行命令就进入你的程序了！ 最后就是按右上角的保存脚本，再退出来就完成啦！现在你一按你自己设定的启动热键，按键精灵就会自动帮你按下右键了，多方便呀！把你贴在鼠标右键上的胶带撕下来吧！你的鼠标会哭泣的！
请登录后再发表评论!