简单几步教你如何做好传奇挂机脚本
&&简单几步教你如何做好传奇挂机脚本
简单几步教你如何做好传奇挂机脚本
16:20:54来源：编辑：9553资讯编辑
传奇玩家中，有很多骨灰都是白天要上班工作或者上学，很少有时间长期练级，打元宝的。鉴于传奇游戏的特点，如果不能保证充足的上线时间，就很难在游戏里玩出什么名堂，今天就教大家如何利用传奇木剑相逢辅助的挂机功能实现全自动脱机挂元宝升级。
需要软件：
1.木剑相逢
授权：免费版软件大小：9.39MB语言：简体中文
木剑相逢是一款集百家之长编译而出传奇辅助软件，伴随着传奇的发展，最好用的传奇辅助体验与需求，内挂合击PK以及挂机脱机，将是我们努力的方向，用户的满意，是我们最大的成就感。
2.木剑相逢挂机脚本编辑器
授权：免费版软件大小：4.72MB语言：简体中文
传奇挂机脚本编辑器是一款通过加载传奇挂机脚本来实现模拟人工在传奇游戏里练级，打装备，回收装备刷元宝的辅助工具。一般来说，传奇挂机脚本都是通过传奇挂机脚本编辑器生成的。
3.木剑相逢窗口化工具
授权：免费版软件大小：335KB语言：简体中文
传奇游戏窗口化优化工具是针对部分英雄合击服只能全屏无法窗口化，或者挂机过程中需要挂很多账号的情况下使用的传奇窗口化工具。
使用方法：
1.打开传奇挂机脚本编辑器（木剑相逢辅助专用），选择你玩的对应的服的种类
如果是内挂/3K/HGE引擎的点击坐标，LEG引擎的点击右边进入；
2.根据脚本编辑器上面的提示，一步步的按照说明填上自己需要的功能；
3.按照说明一步步填好后，点击生成脚本；
生成完毕后，点击保存；
4.打开木剑相逢辅助，点击挂机功能；
在脚本路径后面，点击浏览，将刚才保存的脚本上传上来，或者直接将脚本拖到这个界面；
5.执行脚本
执行脚本后，木剑相逢辅助会根据您的设置，全自动值守挂机，另外，可以配合木剑相逢专用的窗口化工具实现同时挂N个号。
9553小编猜你还喜欢
关键词： 传奇
传奇挂机辅助
传奇挂机脚本编辑器传奇SF挂机脚本 - 简书
传奇SF挂机脚本
好像现在外挂都过不了登陆器，包括找罗楠拿的收费挂也不行，只好自己写一个挂机脚本。
按键精灵+大漠插件制作，职业：战士、道士，挂机位置尸魔洞一层，打开小地图为全图，分辨率为800×600。自动打怪、自动捡取、自动买药、自动修装备。测试6个小时正常挂机，初学写出来的感觉应该还能优化。不过写出来后也没兴致再玩游戏了。。。毕竟还要吃饭呢。
//PutAttachment "c:\test_game","*.*"
//PutAttachment ".\Plugin", "RegDll.dll"
//call Plugin.Regdll.reg("c:\test_game\dm.dll")
//注册大漠
//设置大漠路径以及字库名
Set dm = createobject("dm.dmsoft")
dm.SetPath ("d:")
dm_ret = dm.SetDict(0,"lanhuo.txt")
//绑定窗口和模式
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, "dx2", "windows", "windows", 0)
//初始化跑图路径,和人物点
Dim nn,myx, myy
dm_ret = dm.FindStr(230,58,575,331, "宝箱", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint "打宝箱"&intX&":"&intY
dm.MoveTo intX + 1, intY + 32
dm.LeftClick
Delay 2000
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
dm_ret = dm.FindMultiColor(321, 124, 462, 213, "ff0000", "0|1|9c||3|-|3|-|6|-101010", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint "打恶灵"&intX&":"&intY
dm.MoveTo intX + 15, intY + 45
dm.LeftClick
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
Rem 捡东西
//判断身边是否有怪，有怪就先打怪，没怪就捡东西
dm_ret = dm.FindMultiColor(321,124,462,213,"ff0000","0|1|9c||3|-|3|-.0,0,intX,intY)
If dm_ret = 1 Then
//捡神开头的物品
dm_ret = dm.FindStrFast(0, 0, 800, 438, "神", "ff|ffffff-ddee-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint "捡神"&intX&":"&intY
intX = intX + 25
intY = intY + 13
If intX & myx and intY & myy Then
Call 走左上角()
ElseIf intX & myx and intY & myy Then
Call 走左下角()
ElseIf intX & myx and intY & myy Then
Call 走右上角()
ElseIf intX & myx and intY & myy Then
Call 走右下角()
ElseIf intX = myx and intY & myy Then
Call 走下()
ElseIf intX = myx and intY & myy Then
Call 走上()
ElseIf intX & myx and intY = myy Then
Call 走右()
ElseIf intX & myx and intY = myy Then
Call 走左()
Delay 1000
Goto 捡东西
//捡金或强开头的物品
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金|强", "ff|ffffff-ddee-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint "捡金或强"&intX&":"&intY
intX = intX + 13
intY = intY + 18
If intX & myx and intY & myy Then
Call 走左上角()
ElseIf intX & myx and intY & myy Then
Call 走左下角()
ElseIf intX & myx and intY & myy Then
Call 走右上角()
ElseIf intX & myx and intY & myy Then
Call 走右下角()
ElseIf intX = myx and intY & myy Then
Call 走下()
ElseIf intX = myx and intY & myy Then
Call 走上()
ElseIf intX & myx and intY = myy Then
Call 走右()
ElseIf intX & myx and intY = myy Then
Call 走左()
Delay 1000
Goto 捡东西
Rem 买东西
hong = dm.Ocr(304, 425, 318, 440, "ffffff-000000", 1.0)
lan = dm.Ocr(346, 423, 366, 439, "ffffff-000000", 1.0)
TracePrint "红:" & hong
TracePrint "蓝:" & lan
If hong = 0 Then
TracePrint "买红药"
dm.MoveTo 766,566
Delay 2000
dm.LeftClick
dm.MoveTo 166, 22
Delay 2000
dm.LeftClick
dm.MoveTo 574, 83
Delay 2000
dm.LeftClick
dm.MoveTo 50, 205
Delay 2000
dm.LeftClick
dm.KeyPress 48
dm.MoveTo 88, 266
Delay 2000
dm.LeftClick
dm.MoveTo 344, 318
Delay 2000
dm.LeftClick
dm.MoveTo 692, 400 //打开背包
Delay 2000
dm.LeftClick
Delay 2000
//解开红药
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "7b3118", "1|0|6b|6b|7b|942918", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
//使用修复水
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "d6c6ad", "1|0|bda57b,2|0|efc68c,3|0|f7f7de,4|0|b5a594", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
dm.KeyPress 120
Delay 2000
dm.KeyPress 27
Delay 2000
If lan = 0 Then
TracePrint "买蓝药"
dm.MoveTo 766,566
Delay 2000
dm.LeftClick
dm.MoveTo 166, 22
Delay 2000
dm.LeftClick
dm.MoveTo 574, 147
Delay 2000
dm.LeftClick
dm.MoveTo 50, 205
Delay 2000
dm.LeftClick
dm.KeyPress 48
dm.MoveTo 88, 266
Delay 2000
dm.LeftClick
dm.MoveTo 344, 318
Delay 2000
dm.LeftClick
dm.MoveTo 692, 400 //打开背包
Delay 2000
dm.LeftClick
Delay 2000
//解开蓝药
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "104284", "1|0||0||0|215aa5,4|0|738cff", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
//使用修复水
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "d6c6ad", "1|0|bda57b,2|0|efc68c,3|0|f7f7de,4|0|b5a594", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
dm.KeyPress 120
Delay 2000
dm.KeyPress 27
dm_ret = dm.FindStr(80,39,744,355,"恶|灵","ffffff-.0,intX,intY)
If intX &= 0 and intY &= 0 Then
TracePrint "屏幕范围找恶灵："&intX&":"&intY
dm.MoveTo intX+25, intY+5
dm.LeftClick
dm.MoveToEx 100, 100, 100, 100
dm.MoveToEx 100, 100, 100, 100
dm.MoveToEx 100, 100, 100, 100
dm_ret = dm.FindStr(80,39,744,355, "宝|箱", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint "屏幕范围找宝箱："&intX&":"&intY
dm.MoveTo intX+4, intY+51
dm.LeftClick
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
dm_ret = dm.FindMultiColor(672,0,800,128,"ff0000","0|1|ff|ff|ff|ff,0,intX,intY)
If intX &= 0 and intY &= 0 Then
TracePrint "小地图找怪："&intX&":"&intY
dm.MoveTo intX + i, intY + i
dm.RightClick
zuobiao = dm.Ocr(68,583,129,599, "ffffff-000000", 1.0)
zuobiaox = mid(zuobiao,1,instr(zuobiao, ":")-1)
zuobiaoy = mid(zuobiao,instr(zuobiao, ":")+1,3)
TracePrint "跑图中，当前坐标：" & zuobiaox & ":" & zuobiaoy
If 170 & zuobiaox & 164 and 128 & zuobiaoy & 120 Then
165 & zuobiaox & 150 and 30 & zuobiaoy & 20 Then
ElseIf 28 & zuobiaox & 18 and 80 & zuobiaoy & 70 Then
ElseIf 65 & zuobiaox & 55 and 180 & zuobiaoy & 170 Then
Select case nn
dm.MoveTo 770, 100
dm.RightClick
dm.MoveTo 760, 20
dm.RightClick
dm.MoveTo 630, 60
dm.RightClick
dm.MoveTo 666, 140
dm.RightClick
End Select
//随机走路的子程序，打算用于多线程判断是不是卡住了，后来发现用不到。
Sub 随机走()
TmpRnd = Int(rnd * 8 + 1)
TracePrint "随机走路:" & TmpRnd
Select Case TmpRnd
Call 走左()
Call 走右()
Call 走上()
Call 走下()
Call 走左上角()
Call 走右上角()
Call 走左下角()
Call 走右下角()
End Select
Sub 走左()
dm.MoveTo myx - 90, myy
dm.LeftClick
Sub 走右()
dm.MoveTo myx + 90, myy
dm.LeftClick
Sub 走上()
dm.MoveTo myx, myy - 90
dm.LeftClick
Sub 走下()
dm.MoveTo myx, myy + 90
dm.LeftClick
Sub 走左上角()
dm.MoveTo myx - 90, myy - 90
dm.LeftClick
Sub 走右上角()
dm.MoveTo myx + 90, myy - 90
dm.LeftClick
Sub 走左下角()
dm.MoveTo myx - 90, myy + 90
dm.LeftClick
Sub 走右下角()
dm.MoveTo myx + 90, myy + 90
dm.LeftClick
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
提取码：s4mi
AFF$神$0.0.56$12
FC30A7F2C0$恶$0.0.48$11
2A895E2A08$灵$0.0.45$11
A48CFCC00$宝$0.0.50$12
6AA9553F8$箱$0.0.64$12
10$2$0.0.16$8
411FE.0.11$8
0$7$0.0.11$8
E0$3$0.0.15$8
7EE0$0$0.0.18$8
0C0$4$0.0.18$8
C0$9$0.0.18$8
6EE0$8$0.0.19$8
3EE0$6$0.0.18$8
FAE0$5$0.0.19$8
840$:$0.0.2$6
911FD00$金$0.0.45$12
7EE0$6$0.0.19$8
FE0$5$0.0.18$8
50$4$0.0.16$8
C800$7$0.0.13$8
E0$9$0.0.19$8
4FE91E0$强$0.0.63$12
用简书的md来做一些笔记的记录，如有错误的地方。希望大家帮忙提醒指正。