1.     条件结束
  2. 子程序结束
  3. 子程序 报警1()
  4.     循环 5 次
  5.         调用 Media.Beep(523,200)
  6.         调用 Media.Beep(659,200)
  7.         延时 32 毫秒
  8.     循环结束
  9.     弹出窗口 "人物死亡，请选择好后重新启动脚本!"
  10.     脚本停止运行
  11. 子程序结束
  12. 子程序 宠物模块()
  13.     注释：如果超过60分钟
  14.     如果 ch = 0 则
  15.         如果 ms = 3 则
  16.             跳转到标记 关闭宠物升级2(子程序 宠物模块)
  17.         否则
  18.             跳转到标记 关闭宠物升级(子程序 宠物模块)
  19.         条件结束
  20.     否则
  21.         如果 DateDiff("n",TXZ,now) >= TX 则
  22.             注释：宠物
  23.             调用 Bkgnd.LeftClick(Hwnd,500,373)
  24.             延时 256 毫秒
  25.             注释：宠物栏1
  26.             调用 Bkgnd.LeftClick(Hwnd,367,67)
  27.             延时 23 毫秒
  28.             令 i = 0
  29.             令 i = ch + 1
  30.             令 ic = 0
  31.             循环当 i <> 0 时
  32.                 注释：点击宠物
  33.                 调用 Bkgnd.LeftClick(Hwnd,chongwux(ic),chongwuy(ic))
  34.                 延时 256 毫秒
  35.                 令 ic = ic + 1
  36.                 令 i = i - 1
  37.                 令 Color = Bkgnd.GetPixelColor(Hwnd,836,182)
  38.                 延时 500 毫秒
  39.                 注释：判断是否饥饿
  40.                 令 er = Bkgnd.FindColorEx(Hwnd,878,213,879,214,"0C4107",0,0.95)
  41.                 令 MyArray = Split(er,"|")
  42.                 令 xx = Clng(MyArray(0))
  43.                 令 yy = Clng(MyArray(1))
  44.                 注释：如果饥饿喂食
  45.                 如果 xx < 0 并且 yy < 0 则
  46.                     调用 Bkgnd.LeftClick(Hwnd,912,207)
  47.                     延时 256 毫秒
  48.                     调用 Bkgnd.LeftClick(Hwnd,585,320)
  49.                     延时 256 毫秒
  50.                     调用 Bkgnd.LeftClick(Hwnd,585,320)
  51.                     延时 256 毫秒
  52.                     调用 Bkgnd.LeftClick(Hwnd,505,390)
  53.                 条件结束
  54.                 延时 256 毫秒
  55.                 如果 Color = "AEEAF6" 则
  56.                     跳转到标记 nndd1(子程序 宠物模块)
  57.                 否则
  58.                     注释：点击升级
  59.                     延时 256 毫秒
  60.                     调用 Bkgnd.LeftClick(Hwnd,911,183)
  61.                     延时 300 毫秒
  62.                     注释：判断是否点成加速
  63.                     令 er = Bkgnd.FindColorEx(Hwnd,526,329,532,339,"FFFFFF",0,0.9)
  64.                     延时 300 毫秒
  65.                     令 MyArray = Split(er,"|")
  66.                     令 xx = Clng(MyArray(0))
  67.                     令 yy = Clng(MyArray(1))
  68.                     注释：如果是点错
  69.                     如果 xx > 0 并且 yy > 0 则
  70.                         注释：就取消
  71.                         调用 Bkgnd.LeftClick(Hwnd,531,391)
  72.                         延时 56 毫秒
  73.                         调用 Bkgnd.LeftClick(Hwnd,531,391)
  74.                         延时 56 毫秒
  75.                         跳转到标记 nndd1(子程序 宠物模块)
  76.                     条件结束
  77.                     延时 56 毫秒
  78.                     注释：Plugin Bkgnd.LeftClick(Hwnd,413,282)
  79.                     注释：Delay 256
  80.                     调用 Bkgnd.LeftClick(Hwnd,453,394)
  81.                     延时 1500 毫秒
  82.                     令 er = Bkgnd.FindColorEx(Hwnd,471,396,472,397,"010067",0,0.9)
  83.                     延时 300 毫秒
  84.                     令 MyArray = Split(er,"|")
  85.                     令 xx = Clng(MyArray(0))
  86.                     令 yy = Clng(MyArray(1))
  87.                     如果 xx > 0 并且 yy > 0 则
  88.                         延时 32 毫秒
  89.                         调用 Bkgnd.LeftClick(Hwnd,505,390)
  90.                         延时 500 毫秒
  91.                         调用 Bkgnd.LeftClick(Hwnd,533,399)
  92.                     条件结束
  93.                 条件结束
  94.                 标记 nndd1(子程序 宠物模块)
  95.                 延时 500 毫秒
  96.             循环结束
  97.             令 TXZ = now
  98.         条件结束
  99.     条件结束
  100.     调用 退出加血加蓝循环()