1. 子程序 攻击
  2.     t3=now
  3.     标记 普通攻击
  4.     //Gosub 窗口状态
  5.     如果表达式 (datediff("s",t3,now)>=30) 为真,则
  6.         //如果超过30秒怪没死则重新寻怪
  7.         跳转到标记 寻怪
  8.     否则
  9.         如果 (x+85,y+32) 的颜色大约等于 #ffcd4b 则
  10.             按键<F1>
  11.             按键<F2>
  12.             调用子程序 加血
  13.             调用子程序 加蓝
  14.         否则
  15.             按键<1>
  16.             延时50毫秒
  17.             按键<1>
  18.             调用子程序 加血
  19.             调用子程序 加蓝
  20.         条件结束
  21.         如果 (x+228,y+24) 的颜色大约等于 #566bff 则
  22.             //判断怪是否死亡
  23.             跳转到标记 普通攻击
  24.         否则
  25.             延时100毫秒
  26.             按键<1>
  27.         条件结束
  28.     条件结束
  29. 子程序结束,回到调用处
  30. //********攻击子程序结束********
  31. //*******下面是加血子程序*******
  32. 子程序 加血
  33.     //Gosub 窗口状态
  34.     如果 (x+85,y+23) 的颜色大约等于 #4d61ff 则
  35.         //判断是否需要回城
  36.         如果 (x+96,y+23) 的颜色大约等于 #4d61ff 则
  37.             //不需要回城则判断是否需要加血
  38.         否则
  39.             按键<4>
  40.             延时1000毫秒
  41.             //喝血并延迟1秒钟，延迟过短会造成一次喝几瓶红的现象
  42.         条件结束
  43.     否则
  44.         //Gosub 窗口状态
  45.         按键<9>
  46.         循环 10 遍
  47.             如果 (x+85,y+23) 的颜色大约等于 #4d61ff 则
  48.                 //回城状态下检查血并紧急加血，按键为F8
  49.                 延时1000毫秒
  50.             否则
  51.                 按键<F8>
  52.                 延时1000毫秒
  53.             条件结束
  54.         循环结束
  55.         //回城
  56.         循环 5 遍
  57.             响一声
  58.             延时1000毫秒
  59.         循环结束
  60.         调用子程序 死亡回城
  61.         //VBSCall RunApp("shutdown.exe -s")
  62.     脚本停止运行
  63.     //没红则回城并结束脚本，可自行修改回城按键
  64. 条件结束
  65. 子程序结束,回到调用处
  66. //********加血子程序结束********
  67. //*******下面是加蓝子程序*******
  68. 子程序 加蓝
  69.     如果 (x+96,y+32) 的颜色大约等于 #ffcd4b 则
  70.         //蓝够不加蓝，否则不加蓝
  71.     否则
  72.         按键<5>
  73.         延时1000毫秒
  74.         //喝蓝并延迟1秒钟，延迟过短会造成一次喝几瓶蓝的现象
  75.     条件结束
  76. 子程序结束,回到调用处
  77. //********加蓝子程序结束********
  78. //*****下面是拾取物品子程序*****
  79. 子程序 拾取物品
  80.     循环 3 遍
  81.         按键<3>
  82.         延时500毫秒
  83.     循环结束
  84. 子程序结束,回到调用处
  85. //******拾取物品子程序结束******
  86. //*****下面是扔掉配方子程序*****
  87. 子程序 扔掉配方
  88.     //Gosub 窗口状态
  89.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\定位点.BMP",0.8,x,y)
  90.     //查找背包里是否有配方
  91.     如果表达式 (x1>0 and y1>0) 为真,则
  92.         跳转到标记 过滤
  93.         //有配方则进行过滤
  94.     否则
  95.         按键<B>
  96.         延时100毫秒
  97.         t2=now
  98.         //重新计算检查背包计时
  99.         跳转到标记 开始
  100.         //没有配方就直接进入正常打怪