1.         延时100毫秒
  2.         硬件模拟按键#Yc
  3.         延时100毫秒
  4.     否则
  5.         跳转到标记 蓝运气
  6.     条件结束
  7. 子程序结束,回到调用处
  8. //------------------[锁怪]
  9. 子程序 锁怪
  10.     硬件模拟按键<Tab>
  11.     延时1500毫秒
  12. 子程序结束,回到调用处
  13. //----------------[首发技能]
  14. 子程序 首发技能
  15.     如果表达式 (Sf=1) 为真,则
  16.         跳转到标记 下面1
  17.     否则
  18.         硬件模拟按键#Sf
  19.         延时Yc1毫秒
  20.     条件结束
  21.     标记 下面1
  22. 子程序结束,回到调用处
  23. //-------------------[打怪]
  24. 子程序 打怪
  25.     标记 打怪
  26.     硬件模拟按键#Wl
  27.     延时1000毫秒
  28.     调用外部VBScript子程序 在屏幕区域里查找图形(539,12,571,68,"Attachment:\怪是否死.bmp",0.9,x,y)
  29.     如果表达式 (x>0 and y>0) 为真,则
  30.         跳转到标记 打怪
  31.     条件结束
  32. 子程序结束,回到调用处
  33. //-------------------[勇气]
  34. 子程序 勇气
  35.     如果表达式 (DateDiff("m",t1,now)>=30) 为真,则
  36.         延时10毫秒
  37.         硬件模拟按键#Yq2
  38.         t2=now
  39.         延时1000毫秒
  40.     条件结束
  41. 子程序结束,回到调用处
  42. //----------------[拾取]
  43. 子程序 拾取
  44.     循环 3 遍
  45.         硬件模拟按键#J
  46.         延时1000毫秒
  47.     循环结束
  48. 子程序结束,回到调用处
  49. //---------------[检查验证]
  50. 子程序 检查验证
  51.     调用外部VBScript子程序 在屏幕区域里查找图形(539,12,571,68,"Attachment:\怪是否死.bmp",0.9,x,y)
  52.     如果表达式 (x>0 and y>0) 为真,则
  53.         循环 5 遍
  54.             响一声
  55.             延时1毫秒
  56.         循环结束
  57.     条件结束
  58. 子程序结束,回到调用处