1.         左键单击
  2.         按键<Tab>
  3.     否则
  4.         跳转到标记 区域
  5.     条件结束
  6. 子程序结束,回到调用处
  7. 子程序 过地图
  8.     标记 过图
  9.     延时3000毫秒
  10.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  11.     如果表达式 (x4>0 and y4>0) 为真,则
  12.         跳转到标记 过图
  13.     否则
  14.         延时3000毫秒
  15.     条件结束
  16. 子程序结束,回到调用处
  17. 子程序 gopic
  18.     按键`
  19.     标记 找全
  20.     延时2000毫秒
  21.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  22.     如果表达式 (x3>0 and y3>0) 为真,则
  23.         延时1000毫秒
  24.         鼠标移到 x3+64 , y3+44+(hang-1)*16
  25.         延时1000毫秒
  26.         左键单击
  27.         延时1000毫秒
  28.         鼠标移到 x3+64 , y3+210
  29.         延时500毫秒
  30.         左键单击
  31.         延时10000毫秒
  32.         左键单击
  33.     否则
  34.         跳转到标记 找全
  35.     条件结束
  36. 子程序结束,回到调用处
  37. 子程序 进城
  38.     标记 过城
  39.     延时3000毫秒
  40.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  41.     如果表达式 (x1>0 and y1>0) 为真,则
  42.         延时1000毫秒
  43.         鼠标移到 x1 , y1+5
  44.         延时1000毫秒
  45.         左键单击
  46.         延时3000毫秒
  47.     否则
  48.         跳转到标记 过城
  49.     条件结束
  50. 子程序结束,回到调用处
  51. 子程序 找商人
  52.     标记 找人
  53.     延时2000毫秒
  54.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  55.     如果表达式 (x5>0 and y5>0) 为真,则
  56.         鼠标移到 x5 , y5+84
  57.         延时2000毫秒
  58.         调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  59.         如果表达式 (Shape = 302826352) 为真,则
  60.             延时2000毫秒
  61.             左键单击
  62.         否则
  63.             跳转到标记 找人
  64.         条件结束
  65.     否则
  66.         跳转到标记 找人
  67.     条件结束
  68. 子程序结束,回到调用处