1.                         //宠物血少于50%时,自动补血
  2.                         延时10毫秒
  3.                         延时10毫秒
  4.                     否则
  5.                     否则
  6.                         超级模拟按键<F4>
  7.                         超级模拟按键<F4>
  8.                         延时200毫秒
  9.                         延时200毫秒
  10.                     条件结束
  11.                 条件结束
  12.             循环结束
  13.         循环结束
  14.     子程序结束,回到调用处
  15. 子程序结束,回到调用处
  16. //****************************************
  17. //****************************************
  18. // 捡物品线程
  19. // 捡物品线程
  20. //****************************************
  21. //****************************************
  22. 子程序 ThreadGetThing
  23.     子程序 ThreadGetThing
  24.         延时2000毫秒
  25.         延时2000毫秒
  26.         如果表达式 (1) 为真,则循环执行
  27.             如果表达式 (1) 为真,则循环执行
  28.                 延时100毫秒
  29.                 延时100毫秒
  30.                 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
  31.                 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
  32.                 如果表达式 (x3>=0 and y3>=0) 为真,则
  33.                     如果表达式 (x3>=0 and y3>=0) 为真,则
  34.                         //有物品箱
  35.                         //有物品箱
  36.                         超级模拟鼠标移动 x3 , y3
  37.                         超级模拟鼠标移动 x3 , y3
  38.                         延时100毫秒
  39.                         延时100毫秒
  40.                         超级模拟右键单击
  41.                         超级模拟右键单击
  42.                     条件结束
  43.                 条件结束
  44.                 延时100毫秒
  45.                 延时100毫秒
  46.                 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
  47.                 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
  48.                 如果表达式 (x03>=0 and y03>=0) 为真,则
  49.                     如果表达式 (x03>=0 and y03>=0) 为真,则
  50.                         //有物品箱
  51.                         //有物品箱
  52.                         超级模拟鼠标移动 x03+20 , y03+20
  53.                         超级模拟鼠标移动 x03+20 , y03+20
  54.                         延时100毫秒
  55.                         延时100毫秒
  56.                         超级模拟右键单击
  57.                         超级模拟右键单击
  58.                     条件结束
  59.                 条件结束
  60.                 延时100毫秒
  61.                 延时100毫秒
  62.                 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
  63.                 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
  64.                 如果表达式 (x003>=0 and y003>=0) 为真,则
  65.                     如果表达式 (x003>=0 and y003>=0) 为真,则
  66.                         //有物品箱
  67.                         //有物品箱
  68.                         超级模拟鼠标移动 x003+20 , y003+20
  69.                         超级模拟鼠标移动 x003+20 , y003+20
  70.                         延时100毫秒
  71.                         延时100毫秒
  72.                         超级模拟右键单击
  73.                         超级模拟右键单击
  74.                     条件结束
  75.                 条件结束
  76.             循环结束
  77.         循环结束
  78.     子程序结束,回到调用处
  79. 子程序结束,回到调用处
  80. //****************************************
  81. //****************************************
  82. // 怪检测
  83. // 怪检测
  84. //****************************************
  85. //****************************************
  86. 子程序 怪检测
  87.     子程序 怪检测
  88.         //找怪
  89.         //找怪
  90.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
  91.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)
  92.         如果表达式 (x2>=0 and y2>=0) 为真,则
  93.             如果表达式 (x2>=0 and y2>=0) 为真,则
  94.                 //有怪
  95.                 //有怪
  96.                 如果 (x2+24,y2+4) 的颜色大约等于 #color(2) 则
  97.                     如果 (x2+24,y2+4) 的颜色大约等于 #color(2) 则
  98.                         //二星怪
  99.                         //二星怪
  100.                         硬件模拟按键`