1.         按键 <Enter>
  2.         延时500毫秒
  3.         延时2000毫秒
  4.         如果 (771,461) 的颜色等于 #f0e191 则
  5.             跳转到标记 查找城
  6.         条件结束
  7.         如果 (771,438) 的颜色等于 #f0e191 则
  8.             跳转到标记 查找城
  9.         条件结束
  10.         如果 (771,413) 的颜色等于 #f0e191 则
  11.             跳转到标记 查找城
  12.         条件结束
  13.         如果 (771,389) 的颜色等于 #f0e191 则
  14.             跳转到标记 查找城
  15.         条件结束
  16.         //找到, 進入城市
  17.         跳转到标记 結束查找城
  18.     循环结束
  19.     标记 結束查找城
  20.     //再檢查是否進到碼頭
  21.     循环 50 遍
  22.         延时500毫秒
  23.         如果 (663,369) 的颜色等于 #ffffff 则
  24.             如果 (650,365) 的颜色等于 #ffffff 则
  25.                 如果 (635,366) 的颜色等于 #ffffff 则
  26.                     跳转到标记 結束找城
  27.                 条件结束
  28.             条件结束
  29.         条件结束
  30.     循环结束
  31.     调用子程序 航行補正
  32.     跳转到标记 查找城
  33.     标记 結束找城
  34.     如果表达式 (Pd5=1) 为真,则
  35.         调用子程序 重複喊話模組
  36.     条件结束
  37. 子程序结束,回到调用处
  38. 子程序 角度歸零
  39.     按住 <Ctrl>
  40.     延时500毫秒
  41.     按住 <Down>
  42.     延时2500毫秒
  43.     弹起 <Down>
  44.     延时500毫秒
  45.     弹起 <Ctrl>
  46.     延时500毫秒
  47. 子程序结束,回到调用处
  48. 子程序 重複喊話模組
  49.     如果表达式 (Pd5=0) 为真,则
  50.         跳转到标记 結束重複喊話模組
  51.     否则
  52.         按键 <Space>
  53.         延时500毫秒
  54.         循环 Pd5 遍
  55.             按键 <Up>
  56.             延时500毫秒
  57.         循环结束
  58.         按键 <Enter>
  59.         延时500毫秒
  60.     条件结束
  61.     标记 結束重複喊話模組
  62. 子程序结束,回到调用处
  63. 子程序 偵測暴風
  64.     标记 偵測暴風開始
  65.     //清除異常窗口
  66.     调用插件命令 Window.SendKeyPress(hwn,27)
  67.     延时50毫秒
  68.     调用外部VBScript子程序 在屏幕区域里查找图形(746,597,780,624,"storm.bmp",0.8,x,y)
  69.     如果表达式 (x>=0 and y>=0) 为真,则
  70.         //停船
  71.         鼠标移到 785 , 612
  72.         延时500毫秒
  73.         左键单击
  74.         延时500毫秒
  75.         //持續偵測
  76.         标记 持續偵測暴風
  77.         调用外部VBScript子程序 在屏幕区域里查找图形(746,597,780,624,"storm.bmp",0.8,x,y)
  78.         如果表达式 (x>=0 and y>=0) 为真,则
  79.             //等候暴風
  80.             延时60000毫秒
  81.             跳转到标记 持續偵測暴風
  82.         否则
  83.             //開船
  84.             鼠标移到 786 , 572
  85.             延时500毫秒
  86.             左键单击
  87.             延时500毫秒
  88.         条件结束
  89.     条件结束
  90. 子程序结束,回到调用处
  91. //移動滑鼠到指定點以視窗為准參數ax,ay
  92. 子程序 移動滑鼠
  93.     调用插件命令 winRect=Window.GetClientRect(hwn)
  94.     winPoint = Split(winRect, "|", -1, 1)
  95.     bx = CInt(winPoint(0)) + ax
  96.     by = CInt(winPoint(1)) + ay
  97.     鼠标移到 bx , by
  98.     延时600毫秒
  99. 子程序结束,回到调用处
  100. 子程序 尋找滑鼠