传奇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语法支持较好，所以用来记些笔记。传奇私服每天攻城机器人脚本和攻城奖励脚本_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
传奇私服每天攻城机器人脚本和攻城奖励脚本
|0|0|文档简介
总评分4.2|
浏览量155877
&&传奇私服每天攻城机器人脚本和攻城奖励脚本
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢