|
奶秀：Rem sss dm_ret = dm.CmpColor(605,526,"a4d95e-0f0f0f",1.0) If dm_ret = 0 Then Delay 5 Goto sss End If //如果自己在读条就返回 dm_ret = dm.FindPic(812,638,856,653,"解控1.bmp|解控11.bmp|解控2.bmp|解控22.bmp","282828",0.9,0,intX,intY) If intX < 0 Then Delay 5 KeyDown "Num 9", 1 Delay 5 KeyUp "Num 9", 1 Delay 5 End If //两个解控都在CD就重置 dm_ret = dm.FindPic(355,520,524,533,"被定.bmp|被晕.bmp|被锁.bmp","101010",0.9,0,intX,intY) If intX > 0 Then Delay 5 KeyDown "O", 1 Delay 5 KeyUp "O", 1 Delay 5 End If dm_ret = dm.CmpColor(374,348 ,"f5866e-0f0f0f",1.0) If dm_ret = 1 Then Call bb() End If //血少于40就开风袖 dm_ret = dm.CmpColor(421,348,"f69067-0f0f0f",1.0) If dm_ret = 1 Then Call aa() End If //血少于60就开中加 dm_ret = dm.CmpColor(495,563,"e4804f-0f0f0f",1.0) If dm_ret = 1 Then Delay 5 Call cc() End If //自己血少于60就开天地 dm_ret = dm.CmpColor(504,572,"36b5f3-0f0f0f",1.0) If dm_ret = 1 Then Delay 5 KeyDown "Num 5", 1 Delay 5 KeyUp "Num 5", 1 Delay 5 End If //自己蓝少于85就回蓝 dm_ret = dm.FindColor(383,331,424,340,"dfdf06-141414|6666c3-1 |
|
找到天策的了： Rem sss s = dm.Ocr(932,624,983,649, "AAAA0F-55550F", 1.0) If 260 > s and s > 0 Then Call a() End If Delay 10 If 300 > s and s > 75 Then Call b() End If Delay 10 If 90 > s and s > 45 Then Call c() End If Delay 10 If 55 > s and s > 0 Then Call d() End If Delay 10 Goto sss Sub a() dm_ret = dm.CmpColor(688,788,"E2704C-321e19",0.9) If dm_ret = 1 Then KeyDown "3", 1 Delay 10 KeyUp "3", 1 Delay 10 End If dm_ret = dm.CmpColor(762,788,"EE8957-101010",0.9) If dm_ret = 1 Then KeyDown "2", 1 Delay 10 KeyUp "2", 1 Delay 10 End If End Sub //25尺以内血低于25%开虎,低于50%开林 Sub b() dm_ret = dm.CmpColor(1396,799,"030303-050505",1.0) If dm_ret = 0 Then KeyDown "Num *", 1 Delay 10 KeyUp "Num *", 1 Delay 10 Goto sss End If dm_ret = dm.FindPic(1224,792,1678,853,"御天.bmp|笑日.bmp|敌方山.bmp|敌方虎.bmp|任驰骋.bmp|生太极.bmp","505050",0.9,0,intX,intY) If intX < 0 Then KeyDown |
|
藏剑找到了： Rem sss UserVar 距离1 "" UserVar 距离2 "" UserVar 距离3 "" UserVar 距离4 "" UserVar 距离5 "" UserVar 重剑 "" UserVar 血量 "" UserVar 目标读条 "" dm_ret = dm.CmpColor(170,79,"cd5232-282823",0.9) If dm_ret = 1 Then Delay 8 血量 = 1 Else 血量 = 0 Delay 8 End If dm_ret = dm.CmpColor(693,209,"040404-040404",1.0) If dm_ret = 0 Then Delay 8 目标读条 = 1 Else 目标读条 = 0 Delay 8 End If dm_ret = dm.FindPic(598,976,620,1002,"重剑.bmp","3c3c3c",0.9,0,intX,intY) If intX > 0 Then Delay 8 重剑 = 1 Else 重剑 = 0 End If Delay 8 s = dm.Ocr(930,636,972,658, "d7d714-282814", 1.0) If 65 > s and s > 0 Then 距离1 = 1 End If Delay 10 If 85 > s and s > 0 Then 距离2 = 1 End If Delay 10 If 152 > s and s > 80 Then 距离3 = 1 End If Delay 10 If 170 > s and s > 120 Then 距离4 = 1 End If Delay 10 If 245 > s and s > 80 Then 距离5 = 1 End If Delay 10 If 距离5 = 1 and 目标读条 = 1 and 重剑 = 0 Then KeyDown "5", 1 Delay 5 KeyUp "5", 1 Delay 5 End If //目标小于24尺大于8尺读条就玉虹打断 If 距离2 = 1 and 目标读条 = 1 Then |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有帐号？立即注册