1.                 调用子程序 坐标转换
  2.                 如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  3.                     PosX = 650
  4.                     PosY = 328
  5.                     调用子程序 坐标转换
  6.                     如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  7.                         StMenu = 1
  8.                         调用子程序 等按钮
  9.                         调用子程序 当前时间
  10.                         Message = CurrentTime & "入码头成功..."
  11.                         调用子程序 写入日志文件
  12.                     否则
  13.                         调用子程序 当前时间
  14.                         Message = CurrentTime & "！！！入码头未成功..."
  15.                         调用子程序 写入日志文件
  16.                         如果表达式 (MaTou = 1) 为真,则
  17.                             调用子程序 查找码头导航员
  18.                         否则
  19.                             调用子程序 查找码头官员
  20.                         条件结束
  21.                     条件结束
  22.                 条件结束
  23.             条件结束
  24.         条件结束
  25.     循环结束
  26.     //补给
  27.     PosX = 689
  28.     PosY = 356
  29.     调用子程序 移动鼠标
  30.     左键单击
  31.     调用子程序 延时判定
  32.     延时1500毫秒
  33.     //补给到保存数量（30，30，35）
  34.     PosX = 138
  35.     PosY = 350
  36.     调用子程序 移动鼠标
  37.     左键单击
  38.     延时1000毫秒
  39.     PosX = 602
  40.     PosY = 393
  41.     调用子程序 移动鼠标
  42.     如果 (PosX,PosY) 的颜色不等于 #6A604D 则
  43.         左键单击
  44.         调用子程序 延时判定
  45.         延时2000毫秒
  46.     否则
  47.         按键<Esc>
  48.         延时2000毫秒
  49.     条件结束
  50.     //出航
  51.     StMenu = 0
  52.     如果表达式 (StMenu = 0) 为真,则循环执行
  53.         PosX = 649
  54.         PosY = 357
  55.         调用子程序 移动鼠标
  56.         左键单击
  57.         调用子程序 延时判定
  58.         延时1500毫秒
  59.         PosX = 640
  60.         PosY = 386
  61.         调用子程序 移动鼠标
  62.         左键单击
  63.         调用子程序 延时判定
  64.         延时1000毫秒
  65.         PosX = 23
  66.         PosY = 2
  67.         调用子程序 坐标转换
  68.         如果 (PosX,PosY) 的颜色大约等于 #9A9EAF 则
  69.             PosX = 2
  70.             PosY = 23
  71.             调用子程序 坐标转换
  72.             如果 (PosX,PosY) 的颜色大约等于 #9A9EAF 则
  73.                 PosX = 23
  74.                 PosY = 44
  75.                 调用子程序 坐标转换
  76.                 如果 (PosX,PosY) 的颜色大约等于 #9A9EAF 则
  77.                     PosX = 45
  78.                     PosY = 23
  79.                     调用子程序 坐标转换
  80.                     如果 (PosX,PosY) 的颜色大约等于 #9A9EAF 则
  81.                         StMenu = 1
  82.                         调用子程序 当前时间
  83.                         Message = CurrentTime & "出航成功..."
  84.                         调用子程序 写入日志文件
  85.                     否则
  86.                         调用子程序 当前时间
  87.                         Message = CurrentTime & "！！！出航未成功..."
  88.                         调用子程序 写入日志文件
  89.                     条件结束
  90.                 条件结束
  91.             条件结束
  92.         条件结束
  93.     循环结束
  94. 子程序结束,回到调用处
  95. //======================================================================================
  96. 子程序 交易事项
  97.     如果表达式 (iaccountant = 0) 为真,则
  98.         调用子程序 卖出商品
  99.     否则如果(iaccountant = 1)为真,则
  100.         调用子程序 会计卖出