1.             xx=-1
  2.         条件结束
  3.         如果 (jiaox,jiaoy) 的颜色大约等于 #ffffff 则
  4.             xx=-1
  5.         条件结束
  6.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(10,10,900,700,"bmp\npc4.bmp",0.9,x,y)
  7.         str="jiaox="&jiaox&",jiaoy="&jiaoy&" color="&color
  8.         调用子程序 记运行日志10
  9.         调用子程序 重新进入
  10.     循环结束
  11.     // 农夫攻击
  12.     鼠标移到 xingx , xingy
  13.     延时chbtime毫秒
  14.     左键单击
  15.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(10,10,900,700,"bmp\npc4.bmp",0.9,x,y)
  16.     延时2*chbtime毫秒
  17.     如果表达式 (gongjw=33) 为真,则
  18.         gongjx=currx+32
  19.         gongjy=curry-16
  20.     否则如果(gongjw=43)为真,则
  21.         gongjx=currx+32
  22.         gongjy=curry+16
  23.     否则如果(gongjw=53)为真,则
  24.         gongjx=currx-32
  25.         gongjy=curry+16
  26.     否则如果(gongjw=44)为真,则
  27.         gongjx=currx-32
  28.         gongjy=curry-16
  29.     条件结束
  30.     鼠标移到 gongjx , gongjy
  31.     延时chbtime毫秒
  32.     左键单击
  33.     延时chbtime毫秒
  34.     如果表达式 (curry > 535) 为真,则
  35.         鼠标移到 currx-90 , curry-90
  36.         延时chbtime毫秒
  37.         左键单击
  38.         延时chbtime毫秒
  39.     否则
  40.         鼠标移到 currx-90 , curry+120
  41.         延时chbtime毫秒
  42.         左键单击
  43.         延时chbtime毫秒
  44.     条件结束
  45. 子程序结束,回到调用处
  46. 子程序 答题了罗
  47.     currtime=date
  48.     currtime= currtime&" " &time
  49.     str=cstr(num)&"答题=["&currtime&"]开始!!"
  50.     调用子程序 记运行日志10
  51.     xx=1
  52.     如果表达式 (xx > 0) 为真,则循环执行
  53.         如果 (x1,y1) 的颜色等于 #5ad3ef 则
  54.             鼠标移到 621 , 338
  55.             左键单击
  56.             延时dltime毫秒
  57.             xx =-1
  58.         条件结束
  59.         如果 (x1,y1+32) 的颜色等于 #5ad3ef 则
  60.             鼠标移到 756 , 339
  61.             左键单击
  62.             延时dltime毫秒
  63.             xx =-1
  64.         条件结束
  65.         如果 (x1,y1+64) 的颜色等于 #5ad3ef 则
  66.             鼠标移到 886 , 340
  67.             延时dltime毫秒
  68.             左键单击
  69.             xx =-1
  70.         条件结束
  71.         延时dltime毫秒
  72.         如果 (724,368) 的颜色等于 #295108 则
  73.             调用子程序 验证码错重新进入
  74.         条件结束
  75.         调用子程序 重新进入
  76.     循环结束
  77.     // 考完
  78. 子程序结束,回到调用处
  79. //
  80. 子程序 卖宝
  81.     dim baox,baoy
  82.     currtime=date
  83.     currtime= currtime&" " &time
  84.     str=cstr(num)&"卖宝=["&currtime&"]开始!!"
  85.     调用子程序 记运行日志
  86.     x=-2
  87.     dnn=1
  88.     npcfile="bmp\npc4.bmp"
  89.     npc="铁匠"
  90.     x1=10:y1=10:x2=1020:y2=760
  91.     调用子程序 NPC对话
  92.     延时5*dltime毫秒
  93.     //看物品的标签，特殊物品（810，322），珍宝（892，322)
  94.     鼠标移到 726 , 321
  95.     延时2*dltime毫秒
  96.     左键单击
  97.     延时2*dltime毫秒
  98.     //点宝物，高距，51，宽距 50
  99.     baox=728:baoy=363
  100.     循环 6 遍