Call 竞技场打断() //防止未点到人物或点了没反应 Rem 未点到人物 op = Plugin.Bkgnd.FindColorEx(Hwnd, 164,75,174,86,"FFFFFF", 0, 0.8) Delay 32 MyArray1 = Split(op, "|") x2 = Clng(MyArray1(0)): y2 = Clng(MyArray1(1)) If x2<0 and y2<0 Then //重新点击人物打开人物属性 Call Plugin.Bkgnd.LeftClick(Hwnd,581,406) Delay 256 Call 竞技场打断() Goto 未点到人物 Else //自动整理背包 Call Plugin.Bkgnd.LeftClick(Hwnd,646,325) Delay 500 Call 竞技场打断() //点击背包1 Call Plugin.Bkgnd.LeftClick(Hwnd,374,75) Delay 500 Call 竞技场打断() //查找背包内的血瓶 Call 修理装备() er = Plugin.Bkgnd.FindColorEx(Hwnd, 361,91,616,345,"171061",0,hongxs) Delay 32 MyArray2 = Split(er, "|") xx = Clng(MyArray2(0)): yy = Clng(MyArray2(1)) If xx>0 and yy>0 Then //如果找到血瓶双击加血 Rem 第二次才找到药水 Call Plugin.Bkgnd.LeftDoubleClick(Hwnd,xx,yy) Call Plugin.Bkgnd.LeftDoubleClick(Hwnd,xx,yy) hpjs=hpjs+1 Call Plugin.WindowEx3.SendTextRgnString(tisi,"总计打怪数为:"&dgjs&"喝红瓶数为:"&hpjs&"喝蓝瓶数为:"&lpjs) Call 竞技场打断() Delay hongT Call 添加物品过量1() Rem 加血判断 //判断加血后是否没加满 qw = Plugin.Bkgnd.FindColorEx(Hwnd, inx,iny,inx+1,iny+1,inz, 0, 0.9) Delay 256 MyArray3 = Split(qw, "|") x = Clng(MyArray3(0)): y = Clng(MyArray3(1)) If x>0 and y>0 Then //整理背包防止第一次加血用玩血瓶 Call Plugin.Bkgnd.LeftClick(Hwnd,646,325) Delay 500 //如果没加满继续加血 Call Plugin.Bkgnd.LeftDoubleClick(Hwnd,xx,yy) Call Plugin.Bkgnd.LeftDoubleClick(Hwnd,xx,yy) If hong=0 Then Call Plugin.Bkgnd.LeftDoubleClick(Hwnd,xx,yy) Call Plugin.Bkgnd.LeftDoubleClick(Hwnd,xx,yy) End if hpjs=hpjs+1 Call Plugin.WindowEx3.SendTextRgnString(tisi,"总计打怪数为:"&dgjs&"喝红瓶数为:"&hpjs&"喝蓝瓶数为:"&lpjs) Delay 256 Call 竞技场打断() Delay hongT Call 添加物品过量2() Goto 加血判断 Else Call 加蓝() Call 退出加血加蓝循环() End if Else er = Plugin.Bkgnd.FindColorEx(Hwnd, 361,91,616,345,"171061",0,hongxs) Delay 32 MyArray2 = Split(er, "|") xx = Clng(MyArray2(0)): yy = Clng(MyArray2(1)) If xx>0 and yy>0 Then Goto 第二次才找到药水 Else Call 报警() End if End if End if Else Call 加蓝() Call 修理装备1() Call 退出加血加蓝循环() End if End Sub //---------------------------------------加蓝 Sub 加蓝() //-------------------------------------------判断是否为空蓝 If ms=4 Then Goto 跳出无蓝 End if If wulan=2 Then Rem 跳出无蓝 aa = Plugin.Bkgnd.FindColorEx(Hwnd, ina,inb, ina+1,inb+1,inc, 0, 0.8) Delay 32 MyArray = Split(aa, "|") x = Clng(MyArray(0)): y = Clng(MyArray(1)) Delay 256 If x>0 and y>0 Then //-------------------------------点击人物打开人物属性 Call Plugin.Bkgnd.LeftClick(Hwnd,581,406)