1. 子程序结束,回到调用处
  2. //********************************************
  3. // 补红蓝
  4. //********************************************
  5. 子程序 补红
  6.     延时10毫秒
  7.     硬件模拟按键<7>
  8.     //按下补小血快捷键
  9.     延时200毫秒
  10.     //补血延时
  11.     如果 (hong1/100*((x-676)-(x-885))+(x-885),y+11) 的颜色大约等于 #color(0) 则
  12.         //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
  13.         //y=x1,x2在血条中的同一纵坐标，color=血条的颜色值。
  14.         延时10毫秒
  15.     否则
  16.         硬件模拟按键<8>
  17.         //按下补大血快捷键
  18.         延时200毫秒
  19.         //补血延时
  20.         //--------------------
  21.         调用子程序 复活检测
  22.         调用子程序 血少离开
  23.         //---------------------
  24.     条件结束
  25. 条件结束
  26. 子程序结束,回到调用处
  27. //-------------------------
  28. 子程序 血少离开
  29.     延时10毫秒
  30.     如果 (hong2/100*((x-676)-(x-885))+(x-885),y+11) 的颜色大约等于 #color(0) 则
  31.         //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
  32.         //y=x1,x2在血条中的同一纵坐标，color=血条的颜色值。
  33.         延时10毫秒
  34.     否则
  35.         调用外部VBScript子程序 在屏幕区域里查找图形(798,0,1023,200,"Attachment:\奇迹定位点.bmp",0.6,x,y)
  36.         如果表达式 (x1>0 and y1>0) 为真,则
  37.             //还在打怪
  38.             硬件模拟按键<8>
  39.             延时32毫秒
  40.             硬件模拟按住<D>
  41.             延时300毫秒
  42.             硬件模拟弹起<D>
  43.             硬件模拟按住<W>
  44.             延时4000毫秒
  45.             硬件模拟弹起<W>
  46.             延时32毫秒
  47.         否则
  48.             硬件模拟按键=
  49.             //坐下休息
  50.             延时5000毫秒
  51.         条件结束
  52.     条件结束
  53. 子程序结束,回到调用处
  54. //-------------------------------------------
  55. 子程序 补蓝
  56.     延时10毫秒
  57.     硬件模拟按键<9>
  58.     //按下补蓝快捷键
  59.     延时200毫秒
  60.     //补蓝延时
  61. 子程序结束,回到调用处
  62. //*************************************
  63. // 找怪部份
  64. //*************************************
  65. 子程序 移动和找怪
  66.     延时10毫秒
  67.     //找怪
  68.     如果表达式 (Z=1) 为真,则
  69.         硬件模拟按住<W>
  70.         延时1500毫秒
  71.         硬件模拟弹起<W>
  72.         硬件模拟按键<Space>
  73.         硬件模拟按住<W>
  74.         延时2000毫秒
  75.         硬件模拟弹起<W>
  76.         延时2毫秒
  77.         硬件模拟按键<Tab>
  78.         调用外部VBScript子程序 在屏幕区域里查找图形(798,0,1023,200,"Attachment:\奇迹定位点.bmp",0.6,x,y)
  79.         如果表达式 (x1>0 and y1>0) 为真,则
  80.             硬件模拟按键<1>
  81.             //找到怪,攻击
  82.             跳转到标记 找到怪
  83.         否则
  84.             延时500毫秒
  85.             硬件模拟按住<S>
  86.             延时200毫秒
  87.             硬件模拟弹起<S>
  88.             //后退一点
  89.             硬件模拟按住<D>
  90.             延时250毫秒
  91.             硬件模拟弹起<D>
  92.             //转方向
  93.             硬件模拟按键<Tab>
  94.         条件结束
  95.     条件结束
  96.     标记 找到怪
  97. 子程序结束,回到调用处
  98. //**************************************
  99. // 打怪和血少保护
  100. //*************************************