1. 子程序 开始血量
  2.     令 dm_ret = dm.FindColor(xl + 71,yl + 58,xl + 70 + 140,yl + 60,"232323",1.0,0,intX,intY)
  3.     如果 intX >= 0 并且 intY >= 0 则
  4.         令 自有血 = int(left(((intx - xl - 70 - 1) / 140) * 100,3))
  5.     否则
  6.         令 dm_ret = dm.FindColor(xl + 70 + 139,yl + 58,xl + 70 + 140,yl + 60,"d90a00",1.0,0,intX,intY)
  7.         如果 intX >= 0 并且 intY >= 0 则
  8.             令 自有血 = 100
  9.         条件结束
  10.     条件结束
  11.     令 dm_ret = dm.FindColor(xl + 71,yl + 58 + 8,xl + 70 + 140,yl + 60 + 8,"232323",1.0,0,intX,intY)
  12.     如果 intX >= 0 并且 intY >= 0 则
  13.         令 自有蓝 = int(left(((intx - xl - 70 - 1) / 140) * 100,3))
  14.     否则
  15.         令 dm_ret = dm.FindColor(xl + 70 + 139,yl + 58 + 8,xl + 70 + 140,yl + 60 + 8,"0118d9",1.0,0,intX,intY)
  16.         如果 intX >= 0 并且 intY >= 0 则
  17.             令 自有血 = 100
  18.         条件结束
  19.     条件结束
  20.     令 dm_ret = dm.FindColor(xl + 141,yl + 58 + 48,xl + 140 + 94,yl + 60 + 48,"232323",0.9,0,intX,intY)
  21.     如果 intX >= 0 并且 intY >= 0 则
  22.         令 宠物血 = int(left(((intx - xl - 140 - 1) / 95) * 100,3))
  23.     否则
  24.         令 dm_ret = dm.FindColor(xl + 140 + 94,yl + 58 + 48,xl + 140 + 95,yl + 60 + 48,"d90a00",1.0,0,intX,intY)
  25.         如果 intX >= 0 并且 intY >= 0 则
  26.             令 宠物血 = 100
  27.         否则
  28.             令 宠物血 = 0
  29.             如果 宠物血 = 0 则
  30.                 令 BBjiaxue = 0
  31.             条件结束
  32.         条件结束
  33.     条件结束
  34. 子程序结束
  35. 子程序 获取血量
  36.     如果 TFjiaxue > 0 或者 xueliang > 0 或者 EMjiaxue > 0 则
  37.         令 dm_ret = dm.FindColor(xl + 70,yl + 58,xl + 70 + 140,yl + 60,"232323",1.0,0,intX,intY)
  38.         如果 intX >= 0 并且 intY >= 0 则
  39.             令 自有血 = int(left(((intx - xl - 70 - 1) / 140) * 100,3))
  40.         否则
  41.             令 dm_ret = dm.FindColor(xl + 70 + 139,yl + 58,xl + 70 + 140,yl + 60,"d90a00",1.0,0,intX,intY)
  42.             如果 intX >= 0 并且 intY >= 0 则
  43.                 令 自有血 = 100
  44.             条件结束
  45.         条件结束
  46.     条件结束
  47.     如果 TFjialan > 0 则
  48.         令 dm_ret = dm.FindColor(xl + 70,yl + 58 + 8,xl + 70 + 140,yl + 60 + 8,"232323",1.0,0,intX,intY)
  49.         如果 intX >= 0 并且 intY >= 0 则
  50.             令 自有蓝 = int(left(((intx - xl - 70 - 1) / 140) * 100,3))
  51.         否则
  52.             令 dm_ret = dm.FindColor(xl + 70 + 139,yl + 58 + 8,xl + 70 + 140,yl + 60 + 8,"0118d9",1.0,0,intX,intY)
  53.             如果 intX >= 0 并且 intY >= 0 则
  54.                 令 自有血 = 100
  55.             条件结束
  56.         条件结束
  57.     条件结束
  58.     如果 BBjiaxue > 0 则
  59.         令 dm_ret = dm.FindColor(xl + 70 + 70,yl + 58 + 48,xl + 70 + 95 + 70,yl + 60 + 48,"232323",0.8,0,intX,intY)
  60.         如果 intX >= 0 并且 intY >= 0 则
  61.             令 宠物血 = int(left(((intx - xl - 70 - 70 - 1) / 95) * 100,3))
  62.         否则
  63.             令 dm_ret = dm.FindColor(xl + 70 + 94 + 70,yl + 58 + 48,xl + 70 + 95 + 70,yl + 60 + 48,"d90a00",0.8,0,intX,intY)
  64.             如果 intX >= 0 并且 intY >= 0 则
  65.                 令 宠物血 = 100
  66.             否则
  67.                 令 宠物血 = 0
  68.                 如果 宠物血 = 0 则
  69.                     令 BBjiaxue = 0
  70.                 条件结束
  71.             条件结束
  72.         条件结束
  73.     条件结束
  74. 子程序结束
  75. 子程序 加血加蓝
  76.     调用 获取血量
  77.     如果 xueliang = 0 则
  78.     否则
  79.         如果 自有血 > 0 并且 自有血 < xueliang * 10 则
  80.             循环 5 次
  81.                 响一声
  82.                 延时 50 毫秒
  83.             循环结束
  84.         条件结束
  85.     条件结束
  86.     如果 TFjiaxue = 0 则
  87.     否则
  88.         如果 自有血 > 0 并且 自有血 < TFjiaxue * 10 则
  89.             调用 Bkgnd.KeyPress(Hwnd,118)
  90.             跳转到标记 防卡死(子程序 加血加蓝)
  91.         条件结束
  92.     条件结束
  93.     如果 TFjialan = 0 则
  94.     否则
  95.         如果 自有蓝 > 0 并且 自有蓝 < TFjialan * 10 则
  96.             调用 Bkgnd.KeyPress(Hwnd,119)
  97.             跳转到标记 防卡死(子程序 加血加蓝)
  98.         条件结束
  99.     条件结束
  100.     注释：峨眉清心