1.             跳转到标记 [开始工作]
  2.         条件结束
  3.     条件结束
  4.     如果表达式 (Saled =0 and (Mtype=3 and Boss>1 Or Full=1 and Stype =2)) 为真,则
  5.         调用子程序 [出售物品]
  6.     条件结束
  7.     鼠标移到 524 , 162
  8.     延时100毫秒
  9.     左键单击
  10.     延时200毫秒
  11.     stime = now()
  12.     标记 [购买物品界面]
  13.     如果 (495,30) 的颜色不等于 #6b8ead 则
  14.         如果表达式 (DateDiff("s",stime,now()) < 5) 为真,则
  15.             延时100毫秒
  16.             跳转到标记 [购买物品界面]
  17.         否则
  18.             跳转到标记 [买卖界面]
  19.         条件结束
  20.     条件结束
  21.     鼠标移到 801 , 169
  22.     延时400毫秒
  23.     I = 0
  24.     PageN = 1
  25.     循环 BuyItemCount 遍
  26.         如果表达式 (Ptype = 2) 为真,则
  27.             如果表达式 (BuyItem_Page(I) <> PageN) 为真,则
  28.                 如果表达式 (BuyItem_Page(I) > PageN) 为真,则
  29.                     鼠标移到 637 , 144
  30.                 否则如果(BuyItem_Page(I) < PageN)为真,则
  31.                     鼠标移到 637 , 72
  32.                 条件结束
  33.                 延时200毫秒
  34.                 N = Abs(BuyItem_Page(I)-PageN)
  35.                 如果表达式 (N <> 0) 为真,则
  36.                     循环 N 遍
  37.                         左键单击
  38.                         延时150毫秒
  39.                         PageN = PageN + 1
  40.                     循环结束
  41.                 条件结束
  42.                 延时120毫秒
  43.             条件结束
  44.         条件结束
  45.         stime = now()
  46.         标记 [点击物品]
  47.         鼠标移到 BuyItem_PosX(I) , BuyItem_PosY(I)
  48.         延时100毫秒
  49.         左键单击
  50.         延时200毫秒
  51.         如果 (569,253) 的颜色不等于 #cee3de 则
  52.             如果 (570,253) 的颜色不等于 #cee3de 则
  53.                 如果表达式 (DateDiff("s",stime,now()) < 2) 为真,则
  54.                     跳转到标记 [点击物品]
  55.                 否则
  56.                     跳转到标记 [买卖界面]
  57.                 条件结束
  58.             条件结束
  59.         条件结束
  60.         鼠标移到 469 , 289
  61.         延时200毫秒
  62.         循环 BuyItem_Amount(I) 遍
  63.             如果 (277,79) 的颜色不等于 #6b869c 则
  64.                 左键单击
  65.                 延时100毫秒
  66.             否则
  67.                 标记 [买满]
  68.                 鼠标移到 500 , 110
  69.                 延时100毫秒
  70.                 左键单击
  71.                 延时200毫秒
  72.                 如果 (277,79) 的颜色不等于 #6b869c 则
  73.                     Full =1
  74.                     Saled = 0
  75.                     跳转到标记 [买够退出]
  76.                 否则
  77.                     跳转到标记 [买满]
  78.                 条件结束
  79.             条件结束
  80.         循环结束
  81.         延时200毫秒
  82.         I = I +1
  83.     循环结束
  84.     延时200毫秒
  85.     标记 [买够退出]
  86.     如果表达式 (Ptype = 2) 为真,则
  87.         调用子程序 [购买取消]
  88.     条件结束
  89.     延时100毫秒
  90.     按键<Esc>
  91.     延时300毫秒
  92.     调用子程序 [制作物品]
  93.     延时200毫秒
  94.     如果表达式 (Mtype =3) 为真,则
  95.         调用子程序 [拣物]
  96.     条件结束
  97.     跳转到标记 [开始工作]
  98. 子程序结束,回到调用处
  99. 子程序 [数据预处理]
  100.     StoreList = "" : ItemList = "" :ScriptList =""