End If
goto 再来吧
End Sub
Sub 信息
Rem aga
Call Plugin.WindowEx3.SendTextRgnString(tisi,"您当前打了："&dadeguaio&"只怪"&"喝红瓶数为："&ho&"喝蓝瓶数为："&lo&"修理了"&zhuangbieo&"次装备")
Goto aga
End Sub
Sub 竞技场打断1
   Rem daduan
XY = Plugin.Bkgnd.FindColor(jingji, 474,388,481,394,"A9C7D4")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
 Delay 200
        Call Plugin.Bkgnd.LeftClick(jingji,537,401)
        End If
        Delay 60000
  Goto daduan
End Sub
Sub OnScriptExit()
    Call Plugin.WindowEx3.SetWindowState(tisi,0)
End Sub 
Sub 宠物升级

If S2<=time then
gosub chongwuga
S1=time
S2 = DateAdd("n", chongwushijian, S1)
End If
End Sub
Sub chongwu1hao
Delay 500
ca = Plugin.Bkgnd.GetPixelColor(Hwnd, 812,212)
If ca = "547950" then
Else 
Rem zuidading
Rem zuida
Delay 500
a = Plugin.Bkgnd.GetPixelColor(Hwnd, 910,212)
If a  = "A9C7D4" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 910,212)
End If
Delay 600
zuida = Plugin.Bkgnd.GetPixelColor(Hwnd, 590,320)
If zuida = "000000" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 590,320)
Else
Delay 500
Goto zuida
End If
Delay 500
zuidading = Plugin.Bkgnd.GetPixelColor(Hwnd, 514,387)
If zuidading = "A9C7D4" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 514,387)
Else
Delay 500
Goto zuidading
End If
End If
Rem chongwu1hao
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 350,91, 479,139, "141A1C")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y >0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Else
Goto chongwu1hao
End If
Delay 500
CW1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 902,184)
If CW1 = "A9C7D4" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 902,184)
Else
Goto shengjile
End If
Rem chongwutui
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 421,381, 494,405, "A9C7D4")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X >0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Else
goto chongwutui
End If
Rem shengjile
End Sub
Sub chongwu2hao
Delay 500
ca = Plugin.Bkgnd.GetPixelColor(Hwnd, 812,212)
If ca = "547950" then
Else 
Rem zuidading
Rem zuida
Delay 500
a = Plugin.Bkgnd.GetPixelColor(Hwnd, 910,212)
If a  = "A9C7D4" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 910,212)