1.     如果 EMjiaxue = 0 则
  2.     否则
  3.         如果 自有血 > 0 并且 自有血 < EMjiaxue * 10 则
  4.             调用 Window.Active(Hwnd)
  5.             （鼠标）移动到 (dx + 45, dy + 45)
  6.             延时 30 毫秒
  7.             （鼠标）左键单击, 2次
  8.             调用 Bkgnd.KeyPress(Hwnd,117)
  9.             跳转到标记 防卡死(子程序 加血加蓝)
  10.         条件结束
  11.     条件结束
  12.     如果 BBjiaxue = 0 则
  13.     否则
  14.         如果 宠物血 > 0 并且 宠物血 < BBjiaxue * 10 则
  15.             调用 Bkgnd.KeyPress(Hwnd,120)
  16.             跳转到标记 防卡死(子程序 加血加蓝)
  17.         条件结束
  18.     条件结束
  19. 子程序结束
  20. 子程序 查怪色
  21.     注释：无0灰1绿2红3
  22.     令 dm_ret = dm.FindColor(xl + 281,yl + 36,xl + 290,yl + 60,"097b04",0.9,0,X,Y)
  23.     如果 x > 0 并且 y > 0 则
  24.         令 怪色 = 2
  25.     否则
  26.         令 dm_ret = dm.FindColor(xl + 281,yl + 36,xl + 290,yl + 60,"7d0804",0.9,0,X,Y)
  27.         如果 x > 0 并且 y > 0 则
  28.             令 怪色 = 3
  29.         否则
  30.             令 dm_ret = dm.FindColor(xl + 281,yl + 36,xl + 290,yl + 60,"949493",0.9,0,X,Y)
  31.             如果 x > 0 并且 y > 0 则
  32.                 令 怪色 = 1
  33.             否则
  34.                 令 怪色 = 0
  35.             条件结束
  36.         条件结束
  37.     条件结束
  38. 子程序结束
  39. 子程序 查怪血
  40.     注释：无血0满血2红血1
  41.     令 dm_ret = dm.FindColor(xl + 454,yl + 58,xl + 455,yl + 60,"D90A00",1.0,0,x1,y1)
  42.     如果 x1 >= 0 并且 y1 >= 0 则
  43.         令 怪血 = 2
  44.         令 xuex1 = 9999
  45.     否则
  46.         令 dm_ret = dm.FindColor(xl + 281,yl + 58,xl + 282,yl + 60,"1E1E1E",0.9,0,X1,Y1)
  47.         如果 x1 >= 0 并且 y1 >= 0 则
  48.             令 怪血 = 0
  49.             令 xuex1 = 0
  50.         否则
  51.             令 dm_ret = dm.FindColor(xl + 281,yl + 58,xl + 455,yl + 60,"D90A00",0.9,0,X1,Y1)
  52.             如果 X1 >= 0 并且 Y1 >= 0 则
  53.                 令 怪血 = 1
  54.                 令 dm_ret = dm.FindColor(xl + 281,yl + 58,xl + 455,yl + 60,"1E1E1E",0.9,0,X1,Y1)
  55.                 如果 x1 >= 0 并且 y1 >= 0 则
  56.                     令 xuex1 = x1
  57.                 条件结束
  58.             条件结束
  59.         条件结束
  60.     条件结束
  61. 子程序结束
  62. 子程序 选怪打怪
  63.     注释：选怪模式
  64.     标记 重新选怪(子程序 选怪打怪)
  65.     如果 datediff("s",xgt,now) >= 60 则
  66.         调用 按键选怪
  67.         跳转到标记 本轮结束(子程序 选怪打怪)
  68.     条件结束
  69.     如果 DaGmoshi = 0 则
  70.         调用 查怪色
  71.         调用 查怪血
  72.         如果 怪色 = 0 或者 怪色 = 1 或者 怪血 = 0 则
  73.             调用 按键选怪
  74.             跳转到标记 重新选怪(子程序 选怪打怪)
  75.         否则
  76.             调用 打怪
  77.         条件结束
  78.     否则如果 DaGmoshi = 1 则
  79.         调用 查怪色
  80.         调用 查怪血
  81.         如果 怪色 = 0 或者 怪色 = 1 或者 怪血 = 0 则
  82.             调用 按键选怪
  83.             跳转到标记 重新选怪(子程序 选怪打怪)
  84.         否则
  85.             注释：无0灰1绿2红3，无血0满血2红血1无0灰1绿2红3
  86.             调用 Msg.ShowScrTXT(xl + 5,yl + 5,1024,yl + 25,"怪色:" & 怪色 & ".怪血:" & 怪血 & ".","000000")
  87.             调用 打怪
  88.             注释： TracePrint datediff("s", xgt, now)
  89.             如果 datediff("s",xgt,now) >= 0 并且 datediff("s",xgt,now) <= 2 则
  90.                 调用 查怪血
  91.                 令 xuex2 = xuex1
  92.             条件结束
  93.             如果 datediff("s",xgt,now) >= 4 则
  94.                 调用 查怪血
  95.                 令 xuex3 = xuex1
  96.                 如果 xuex3 = xuex2 则
  97.                     调用 按键选怪
  98.                     跳转到标记 本轮结束(子程序 选怪打怪)
  99.                 条件结束
  100.             条件结束