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)