普通土万象

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