1.                 //Gosub 多佛到伦敦
  2.             条件结束
  3.             调用子程序 当前时间
  4.             Message = CurrentTime & "................................"
  5.             调用子程序 写入日志文件
  6.             调用子程序 定时关机
  7.         否则
  8.             调用子程序 当前时间
  9.             Message = CurrentTime & "！！！所在码头错误..."
  10.             调用子程序 写入日志文件
  11.             调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  12.             跳转到标记 脚本结束
  13.         条件结束
  14.     循环结束
  15. 子程序结束,回到调用处
  16. //======================================================================================
  17. 子程序 码头判断
  18.     //初始码头判断（1-伦敦；2-多佛；其它均非正常）
  19.     MaTou = 0
  20.     PosX = 37
  21.     PosY = 8
  22.     调用子程序 坐标转换
  23.     如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  24.         PosX = 52
  25.         PosY = 8
  26.         调用子程序 坐标转换
  27.         如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  28.             PosX = 75
  29.             PosY = 8
  30.             调用子程序 坐标转换
  31.             如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  32.                 PosX = 82
  33.                 PosY = 9
  34.                 调用子程序 坐标转换
  35.                 如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  36.                     PosX = 86
  37.                     PosY = 8
  38.                     调用子程序 坐标转换
  39.                     如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  40.                         MaTou = 1
  41.                         调用子程序 当前时间
  42.                         Message = CurrentTime & "船在伦敦码头..."
  43.                         调用子程序 写入日志文件
  44.                     条件结束
  45.                 条件结束
  46.             条件结束
  47.         条件结束
  48.     条件结束
  49.     PosX = 40
  50.     PosY = 8
  51.     调用子程序 坐标转换
  52.     如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  53.         PosX = 58
  54.         PosY = 8
  55.         调用子程序 坐标转换
  56.         如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  57.             PosX = 68
  58.             PosY = 8
  59.             调用子程序 坐标转换
  60.             如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  61.                 PosX = 90
  62.                 PosY = 8
  63.                 调用子程序 坐标转换
  64.                 如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  65.                     PosX = 101
  66.                     PosY = 8
  67.                     调用子程序 坐标转换
  68.                     如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  69.                         MaTou = 2
  70.                         调用子程序 当前时间
  71.                         Message = CurrentTime & "船在多佛尔码头..."
  72.                         调用子程序 写入日志文件
  73.                     条件结束
  74.                 条件结束
  75.             条件结束
  76.         条件结束
  77.     条件结束
  78. 子程序结束,回到调用处
  79. 子程序 入码头出航
  80.     //进码头
  81.     StMenu = 0
  82.     如果表达式 (StMenu = 0) 为真,则循环执行
  83.         PosX = 655
  84.         PosY = 359
  85.         调用子程序 移动鼠标
  86.         左键单击
  87.         调用子程序 延时判定
  88.         调用子程序 等按钮
  89.         延时1000毫秒
  90.         //码头两个字
  91.         PosX = 628
  92.         PosY = 329
  93.         调用子程序 坐标转换
  94.         如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  95.             PosX = 640
  96.             PosY = 329
  97.             调用子程序 坐标转换
  98.             如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  99.                 PosX = 646
  100.                 PosY = 329