1.     条件结束
  2.     //标记,没找到怪番
  3.     a=0
  4.     m=0
  5.     跳转到标记 开始捉妖
  6. 条件结束
  7. 延时3000毫秒
  8. //没到循环寻路
  9. 跳转到标记 去地点
  10. 标记 开始捉妖
  11. 延时100毫秒
  12. //如果是奇门
  13. 如果表达式 (qimen=1) 为真,则
  14.     （VBScript语句） stoptime=timer
  15.     如果表达式 (stoptime-starttime>=600) 为真,则
  16.         调用插件命令 Bkgnd.KeyPress(hwnd,48)
  17.         延时7000毫秒
  18.         （VBScript语句） starttime=timer
  19.     条件结束
  20. 条件结束
  21. //加血
  22. 如果 (hongx+hong,hongy) 的颜色大约等于 #hongc 则
  23.     跳转到标记 加蓝
  24. 否则
  25.     如果表达式 (jiahong=0) 为真,则
  26.         //按4加红
  27.         调用插件命令 Bkgnd.KeyPress(hwnd,52)
  28.     否则
  29.         跳转到标记 休息
  30.     条件结束
  31. 条件结束
  32. 标记 加蓝
  33. 如果 (lanx+lan,lany) 的颜色大约等于 #lanc 则
  34.     跳转到标记 选怪
  35. 否则
  36.     //按6加蓝
  37.     调用插件命令 Bkgnd.KeyPress(hwnd,54)
  38. 条件结束
  39. 标记 选怪
  40. m=m+1
  41. 如果表达式 (m>=3) 为真,则
  42.     鼠标移到 mddx-100 , mddy
  43.     延时1000毫秒
  44.     右键按下
  45.     延时1000毫秒
  46.     鼠标移到 mddx+150 , mddy
  47.     延时1000毫秒
  48.     右键弹起
  49.     m=0
  50.     a=a+1
  51. 条件结束
  52. 如果表达式 (a>=5) 为真,则
  53.     a=0
  54.     跳转到标记 出城捉妖
  55. 条件结束
  56. //按8键照妖镜
  57. 调用插件命令 Bkgnd.KeyPress(hwnd,56)
  58. 延时1000毫秒
  59. //TAB选怪
  60. 调用插件命令 Bkgnd.KeyPress(hwnd,9)
  61. 延时1000毫秒
  62. //判断是否满血.不抢怪
  63. 如果 (shoux+215,hongy) 的颜色大约等于 #0000fa 则
  64.     标记 判断打怪
  65.     //取消决斗
  66.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,w,h,"Attachment:\小手.bmp",0.8,shoux,shouy)
  67.     如果表达式 (x>0 and y>0) 为真,则
  68.         鼠标移到 x , y
  69.         延时1000毫秒
  70.         左键单击
  71.     条件结束
  72.     //死亡
  73.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,w,h,"Attachment:\小手.bmp",0.8,shoux,shouy)
  74.     如果表达式 (x>0 and y>0) 为真,则
  75.         鼠标移到 x , y
  76.         延时1000毫秒
  77.         左键单击
  78.         延时5000毫秒
  79.         r=1
  80.         跳转到标记 回城
  81.     条件结束
  82.     //判断是否空血
  83.     如果 (shoux+108,hongy) 的颜色大约等于 #0000fa 则
  84.         //判断是否血到40%
  85.         如果 (shoux+155,hongy) 的颜色大约等于 #0000fa 则
  86.             m=0
  87.             延时100毫秒
  88.             调用插件命令 Bkgnd.KeyPress(hwnd,49)
  89.             延时2000毫秒
  90.             如果 (shoux+155,hongy) 的颜色大约等于 #0000fa 则
  91.             否则
  92.                 跳转到标记 捉妖
  93.             条件结束
  94.             调用插件命令 Bkgnd.KeyPress(hwnd,50)
  95.             延时2000毫秒
  96.             如果 (shoux+155,hongy) 的颜色大约等于 #0000fa 则
  97.             否则
  98.                 跳转到标记 捉妖
  99.             条件结束
  100.             调用插件命令 Bkgnd.KeyPress(hwnd,51)