普通土万象

• • 前言
  • 步骤
  • 源码
  • • 字库.txt
  • 需要改进
  • 最后

前言

自动普通土万象

步骤

① 开始游戏
② 抢英雄
③ 判断进入预备地图
④ 多线程 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一把。