1.                     令 i = "0"
  2.                 条件结束
  3.                 令 code = code & i
  4.                 令 x = x - 1
  5.             循环结束
  6.             令 y = y - 1
  7.         循环结束
  8.         令 y = uy
  9.         令 ux = ux - 6
  10.         令 a(0) = "1001100110011001"
  11.         令 a(1) = "1000100010001100"
  12.         令 a(2) = "0010010010001001"
  13.         令 a(3) = "1000010010001001"
  14.         令 a(4) = "1111010101100110"
  15.         令 a(5) = "1000100101110001"
  16.         令 a(6) = "1001011100011001"
  17.         令 a(7) = "0010010001001000"
  18.         令 a(8) = "1001011010011001"
  19.         令 a(9) = "1000111010011001"
  20.         如果 code = a(0) 则
  21.             令 num = "0"
  22.         条件结束
  23.         如果 code = a(1) 则
  24.             令 num = "1"
  25.             令 ux = ux + 2
  26.         条件结束
  27.         如果 code = a(2) 则
  28.             令 num = "2"
  29.         条件结束
  30.         如果 code = a(3) 则
  31.             令 num = "3"
  32.         条件结束
  33.         如果 code = a(4) 则
  34.             令 num = "4"
  35.         条件结束
  36.         如果 code = a(5) 则
  37.             令 num = "5"
  38.         条件结束
  39.         如果 code = a(6) 则
  40.             令 num = "6"
  41.         条件结束
  42.         如果 code = a(7) 则
  43.             令 num = "7"
  44.         条件结束
  45.         如果 code = a(8) 则
  46.             令 num = "8"
  47.         条件结束
  48.         如果 code = a(9) 则
  49.             令 num = "9"
  50.         条件结束
  51.         令 group = num & group
  52.     循环结束
  53.     令 group = CDbl(group)
  54. 子程序结束
  55. 子程序 识别金币()
  56.     令 group = ""
  57.     令 x = ux
  58.     令 y = uy
  59.     定义变量 a(10)
  60.     循环 9 次
  61.         令 num = ""
  62.         令 code = ""
  63.         循环 3 次
  64.             令 x = ux
  65.             循环 5 次
  66.                 令 GetColor = 得到指定点 (x, y) 的颜色
  67.                 如果 GetColor = "FFFFFF" 则
  68.                     令 i = "1"
  69.                 否则
  70.                     令 i = "0"
  71.                 条件结束
  72.                 令 code = code & i
  73.                 令 x = x + 1
  74.             循环结束
  75.             令 y = y + 1
  76.         循环结束
  77.         令 y = uy
  78.         令 ux = ux + 6
  79.         令 a(0) = "100011000110001"
  80.         令 a(1) = "010000100001000"
  81.         令 a(2) = "100010001000100"
  82.         令 a(3) = "000010011000001"
  83.         令 a(4) = "010100101010010"
  84.         令 a(5) = "100001111000001"
  85.         令 a(6) = "100001111010001"
  86.         令 a(7) = "000100010000100"
  87.         令 a(8) = "100010111010001"
  88.         令 a(9) = "100011000101111"
  89.         如果 code = a(0) 则
  90.             令 num = "0"
  91.         条件结束
  92.         如果 code = a(1) 则
  93.             令 num = "1"
  94.         条件结束
  95.         如果 code = a(2) 则
  96.             令 num = "2"
  97.         条件结束
  98.         如果 code = a(3) 则
  99.             令 num = "3"
  100.         条件结束