1.     StoreCount = 0 :ItemCount = 0
  2.     MakeItem_PosX = 320 + (MakeItem_Col-1)*38
  3.     MakeItem_PosY = 145 + (MakeItem_Row-1)*30
  4.     Boss = 0 :Make = 0 :Sale = 0 :Saled = 1:Full = 0
  5. 子程序结束,回到调用处
  6. 子程序 [防交易防震]
  7.     按键<Enter>
  8.     延时50毫秒
  9.     Mystring = "/trade off"
  10.     调用子程序 [说话]
  11.     Mystring = "/effectoff"
  12.     调用子程序 [说话]
  13.     Mystring = "/off"
  14.     调用子程序 [说话]
  15.     按键<Esc>
  16.     延时400毫秒
  17.     按住<左Shift>
  18.     延时100毫秒
  19.     保存鼠标位置
  20. 子程序结束,回到调用处
  21. 子程序 [拣物]
  22.     按键<Space>
  23.     延时300毫秒
  24.     调用子程序 [切换状态]
  25.     I = 0:K = 2.5:X = 0:Y = 0
  26.     如果表达式 (X <= 460 and Y <= 360) 为真,则循环执行
  27.         X = 400+2*(cos(K)+K*sin(K))
  28.         Y = 290+2*(sin(K)-K*cos(K))
  29.         鼠标移到 X , Y
  30.         延时CDelay毫秒
  31.         左键单击
  32.         延时CDelay毫秒
  33.         I = I + 1
  34.         K = K*((0.64+0.1*Rnd())/I+1)
  35.     循环结束
  36.     Saled = 0
  37. 子程序结束,回到调用处
  38. 子程序 [购买取消]
  39.     如果 (495,30) 的颜色等于 #6b8ead 则
  40.         鼠标移到 627 , 292
  41.         延时100毫秒
  42.         左键单击
  43.         延时100毫秒
  44.         调用子程序 [购买取消]
  45.     条件结束
  46. 子程序结束,回到调用处
  47. 子程序 [补充体力]
  48.     如果 (80,534) 的颜色不等于 #c7ef 则
  49.         如果表达式 (Ttype = 1) 为真,则
  50.             延时200毫秒
  51.             按住<1>
  52.             延时400毫秒
  53.             弹起<1>
  54.             延时100毫秒
  55.         否则如果(Ttype = 2)为真,则
  56.             调用子程序 [切换状态]
  57.             按键<F1>
  58.             延时3200毫秒
  59.             鼠标移到 400 , 250
  60.             延时200毫秒
  61.             右键单击
  62.             延时300毫秒
  63.         条件结束
  64.     条件结束
  65. 子程序结束,回到调用处
  66. 子程序 [制作物品]
  67.     I = 1
  68.     stime = now()
  69.     标记 [制作界面]
  70.     按键/
  71.     延时100毫秒
  72.     如果 (350,345) 的颜色不等于 #94c3ce 则
  73.         如果表达式 (DateDiff("s",stime,now()) < 15) 为真,则
  74.             跳转到标记 [制作界面]
  75.         否则
  76.             调用子程序 [取消国战]
  77.             stime = now()
  78.             按键<Esc>
  79.             延时300毫秒
  80.             按键<Space>
  81.             延时200毫秒
  82.             跳转到标记 [制作界面]
  83.         条件结束
  84.     否则
  85.         stime = now()
  86.         PMake = 1
  87.     条件结束
  88.     鼠标移到 MakeItem_PosX , MakeItem_PosY
  89.     延时300毫秒
  90.     左键单击
  91.     延时200毫秒
  92.     如果表达式 (Mtype = 1 or Mtype = 3) 为真,则
  93.         //制作10个
  94.         鼠标移到 400 , 383
  95.         延时200毫秒
  96.         左键按下
  97.         延时300毫秒
  98.         左键弹起
  99.         延时500毫秒
  100.         鼠标移到 322 , 370