普通土万象
普通土万象
- 前言
- 步骤
- 源码
- 字库.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一把。