1.     令 XY = Bkgnd.FindColor(Hwnd,505,432,578,455," A9C7D4")
  2.     令 ZB = InStr(XY,"|")
  3.     令 X = Clng(Left(XY,ZB - 1))
  4.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  5.     如果 X > 0 并且 Y > 0 则
  6.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  7.     否则
  8.         延时 2000 毫秒
  9.         跳转到标记 fbguanbi(子程序 副本模式)
  10.     条件结束
  11.     如果 shifouhanhua = 1 则
  12.         调用 喊话()
  13.     否则如果 shifouhanhua = 2 则
  14.     条件结束
  15.     如果 chongwushengji = 1 则
  16.         调用 宠物升级()
  17.     否则如果 chongwushengji = 2 则
  18.     条件结束
  19.     跳转到标记 再来吧(子程序 副本模式)
  20. 子程序结束
  21. 子程序 信息
  22.     标记 aga(子程序 信息)
  23.     调用 WindowEx3.SendTextRgnString(tisi,"您当前打了：" & dadeguaio & "只怪" & "喝红瓶数为：" & ho & "喝蓝瓶数为：" & lo & "修理了" & zhuangbieo & "次装备")
  24.     跳转到标记 aga(子程序 信息)
  25. 子程序结束
  26. 子程序 竞技场打断1
  27.     标记 daduan(子程序 竞技场打断1)
  28.     令 XY = Bkgnd.FindColor(jingji,474,388,481,394,"A9C7D4")
  29.     令 ZB = InStr(XY,"|")
  30.     令 X = Clng(Left(XY,ZB - 1))
  31.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  32.     如果 X > 0 并且 Y > 0 则
  33.         延时 200 毫秒
  34.         调用 Bkgnd.LeftClick(jingji,537,401)
  35.     条件结束
  36.     延时 60000 毫秒
  37.     跳转到标记 daduan(子程序 竞技场打断1)
  38. 子程序结束
  39. 子程序 OnScriptExit()
  40.     调用 WindowEx3.SetWindowState(tisi,0)
  41. 子程序结束
  42. 子程序 宠物升级
  43.     如果 S2 <= time 则
  44.         调用 chongwuga()
  45.         令 S1 = time
  46.         令 S2 = DateAdd("n",chongwushijian,S1)
  47.     条件结束
  48. 子程序结束
  49. 子程序 chongwu1hao
  50.     延时 500 毫秒
  51.     令 ca = Bkgnd.GetPixelColor(Hwnd,812,212)
  52.     如果 ca = "547950" 则
  53.     否则
  54.         标记 zuidading(子程序 chongwu1hao)
  55.         标记 zuida(子程序 chongwu1hao)
  56.         延时 500 毫秒
  57.         令 a = Bkgnd.GetPixelColor(Hwnd,910,212)
  58.         如果 a = "A9C7D4" 则
  59.             调用 Bkgnd.LeftClick(Hwnd,910,212)
  60.         条件结束
  61.         延时 600 毫秒
  62.         令 zuida = Bkgnd.GetPixelColor(Hwnd,590,320)
  63.         如果 zuida = "000000" 则
  64.             调用 Bkgnd.LeftClick(Hwnd,590,320)
  65.         否则
  66.             延时 500 毫秒
  67.             跳转到标记 zuida(子程序 chongwu1hao)
  68.         条件结束
  69.         延时 500 毫秒
  70.         令 zuidading = Bkgnd.GetPixelColor(Hwnd,514,387)
  71.         如果 zuidading = "A9C7D4" 则
  72.             调用 Bkgnd.LeftClick(Hwnd,514,387)
  73.         否则
  74.             延时 500 毫秒
  75.             跳转到标记 zuidading(子程序 chongwu1hao)
  76.         条件结束
  77.     条件结束
  78.     标记 chongwu1hao(子程序 chongwu1hao)
  79.     延时 500 毫秒
  80.     令 XY = Bkgnd.FindColor(Hwnd,350,91,479,139,"141A1C")
  81.     令 ZB = InStr(XY,"|")
  82.     令 X = Clng(Left(XY,ZB - 1))
  83.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  84.     如果 X > 0 并且 Y > 0 则
  85.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  86.     否则
  87.         跳转到标记 chongwu1hao(子程序 chongwu1hao)
  88.     条件结束
  89.     延时 500 毫秒
  90.     令 CW1 = Bkgnd.GetPixelColor(Hwnd,902,184)
  91.     如果 CW1 = "A9C7D4" 则
  92.         调用 Bkgnd.LeftClick(Hwnd,902,184)
  93.     否则
  94.         跳转到标记 shengjile(子程序 chongwu1hao)
  95.     条件结束
  96.     标记 chongwutui(子程序 chongwu1hao)
  97.     延时 500 毫秒
  98.     令 XY = Bkgnd.FindColor(Hwnd,421,381,494,405,"A9C7D4")
  99.     令 ZB = InStr(XY,"|")
  100.     令 X = Clng(Left(XY,ZB - 1))