1. //----------------------抓怪-------------------------
  2. 子程序 抓怪
  3.     调用插件命令 Window.SendKeyDown(cq,192)
  4.     延时32毫秒
  5.     调用插件命令 Window.SendKeyUp(cq,192)
  6. 子程序结束,回到调用处
  7. //---------------------打怪--------------------------
  8. 子程序 打怪
  9.     标记 打怪
  10.     调用插件命令 Window.SendKeyDown(cq,49)
  11.     延时32毫秒
  12.     调用插件命令 Window.SendKeyUp(cq,49)
  13.     延时2000毫秒
  14. 子程序结束,回到调用处
  15. //--------------------第二次读经验-------------------
  16. 子程序 二次读经验
  17.     调用插件命令 jingyan2=Memory.Read16Bit(cq,&h007e85d8)
  18.     如果表达式 (jingyan2=jingyan) 为真,则
  19.         跳转到标记 打怪
  20.     条件结束
  21. 子程序结束,回到调用处
  22. //----------------------捡物---------------------------
  23. 子程序 捡物
  24.     循环 3 遍
  25.         调用插件命令 Window.SendKeyDown(cq,32)
  26.         延时32毫秒
  27.         调用插件命令 Window.SendKeyUp(cq,32)
  28.     循环结束
  29. 子程序结束,回到调用处
  30. //----------------------开辅助------------------------
  31. 子程序 开辅助技能
  32.     如果表达式 (DateDiff("s",t1,now)>=s1) 为真,则
  33.         延时10毫秒
  34.         调用插件命令 Window.SendKeyDown(cq,key(0))
  35.         延时32毫秒
  36.         调用插件命令 Window.SendKeyUp(cq,key(0))
  37.         t1=now
  38.     条件结束
  39.     如果表达式 (DateDiff("s",t2,now)>=s2) 为真,则
  40.         延时10毫秒
  41.         调用插件命令 Window.SendKeyDown(cq,key(1))
  42.         延时32毫秒
  43.         调用插件命令 Window.SendKeyUp(cq,key(1))
  44.         t2=now
  45.     条件结束
  46.     如果表达式 (DateDiff("s",t3,now)>=s3) 为真,则
  47.         延时10毫秒
  48.         调用插件命令 Window.SendKeyDown(cq,key(2))
  49.         延时32毫秒
  50.         调用插件命令 Window.SendKeyUp(cq,key(2))
  51.         t3=now
  52.     条件结束
  53.     延时10毫秒
  54. 子程序结束,回到调用处
  55. //--------------------等待------------------------
  56. 子程序 等待
  57.     标记 等待
  58.     等待按任意键，保存到变量keyd中
  59.     如果表达式 (keyd<>35) 为真,则
  60.         //等待按键End
  61.         跳转到标记 等待
  62.     条件结束
  63. 子程序结束,回到调用处