1.                 按住#HOME
  2.                 延时256毫秒
  3.                 弹起#HOME
  4.                 延时256毫秒
  5.             条件结束
  6.             调用子程序 休息中
  7.         条件结束
  8.     条件结束
  9. 条件结束
  10. 如果表达式 (done=1) 为真,则
  11.     如果表达式 (datediff("s",strtime,time)>litime) 为真,则
  12.         //开地图
  13.         调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  14.         如果表达式 (xx1<=0) 为真,则
  15.             调用子程序 开关地图
  16.             调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  17.         条件结束
  18.         如果表达式 (xx1>0) 为真,则
  19.             xx=xx1-cox:yy=yy1-1-coy:r=sqr(xx^2+yy^2)
  20.             如果表达式 (r>limits) 为真,则
  21.                 tmpr=r
  22.                 //防卡住一个地方
  23.                 i=1
  24.                 调用子程序 定位
  25.             否则
  26.                 如果表达式 (dwguan=1) 为真,则
  27.                     调用子程序 开关地图
  28.                     调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  29.                     如果表达式 (xx1>0) 为真,则
  30.                         调用子程序 开关地图
  31.                     条件结束
  32.                 条件结束
  33.                 strtime=time
  34.             条件结束
  35.         条件结束
  36.     条件结束
  37. 条件结束
  38. 调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  39. 如果表达式 (xx>0) 为真,则
  40.     //防卡住杀不了怪
  41.     i=1
  42.     调用子程序 杀怪
  43. 否则如果(done=1 or done=2)为真,则
  44.     fangx=fangx+1
  45.     如果表达式 (fangx=1) 为真,则
  46.         鼠标移到 86 , 384
  47.         延时128毫秒
  48.         跳转到标记 开始
  49.     条件结束
  50.     如果表达式 (fangx=2) 为真,则
  51.         鼠标移到 50 , 384
  52.         延时128毫秒
  53.         跳转到标记 开始
  54.     条件结束
  55.     如果表达式 (fangx=3) 为真,则
  56.         鼠标移到 74 , 384
  57.         延时128毫秒
  58.         跳转到标记 开始
  59.     条件结束
  60.     鼠标移到 62 , 384
  61.     延时128毫秒
  62.     fangx=0
  63. 条件结束
  64. 跳转到标记 开始
  65. //************************************
  66. 子程序 杀怪
  67.     标记 杀怪中
  68.     //搜索怪物血条
  69.     调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  70.     如果表达式 (xx>0) 为真,则
  71.         //防卡取色
  72.         如果表达式 (i=1) 为真,则
  73.             调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
  74.         条件结束
  75.         //攻击
  76.         如果表达式 (yongj=1) 为真,则
  77.             按住#fight1
  78.             延时64毫秒
  79.             弹起#fight1
  80.             循环 2 遍
  81.                 按住#pick
  82.                 延时64毫秒
  83.                 弹起#pick
  84.                 延时128毫秒
  85.             循环结束
  86.             按住#fight1
  87.             延时64毫秒
  88.             弹起#fight1
  89.             延时64毫秒
  90.         否则如果(yongj=2)为真,则
  91.             按住#fight1
  92.             延时64毫秒
  93.             弹起#fight1
  94.             循环 2 遍
  95.                 按住#pick
  96.                 延时64毫秒
  97.                 弹起#pick
  98.                 延时128毫秒
  99.             循环结束
  100.             按住#fight1