1.     //已改
  2.     循环 15 遍
  3.         鼠标移到 5 , 31
  4.         延时100毫秒
  5.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  6.         如果表达式 (x>0 and y>0) 为真,则
  7.             Str="矿已卖完!!!!补充物资"
  8.             调用子程序 日志记录
  9.             延时100毫秒
  10.             跳转到标记 下面
  11.         条件结束
  12.         延时100毫秒
  13.         标记 1
  14.         鼠标移到 x2 , y2
  15.         延时100毫秒
  16.         左键单击
  17.         延时100毫秒
  18.         鼠标移到 502 , 480
  19.         延时100毫秒
  20.         左键单击
  21.         延时600毫秒
  22.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  23.         如果表达式 (x>0 and y>0) 为真,则
  24.             鼠标移到 x , y
  25.             延时100毫秒
  26.             左键单击
  27.             跳转到标记 1
  28.         条件结束
  29.         延时500毫秒
  30.     循环结束
  31.     延时100毫秒
  32.     标记 下面
  33.     按键<Esc>
  34.     延时100毫秒
  35.     按住<Alt>
  36.     延时100毫秒
  37.     按键<E>
  38.     延时100毫秒
  39.     弹起<Alt>
  40.     延时100毫秒
  41.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  42.     如果表达式 (bbbbx>0 and bbbby>0) 为真,则
  43.         鼠标移到 x10 , y10
  44.         延时1000毫秒
  45.         左键双击
  46.         延时100毫秒
  47.     条件结束
  48.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  49.     如果表达式 (x>0 and y>0 and Sf=0) 为真,则
  50.         Str="尚有回城符,无需购买"
  51.         调用子程序 日志记录
  52.     否则如果(x=-1 and y=-1 and Sf=0)为真,则
  53.         Str="尚有回城符,尝试购买"
  54.         调用子程序 日志记录
  55.         Mai=1
  56.     否则如果(x=-1 and y=-1 and Sf=1)为真,则
  57.         Str="选择不买回城符，将不购买回城符"
  58.         调用子程序 日志记录
  59.         Mai=0
  60.     条件结束
  61.     按键<Esc>
  62.     延时100毫秒
  63.     标记 杂货摊1
  64.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  65.     //已改
  66.     如果表达式 (x>0 and y>0) 为真,则
  67.         鼠标移到 x , y
  68.         延时100毫秒
  69.         左键单击
  70.     否则
  71.         调用子程序 等待
  72.         跳转到标记 杂货摊1
  73.     条件结束
  74.     延时2000毫秒
  75.     标记 看看都
  76.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  77.     如果表达式 (x>0 and y>0) 为真,则
  78.         鼠标移到 x , y
  79.         延时100毫秒
  80.         左键单击
  81.     否则
  82.         调用子程序 等待
  83.         跳转到标记 看看都
  84.     条件结束
  85.     延时1000毫秒
  86.     Str="购买"&MaiShu&"个宠物药"
  87.     调用子程序 日志记录
  88.     鼠标移到 490 , 255
  89.     //已改
  90.     延时100毫秒
  91.     左键单击
  92.     延时100毫秒
  93.     输入文本 MaiShu
  94.     鼠标移到 502 , 480
  95.     //已改
  96.     延时100毫秒
  97.     左键单击
  98.     延时1000毫秒
  99.     如果表达式 (Sf=0 and Mai=1) 为真,则
  100.         鼠标移到 356 , 293