- 令 i = "0"
- 条件结束
- 令 code = code & i
- 令 x = x - 1
- 循环结束
- 令 y = y - 1
- 循环结束
- 令 y = uy
- 令 ux = ux - 6
- 令 a(0) = "1001100110011001"
- 令 a(1) = "1000100010001100"
- 令 a(2) = "0010010010001001"
- 令 a(3) = "1000010010001001"
- 令 a(4) = "1111010101100110"
- 令 a(5) = "1000100101110001"
- 令 a(6) = "1001011100011001"
- 令 a(7) = "0010010001001000"
- 令 a(8) = "1001011010011001"
- 令 a(9) = "1000111010011001"
- 如果 code = a(0) 则
- 令 num = "0"
- 条件结束
- 如果 code = a(1) 则
- 令 num = "1"
- 令 ux = ux + 2
- 条件结束
- 如果 code = a(2) 则
- 令 num = "2"
- 条件结束
- 如果 code = a(3) 则
- 令 num = "3"
- 条件结束
- 如果 code = a(4) 则
- 令 num = "4"
- 条件结束
- 如果 code = a(5) 则
- 令 num = "5"
- 条件结束
- 如果 code = a(6) 则
- 令 num = "6"
- 条件结束
- 如果 code = a(7) 则
- 令 num = "7"
- 条件结束
- 如果 code = a(8) 则
- 令 num = "8"
- 条件结束
- 如果 code = a(9) 则
- 令 num = "9"
- 条件结束
- 令 group = num & group
- 循环结束
- 令 group = CDbl(group)
- 子程序结束
- 子程序 识别金币()
- 令 group = ""
- 令 x = ux
- 令 y = uy
- 定义变量 a(10)
- 循环 9 次
- 令 num = ""
- 令 code = ""
- 循环 3 次
- 令 x = ux
- 循环 5 次
- 令 GetColor = 得到指定点 (x, y) 的颜色
- 如果 GetColor = "FFFFFF" 则
- 令 i = "1"
- 否则
- 令 i = "0"
- 条件结束
- 令 code = code & i
- 令 x = x + 1
- 循环结束
- 令 y = y + 1
- 循环结束
- 令 y = uy
- 令 ux = ux + 6
- 令 a(0) = "100011000110001"
- 令 a(1) = "010000100001000"
- 令 a(2) = "100010001000100"
- 令 a(3) = "000010011000001"
- 令 a(4) = "010100101010010"
- 令 a(5) = "100001111000001"
- 令 a(6) = "100001111010001"
- 令 a(7) = "000100010000100"
- 令 a(8) = "100010111010001"
- 令 a(9) = "100011000101111"
- 如果 code = a(0) 则
- 令 num = "0"
- 条件结束
- 如果 code = a(1) 则
- 令 num = "1"
- 条件结束
- 如果 code = a(2) 则
- 令 num = "2"
- 条件结束
- 如果 code = a(3) 则
- 令 num = "3"
- 条件结束