普通土万象

阿里云国内75折 回扣 微信号：monov8
阿里云国际，腾讯云国际，低至75折。AWS 93折 免费开户实名账号 代冲值 优惠多多 微信号：monov8 飞机：@monov6

普通土万象

前言

自动普通土万象

步骤

① 开始游戏
② 抢英雄
③ 判断进入预备地图
④ 多线程 1-自动寻路 2-跳过动画
⑤ 主线程阻塞-判断进入战斗地图
⑥ 战斗
1、多线程 1-蓄力+中闪 2-转向队友以修正方向
2、主线程阻塞-判断通关成功战斗超时如80s打破阻塞
⑦ 返回大厅
以上为匹配单打开启振刀振早调延时和转向敌人土万象和背景颜色差不多很难识别好。效率很低大概4分钟一把最好匹配。

源码

Call dmcj
Call dmOcr

For 9999
	Call 开始游戏()
	Call 使用角色()
	Call 进入预备地图()
	xl = BeginThread(寻路(1599, 322))
	Call 跳过()
	StopThread xl
	Call 进入战斗地图()
	Call 战斗()
	Call 返回大厅()
Next

Function 战斗()
	TracePrint "战斗"
	xlid = BeginThread(蓄力迦南)
//    jzsd = BeginThread(矫正索敌)
//    zd = BeginThread(振刀(xlid))
	sddy = BeginThread(锁定队友)
	Call 通关成功(xlid, sddy)
//	StopThread jzsd
//	StopThread zd
End Function

Sub 蓄力
	TracePrint "蓄力"
	While 1 = 1
		RightUp 1
		RightDown 1
		Delay 730
		RightUp 1
		Delay 1000
		KeyPress "Shift", 1
		// 后摇
		Delay 760
	Wend
End Sub

Sub 蓄力迦南
	TracePrint "蓄力"
	While 1 = 1
		RightUp 1
		RightDown 1
		Delay 20
		RightUp 1
		Delay 30
		KeyPress "Shift", 1
		Delay 30
	Wend
End Sub

Sub 振刀(xlid)
	Call dmcj
	While 1 = 1
		Delay 10
		NUM = Plugin.Color.CountColor(456, 259, 1495, 840, "FCEFE2", 0.9)
//		TracePrint NUM
//		If NUM > 600 Then 
		If NUM > 1000 Then 
			PauseThread xlid
			Delay 50
		 	KeyPress "G", 1
   				Delay 1000
   				LeftClick 1
   				Delay 4000
   				ContinueThread xlid
		End If
	Wend
End Sub

Sub 矫正索敌()
	Call dmcj
	判断颜色 = "C1DFF8"
	While 1 = 1
		Delay 10
		NUM = Plugin.Color.CountColor(746, 0, 1080, 720, 判断颜色, 0.92)
		TracePrint NUM
		If NUM > 5 Then 
			Delay 3000
			dm.MoveR -500, 0
		Else 
			dm.MoveR 100, 0
		End If
		Delay 10
	Wend
End Sub

Sub 锁定队友()
	Delay 1000
	TracePrint "锁定队友"
	Call dmcj
	判断颜色 = "688522"
	// 如果自己是绿色 就不能判断绿色
	IfColor 121, 1007, "688522", 0 Then
		判断颜色 = "AD5A47"
	End If
	IfColor 121, 1007, "000000", 0 Then
		判断颜色 = "AD5A47"
	End If
	While 1 = 1
		Delay 10
		FindColor 746,0,1080,720, 判断颜色, intX, intY
		If intX > 0 And intY > 0 Then 
			Delay 1000
			dm.MoveR -300, 0
		Else 
			dm.MoveR 150, 0
		End If		
		Delay 10
	Wend
End Sub


Function 获取坐标()
	xy = dm.Ocr(1654, 115, 1780, 136, "ffffff-524e4a", 0.92)
	x = Left(xy, 5)
	y = Right(xy, 5)
//	TracePrint xy
End Function

Function 开始游戏()
	intXgb = -1
	While intXgb < 1
		KeyPress "Space", 1
		Delay 10
		dm.MoveTo 0, 0
		Delay 10
		gb = dm.FindStr(1547, 941, 1880, 1029, "开始游戏", "ffffff-767b83", 0.90, intXgb, intYgb)
		If intXgb > 0 Then 
			Delay 100
			dm.MoveTo intXgb, intYgb
			Delay 200
			LeftClick 1
			Delay 100
		End If
//		TracePrint gb
		Delay 100
	Wend
End Function

Function 使用角色()
	intXur = -1
	While intXur < 1
		// 移到角色位置
//		dm.MoveTo 229, 365
		dm.MoveTo 334, 226
		
		ur = dm.FindStr(1613,919,1667,952, "使用", "ffffff-c3abaa", 0.90, intXur, intYur)
		If intXur > 0 Then 
			LeftClick 1
			Delay 100
			dm.MoveTo intXur, intYur
			Delay 100
			LeftClick 1
			Delay 100
		End If
//		TracePrint ur
		Delay 100
	Wend
End Function

Function 进入预备地图()
	intXrd = -1
	While intXrd < 1
		dm.MoveTo 0,0
		rd = dm.FindStr(65,64,177,108, "预备", "ffffff-9f9fa0", 0.90, intXrd, intYrd)
//		TracePrint rd
		Delay 100
	Wend
End Function

Function 进入战斗地图()
	intXnd = -1
	While intXnd < 1
		dm.MoveTo 0,0
		nd = dm.FindStr(598,19,693,45,"战斗地图","ffffff-342826",0.90,intXnd,intYnd)
//		TracePrint nd
		Delay 100
	Wend
End Function

Function 跳过()
	intXps = -1
	While intXps < 1
		dm.MoveTo 0,0
		ps = dm.FindStr(1825,1034,1872,1066, "跳过", "ffffff-cecece", 0.90, intXps, intYps)
		If intXps > 0 Then 
			Delay 100
			dm.MoveTo intXps, intYps
			Delay 100
			KeyPress "Esc", 1
			Delay 100
		End If
//		TracePrint ps
		Delay 100
	Wend
End Function

Function 通关成功(xlid, sddy)
	tBegin = Plugin.Sys.GetTime()
	intXpss = - 1 
	While intXpss < 1
		Delay 1000
		dm.MoveTo 0, 0
		ps = dm.FindStr(898,204, 1023,228, "即将返回大厅", "ffffff-342826", 0.90, intXpss, intYpss)
		tUse = Plugin.Sys.GetTime() - tBegin
		
		If tUse > 80000 Then 
			intXpss = 10
		End If
		
		If intXpss > 0 Then 
			Delay 100
			dm.MoveTo intXpss, intYpss
			Delay 100
			KeyPress "Esc", 1
			Delay 100
			TracePrint "用时:"& tUse
		End If
	Wend
	
	StopThread xlid
	StopThread sddy
End Function

Function 返回大厅()
	intXbk = -1
	While intXbk < 1
		dm.MoveTo 0,0
		ps = dm.FindStr(915,766,1006,794, "返回大厅", "ffffff-78716f", 0.90, intXbk, intYbk)
		If intXbk > 0 Then 
			Delay 100
			dm.MoveTo intXbk, intYbk
			Delay 100
			LeftClick 1
			Delay 300
			KeyPress "Space", 1
		End If
//		TracePrint ps
		Delay 1000
	Wend
End Function

Function 矫正方向()
	dm.MoveTo 0,0
	intX = -1
	While intX = -1
		dm_ret = dm.FindStr(820, 40, 865, 85, "西南", "ffffff-524e4a", 0.70, intX, intY)
		dm.MoveR 10, 0
		Delay 5
	Wend
End Function

Sub 寻路(mbx, mby)
	Call dmOcr
	
	误差 = 0.6
	微调 = 8
	倍数 = 30

	KeyPress "M", 1
	Delay 500
	Do
		Call 获取坐标()
		If X = "" OR Y = "" Then
			KeyPress "W", 1
		Else 
			If (y - mby) < -误差 Then
//				TracePrint "按w"&(y - mby)&"上"
				KeyDown "W", 1
				If Abs(y - mby) > 微调 Then 
					KeyDown "Shift", 1
				End If
//				KeyPress "Space", 1
				Delay Abs(y - mby) * 倍数
				KeyUp "W", 1
				If Abs(y - mby) > 微调 Then 
					KeyUp "Shift", 1
				End If
				
			ElseIf (y - mby) > 误差 Then
//				TracePrint "按s"&(y - mby)&"下"
				KeyDown "S", 1
				If Abs(y - mby) > 微调 Then 
					KeyDown "Shift", 1
				End If
				Delay Abs(y - mby)*倍数
				KeyUp "S", 1
				If Abs(y - mby) > 微调 Then 
					KeyUp "Shift", 1
				End If
			Else 
//				TracePrint "X到达"
			End If
			
			If (x - mbx) > 误差 Then 
//				TracePrint "按A" & (x - mbx) & "左"
				KeyDown "A", 1
				If Abs(x - mbx) > 微调 Then 
					KeyDown "Shift", 1
				End If
				Delay Abs(x - mbx)*倍数
				KeyUp "A", 1
				If Abs(x - mbx) > 微调 Then 
					KeyUp "Shift", 1
				End If
			ElseIf (x - mbx) < -误差  Then 
//				TracePrint "按D"&(x - mbx)&"右"
				KeyDown "D", 1
				If Abs(x - mbx) > 微调 Then 
					KeyDown "Shift", 1
				End If
				Delay Abs(x - mbx)*倍数
				KeyUp "D", 1
				If Abs(x - mbx) > 微调 Then 
					KeyUp "Shift", 1
				End If
			Else 
//				TracePrint "Y到达"
			End If
			
			count = count + 1
//			TracePrint 误差 & " " & Abs(mbx - x) & " " & Abs(y - mby)
//			TracePrint Abs(mbx - x) & " " & (Abs(mbx - x) < 误差) & " " & Abs(y - mby) & " :" & (Abs(y - mby) < 误差)
			If Abs(mbx - x) < 误差 And Abs(y - mby) < 误差 Then 
				TracePrint "XY到达"
				Exit Do
			End If
		End If
		
		Delay 100	
	Loop
	Delay 200
	KeyPress "M", 1
	Delay 500
	KeyPress "E", 1
End Sub

Sub dmcj
   大漠其它地方找复制进来
End Sub

Sub dmOcr
	set dm = createobject("dm.dmsoft")
	base_path = dm.GetBasePath()
	dm_ret = dm.SetPath(base_path)
	dm_ret = dm.SetDict(0, "字库.txt")
End Sub

字库.txt

C01800$.$0.0.4$2
3FCE0F00400C02F3CFF0$0$0.0.38$12
401803FFBFF$1$1.2.31$12
40380E03C0CC70FC0400$2$0.0.32$12
40380218430CE0F7CC78$3$0.0.35$12
0180703E0C4709FFFFF804$4$0.0.42$12
1C3F8310660C438FC0F0$5$0.0.37$12
1FCFDF10E208418C50F8$6$0.0.40$12
C0180303E3FDC1E03000$7$0.0.30$12
31EF6718430C60FE4C78$8$0.0.43$12
7C38C20C410C22FFC7E0$9$0.0.39$12
4008FD33A624C8FE1302607F89993126747E000000002FE580B217C6DBF9DB697C2C8590BF900$西南$0.0.171$15
0E03C0780F01E03C0780F01E03C07F8FF1FE3FC7F8F01E03C0780F01E03C0780F01E03C0780F01FE3FC7F8FF1E03C0780F01E03C0780F01E03C000000000000000000020040080100201CFFFFFFFFFE50080100200400801002000000000000000000000601C0F87F7FFFF3F87C06000000000600E03C03803000000000000000000000000000000000300F01E03E03E07C07C07C0F00DC0380700E81DC3FC7FEEFFCFF8FF06E01C0380700E01C0380307EFFFFFFFFFFE87C0F81F03E07C0F81F03E07C0F80F000000000000380780F01E03C0780F01E03C0780F01E03C0780F01F03E07C0F81800000000000001F03FFFFFFFFFFC00000000401C03C07C07C0FC0FC$开始游戏$2.0.3214$46
00401C0F83C1FEFFFE0780BBE77CEE9DC3B8773FFFFFFFE770EE1DC3BE77CEF800000000003FF7FEFFDC638C718E31C63FF7FEE31C638C718E31C63FF7FEFFC$使用$0.0.542$22
7F6FFDFC31F63EFEDFD8E01F3FFFFFFFF001FFFFF87B3E23000000041DC39C79CF19E380740FE1DE39C708E01C1FFFFF8E01C0380$跳过$1.1.401$19
03E00C000000FE1FC00000000000007FFFFE000000000000003F87F000000000007FEFFC3F87F0FE1FC3FFE0FDE1FC3F87F0FE1FDFFBFF000000000200E01C0380700E01C1B87F07E27CC3B87F0FC1E038020000000000300E23FC7F9FFFDFFBDF79FF3FE7F8F716F0DE1FC3F83D$预备$0.1.728$19
0FE1FC00000000000003FFFFE000000000000003F87F000000000007FEFFC3F87F0FE1FC3FFE0FDE1FC3F87F0FE1FDFFBFF000000000000E01C0380700E01C1B87F07E23CC3B87E0F81E038020000000000300E21FC7F9EF7DFFBDF79FF3FE7F8F716F0DE1FC3F801$预备$0.1.692$19
006C0CE18E3086000001FF3FE660CD99B332C618C31963EC798C000000000003FF7FEC018030F63EC7D8C318630C618FB1F600C01803FF7FE000000000180300600C0180300600C01FFFFFF80F0180300600C0180300600C000000000003FE7FCC418C318630C618C318630C798F318630C618C318620$返回大厅$0.0.625$21
0020040080100200400801002004008010020040080000000000000000000000000020040080000000200400F81F007004000000401801000000000000000000000000000000000000000000000000000000000000C018030000040080100000000000000000000000000000000000000000000000000000000000000080100200000000000000000000C01C0$通关成功$9.0.1272$36
3FEFFD10A21442885999FE000000FF900200400801FF000000000000800C008FFF0000042288510A4A58C91126259CE09810020000000460861063800000004FF93022844888A114228590E200000000000007FE8010020043E841082104208410821F400801803FF00000000010020040080100200400DBFE63804C0801002004008010020000000000007FC80110220440881102204408F91022044088110200$即将返回大厅$0.0.491$18
40080100200402DF98C2184308610C21843086107A00400000000000803007918A51983106A9B5F6F25440090120283C000000000000000000000000600C000000000000000016444889113B65448891B2000000085091020059DC03000000000002004028090721F5C8C11022044088110220440881103A00$战斗地图$0.0.295$17

需要改进

① 角色没抢到应该退出或者换备选角色
② 有队友退出应该退出
③ 目前有很多队友g着原地蓄力跟随容易跟风打空气、 睿智队友一直打远程、队友标点导致识色判断为队友、匹到低等级队友老乱跑甚至躲山崖
这些都会导致输出不理想所以设置了战斗超时直接退出。

最后

如果队友正常贴脸输出boss那么输出也不会差可以达到40s一把。

阿里云国内75折 回扣 微信号：monov8
阿里云国际，腾讯云国际，低至75折。AWS 93折 免费开户实名账号 代冲值 优惠多多 微信号：monov8 飞机：@monov6
返回列表

上一篇：eMMC工具dumpe2fs

下一篇：一分钟带你了解如何防范0day攻击！

“普通土万象” 的相关文章

Springboot整合第三方技术及整合案例1年前 (2023-02-02)
数组1年前 (2023-02-02)
python批量发邮箱1年前 (2023-02-02)
您是否也有想在浏览器中实时的编辑代码并且渲染的想法？1年前 (2023-02-02)
学习笔记——Linux中搜索查找类命令；压缩和解压类；Linux挂载和卸载；进程线程类命令；RPM；YUM1年前 (2023-02-02)
0xcdcdcdcd异常值引发C++程序崩溃问题的详细分析1年前 (2023-02-02)
亚马逊云科技 Build On - Serverless助力企业降本增效1年前 (2023-02-02)
腾讯出品小程序自动化测试框架【Minium】系列（三）元素定位详解1年前 (2023-02-02)
网络工程师的敲门砖，2022最新HCIA-Datacom题库H12-811首发分享1年前 (2023-02-02)
将awk脚本写在文件里：一种高效的awk循环循环方式1年前 (2023-02-02)

阿里云国际版