传奇私服法师挂机脚本 - 简书
下载简书移动应用
写了62053字，被34人关注，获得了54个喜欢
传奇私服法师挂机脚本
和之前战士差不多的功能，挂机地图是尸魔洞2层。玩了两天，腻了，游戏也删了。把脚本记录下来，好歹算是学习按键精灵的过程。
自动打怪、捡物、买双倍卷轴、买药，自动修复装备。
//设置大漠路径以及字库名
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)
//初始化跑图路径
Call 买物品()
Call 打宝箱()
Call 打身边怪()
Call 捡身边物()
Call 打半屏怪()
Delay 1000
Call 捡全屏物()
Call 打全屏怪()
Call 找怪()
Call 跑图()
Sub 打宝箱()
dm_ret = dm.FindStrFast(0, 0, 800, 438, "宝|箱", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.KeyPress 113
Delay 1500
Sub 打身边怪()
//身边怪物（名字判断）
dm_ret = dm.FindStrFast(279,119,508,294, "恶|灵", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo 390, 230
dm.KeyPress 113
dm.MoveToEx 20, 400, 5, 5
dm.MoveToEx 20, 400, 5, 5
Sub 打半屏怪()
//半屏怪物（名字判断）
dm_ret = dm.FindStrFast(155,76,661,358, "恶|灵", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 20
dm.KeyPress 113
dm.MoveToEx 20, 400, 5, 5
dm.MoveToEx 20, 400, 5, 5
Sub 打全屏怪()
//全屏怪物（名字判断）
dm_ret = dm.FindStrFast(0, 0, 800, 438, "恶|灵", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 20
dm.KeyPress 113
dm.MoveToEx 20, 400, 5, 5
dm.MoveToEx 20, 400, 5, 5
Sub 捡身边物()
//身边物品
dm_ret = dm.FindStrFast(213,63,574,354, "神|强|金", "ff|ffffff-ddee-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 20
dm.LeftClick
dm.MoveToEx 20, 400, 5, 5
dm.MoveToEx 20, 400, 5, 5
Sub 捡全屏物()
//全屏物品
dm_ret = dm.FindStrFast(0, 0, 800, 438, "神|强|金", "ff|ffffff-ddee-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 20
dm.LeftClick
dm.MoveToEx 20, 400, 5, 5
dm.MoveToEx 20, 400, 5, 5
Sub 找怪()
//小地图找怪
dm_ret = dm.FindMultiColor(608,0,800,160,"ff0000","0|1|ff|ff|ff|ff,0,intX,intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + i, intY + i
dm.RightClick
Delay 1000
//判断是否有怪，有怪停止移动
dm_ret = dm.FindStrFast(0, 0, 800, 438, "恶|灵", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo 390, 230
dm.RightClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "恶|灵", "ffffff-000000", 1.0, intA, intB)
If intA &= 0 and intB &= 0 Then
dm.MoveTo 390, 230
dm.RightClick
Sub 买物品()
hong = dm.Ocr(304, 425, 318, 440, "ffffff-000000", 1.0)
lan = dm.Ocr(346, 423, 366, 439, "ffffff-000000", 1.0)
suiji=dm.Ocr(517,424,536,438, "ffffff-000000", 1.0)
TracePrint "红:" & hong & "蓝:" & lan & "随机：" & suiji
If hong = 0 Then
Delay 1000
hong = dm.Ocr(304, 425, 318, 440, "ffffff-000000", 1.0)
If hong = 0 Then
Call 买红()
If lan = 0 Then
Delay 1000
lan = dm.Ocr(346, 423, 366, 439, "ffffff-000000", 1.0)
If lan = 0 Then
Call 买蓝()
If suiji = 0 Then
Delay 1000
suiji=dm.Ocr(517,424,536,438, "ffffff-000000", 1.0)
If suiji = 0 Then
Call 买随机()
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "440000", "1|0||0|dd|ffaa00,4|0|eebb00", 1.0, 0, intX, intY)
If dm_ret = 0 Then
Call 买双倍()
Sub 买红()
dm.MoveTo 766,566
dm.LeftClick
Delay 2000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金币区", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金创药", "00ff00-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "080000","0|1|f7de39,0|2|f7de39,0|3||4|6b5239", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint 123
dm.MoveTo intX-30,intY
dm.LeftClick
dm.KeyPress 48
Delay 1000
//付费购买按钮
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "8c8439", "0|1|fff76b,0|2|efe763,0|3|efe763,0|4|efe763", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
//确定按钮
dm_ret = dm.FindStrFast(0, 0, 800, 438, "确定", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
//打开背包
dm.MoveTo 693, 399
dm.LeftClick
Delay 1000
//解开红药
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 27
Delay 1000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
dm.MoveToEx 20, 400, 5, 5
Sub 买蓝()
dm.MoveTo 766,566
dm.LeftClick
Delay 2000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金币区", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "魔法药", "00ff00-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "080000","0|1|f7de39,0|2|f7de39,0|3||4|6b5239", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint 123
dm.MoveTo intX-30,intY
dm.LeftClick
dm.KeyPress 48
Delay 1000
//付费购买按钮
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "8c8439", "0|1|fff76b,0|2|efe763,0|3|efe763,0|4|efe763", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
//确定按钮
dm_ret = dm.FindStrFast(0, 0, 800, 438, "确定", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm.MoveTo 693, 399
dm.LeftClick
Delay 1000
//解开蓝药
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 27
Delay 1000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
dm.MoveToEx 20, 400, 5, 5
Sub 买随机()
dm.MoveTo 766,566
dm.LeftClick
Delay 2000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金币区", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "随机传送石", "00ff00-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "8c8439", "0|1|fff76b,0|2|efe763,0|3|efe763,0|4|efe763", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
//确定按钮
dm_ret = dm.FindStrFast(0, 0, 800, 438, "确定", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm.MoveTo 693, 399
dm.LeftClick
Delay 1000
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 27
Delay 1000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
dm.MoveToEx 20, 400, 5, 5
Sub 买双倍()
dm.MoveTo 766,566
dm.LeftClick
Delay 2000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金币区", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "双倍秘籍", "00ff00-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 438, "8c8439", "0|1|fff76b,0|2|efe763,0|3|efe763,0|4|efe763", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
//确定按钮
dm_ret = dm.FindStrFast(0, 0, 800, 438, "确定", "efd6ad-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX + 20, intY + 10
dm.LeftClick
Delay 1000
dm.MoveTo 693, 399
dm.LeftClick
Delay 1000
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "ce3129", "0|1|ff5a5a,0|2|ff5a5a,0|3|d65a52,0|4|ce3129", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
Delay 1000
dm.KeyPress 27
dm.MoveToEx 20, 400, 5, 5
Sub 自动()
dm.KeyDown 17
dm.KeyPress 76
dm.KeyUp 17
Sub 跑图()
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)
If 86 & zuobiaox & 76 and 43 & zuobiaoy & 33 Then
53 & zuobiaox & 43 and 33 & zuobiaoy & 22 Then
ElseIf 25 & zuobiaox & 15 and 60 & zuobiaoy & 50 Then
ElseIf 65 & zuobiaox & 55 and 87 & zuobiaoy & 77 Then
Select case nn
dm.MoveTo 750, 68
dm.RightClick
Delay 1000
dm.MoveTo 700, 57
dm.RightClick
Delay 1000
dm.MoveTo 659, 85
dm.RightClick
Delay 1000
dm.MoveTo 720, 112
dm.RightClick
Delay 1000
End Select
//判断是否有怪，有怪停止移动
dm_ret = dm.FindStrFast(0, 0, 800, 438, "恶|灵|宝|箱", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo 390, 230
dm.RightClick
Delay 1000
dm_ret = dm.FindStrFast(0, 0, 800, 438, "恶|灵", "ffffff-000000", 1.0, intA, intB)
If intA &= 0 and intB &= 0 Then
dm.MoveTo 390, 230
dm.RightClick
如果觉得我的文章对您有用，请随意打赏。您的支持将鼓励我继续创作！
打开微信“扫一扫”，打开网页后点击屏幕右上角分享按钮
如果觉得我的文章对您有用，请随意打赏。您的支持将鼓励我继续创作！
选择支付方式：求个武林传奇2的后台自动刷怪的按键精灵脚本，最好能填写4位数字验证码的。_百度知道刀塔传奇按键精灵自动刷怪教程详解_魔方网刀塔传奇专区
您的位置：
刀塔传奇按键精灵自动刷怪教程详解
　　本文介绍的是刀塔传奇按键精灵自动刷怪教程详解，刀塔传奇按键精灵可以帮助玩家更好的自动刷怪。本篇教程主要为不知道刀塔传奇按键精灵自动刷怪的玩家来讲解一下按键精灵自动刷怪教程，知道的就略过吧!
　　首先要有按键经历这是界面
　　点击左上角新建，进入
　　左边上下分别是设置按键和延迟时间额，右边是设置热键，就是启动和关闭快捷键，热键要设置好。
　　其他命令里设置延时，所谓延时就是当前动作和下一个动作的间隔时间。
　　OK!保存，调试，启动即可!
　　好了，以上就是魔方网小编为大家带来的刀塔传奇按键精灵自动刷怪教程详解。希望玩家们继续支持我们魔方网，我们会在以后的日子里，为你们继续献上更加好玩的游戏攻略哦!
突破经典的飞行射击类精品手机游戏。继承了经典飞机大战简单爽快的操作体验，玩法更多样。这么好玩的游戏，确定不玩吗？您没有登录或者您没有权限访问此页面，可能有如下几个原因
1、本版块为正规版块,只有注册会员才能进入!
2、违法和不良信息举报***： 转2004
举报邮箱： 举报QQ：
使用合作网站帐号登录