1.             令 hangsj = GetSysInfo.GetTime()
  2.             调用 加蓝()
  3.         条件结束
  4.     否则
  5.     条件结束
  6. 子程序结束
  7. 子程序 加蓝()
  8.     令 lanx = 99 + w1 + lan * 1.22
  9.     令 lany = 106 + h1
  10.     令 lansj1 = GetSysInfo.GetTime()
  11.     令 lansj2 = lansj1 - lansj
  12.     如果 lansj2 > 30000 则
  13.         延时 30 毫秒
  14.         如果点 (lanx,lany) 的颜色等于 "D87430" 则
  15.             跳转到标记 杀怪(子程序 加蓝)
  16.         否则
  17.             延时 30 毫秒
  18.             （鼠标）移动到 (543 + w1, 775 + h1)
  19.             延时 30 毫秒
  20.             （鼠标）右键单击, 1次
  21.             延时 100 毫秒
  22.             令 lansj = GetSysInfo.GetTime()
  23.             跳转到标记 杀怪(子程序 加蓝)
  24.         条件结束
  25.     条件结束
  26. 子程序结束
  27. 子程序 买红蓝()
  28.     延时 300 毫秒
  29.     （鼠标）移动到 (1005 + w1, 199 + h1)
  30.     延时 1000 毫秒
  31.     （鼠标）左键单击, 1次
  32.     延时 1000 毫秒
  33.     从左上到右下查找图片 "寻.bmp"，把找到的坐标保存到 (zdslX, zdslY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.8
  34.     如果 zdslX > 0 并且 zdslY > 0 则
  35.         （鼠标）移动到 (zdslx, zdsly)
  36.         延时 100 毫秒
  37.     条件结束
  38.     注释：x坐标
  39.     注释：moveto 481+w1,541+h1
  40.     （鼠标）相对移动 (- 42 , 356)
  41.     延时 100 毫秒
  42.     （鼠标）左键单击, 1次
  43.     延时 100 毫秒
  44.     输入文本 hxsx
  45.     延时 100 毫秒
  46.     注释：Y坐标
  47.     注释：moveto 511+w1,543+h1
  48.     （鼠标）相对移动 (30, 0)
  49.     延时 100 毫秒
  50.     （鼠标）左键单击, 1次
  51.     延时 100 毫秒
  52.     输入文本 hxsy
  53.     注释： 自动寻路
  54.     延时 100 毫秒
  55.     注释：moveto 603+w1,545+h1
  56.     （鼠标）相对移动 (92, 0)
  57.     延时 100 毫秒
  58.     （鼠标）左键单击, 1次
  59.     （鼠标）移动到 (zcw, zch)
  60.     延时 30 毫秒
  61.     （鼠标）左键单击, 1次
  62.     延时 100 毫秒
  63.     注释： 检测 是否到达 狐小商
  64.     （鼠标）移动到 (zcw, zch - 60)
  65.     令 var = 1608055128
  66.     循环当 true 时
  67.         延时 300 毫秒
  68.         从左上到右下查找颜色 "706830"，把找到的坐标保存到 (hssX, hssY)，指定区域（左：zcw - 150 上：zch - 210 右：zcw + 150 下：zch + 90）
  69.         如果 hssX > 0 并且 hssY > 0 则
  70.             （鼠标）移动到 (hssX, hssY)
  71.         条件结束
  72.         令 var1 = 返回当前鼠标的形状特征（0）
  73.         如果 var = var1 则
  74.             延时 100 毫秒
  75.             令 var2 = 返回当前鼠标的形状特征（0）
  76.             如果 var = var2 则
  77.                 延时 10 毫秒
  78.                 （鼠标）左键单击, 1次
  79.                 延时 30 毫秒
  80.                 调用 是否出售物品()
  81.                 跳出循环
  82.             条件结束
  83.         条件结束
  84.     循环结束
  85. 子程序结束
  86. 子程序 是否出售物品()
  87.     如果 cswb = 1 则
  88.         调用 出售物品()
  89.     否则
  90.         调用 买红药()
  91.     条件结束
  92. 子程序结束
  93. 子程序 出售物品()
  94.     令 cswbc = cswbcdll - 1
  95.     令 cswbh = cswbhdll
  96.     令 csw = cswbhdll - cswbcdll + 1
  97.     延时 1000 毫秒
  98.     从左上到右下查找图片 "背.bmp"，把找到的坐标保存到 (bbzbX, bbzbY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.8
  99.     如果 bbzbX > 0 并且 bbzbY > 0 则
  100.         （鼠标）移动到 (bbzbx, bbzby)