.版本 2
.DLL命令 寫配置文件, 整數(shù)型, , "WritePrivateProfileStringA", , 如果配置文件不存在則將被創(chuàng)建
  .參數(shù) 小節(jié)名, 文本型, , 就是用中括號括起來的內(nèi)容
  .參數(shù) 項目名, 文本型, , 就是等號前邊的內(nèi)容
  .參數(shù) 項目值, 文本型, , 就是等號后面的內(nèi)容
  .參數(shù) 文件名, 文本型, , 就是你要寫入的那個文件
.DLL命令 讀配置整數(shù), 整數(shù)型, , "GetPrivateProfileIntA"
  .參數(shù) 小節(jié)名, 文本型
  .參數(shù) 項目名, 文本型
  .參數(shù) 默認(rèn)值, 整數(shù)型, , 如果找不到對應(yīng)的項目則返回該值
  .參數(shù) 文件名, 文本型
.DLL命令 運行文件, 整數(shù)型, "shell32.dll", "ShellExecuteA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) lpOperation, 文本型, , "open","print","explore" 
  .參數(shù) lpFile, 文本型
  .參數(shù) pParameters, 文本型
  .參數(shù) lpDirectory, 文本型
  .參數(shù) nShowCmd, 整數(shù)型, , 9
.DLL命令 讀配置文本, 整數(shù)型, , "GetPrivateProfileStringA", , 備注：該函數(shù)返回的值是被讀文本的字符個數(shù)，實際上該文本被存放在參數(shù)“緩沖容器”里面，利用“取文本左邊”命令可以得到需要的文本。
  .參數(shù) 小節(jié)名, 文本型
  .參數(shù) 項目名, 文本型
  .參數(shù) 默認(rèn)值, 文本型, , 可以為“”
  .參數(shù) 緩沖容器, 文本型, , 一般將容器的大小設(shè)定為255
  .參數(shù) 緩沖容積, 整數(shù)型, , 應(yīng)與緩沖容器的大小相等255
  .參數(shù) 文件名, 文本型

.版本 2
.常量 游戲版本號, "“推箱子2.2”"
.常量 數(shù)據(jù)庫名, "“E-BOX”"
.常量 方案類型, "“方案類型”"
.常量 方案名稱, "“方案名稱”"
.常量 數(shù)據(jù)1, "“數(shù)據(jù)1”"
.常量 數(shù)據(jù)2, "“數(shù)據(jù)2”"
.常量 數(shù)據(jù)3, "“數(shù)據(jù)3”"
.常量 數(shù)據(jù)4, "“數(shù)據(jù)4”"
.常量 數(shù)據(jù)5, "“數(shù)據(jù)5”"
.常量 數(shù)據(jù)6, "“數(shù)據(jù)6”"
.常量 數(shù)據(jù)7, "“數(shù)據(jù)7”"
.常量 數(shù)據(jù)8, "“數(shù)據(jù)8”"
.常量 場景方案, "“場景方案”"
.常量 小人方案, "“小人方案”"
.常量 音樂方案, "“音樂方案”"
.常量 游戲地圖, "“游戲地圖”"
.常量 默認(rèn)方案, "“默認(rèn)方案”"

.版本 2
.全局變量 保存標(biāo)志, 整數(shù)型
.全局變量 背景數(shù)組, 整數(shù)型, , "14,16", 背景數(shù)組
.全局變量 總圖片號組, 整數(shù)型, , "256", 用來保存游戲中用到的圖片的圖片號
.全局變量 撤消數(shù)組, 撤消類型, , "0", 用來實現(xiàn)多次撤消操作
.全局變量 正在錄像中, 邏輯型
.全局變量 錄像播放中, 邏輯型
.全局變量 錄像數(shù)組, 整數(shù)型, , "0"
.全局變量 錄像地圖數(shù)據(jù), 字節(jié)集
.全局變量 臨時地圖數(shù)據(jù), 字節(jié)集
.全局變量 第一次畫, 邏輯型
.全局變量 選擇關(guān)卡, 整數(shù)型
.全局變量 移動音樂, 字節(jié)集
.全局變量 結(jié)束音樂, 字節(jié)集
.全局變量 推箱音樂, 字節(jié)集
.全局變量 重來音樂, 字節(jié)集
.全局變量 禁止音樂, 字節(jié)集
.全局變量 點擊音樂, 字節(jié)集
.全局變量 撤消音樂, 字節(jié)集
.全局變量 背景音樂, 字節(jié)集
.全局變量 小人方案名, 文本型
.全局變量 場景方案名, 文本型
.全局變量 音樂方案名, 文本型
.全局變量 方案被改變, 邏輯型

.版本 2
.數(shù)據(jù)類型 撤消類型
  .成員 x, 整數(shù)型
  .成員 y, 整數(shù)型
  .成員 ifmove, 邏輯型
.數(shù)據(jù)類型 位置類型
  .成員 x, 整數(shù)型
  .成員 y, 整數(shù)型
.數(shù)據(jù)類型 數(shù)據(jù)類型2
  .成員 步數(shù), 整數(shù)型
  .成員 位置, 位置類型
  .成員 方向, 整數(shù)型
  .成員 上一步, 位置類型

.版本 2
.程序集 圖形處理程序集
.程序集變量 循環(huán)變量1, 整數(shù)型
.程序集變量 循環(huán)變量2, 整數(shù)型
.子程序 載入圖片號, 邏輯型, , 返回真則圖片全部載入成功
.參數(shù) 類型, 文本型
.參數(shù) 方案, 文本型
.局部變量 畫片數(shù), 整數(shù)型
重定義數(shù)組 (總圖片號組, 真, 256)
.判斷開始 (類型 ＝ #場景方案)
  .如果 (場景方案名 ＝ “”)
    場景方案名 ＝ #默認(rèn)方案
    總圖片號組 [1] ＝ 載入圖片 (#背景圖)
    總圖片號組 [2] ＝ 載入圖片 (#墻圖)
    總圖片號組 [3] ＝ 載入圖片 (#地板圖)
    總圖片號組 [4] ＝ 載入圖片 (#黃箱子圖)
    總圖片號組 [5] ＝ 載入圖片 (#箱子位置圖)
    總圖片號組 [8] ＝ 載入圖片 (#紅箱子圖)
  .否則
    跳到 (1)
    .如果 (查找 (讀 (#方案類型) ＝ #場景方案 且 讀 (#方案名稱) ＝ 場景方案名) ＝ 真)
      總圖片號組 [1] ＝ 載入圖片 (讀 (#數(shù)據(jù)1))
      總圖片號組 [2] ＝ 載入圖片 (讀 (#數(shù)據(jù)2))
      總圖片號組 [3] ＝ 載入圖片 (讀 (#數(shù)據(jù)3))
      總圖片號組 [4] ＝ 載入圖片 (讀 (#數(shù)據(jù)4))
      總圖片號組 [5] ＝ 載入圖片 (讀 (#數(shù)據(jù)5))
      總圖片號組 [8] ＝ 載入圖片 (讀 (#數(shù)據(jù)6))
    .否則
      總圖片號組 [1] ＝ 載入圖片 (#背景圖)
      總圖片號組 [2] ＝ 載入圖片 (#墻圖)
      總圖片號組 [3] ＝ 載入圖片 (#地板圖)
      總圖片號組 [4] ＝ 載入圖片 (#黃箱子圖)
      總圖片號組 [5] ＝ 載入圖片 (#箱子位置圖)
      總圖片號組 [8] ＝ 載入圖片 (#紅箱子圖)
    .如果結(jié)束
  .如果結(jié)束
  .如果真 (總圖片號組 [1] ＝ 0 或 總圖片號組 [2] ＝ 0 或 總圖片號組 [3] ＝ 0 或 總圖片號組 [4] ＝ 0 或 總圖片號組 [5] ＝ 0 或 總圖片號組 [8] ＝ 0)
    返回 (假)
  .如果真結(jié)束
  返回 (真)
.判斷 (類型 ＝ #小人方案)
  .如果 (小人方案名 ＝ “”)
    小人方案名 ＝ #默認(rèn)方案
    總圖片號組 [52] ＝ 載入圖片 (#上1)
    總圖片號組 [53] ＝ 載入圖片 (#上2)
    總圖片號組 [54] ＝ 載入圖片 (#左1)
    總圖片號組 [55] ＝ 載入圖片 (#左2)
    總圖片號組 [56] ＝ 載入圖片 (#右1)
    總圖片號組 [57] ＝ 載入圖片 (#右2)
    總圖片號組 [58] ＝ 載入圖片 (#下1)
    總圖片號組 [59] ＝ 載入圖片 (#下2)
  .否則
    跳到 (1)
    .如果 (查找 (讀 (#方案類型) ＝ #小人方案 且 讀 (#方案名稱) ＝ 小人方案名) ＝ 真)
      總圖片號組 [52] ＝ 載入圖片 (讀 (#數(shù)據(jù)1))
      總圖片號組 [53] ＝ 載入圖片 (讀 (#數(shù)據(jù)2))
      總圖片號組 [54] ＝ 載入圖片 (讀 (#數(shù)據(jù)3))
      總圖片號組 [55] ＝ 載入圖片 (讀 (#數(shù)據(jù)4))
      總圖片號組 [56] ＝ 載入圖片 (讀 (#數(shù)據(jù)5))
      總圖片號組 [57] ＝ 載入圖片 (讀 (#數(shù)據(jù)6))
      總圖片號組 [58] ＝ 載入圖片 (讀 (#數(shù)據(jù)7))
      總圖片號組 [59] ＝ 載入圖片 (讀 (#數(shù)據(jù)8))
    .否則
      總圖片號組 [52] ＝ 載入圖片 (#上1)
      總圖片號組 [53] ＝ 載入圖片 (#上2)
      總圖片號組 [54] ＝ 載入圖片 (#左1)
      總圖片號組 [55] ＝ 載入圖片 (#左2)
      總圖片號組 [56] ＝ 載入圖片 (#右1)
      總圖片號組 [57] ＝ 載入圖片 (#右2)
      總圖片號組 [58] ＝ 載入圖片 (#下1)
      總圖片號組 [59] ＝ 載入圖片 (#下2)
    .如果結(jié)束
  .如果結(jié)束
  .如果真 (總圖片號組 [52] ＝ 0 或 總圖片號組 [53] ＝ 0 或 總圖片號組 [54] ＝ 0 或 總圖片號組 [55] ＝ 0 或 總圖片號組 [56] ＝ 0 或 總圖片號組 [57] ＝ 0 或 總圖片號組 [58] ＝ 0 或 總圖片號組 [59] ＝ 0)
    返回 (假)
  .如果真結(jié)束
  總圖片號組 [62] ＝ 總圖片號組 [52]
  總圖片號組 [63] ＝ 總圖片號組 [53]
  總圖片號組 [64] ＝ 總圖片號組 [54]
  總圖片號組 [65] ＝ 總圖片號組 [55]
  總圖片號組 [66] ＝ 總圖片號組 [56]
  總圖片號組 [67] ＝ 總圖片號組 [57]
  總圖片號組 [68] ＝ 總圖片號組 [58]
  總圖片號組 [69] ＝ 總圖片號組 [59]
  返回 (真)
.默認(rèn)
  返回 (假)
.判斷結(jié)束
返回 (真)
畫片數(shù) ＝ 0
.計次循環(huán)首 (256, 循環(huán)變量1)
  .如果真 (總圖片號組 [循環(huán)變量1] ＞ 0)
    畫片數(shù) ＝ 畫片數(shù) ＋ 1
  .如果真結(jié)束
.計次循環(huán)尾 ()
.如果 (畫片數(shù) ≠ 14 ＋ 8)
  返回 (假)
.否則
  返回 (真)
.如果結(jié)束
.子程序 載入音樂, 邏輯型
.如果 (音樂方案名 ＝ “”)
  音樂方案名 ＝ #默認(rèn)方案
  移動音樂 ＝ #移動音樂
  結(jié)束音樂 ＝ #結(jié)束音樂
  推箱音樂 ＝ #推箱音樂
  重來音樂 ＝ #重來音樂
  禁止音樂 ＝ #禁止音樂
  點擊音樂 ＝ #點擊音樂
  撤消音樂 ＝ #撤消音樂
  背景音樂 ＝ #背景音樂
.否則
  跳到 (1)
  .如果 (查找 (讀 (#方案類型) ＝ #音樂方案 且 讀 (#方案名稱) ＝ 音樂方案名) ＝ 真)
    移動音樂 ＝ 讀 (#數(shù)據(jù)1)
    結(jié)束音樂 ＝ 讀 (#數(shù)據(jù)2)
    推箱音樂 ＝ 讀 (#數(shù)據(jù)3)
    重來音樂 ＝ 讀 (#數(shù)據(jù)4)
    禁止音樂 ＝ 讀 (#數(shù)據(jù)5)
    點擊音樂 ＝ 讀 (#數(shù)據(jù)6)
    撤消音樂 ＝ 讀 (#數(shù)據(jù)7)
    背景音樂 ＝ 讀 (#數(shù)據(jù)8)
  .否則
    移動音樂 ＝ #移動音樂
    結(jié)束音樂 ＝ #結(jié)束音樂
    推箱音樂 ＝ #推箱音樂
    重來音樂 ＝ #重來音樂
    禁止音樂 ＝ #禁止音樂
    點擊音樂 ＝ #點擊音樂
    撤消音樂 ＝ #撤消音樂
    背景音樂 ＝ #背景音樂
  .如果結(jié)束
.如果結(jié)束
返回 (真)
.子程序 畫圖片
.參數(shù) 橫坐標(biāo), 整數(shù)型
.參數(shù) 縱坐標(biāo), 整數(shù)型
.參數(shù) 畫片編號, 整數(shù)型
.如果真 (總圖片號組 [畫片編號 ＋ 1] ＝ 0)
  返回 ()
.如果真結(jié)束
_啟動窗口.畫板1.畫圖片 (總圖片號組 [畫片編號 ＋ 1], (縱坐標(biāo) － 1) × 30, (橫坐標(biāo) － 1) × 30, 30, 30, 1)
.子程序 畫背景, , , 這個過程占用時間太多,起碼用去"_畫板1_按下某鍵"事件99%的時間,造成了畫面延時,需改進.
.參數(shù) 快速畫, 邏輯型
.局部變量 臨時循環(huán)變量1, 整數(shù)型
.局部變量 臨時循環(huán)變量2, 整數(shù)型
處理事件 ()
_啟動窗口.時鐘1.時鐘周期 ＝ 0
.計次循環(huán)首 (14, 循環(huán)變量1)
  .計次循環(huán)首 (16, 循環(huán)變量2)
    .如果真 (快速畫 ＝ 真)
      .如果真 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 0 或 背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 1)
        到循環(huán)尾 ()
      .如果真結(jié)束
    .如果真結(jié)束
    畫圖片 (循環(huán)變量1, 循環(huán)變量2, 背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2])
  .計次循環(huán)尾 ()
.計次循環(huán)尾 ()
第一次畫 ＝ 假
_啟動窗口.時鐘1.時鐘周期 ＝ 500
.子程序 卸載圖片號
.計次循環(huán)首 (256, 循環(huán)變量1)
  .如果真 (總圖片號組 [循環(huán)變量1] ＞ 0)
    卸載圖片 (總圖片號組 [循環(huán)變量1])
  .如果真結(jié)束
.計次循環(huán)尾 ()
.子程序 創(chuàng)建數(shù)據(jù)庫, 邏輯型
.局部變量 字段, 字段信息, , "10"
.如果真 (文件是否存在 (#數(shù)據(jù)庫名 ＋ “.edb”) ＝ 假)
  字段 [1].名稱 ＝ #方案類型
  字段 [1].類型 ＝ #文本型
  字段 [1].最大文本長度 ＝ 8
  字段 [2].名稱 ＝ #方案名稱
  字段 [2].類型 ＝ #文本型
  字段 [2].最大文本長度 ＝ 128
  字段 [3].名稱 ＝ #數(shù)據(jù)1
  字段 [3].類型 ＝ #字節(jié)集型
  字段 [4].名稱 ＝ #數(shù)據(jù)2
  字段 [4].類型 ＝ #字節(jié)集型
  字段 [5].名稱 ＝ #數(shù)據(jù)3
  字段 [5].類型 ＝ #字節(jié)集型
  字段 [6].名稱 ＝ #數(shù)據(jù)4
  字段 [6].類型 ＝ #字節(jié)集型
  字段 [7].名稱 ＝ #數(shù)據(jù)5
  字段 [7].類型 ＝ #字節(jié)集型
  字段 [8].名稱 ＝ #數(shù)據(jù)6
  字段 [8].類型 ＝ #字節(jié)集型
  字段 [9].名稱 ＝ #數(shù)據(jù)7
  字段 [9].類型 ＝ #字節(jié)集型
  字段 [10].名稱 ＝ #數(shù)據(jù)8
  字段 [10].類型 ＝ #字節(jié)集型
  .如果真 (創(chuàng)建 (#數(shù)據(jù)庫名, 字段) ＝ 假)
    返回 (假)
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (打開 (#數(shù)據(jù)庫名, , , , , , ) ＝ 假)
  返回 (假)
.如果真結(jié)束
返回 (真)
選擇方案窗口程序集
.版本 2
.程序集 選擇方案窗口程序集
.子程序 _選擇方案窗口_創(chuàng)建完畢
跳到 (1)
.如果真 (查找 (讀 (#方案類型) ＝ #場景方案 且 讀 (#方案名稱) ＝ #默認(rèn)方案) ＝ 假)
  加記錄 (#場景方案, #默認(rèn)方案, #背景圖, #墻圖, #地板圖, #黃箱子圖, #箱子位置圖, #紅箱子圖)
.如果真結(jié)束
更新 (場景方案組合框, #場景方案)
跳到 (1)
.如果真 (查找 (讀 (#方案類型) ＝ #小人方案 且 讀 (#方案名稱) ＝ #默認(rèn)方案) ＝ 假)
  加記錄 (#小人方案, #默認(rèn)方案, #上1, #上2, #下1, #下2, #左1, #左2, #右1, #右2)
.如果真結(jié)束
更新 (小人方案組合框, #小人方案)
跳到 (1)
.如果真 (查找 (讀 (#方案類型) ＝ #音樂方案 且 讀 (#方案名稱) ＝ #默認(rèn)方案) ＝ 假)
  加記錄 (#音樂方案, #默認(rèn)方案, #移動音樂, #結(jié)束音樂, #推箱音樂, #重來音樂, #禁止音樂, #點擊音樂, #撤消音樂, #背景音樂)
.如果真結(jié)束
更新 (音樂方案組合框, #音樂方案)
方案被改變 ＝ 假
.子程序 更新
.參數(shù) 組合框, 組合框
.參數(shù) 類型, 文本型
.局部變量 臨時變量, 整數(shù)型
跳到 (1)
組合框.清空 ()
.計次循環(huán)首 (取記錄數(shù) (), 臨時變量)
  .如果真 (查找 (讀 (#方案類型) ＝ 類型) ＝ 真)
    組合框.加入項目 (讀 (#方案名稱), 取記錄號 ())
    .如果真 (跳過 () ＝ 假)
      跳出循環(huán) ()
    .如果真結(jié)束
  .如果真結(jié)束
  組合框.現(xiàn)行選中項 ＝ 0
.計次循環(huán)尾 ()
.子程序 _按鈕1_被單擊
場景方案名 ＝ 場景方案組合框.取項目文本 (場景方案組合框.現(xiàn)行選中項)
小人方案名 ＝ 小人方案組合框.取項目文本 (小人方案組合框.現(xiàn)行選中項)
音樂方案名 ＝ 音樂方案組合框.取項目文本 (音樂方案組合框.現(xiàn)行選中項)
方案被改變 ＝ 真
銷毀 ()
.子程序 _按鈕2_被單擊
方案被改變 ＝ 假
銷毀 ()

.版本 2
.支持庫 iext
.程序集 啟動窗口程序集
.程序集變量 上步橫坐標(biāo), 整數(shù)型, , , 上一次走的坐標(biāo)x
.程序集變量 上步縱坐標(biāo), 整數(shù)型, , , 上一次走的坐標(biāo)y
.程序集變量 當(dāng)前橫坐標(biāo), 整數(shù)型, , , 當(dāng)前位置x
.程序集變量 當(dāng)前縱坐標(biāo), 整數(shù)型, , , 當(dāng)前位置y
.程序集變量 上步箱子移到, 邏輯型, , , 上一次走時是否移動了箱子
.程序集變量 當(dāng)前目錄, 文本型, , , 當(dāng)前目錄
.程序集變量 當(dāng)前關(guān)數(shù), 整數(shù)型, , , 當(dāng)前關(guān)數(shù)
.程序集變量 錯誤箱子數(shù), 整數(shù)型, , , 未正確放置的箱子數(shù)
.程序集變量 小人步數(shù), 整數(shù)型, , , 小人走的步數(shù)
.程序集變量 行走路徑, 整數(shù)型, , "0", 小人的自動尋路路徑數(shù)組
.程序集變量 不自動尋路, 邏輯型, , , 在小人行走時不自動尋路
.程序集變量 行走計數(shù), 整數(shù)型, , , 小人行走計數(shù)
.程序集變量 聲音效果, 邏輯型, , , 是否開啟聲音效果
.程序集變量 移動音樂開關(guān), 整數(shù)型, , , N 0為播放 1為不播放
.子程序 讀取文件, 整數(shù)型
.局部變量 文件號, 整數(shù)型
.局部變量 循環(huán)變量1, 整數(shù)型
.局部變量 循環(huán)變量2, 整數(shù)型
.局部變量 字節(jié)集長度, 整數(shù)型
.局部變量 變量, 整數(shù)型, , , funre
.局部變量 關(guān)數(shù)名稱, 文本型, , , 當(dāng)前關(guān)數(shù)
.局部變量 字節(jié)集變量, 字節(jié)集
.局部變量 記次變量, 整數(shù)型
.局部變量 地圖字節(jié)集, 字節(jié)集
變量 ＝ 1
小人步數(shù) ＝ 0
關(guān)數(shù)名稱 ＝ 到文本 (當(dāng)前關(guān)數(shù))
跳到 (1)
.如果真 (查找 (讀 (#方案類型) ＝ #游戲地圖 且 讀 (#方案名稱) ＝ 關(guān)數(shù)名稱) ＝ 假)
  ' 如果 (filenum ＝ 1)
  ' 如果真 (加記錄 (#游戲地圖, “1”, #數(shù)據(jù)1) ＝ 假)
  ' funre ＝ 0
  .如果真 (當(dāng)前關(guān)數(shù) ＞ 100)
    當(dāng)前關(guān)數(shù) ＝ 1
  .如果真結(jié)束
  跳到 (1)
  .如果真 (查找 (讀 (#方案類型) ＝ #游戲地圖 且 讀 (#方案名稱) ＝ 到文本 (當(dāng)前關(guān)數(shù))) ＝ 假)
    地圖字節(jié)集 ＝ 取字節(jié)集中間 (#地圖數(shù)據(jù), (當(dāng)前關(guān)數(shù) － 1) × 896 ＋ 1, 896)
    .如果真 (加記錄 (#游戲地圖, 到文本 (當(dāng)前關(guān)數(shù)), 地圖字節(jié)集) ＝ 假)
      變量 ＝ 0
    .如果真結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
.如果 (變量 ≠ 0)
  錯誤箱子數(shù) ＝ 0
  字節(jié)集變量 ＝ 讀 (#數(shù)據(jù)1)
  字節(jié)集長度 ＝ 取字節(jié)集長度 (字節(jié)集變量)
  .如果 (字節(jié)集長度 ≠ 224 × 4)
    變量 ＝ 0
  .否則
    _啟動窗口.標(biāo)題 ＝ #游戲版本號 ＋ “ 你現(xiàn)在推的是” ＋ 到文本 (當(dāng)前關(guān)數(shù)) ＋ “關(guān)”
    記次變量 ＝ 0
    .計次循環(huán)首 (14, 循環(huán)變量1)
      .計次循環(huán)首 (16, 循環(huán)變量2)
        地圖字節(jié)集 ＝ 取字節(jié)集中間 (字節(jié)集變量, 記次變量 × 4 ＋ 1, 4)
        背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 取字節(jié)集數(shù)據(jù) (地圖字節(jié)集, #整數(shù)型)
        .判斷開始 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 57 或 背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 58)
          當(dāng)前橫坐標(biāo) ＝ 循環(huán)變量1
          當(dāng)前縱坐標(biāo) ＝ 循環(huán)變量2
        .判斷 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 3)
          錯誤箱子數(shù) ＝ 錯誤箱子數(shù) ＋ 1
        .默認(rèn)
        .判斷結(jié)束
        記次變量 ＝ 記次變量 ＋ 1
      .計次循環(huán)尾 ()
    .計次循環(huán)尾 ()
  .如果結(jié)束
.否則
  當(dāng)前關(guān)數(shù) ＝ 0
.如果結(jié)束
撤消.禁止 ＝ 真
工具條1.加入狀態(tài) (0, #禁止)
清除數(shù)組 (撤消數(shù)組)
正在錄像中 ＝ 假
錄像播放中 ＝ 假
開始錄像.禁止 ＝ 假
停止錄像.禁止 ＝ 真
播放錄像.禁止 ＝ 真
停止播放.禁止 ＝ 真
保存錄像.禁止 ＝ 真
返回游戲.禁止 ＝ 真
打開錄像文件.禁止 ＝ 假
返回 (變量)
' 以下是舊程序,不使用
返回 (變量)
變量 ＝ 1
小人步數(shù) ＝ 0
關(guān)數(shù)名稱 ＝ 當(dāng)前目錄 ＋ “\bbk\box” ＋ 到文本 (當(dāng)前關(guān)數(shù)) ＋ “.bbk”
.如果真 (文件是否存在 (關(guān)數(shù)名稱) ＝ 假)
  .如果 (當(dāng)前關(guān)數(shù) ＝ 1)
    變量 ＝ 0
  .否則
    當(dāng)前關(guān)數(shù) ＝ 1
    關(guān)數(shù)名稱 ＝ 當(dāng)前目錄 ＋ “\bbk\box1.bbk”
    .如果真 (文件是否存在 (關(guān)數(shù)名稱) ＝ 假)
      變量 ＝ 0
    .如果真結(jié)束
  .如果結(jié)束
.如果真結(jié)束
.如果 (變量 ≠ 0)
  錯誤箱子數(shù) ＝ 0
  文件號 ＝ 打開文件 (關(guān)數(shù)名稱, #讀入, )
  移到文件首 (文件號)
  字節(jié)集長度 ＝ 取文件長度 (文件號)
  .如果 (字節(jié)集長度 ≠ 224 × 4)
    變量 ＝ 0
  .否則
    _啟動窗口.標(biāo)題 ＝ #游戲版本號 ＋ “ 你現(xiàn)在推的是” ＋ 到文本 (當(dāng)前關(guān)數(shù)) ＋ “關(guān)”
    .計次循環(huán)首 (14, 循環(huán)變量1)
      .計次循環(huán)首 (16, 循環(huán)變量2)
        讀入數(shù)據(jù) (文件號, 背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2])
        .判斷開始 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 57 或 背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 58)
          當(dāng)前橫坐標(biāo) ＝ 循環(huán)變量1
          當(dāng)前縱坐標(biāo) ＝ 循環(huán)變量2
        .判斷 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 3)
          錯誤箱子數(shù) ＝ 錯誤箱子數(shù) ＋ 1
        .默認(rèn)
        .判斷結(jié)束
      .計次循環(huán)尾 ()
    .計次循環(huán)尾 ()
  .如果結(jié)束
  關(guān)閉文件 (文件號)
.否則
  當(dāng)前關(guān)數(shù) ＝ 0
.如果結(jié)束
撤消.禁止 ＝ 真
工具條1.加入狀態(tài) (0, #禁止)
返回 (變量)
.子程序 __啟動窗口_創(chuàng)建完畢
.局部變量 返回結(jié)果, 整數(shù)型
.局部變量 循環(huán)變量1, 整數(shù)型
.局部變量 循環(huán)變量2, 整數(shù)型
.局部變量 場景方案名長度, 整數(shù)型
.如果真 (創(chuàng)建數(shù)據(jù)庫 () ＝ 真)
  跳到 (1)
  .如果真 (查找 (讀 (#方案類型) ＝ #場景方案 且 讀 (#方案名稱) ＝ #默認(rèn)方案) ＝ 假)
    加記錄 (#場景方案, #默認(rèn)方案, #背景圖, #墻圖, #地板圖, #黃箱子圖, #箱子位置圖, #紅箱子圖)
  .如果真結(jié)束
  跳到 (1)
  .如果真 (查找 (讀 (#方案類型) ＝ #小人方案 且 讀 (#方案名稱) ＝ #默認(rèn)方案) ＝ 假)
    加記錄 (#小人方案, #默認(rèn)方案, #上1, #上2, #下1, #下2, #左1, #左2, #右1, #右2)
  .如果真結(jié)束
  跳到 (1)
  .如果真 (查找 (讀 (#方案類型) ＝ #音樂方案 且 讀 (#方案名稱) ＝ #默認(rèn)方案) ＝ 假)
    加記錄 (#音樂方案, #默認(rèn)方案, #移動音樂, #結(jié)束音樂, #推箱音樂, #重來音樂, #禁止音樂, #點擊音樂, #撤消音樂, #背景音樂)
  .如果真結(jié)束
.如果真結(jié)束
當(dāng)前目錄 ＝ 取當(dāng)前目錄 ()
.如果真 (倒找文本 (當(dāng)前目錄, “\”, , 真) ＝ 取文本長度 (當(dāng)前目錄))
  當(dāng)前目錄 ＝ 子文本替換 (當(dāng)前目錄, “\”, “”, 取文本長度 (當(dāng)前目錄), 1, 假)
.如果真結(jié)束
當(dāng)前目錄 ＝ 刪尾空 (當(dāng)前目錄)
.如果真 (是否為調(diào)試版 () ＝ 真)
  ' 改變目錄 (comdir)
.如果真結(jié)束
' 創(chuàng)建目錄 (“bbk”)
小人方案名 ＝ 取空白文本 (255)
場景方案名 ＝ 取空白文本 (255)
音樂方案名 ＝ 取空白文本 (255)
場景方案名長度 ＝ 讀配置文本 (“config”, “ren”, #默認(rèn)方案, 小人方案名, 255, 當(dāng)前目錄 ＋ “\box.ini”)
小人方案名 ＝ 取文本左邊 (小人方案名, 場景方案名長度)
.如果真 (載入圖片號 (#小人方案, 小人方案名) ＝ 假)
  信息框 (“小人圖片載入失敗!”, 0, “退出”)
  結(jié)束 ()
.如果真結(jié)束
場景方案名長度 ＝ 讀配置文本 (“config”, “gui”, #默認(rèn)方案, 場景方案名, 255, 當(dāng)前目錄 ＋ “\box.ini”)
場景方案名 ＝ 取文本左邊 (場景方案名, 場景方案名長度)
.如果真 (載入圖片號 (#場景方案, 場景方案名) ＝ 假)
  信息框 (“場景圖片載入失敗!”, 0, “退出”)
  結(jié)束 ()
.如果真結(jié)束
場景方案名長度 ＝ 讀配置文本 (“config”, “sound”, #默認(rèn)方案, 音樂方案名, 255, 當(dāng)前目錄 ＋ “\box.ini”)
音樂方案名 ＝ 取文本左邊 (音樂方案名, 場景方案名長度)
載入音樂 ()
重定義數(shù)組 (背景數(shù)組, 假, 14, 16)
' 畫背景 (假)
_啟動窗口.寬度 ＝ 488
上步橫坐標(biāo) ＝ 0
上步縱坐標(biāo) ＝ 0
當(dāng)前橫坐標(biāo) ＝ 0
當(dāng)前縱坐標(biāo) ＝ 0
當(dāng)前關(guān)數(shù) ＝ 讀配置整數(shù) (“score”, “l(fā)astscore”, 1, 當(dāng)前目錄 ＋ “\box.ini”)
.如果 (讀配置整數(shù) (“sound”, “sound”, 1, 當(dāng)前目錄 ＋ “\box.ini”) ＝ 1)
  聲音效果 ＝ 真
.否則
  聲音效果 ＝ 假
.如果結(jié)束
聲音.選中 ＝ 聲音效果
.如果 (聲音.選中 ＝ 真)
  工具條1.加入狀態(tài) (2, #選中)
.否則
  工具條1.去除狀態(tài) (2, #選中)
.如果結(jié)束
返回結(jié)果 ＝ 讀取文件 ()
.如果 (返回結(jié)果 ＝ 0)
  時鐘1.時鐘周期 ＝ 0
  信息框 (“沒有可以過的關(guān)!”, 0, “一個很嚴(yán)重的問題:”)
  當(dāng)前關(guān)數(shù) ＝ 0
.否則
  第一次畫 ＝ 真
  畫背景 (假)
  _啟動窗口.標(biāo)題 ＝ #游戲版本號 ＋ “ 你現(xiàn)在推的是第” ＋ 到文本 (當(dāng)前關(guān)數(shù)) ＋ “關(guān)”
  時鐘1.時鐘周期 ＝ 500
.如果結(jié)束
播放音樂 (重來音樂, )
.子程序 _時鐘1_周期事件
時鐘1.時鐘周期 ＝ 0
.如果真 (總圖片號組 [背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＋ 1] ＝ 0)
  返回 ()
.如果真結(jié)束
.如果 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ％ 2 ＝ 0)
  背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] － 1
.否則
  背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＋ 1
.如果結(jié)束
畫板1.畫圖片 (總圖片號組 [背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＋ 1], (當(dāng)前縱坐標(biāo) － 1) × 30, (當(dāng)前橫坐標(biāo) － 1) × 30, 30, 30, 1)
標(biāo)簽2.標(biāo)題 ＝ “X:” ＋ 到文本 (當(dāng)前橫坐標(biāo)) ＋ “ ” ＋ “Y:” ＋ 到文本 (當(dāng)前縱坐標(biāo))
狀態(tài)條1.置文本 (0, “X:” ＋ 到文本 (當(dāng)前橫坐標(biāo)) ＋ “ ” ＋ “Y:” ＋ 到文本 (當(dāng)前縱坐標(biāo)))
時鐘1.時鐘周期 ＝ 500
.子程序 _撤消_被選擇, , , 單次撤消
.局部變量 循環(huán)變量1, 整數(shù)型
.局部變量 循環(huán)變量2, 整數(shù)型
時鐘1.時鐘周期 ＝ 0
.如果真 (返回游戲.禁止 ＝ 真)
  _撤消_被選擇1 ()
.如果真結(jié)束
時鐘1.時鐘周期 ＝ 500
返回 ()
.如果真 (聲音效果 ＝ 真)
  播放音樂 (撤消音樂, )
.如果真結(jié)束
撤消.禁止 ＝ 真
工具條1.加入狀態(tài) (0, #禁止)
.判斷開始 (背景數(shù)組 [上步橫坐標(biāo)] [上步縱坐標(biāo)] ＝ 2)
  背景數(shù)組 [上步橫坐標(biāo)] [上步縱坐標(biāo)] ＝ 57
  畫圖片 (上步橫坐標(biāo), 上步縱坐標(biāo), 57)
.判斷 (背景數(shù)組 [上步橫坐標(biāo)] [上步縱坐標(biāo)] ＝ 4)
  背景數(shù)組 [上步橫坐標(biāo)] [上步縱坐標(biāo)] ＝ 67
  畫圖片 (上步橫坐標(biāo), 上步縱坐標(biāo), 67)
.默認(rèn)
  返回 ()
.判斷結(jié)束
小人步數(shù) ＝ 小人步數(shù) － 1
標(biāo)簽1.標(biāo)題 ＝ “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù))
狀態(tài)條1.置文本 (1, “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù)))
.如果 (上步箱子移到 ＝ 真)
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 51 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 58)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 3
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 3)
  .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 61 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 68)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 7
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 7)
  .默認(rèn)
  .判斷結(jié)束
.否則
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 51 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 58)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 2
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 2)
  .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 61 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 68)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 4
  .默認(rèn)
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 4)
  .判斷結(jié)束
.如果結(jié)束
.如果真 (上步橫坐標(biāo) ＝ 當(dāng)前橫坐標(biāo) 且 上步縱坐標(biāo) ＝ 當(dāng)前縱坐標(biāo) － 1)
  .如果真 (上步箱子移到 ＝ 真)
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) ＋ 1] ＝ 7)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) ＋ 1] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo) ＋ 1, 4)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) ＋ 1] ＝ 3)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) ＋ 1] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo) ＋ 1, 2)
    .默認(rèn)
    .判斷結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (上步橫坐標(biāo) ＝ 當(dāng)前橫坐標(biāo) 且 上步縱坐標(biāo) ＝ 當(dāng)前縱坐標(biāo) ＋ 1)
  .如果真 (上步箱子移到 ＝ 真)
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) － 1] ＝ 7)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) － 1] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo) － 1, 4)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) － 1] ＝ 3)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) － 1] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo) － 1, 2)
    .默認(rèn)
    .判斷結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (上步橫坐標(biāo) ＝ 當(dāng)前橫坐標(biāo) － 1 且 上步縱坐標(biāo) ＝ 當(dāng)前縱坐標(biāo))
  .如果真 (上步箱子移到 ＝ 真)
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 1] [當(dāng)前縱坐標(biāo)] ＝ 7)
      背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 1] [當(dāng)前縱坐標(biāo)] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo) ＋ 1, 當(dāng)前縱坐標(biāo), 4)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 1] [當(dāng)前縱坐標(biāo)] ＝ 3)
      背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 1] [當(dāng)前縱坐標(biāo)] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo) ＋ 1, 當(dāng)前縱坐標(biāo), 2)
    .默認(rèn)
    .判斷結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (上步橫坐標(biāo) ＝ 當(dāng)前橫坐標(biāo) ＋ 1 且 上步縱坐標(biāo) ＝ 當(dāng)前縱坐標(biāo))
  .如果真 (上步箱子移到 ＝ 真)
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo) － 1] [當(dāng)前縱坐標(biāo)] ＝ 7)
      背景數(shù)組 [當(dāng)前橫坐標(biāo) － 1] [當(dāng)前縱坐標(biāo)] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo) － 1, 當(dāng)前縱坐標(biāo), 4)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo) － 1] [當(dāng)前縱坐標(biāo)] ＝ 3)
      背景數(shù)組 [當(dāng)前橫坐標(biāo) － 1] [當(dāng)前縱坐標(biāo)] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo) － 1, 當(dāng)前縱坐標(biāo), 2)
    .默認(rèn)
    .判斷結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
當(dāng)前橫坐標(biāo) ＝ 上步橫坐標(biāo)
當(dāng)前縱坐標(biāo) ＝ 上步縱坐標(biāo)
上步橫坐標(biāo) ＝ 0
上步縱坐標(biāo) ＝ 0
錯誤箱子數(shù) ＝ 0
.計次循環(huán)首 (14, 循環(huán)變量1)
  .計次循環(huán)首 (16, 循環(huán)變量2)
    .如果真 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 3)
      錯誤箱子數(shù) ＝ 錯誤箱子數(shù) ＋ 1
    .如果真結(jié)束
  .計次循環(huán)尾 ()
.計次循環(huán)尾 ()
.子程序 _撤消_被選擇1, , , 多次撤消
.局部變量 循環(huán)變量1, 整數(shù)型
.局部變量 循環(huán)變量2, 整數(shù)型
.局部變量 記次變量, 整數(shù)型, , , 數(shù)組成員數(shù)
.如果真 (錄像播放中 ＝ 真)
  返回 ()
.如果真結(jié)束
.如果真 (聲音效果 ＝ 真)
  播放音樂 (撤消音樂, )
.如果真結(jié)束
記次變量 ＝ 取數(shù)組成員數(shù) (撤消數(shù)組)
.如果真 (記次變量 ＝ 0)
  返回 ()
.如果真結(jié)束
.如果真 (記次變量 ＝ 1)
  撤消.禁止 ＝ 真
  工具條1.加入狀態(tài) (0, #禁止)
.如果真結(jié)束
上步橫坐標(biāo) ＝ 撤消數(shù)組 [記次變量].x
上步縱坐標(biāo) ＝ 撤消數(shù)組 [記次變量].y
上步箱子移到 ＝ 撤消數(shù)組 [記次變量].ifmove
.判斷開始 (背景數(shù)組 [上步橫坐標(biāo)] [上步縱坐標(biāo)] ＝ 2)
  背景數(shù)組 [上步橫坐標(biāo)] [上步縱坐標(biāo)] ＝ 57
  畫圖片 (上步橫坐標(biāo), 上步縱坐標(biāo), 57)
.判斷 (背景數(shù)組 [上步橫坐標(biāo)] [上步縱坐標(biāo)] ＝ 4)
  背景數(shù)組 [上步橫坐標(biāo)] [上步縱坐標(biāo)] ＝ 67
  畫圖片 (上步橫坐標(biāo), 上步縱坐標(biāo), 67)
.默認(rèn)
  刪除成員 (撤消數(shù)組, 記次變量, 1)
  .如果真 (正在錄像中 ＝ 真)
    刪除成員 (錄像數(shù)組, 取數(shù)組成員數(shù) (錄像數(shù)組), 1)
  .如果真結(jié)束
  返回 ()
.判斷結(jié)束
小人步數(shù) ＝ 小人步數(shù) － 1
標(biāo)簽1.標(biāo)題 ＝ “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù))
狀態(tài)條1.置文本 (1, “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù)))
.如果 (上步箱子移到 ＝ 真)
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 51 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 58)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 3
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 3)
  .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 61 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 68)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 7
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 7)
  .默認(rèn)
  .判斷結(jié)束
.否則
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 51 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 58)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 2
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 2)
  .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 61 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 68)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 4
  .默認(rèn)
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 4)
  .判斷結(jié)束
.如果結(jié)束
.如果真 (上步橫坐標(biāo) ＝ 當(dāng)前橫坐標(biāo) 且 上步縱坐標(biāo) ＝ 當(dāng)前縱坐標(biāo) － 1)
  .如果真 (上步箱子移到 ＝ 真)
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) ＋ 1] ＝ 7)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) ＋ 1] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo) ＋ 1, 4)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) ＋ 1] ＝ 3)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) ＋ 1] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo) ＋ 1, 2)
    .默認(rèn)
    .判斷結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (上步橫坐標(biāo) ＝ 當(dāng)前橫坐標(biāo) 且 上步縱坐標(biāo) ＝ 當(dāng)前縱坐標(biāo) ＋ 1)
  .如果真 (上步箱子移到 ＝ 真)
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) － 1] ＝ 7)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) － 1] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo) － 1, 4)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) － 1] ＝ 3)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) － 1] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo) － 1, 2)
    .默認(rèn)
    .判斷結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (上步橫坐標(biāo) ＝ 當(dāng)前橫坐標(biāo) － 1 且 上步縱坐標(biāo) ＝ 當(dāng)前縱坐標(biāo))
  .如果真 (上步箱子移到 ＝ 真)
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 1] [當(dāng)前縱坐標(biāo)] ＝ 7)
      背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 1] [當(dāng)前縱坐標(biāo)] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo) ＋ 1, 當(dāng)前縱坐標(biāo), 4)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 1] [當(dāng)前縱坐標(biāo)] ＝ 3)
      背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 1] [當(dāng)前縱坐標(biāo)] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo) ＋ 1, 當(dāng)前縱坐標(biāo), 2)
    .默認(rèn)
    .判斷結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (上步橫坐標(biāo) ＝ 當(dāng)前橫坐標(biāo) ＋ 1 且 上步縱坐標(biāo) ＝ 當(dāng)前縱坐標(biāo))
  .如果真 (上步箱子移到 ＝ 真)
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo) － 1] [當(dāng)前縱坐標(biāo)] ＝ 7)
      背景數(shù)組 [當(dāng)前橫坐標(biāo) － 1] [當(dāng)前縱坐標(biāo)] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo) － 1, 當(dāng)前縱坐標(biāo), 4)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo) － 1] [當(dāng)前縱坐標(biāo)] ＝ 3)
      背景數(shù)組 [當(dāng)前橫坐標(biāo) － 1] [當(dāng)前縱坐標(biāo)] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo) － 1, 當(dāng)前縱坐標(biāo), 2)
    .默認(rèn)
    .判斷結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
當(dāng)前橫坐標(biāo) ＝ 上步橫坐標(biāo)
當(dāng)前縱坐標(biāo) ＝ 上步縱坐標(biāo)
上步橫坐標(biāo) ＝ 0
上步縱坐標(biāo) ＝ 0
錯誤箱子數(shù) ＝ 0
刪除成員 (撤消數(shù)組, 記次變量, 1)
.如果真 (正在錄像中 ＝ 真)
  刪除成員 (錄像數(shù)組, 取數(shù)組成員數(shù) (錄像數(shù)組), 1)
.如果真結(jié)束
.計次循環(huán)首 (14, 循環(huán)變量1)
  .計次循環(huán)首 (16, 循環(huán)變量2)
    .如果真 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 3)
      錯誤箱子數(shù) ＝ 錯誤箱子數(shù) ＋ 1
    .如果真結(jié)束
  .計次循環(huán)尾 ()
.計次循環(huán)尾 ()
.子程序 _重來_被選擇
.如果真 (聲音效果 ＝ 真)
  播放音樂 (重來音樂, )
.如果真結(jié)束
小人步數(shù) ＝ 0
標(biāo)簽1.標(biāo)題 ＝ “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù))
狀態(tài)條1.置文本 (1, “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù)))
上步橫坐標(biāo) ＝ 0
上步縱坐標(biāo) ＝ 0
當(dāng)前橫坐標(biāo) ＝ 0
當(dāng)前縱坐標(biāo) ＝ 0
讀取文件 ()
第一次畫 ＝ 真
畫背景 (假)
.子程序 __啟動窗口_鼠標(biāo)左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果真 (聲音效果 ＝ 真)
  播放音樂 (點擊音樂, )
.如果真結(jié)束
' 重來.禁止 ＝ 假
' 撤消.禁止 ＝ 真
' 工具條1.加入狀態(tài) (0, #禁止)
.如果真 (上步橫坐標(biāo) ≠ 0)
  ' 撤消.禁止 ＝ 假
  ' 工具條1.加入狀態(tài) (0,0)
.如果真結(jié)束
.子程序 _幫助文件_被選擇
運行文件 (0, “open”, 當(dāng)前目錄 ＋ “\box.chm”, “”, “”, 9)
.子程序 _聲音_被選擇
聲音效果 ＝ 取反 (聲音效果)
聲音.選中 ＝ 聲音效果
.如果 (聲音.選中 ＝ 真)
  工具條1.加入狀態(tài) (2, #選中)
.否則
  工具條1.去除狀態(tài) (2, #選中)
.如果結(jié)束
.子程序 _退出_被選擇
卸載圖片號 ()
.如果真 (小人方案名 ＝ “”)
  小人方案名 ＝ #默認(rèn)方案
.如果真結(jié)束
.如果真 (音樂方案名 ＝ “”)
  音樂方案名 ＝ #默認(rèn)方案
.如果真結(jié)束
.如果真 (場景方案名 ＝ “”)
  場景方案名 ＝ #默認(rèn)方案
.如果真結(jié)束
寫配置文件 (“score”, “l(fā)astscore”, 到文本 (當(dāng)前關(guān)數(shù)), 當(dāng)前目錄 ＋ “\box.ini”)
寫配置文件 (“config”, “ren”, 小人方案名, 當(dāng)前目錄 ＋ “\box.ini”)
寫配置文件 (“config”, “sound”, 音樂方案名, 當(dāng)前目錄 ＋ “\box.ini”)
寫配置文件 (“config”, “gui”, 場景方案名, 當(dāng)前目錄 ＋ “\box.ini”)
.如果 (聲音效果 ＝ 真)
  寫配置文件 (“sound”, “sound”, “1”, 當(dāng)前目錄 ＋ “\box.ini”)
.否則
  寫配置文件 (“sound”, “sound”, “0”, 當(dāng)前目錄 ＋ “\box.ini”)
.如果結(jié)束
關(guān)閉 ()
結(jié)束 ()
.子程序 _新的想法_被選擇
載入 (設(shè)計窗口, , 真)
.如果真 (保存標(biāo)志 ＝ 2 且 當(dāng)前關(guān)數(shù) ＝ 0)
  當(dāng)前關(guān)數(shù) ＝ 當(dāng)前關(guān)數(shù) ＋ 1
  上步橫坐標(biāo) ＝ 0
  上步縱坐標(biāo) ＝ 0
  當(dāng)前橫坐標(biāo) ＝ 0
  當(dāng)前縱坐標(biāo) ＝ 0
  讀取文件 ()
  第一次畫 ＝ 真
  畫背景 (假)
  _啟動窗口.標(biāo)題 ＝ #游戲版本號 ＋ “ 你現(xiàn)在推的是” ＋ 到文本 (當(dāng)前關(guān)數(shù)) ＋ “關(guān)”
.如果真結(jié)束
.子程序 _編輯方案_被選擇
載入 (方案設(shè)計窗口, , 真)
.子程序 _選擇方案_被選擇
載入 (選擇方案窗口, , 真)
.如果真 (方案被改變 ＝ 真)
  卸載圖片號 ()
  載入圖片號 (#小人方案, 小人方案名)
  載入圖片號 (#場景方案, 場景方案名)
  載入音樂 ()
  畫背景 (假)
.如果真結(jié)束
.子程序 __啟動窗口_將被銷毀
時鐘1.時鐘周期 ＝ 0
_退出_被選擇 ()
.子程序 _關(guān)于_被選擇
載入 (關(guān)于窗口, , 真)
.子程序 _選關(guān)_被選擇
選擇關(guān)卡 ＝ 當(dāng)前關(guān)數(shù)
載入 (選關(guān)窗口, , 真)
.如果真 (選擇關(guān)卡 ＝ 當(dāng)前關(guān)數(shù))
  返回 ()
.如果真結(jié)束
當(dāng)前關(guān)數(shù) ＝ 選擇關(guān)卡
小人步數(shù) ＝ 0
標(biāo)簽1.標(biāo)題 ＝ “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù))
狀態(tài)條1.置文本 (1, “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù)))
上步橫坐標(biāo) ＝ 0
上步縱坐標(biāo) ＝ 0
當(dāng)前橫坐標(biāo) ＝ 0
當(dāng)前縱坐標(biāo) ＝ 0
讀取文件 ()
第一次畫 ＝ 真
畫背景 (假)
.子程序 __啟動窗口_按下某鍵, 邏輯型
.參數(shù) 鍵代碼, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.局部變量 步數(shù)配置變量, 整數(shù)型, , , bestmove
.局部變量 上下光標(biāo)鍵, 整數(shù)型, , , xflag
.局部變量 左右光標(biāo)鍵, 整數(shù)型
.局部變量 位置, 撤消類型
.判斷開始 (鍵代碼 ＝ #左光標(biāo)鍵)
  上下光標(biāo)鍵 ＝ 0
  左右光標(biāo)鍵 ＝ -1
.判斷 (鍵代碼 ＝ #上光標(biāo)鍵)
  上下光標(biāo)鍵 ＝ -1
  左右光標(biāo)鍵 ＝ 0
.判斷 (鍵代碼 ＝ #右光標(biāo)鍵)
  上下光標(biāo)鍵 ＝ 0
  左右光標(biāo)鍵 ＝ 1
.判斷 (鍵代碼 ＝ #下光標(biāo)鍵)
  上下光標(biāo)鍵 ＝ 1
  左右光標(biāo)鍵 ＝ 0
.默認(rèn)
  .如果真 (聲音效果 ＝ 真)
    播放音樂 (點擊音樂, )
  .如果真結(jié)束
  返回 (真)
.判斷結(jié)束
.如果真 (返回游戲.禁止 ＝ 假)
  返回 (真)
.如果真結(jié)束
上步箱子移到 ＝ 假
.判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵] ＝ 2)
  .如果真 (聲音效果 ＝ 真)
    .如果真 (移動音樂開關(guān) ＝ 0)
      播放音樂 (移動音樂, 真)
    .如果真結(jié)束
  .如果真結(jié)束
  背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵] ＝ 54 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵
  畫圖片 (當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵, 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵, 54 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵)
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 51 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 58)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 2
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 2)
  .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 61 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 68)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 4
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 4)
  .默認(rèn)
  .判斷結(jié)束
  上步箱子移到 ＝ 假
.判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵] ＝ 4)
  .如果真 (聲音效果 ＝ 真)
    .如果真 (移動音樂開關(guān) ＝ 0)
      播放音樂 (移動音樂, 真)
    .如果真結(jié)束
  .如果真結(jié)束
  背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵] ＝ 64 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵
  畫圖片 (當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵, 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵, 64 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵)
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 51 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 58)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 2
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 2)
  .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 61 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 68)
    背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 4
    畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 4)
  .默認(rèn)
  .判斷結(jié)束
  上步箱子移到 ＝ 假
.判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵] ＝ 3)
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵] ＝ 2)
    .如果真 (聲音效果 ＝ 真)
      播放音樂 (推箱音樂, )
    .如果真結(jié)束
    背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵] ＝ 3
    畫圖片 (當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵, 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵, 3)
    背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵] ＝ 54 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵
    畫圖片 (當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵, 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵, 54 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵)
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 51 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 58)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 2)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 61 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 68)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 4)
    .默認(rèn)
    .判斷結(jié)束
    上步箱子移到 ＝ 真
  .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵] ＝ 4)
    .如果真 (聲音效果 ＝ 真)
      播放音樂 (推箱音樂, )
    .如果真結(jié)束
    背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵] ＝ 7
    畫圖片 (當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵, 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵, 7)
    背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵] ＝ 54 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵
    畫圖片 (當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵, 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵, 54 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵)
    錯誤箱子數(shù) ＝ 錯誤箱子數(shù) － 1
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 51 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 58)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 2)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 61 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 68)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 4)
    .默認(rèn)
    .判斷結(jié)束
    上步箱子移到 ＝ 真
  .默認(rèn)
    .如果真 (聲音效果 ＝ 真)
      播放音樂 (禁止音樂, )
    .如果真結(jié)束
    上下光標(biāo)鍵 ＝ 0
    左右光標(biāo)鍵 ＝ 0
  .判斷結(jié)束
.判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵] ＝ 7)
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵] ＝ 2)
    .如果真 (聲音效果 ＝ 真)
      播放音樂 (推箱音樂, )
    .如果真結(jié)束
    背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵] ＝ 3
    畫圖片 (當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵, 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵, 3)
    背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵] ＝ 64 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵
    畫圖片 (當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵, 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵, 64 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵)
    錯誤箱子數(shù) ＝ 錯誤箱子數(shù) ＋ 1
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 51 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 58)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 2)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 61 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 68)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 4)
    .默認(rèn)
    .判斷結(jié)束
    上步箱子移到 ＝ 真
  .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵] ＝ 4)
    .如果真 (聲音效果 ＝ 真)
      播放音樂 (推箱音樂, )
    .如果真結(jié)束
    背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵] ＝ 7
    畫圖片 (當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵 ＋ 上下光標(biāo)鍵, 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵 ＋ 左右光標(biāo)鍵, 7)
    背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵] [當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵] ＝ 64 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵
    畫圖片 (當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵, 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵, 64 ＋ 3 × 上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵)
    .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 51 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 58)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 2
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 2)
    .判斷 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≥ 61 且 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ≤ 68)
      背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo)] ＝ 4
      畫圖片 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 4)
    .默認(rèn)
    .判斷結(jié)束
    上步箱子移到 ＝ 真
  .默認(rèn)
    .如果真 (聲音效果 ＝ 真)
      播放音樂 (禁止音樂, )
    .如果真結(jié)束
    上下光標(biāo)鍵 ＝ 0
    左右光標(biāo)鍵 ＝ 0
  .判斷結(jié)束
.默認(rèn)
  .如果真 (聲音效果 ＝ 真)
    播放音樂 (禁止音樂, )
  .如果真結(jié)束
  上下光標(biāo)鍵 ＝ 0
  左右光標(biāo)鍵 ＝ 0
.判斷結(jié)束
上步橫坐標(biāo) ＝ 當(dāng)前橫坐標(biāo)
上步縱坐標(biāo) ＝ 當(dāng)前縱坐標(biāo)
當(dāng)前橫坐標(biāo) ＝ 當(dāng)前橫坐標(biāo) ＋ 上下光標(biāo)鍵
當(dāng)前縱坐標(biāo) ＝ 當(dāng)前縱坐標(biāo) ＋ 左右光標(biāo)鍵
位置.x ＝ 上步橫坐標(biāo)
位置.y ＝ 上步縱坐標(biāo)
位置.ifmove ＝ 上步箱子移到
.如果真 (返回游戲.禁止 ＝ 真)
  .如果真 (錄像播放中 ＝ 假)
    加入成員 (撤消數(shù)組, 位置)
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (正在錄像中 ＝ 真)
  加入成員 (錄像數(shù)組, 鍵代碼)
.如果真結(jié)束
標(biāo)簽2.標(biāo)題 ＝ “X:” ＋ 到文本 (當(dāng)前橫坐標(biāo)) ＋ “ ” ＋ “Y:” ＋ 到文本 (當(dāng)前縱坐標(biāo))
狀態(tài)條1.置文本 (0, “X:” ＋ 到文本 (當(dāng)前橫坐標(biāo)) ＋ “ ” ＋ “Y:” ＋ 到文本 (當(dāng)前縱坐標(biāo)))
' 輸出調(diào)試文本 (到文本 (lastx) ＋ 字符 (9) ＋ 到文本 (lasty))
' 輸出調(diào)試文本 (到文本 (localx) ＋ 字符 (9) ＋ 到文本 (localy) ＋ #換行符)
時鐘1.時鐘周期 ＝ 0
小人步數(shù) ＝ 小人步數(shù) ＋ 取絕對值 (上下光標(biāo)鍵 ＋ 左右光標(biāo)鍵)
標(biāo)簽1.標(biāo)題 ＝ “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù))
狀態(tài)條1.置文本 (1, “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù)))
撤消.禁止 ＝ 假
工具條1.去除狀態(tài) (0, #禁止)
移動音樂開關(guān) ＝ 1
.如果 (錯誤箱子數(shù) ＝ 0 且 正在錄像中 ＝ 假 且 錄像播放中 ＝ 假)
  .如果真 (聲音效果 ＝ 真)
    播放音樂 (結(jié)束音樂, )
  .如果真結(jié)束
  步數(shù)配置變量 ＝ 讀配置整數(shù) (“box”, “box” ＋ 到文本 (當(dāng)前關(guān)數(shù)), 0, 當(dāng)前目錄 ＋ “\box.ini”)
  .如果 (小人步數(shù) ＜ 步數(shù)配置變量 或 步數(shù)配置變量 ＝ 0)
    寫配置文件 (“box”, “box” ＋ 到文本 (當(dāng)前關(guān)數(shù)), 到文本 (小人步數(shù)), 當(dāng)前目錄 ＋ “\box.ini”)
    信息框 (“你做的真不錯!我佩服你!繼續(xù)努力吧!”, 0, “恭喜”)
  .否則
    .如果 (小人步數(shù) ＝ 步數(shù)配置變量)
      信息框 (“你這次的成績和上次一樣，繼續(xù)努力吧!”, 0, “沒進步”)
    .否則
      信息框 (“你還要繼續(xù)鍛煉!一定要打破以前的記錄!”, 0, “你的成績......”)
    .如果結(jié)束
  .如果結(jié)束
  小人步數(shù) ＝ 0
  標(biāo)簽1.標(biāo)題 ＝ “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù))
  狀態(tài)條1.置文本 (1, “你的移動步數(shù)為:” ＋ 到文本 (小人步數(shù)))
  當(dāng)前關(guān)數(shù) ＝ 當(dāng)前關(guān)數(shù) ＋ 1
  上步橫坐標(biāo) ＝ 0
  上步縱坐標(biāo) ＝ 0
  當(dāng)前橫坐標(biāo) ＝ 0
  當(dāng)前縱坐標(biāo) ＝ 0
  讀取文件 ()
  第一次畫 ＝ 真
  畫背景 (假)
.否則
  時鐘1.時鐘周期 ＝ 500
.如果結(jié)束
.子程序 獲取移動路徑, 邏輯型, , 已 OK!  2001.11.30.00:10 "程序配制"還未更新
.參數(shù) 當(dāng)前x, 整數(shù)型
.參數(shù) 當(dāng)前y, 整數(shù)型
.參數(shù) 目標(biāo)x, 整數(shù)型
.參數(shù) 目標(biāo)y, 整數(shù)型
.局部變量 地圖數(shù)據(jù), 數(shù)據(jù)類型2, , "14,16", 探索路徑時用的臨時地圖
.局部變量 節(jié)點1, 整數(shù)型, , "0", 保存每次找到的節(jié)點
.局部變量 節(jié)點2, 整數(shù)型, , "0", 保存每次找到的節(jié)點
.局部變量 數(shù)量, 整數(shù)型
.局部變量 完成, 邏輯型, , , 是否已經(jīng)完成探索
.局部變量 步數(shù), 整數(shù)型, , , 當(dāng)前步數(shù)
.局部變量 變量1, 整數(shù)型
.局部變量 變量2, 整數(shù)型
.局部變量 循環(huán)變量1, 整數(shù)型
.局部變量 循環(huán)變量2, 整數(shù)型
.局部變量 最大次數(shù), 整數(shù)型, , , 要搜索的最大次數(shù)
.如果真 (取數(shù)組成員數(shù) (行走路徑) ＞ 0)
  返回 (假)
.如果真結(jié)束
.如果真 (不自動尋路 ＝ 真)
  返回 (假)
.如果真結(jié)束
.如果真 (當(dāng)前x ＝ 目標(biāo)x 且 當(dāng)前y ＝ 目標(biāo)y)
  返回 (假)
.如果真結(jié)束
.如果真 (目標(biāo)x ＞ 14 或 目標(biāo)y ＞ 16)
  返回 (假)
.如果真結(jié)束
完成 ＝ 假
最大次數(shù) ＝ 0
.計次循環(huán)首 (14, 循環(huán)變量1)
  .計次循環(huán)首 (16, 循環(huán)變量2)
    .如果真 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 0 或 背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 1)
      最大次數(shù) ＝ 最大次數(shù) ＋ 1
    .如果真結(jié)束
  .計次循環(huán)尾 ()
.計次循環(huán)尾 ()
最大次數(shù) ＝ 14 × 16 － 最大次數(shù)
清除數(shù)組 (節(jié)點1)
清除數(shù)組 (節(jié)點2)
加入成員 (節(jié)點1, 當(dāng)前x)
加入成員 (節(jié)點2, 當(dāng)前y)
地圖數(shù)據(jù) [當(dāng)前x] [當(dāng)前y].步數(shù) ＝ 99999
地圖數(shù)據(jù) [當(dāng)前x] [當(dāng)前y].位置.x ＝ 節(jié)點1 [1]
地圖數(shù)據(jù) [當(dāng)前x] [當(dāng)前y].位置.y ＝ 節(jié)點2 [1]
' map [p1 [rq1] ＋ 1] [p2 [rq1]].方向 ＝ #下光標(biāo)鍵
地圖數(shù)據(jù) [當(dāng)前x] [當(dāng)前y].上一步.x ＝ 節(jié)點1 [1]
地圖數(shù)據(jù) [當(dāng)前x] [當(dāng)前y].上一步.y ＝ 節(jié)點2 [1]
步數(shù) ＝ 1
.計次循環(huán)首 (最大次數(shù), 變量1)
  數(shù)量 ＝ 取數(shù)組成員數(shù) (節(jié)點1)
  .計次循環(huán)首 (數(shù)量, 變量2)
    .如果真 (背景數(shù)組 [節(jié)點1 [變量2] ＋ 1] [節(jié)點2 [變量2]] ＝ 2 或 背景數(shù)組 [節(jié)點1 [變量2] ＋ 1] [節(jié)點2 [變量2]] ＝ 4)
      .如果真 (地圖數(shù)據(jù) [節(jié)點1 [變量2] ＋ 1] [節(jié)點2 [變量2]].步數(shù) ＝ 0)
        加入成員 (節(jié)點1, 節(jié)點1 [變量2] ＋ 1)
        加入成員 (節(jié)點2, 節(jié)點2 [變量2])
        地圖數(shù)據(jù) [節(jié)點1 [變量2] ＋ 1] [節(jié)點2 [變量2]].步數(shù) ＝ 步數(shù)
        地圖數(shù)據(jù) [節(jié)點1 [變量2] ＋ 1] [節(jié)點2 [變量2]].位置.x ＝ 節(jié)點1 [變量2]
        地圖數(shù)據(jù) [節(jié)點1 [變量2] ＋ 1] [節(jié)點2 [變量2]].位置.y ＝ 節(jié)點2 [變量2]
        地圖數(shù)據(jù) [節(jié)點1 [變量2] ＋ 1] [節(jié)點2 [變量2]].方向 ＝ #下光標(biāo)鍵
        地圖數(shù)據(jù) [節(jié)點1 [變量2] ＋ 1] [節(jié)點2 [變量2]].上一步.x ＝ 節(jié)點1 [變量2]
        地圖數(shù)據(jù) [節(jié)點1 [變量2] ＋ 1] [節(jié)點2 [變量2]].上一步.y ＝ 節(jié)點2 [變量2]
        ' 畫板1.定位寫出 ((p2 [rq1] － 1) × 30, (p1 [rq1] ＋ 1 － 1) × 30, step)
      .如果真結(jié)束
      .如果真 (目標(biāo)x ＝ 節(jié)點1 [變量2] ＋ 1 且 目標(biāo)y ＝ 節(jié)點2 [變量2])
        完成 ＝ 真
        跳出循環(huán) ()
      .如果真結(jié)束
    .如果真結(jié)束
    .如果真 (背景數(shù)組 [節(jié)點1 [變量2] － 1] [節(jié)點2 [變量2]] ＝ 2 或 背景數(shù)組 [節(jié)點1 [變量2] － 1] [節(jié)點2 [變量2]] ＝ 4)
      .如果真 (地圖數(shù)據(jù) [節(jié)點1 [變量2] － 1] [節(jié)點2 [變量2]].步數(shù) ＝ 0)
        加入成員 (節(jié)點1, 節(jié)點1 [變量2] － 1)
        加入成員 (節(jié)點2, 節(jié)點2 [變量2])
        地圖數(shù)據(jù) [節(jié)點1 [變量2] － 1] [節(jié)點2 [變量2]].步數(shù) ＝ 步數(shù)
        地圖數(shù)據(jù) [節(jié)點1 [變量2] － 1] [節(jié)點2 [變量2]].位置.x ＝ 節(jié)點1 [變量2] － 1
        地圖數(shù)據(jù) [節(jié)點1 [變量2] － 1] [節(jié)點2 [變量2]].位置.y ＝ 節(jié)點2 [變量2]
        地圖數(shù)據(jù) [節(jié)點1 [變量2] － 1] [節(jié)點2 [變量2]].方向 ＝ #上光標(biāo)鍵
        地圖數(shù)據(jù) [節(jié)點1 [變量2] － 1] [節(jié)點2 [變量2]].上一步.x ＝ 節(jié)點1 [變量2]
        地圖數(shù)據(jù) [節(jié)點1 [變量2] － 1] [節(jié)點2 [變量2]].上一步.y ＝ 節(jié)點2 [變量2]
        ' 畫板1.定位寫出 ((p2 [rq1] － 1) × 30, (p1 [rq1] － 1 － 1) × 30, step)
      .如果真結(jié)束
      .如果真 (目標(biāo)x ＝ 節(jié)點1 [變量2] － 1 且 目標(biāo)y ＝ 節(jié)點2 [變量2])
        完成 ＝ 真
        跳出循環(huán) ()
      .如果真結(jié)束
    .如果真結(jié)束
    .如果真 (背景數(shù)組 [節(jié)點1 [變量2]] [節(jié)點2 [變量2] ＋ 1] ＝ 2 或 背景數(shù)組 [節(jié)點1 [變量2]] [節(jié)點2 [變量2] ＋ 1] ＝ 4)
      .如果真 (地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] ＋ 1].步數(shù) ＝ 0)
        加入成員 (節(jié)點1, 節(jié)點1 [變量2])
        加入成員 (節(jié)點2, 節(jié)點2 [變量2] ＋ 1)
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] ＋ 1].步數(shù) ＝ 步數(shù)
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] ＋ 1].位置.x ＝ 節(jié)點1 [變量2]
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] ＋ 1].位置.y ＝ 節(jié)點2 [變量2] ＋ 1
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] ＋ 1].方向 ＝ #右光標(biāo)鍵
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] ＋ 1].上一步.x ＝ 節(jié)點1 [變量2]
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] ＋ 1].上一步.y ＝ 節(jié)點2 [變量2]
        ' 畫板1.定位寫出 ((p2 [rq1] － 1 ＋ 1) × 30, (p1 [rq1] － 1) × 30, step)
      .如果真結(jié)束
      .如果真 (目標(biāo)x ＝ 節(jié)點1 [變量2] 且 目標(biāo)y ＝ 節(jié)點2 [變量2] ＋ 1)
        完成 ＝ 真
        跳出循環(huán) ()
      .如果真結(jié)束
    .如果真結(jié)束
    .如果真 (背景數(shù)組 [節(jié)點1 [變量2]] [節(jié)點2 [變量2] － 1] ＝ 2 或 背景數(shù)組 [節(jié)點1 [變量2]] [節(jié)點2 [變量2] － 1] ＝ 4)
      .如果真 (地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] － 1].步數(shù) ＝ 0)
        加入成員 (節(jié)點1, 節(jié)點1 [變量2])
        加入成員 (節(jié)點2, 節(jié)點2 [變量2] － 1)
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] － 1].步數(shù) ＝ 步數(shù)
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] － 1].位置.x ＝ 節(jié)點1 [變量2]
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] － 1].位置.y ＝ 節(jié)點2 [變量2] － 1
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] － 1].方向 ＝ #左光標(biāo)鍵
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] － 1].上一步.x ＝ 節(jié)點1 [變量2]
        地圖數(shù)據(jù) [節(jié)點1 [變量2]] [節(jié)點2 [變量2] － 1].上一步.y ＝ 節(jié)點2 [變量2]
        ' 畫板1.定位寫出 ((p2 [rq1] － 1 － 1) × 30, (p1 [rq1] － 1) × 30, step)
      .如果真結(jié)束
      .如果真 (目標(biāo)x ＝ 節(jié)點1 [變量2] 且 目標(biāo)y ＝ 節(jié)點2 [變量2] － 1)
        完成 ＝ 真
        跳出循環(huán) ()
      .如果真結(jié)束
    .如果真結(jié)束
  .計次循環(huán)尾 ()
  刪除成員 (節(jié)點1, 1, 數(shù)量) ' 刪除舊節(jié)點
  刪除成員 (節(jié)點2, 1, 數(shù)量)
  .如果真 (取數(shù)組成員數(shù) (節(jié)點1) ＝ 0 或 完成 ＝ 真)
    跳出循環(huán) ()
  .如果真結(jié)束
  步數(shù) ＝ 步數(shù) ＋ 1
.計次循環(huán)尾 ()
.如果 (完成 ＝ 真)
  ' 倒推出小人的行走路徑
  重定義數(shù)組 (行走路徑, 假, 步數(shù))
  行走路徑 [步數(shù)] ＝ 地圖數(shù)據(jù) [目標(biāo)x] [目標(biāo)y].方向
  變量2 ＝ 目標(biāo)x
  目標(biāo)x ＝ 地圖數(shù)據(jù) [變量2] [目標(biāo)y].上一步.x
  目標(biāo)y ＝ 地圖數(shù)據(jù) [變量2] [目標(biāo)y].上一步.y
  .變量循環(huán)首 (步數(shù) － 1, 1, -1, 變量1)
    .如果真 (地圖數(shù)據(jù) [目標(biāo)x] [目標(biāo)y].方向 ＝ 99999)
      跳出循環(huán) ()
    .如果真結(jié)束
    行走路徑 [變量1] ＝ 地圖數(shù)據(jù) [目標(biāo)x] [目標(biāo)y].方向
    變量2 ＝ 目標(biāo)x
    目標(biāo)x ＝ 地圖數(shù)據(jù) [變量2] [目標(biāo)y].上一步.x
    目標(biāo)y ＝ 地圖數(shù)據(jù) [變量2] [目標(biāo)y].上一步.y
  .變量循環(huán)尾 ()
  返回 (真)
.否則
  返回 (假)
.如果結(jié)束
.子程序 _畫板1_鼠標(biāo)左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.局部變量 橫坐標(biāo), 整數(shù)型
.局部變量 縱坐標(biāo), 整數(shù)型
移動音樂開關(guān) ＝ 0
.如果真 (不自動尋路 ＝ 假)
  橫坐標(biāo) ＝ 取整 (縱向位置 ÷ 30 ＋ 1)
  縱坐標(biāo) ＝ 取整 (橫向位置 ÷ 30 ＋ 1)
  ' 輸出調(diào)試文本 (到文本 (box [x] [y]))
  .判斷開始 (背景數(shù)組 [橫坐標(biāo)] [縱坐標(biāo)] ＝ 2 或 背景數(shù)組 [橫坐標(biāo)] [縱坐標(biāo)] ＝ 4)
    ' 小人自動移動
    .如果真 (獲取移動路徑 (當(dāng)前橫坐標(biāo), 當(dāng)前縱坐標(biāo), 橫坐標(biāo), 縱坐標(biāo)) ＝ 真)
      .計次循環(huán)首 (取數(shù)組成員數(shù) (行走路徑), 行走計數(shù))
        不自動尋路 ＝ 真
        __啟動窗口_按下某鍵 (行走路徑 [行走計數(shù)], 0)
        移動音樂開關(guān) ＝ 1
        不自動尋路 ＝ 真
        延時 (50)
      .計次循環(huán)尾 ()
      停止播放 ()
      移動音樂開關(guān) ＝ 0
      不自動尋路 ＝ 假
      清除數(shù)組 (行走路徑)
    .如果真結(jié)束
    不自動尋路 ＝ 假
  .判斷 (背景數(shù)組 [橫坐標(biāo)] [縱坐標(biāo)] ＝ 3 或 背景數(shù)組 [橫坐標(biāo)] [縱坐標(biāo)] ＝ 7)
    ' 小人自動推箱子
    .判斷開始 (當(dāng)前橫坐標(biāo) ＋ 1 ＝ 橫坐標(biāo) 且 當(dāng)前縱坐標(biāo) ＝ 縱坐標(biāo))
      __啟動窗口_按下某鍵 (#下光標(biāo)鍵, 0)
    .判斷 (當(dāng)前橫坐標(biāo) － 1 ＝ 橫坐標(biāo) 且 當(dāng)前縱坐標(biāo) ＝ 縱坐標(biāo))
      __啟動窗口_按下某鍵 (#上光標(biāo)鍵, 0)
    .判斷 (當(dāng)前橫坐標(biāo) ＝ 橫坐標(biāo) 且 當(dāng)前縱坐標(biāo) ＋ 1 ＝ 縱坐標(biāo))
      __啟動窗口_按下某鍵 (#右光標(biāo)鍵, 0)
    .判斷 (當(dāng)前橫坐標(biāo) ＝ 橫坐標(biāo) 且 當(dāng)前縱坐標(biāo) － 1 ＝ 縱坐標(biāo))
      __啟動窗口_按下某鍵 (#左光標(biāo)鍵, 0)
    .默認(rèn)
    .判斷結(jié)束
  .默認(rèn)
  .判斷結(jié)束
.如果真結(jié)束
.子程序 __啟動窗口_放開某鍵, 邏輯型, , N
.參數(shù) 鍵代碼, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果 (錯誤箱子數(shù) ＝ 0)
.否則
  .判斷開始 (鍵代碼 ＝ #左光標(biāo)鍵)
    時鐘2.時鐘周期 ＝ 200
    移動音樂開關(guān) ＝ 0
  .判斷 (鍵代碼 ＝ #上光標(biāo)鍵)
    時鐘2.時鐘周期 ＝ 200
    移動音樂開關(guān) ＝ 0
  .判斷 (鍵代碼 ＝ #右光標(biāo)鍵)
    時鐘2.時鐘周期 ＝ 200
    移動音樂開關(guān) ＝ 0
  .判斷 (鍵代碼 ＝ #下光標(biāo)鍵)
    時鐘2.時鐘周期 ＝ 200
    移動音樂開關(guān) ＝ 0
  .默認(rèn)
  .判斷結(jié)束
.如果結(jié)束
.子程序 _時鐘2_周期事件, , , N
時鐘2.時鐘周期 ＝ 0
停止播放 ()
.子程序 _畫板1_鼠標(biāo)右鍵被按下, 邏輯型, , N
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.局部變量 變量
.局部變量 移動步數(shù)
.局部變量 移動x1
.局部變量 移動y1
.如果真 (不自動尋路 ＝ 假)
  移動x1 ＝ 取整 (縱向位置 ÷ 30 ＋ 1)
  移動y1 ＝ 取整 (橫向位置 ÷ 30 ＋ 1)
.如果真結(jié)束
' 小人自動推箱子
.判斷開始 (當(dāng)前橫坐標(biāo) ＜ 移動x1 － 1 且 當(dāng)前縱坐標(biāo) ＝ 移動y1)
  移動步數(shù) ＝ 移動x1 － 當(dāng)前橫坐標(biāo) － 1
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 1] [移動y1] ＝ 3 或 背景數(shù)組 [當(dāng)前橫坐標(biāo) ＋ 1] [移動y1] ＝ 7)
    .變量循環(huán)首 (1, 移動步數(shù), 1, 變量)
      __啟動窗口_按下某鍵 (#下光標(biāo)鍵, 0)
    .變量循環(huán)尾 ()
  .默認(rèn)
  .判斷結(jié)束
.判斷 (當(dāng)前橫坐標(biāo) ＞ 移動x1 ＋ 1 且 當(dāng)前縱坐標(biāo) ＝ 移動y1)
  移動步數(shù) ＝ 當(dāng)前橫坐標(biāo) － 移動x1 － 1
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo) － 1] [移動y1] ＝ 3 或 背景數(shù)組 [當(dāng)前橫坐標(biāo) － 1] [移動y1] ＝ 7)
    .變量循環(huán)首 (1, 移動步數(shù), 1, 變量)
      __啟動窗口_按下某鍵 (#上光標(biāo)鍵, 0)
    .變量循環(huán)尾 ()
  .默認(rèn)
  .判斷結(jié)束
.判斷 (當(dāng)前縱坐標(biāo) ＜ 移動y1 － 1 且 當(dāng)前橫坐標(biāo) ＝ 移動x1)
  移動步數(shù) ＝ 移動y1 － 當(dāng)前縱坐標(biāo) － 1
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) ＋ 1] ＝ 3 或 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) ＋ 1] ＝ 7)
    .變量循環(huán)首 (1, 移動步數(shù), 1, 變量)
      __啟動窗口_按下某鍵 (#右光標(biāo)鍵, 0)
    .變量循環(huán)尾 ()
  .默認(rèn)
  .判斷結(jié)束
.判斷 (當(dāng)前縱坐標(biāo) ＞ 移動y1 ＋ 1 且 當(dāng)前橫坐標(biāo) ＝ 移動x1)
  移動步數(shù) ＝ 當(dāng)前縱坐標(biāo) － 移動y1 － 1
  .判斷開始 (背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) － 1] ＝ 3 或 背景數(shù)組 [當(dāng)前橫坐標(biāo)] [當(dāng)前縱坐標(biāo) － 1] ＝ 7)
    .變量循環(huán)首 (1, 移動步數(shù), 1, 變量)
      __啟動窗口_按下某鍵 (#左光標(biāo)鍵, 0)
    .變量循環(huán)尾 ()
  .默認(rèn)
  .判斷結(jié)束
.默認(rèn)
.判斷結(jié)束
.子程序 _工具條1_被單擊
.參數(shù) 按鈕索引, 整數(shù)型
.判斷開始 (按鈕索引 ＝ 0)
  _撤消_被選擇 ()
.判斷 (按鈕索引 ＝ 1)
  _重來_被選擇 ()
.判斷 (按鈕索引 ＝ 2)
  _聲音_被選擇 ()
.判斷 (按鈕索引 ＝ 3)
  _選關(guān)_被選擇 ()
.判斷 (按鈕索引 ＝ 4)
  _退出_被選擇 ()
.判斷 (按鈕索引 ＝ 6)
  _新的想法_被選擇 ()
.判斷 (按鈕索引 ＝ 7)
  _編輯方案_被選擇 ()
.判斷 (按鈕索引 ＝ 8)
  _選擇方案_被選擇 ()
.默認(rèn)
.判斷結(jié)束
.子程序 _開始錄像_被選擇
.局部變量 循環(huán)變量1, 整數(shù)型
.局部變量 循環(huán)變量2, 整數(shù)型
時鐘1.時鐘周期 ＝ 0
正在錄像中 ＝ 真
開始錄像.禁止 ＝ 真
停止錄像.禁止 ＝ 假
播放錄像.禁止 ＝ 真
停止播放.禁止 ＝ 真
保存錄像.禁止 ＝ 真
打開錄像文件.禁止 ＝ 真
返回游戲.禁止 ＝ 真
重來.禁止 ＝ 真
選關(guān).禁止 ＝ 真
設(shè)計.禁止 ＝ 真
清除數(shù)組 (錄像數(shù)組)
錄像地圖數(shù)據(jù) ＝ { } ' 保存地圖
.計次循環(huán)首 (14, 循環(huán)變量1)
  .計次循環(huán)首 (16, 循環(huán)變量2)
    錄像地圖數(shù)據(jù) ＝ 錄像地圖數(shù)據(jù) ＋ 到字節(jié)集 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2])
  .計次循環(huán)尾 ()
.計次循環(huán)尾 ()
時鐘1.時鐘周期 ＝ 500
.子程序 _停止錄像_被選擇
時鐘1.時鐘周期 ＝ 0
正在錄像中 ＝ 假
.如果真 (取數(shù)組成員數(shù) (錄像數(shù)組) ＞ 0)
  開始錄像.禁止 ＝ 假
  停止錄像.禁止 ＝ 真
.如果真結(jié)束
播放錄像.禁止 ＝ 假
停止播放.禁止 ＝ 真
保存錄像.禁止 ＝ 假
開始錄像.禁止 ＝ 假
停止錄像.禁止 ＝ 真
打開錄像文件.禁止 ＝ 假
返回游戲.禁止 ＝ 真
重來.禁止 ＝ 假
選關(guān).禁止 ＝ 假
設(shè)計.禁止 ＝ 假
時鐘1.時鐘周期 ＝ 500
.子程序 _播放錄像_被選擇
.局部變量 循環(huán)變量1, 整數(shù)型
.局部變量 循環(huán)變量2, 整數(shù)型
.局部變量 記次變量, 整數(shù)型
.局部變量 臨時字節(jié)集, 字節(jié)集
.如果真 (取數(shù)組成員數(shù) (錄像數(shù)組) ＝ 0)
  返回 ()
.如果真結(jié)束
時鐘1.時鐘周期 ＝ 0
錄像播放中 ＝ 真
播放錄像.禁止 ＝ 真
停止播放.禁止 ＝ 假
保存錄像.禁止 ＝ 真
開始錄像.禁止 ＝ 真
停止錄像.禁止 ＝ 真
打開錄像文件.禁止 ＝ 真
返回游戲.禁止 ＝ 真
撤消.禁止 ＝ 真
重來.禁止 ＝ 真
選關(guān).禁止 ＝ 真
設(shè)計.禁止 ＝ 真
.如果真 (臨時地圖數(shù)據(jù) ＝ { })
  .計次循環(huán)首 (14, 循環(huán)變量1)
    .計次循環(huán)首 (16, 循環(huán)變量2)
      臨時地圖數(shù)據(jù) ＝ 臨時地圖數(shù)據(jù) ＋ 到字節(jié)集 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2])
    .計次循環(huán)尾 ()
  .計次循環(huán)尾 ()
.如果真結(jié)束
上步橫坐標(biāo) ＝ 0
上步縱坐標(biāo) ＝ 0
當(dāng)前橫坐標(biāo) ＝ 0
當(dāng)前縱坐標(biāo) ＝ 0
錯誤箱子數(shù) ＝ 0
記次變量 ＝ 0
.計次循環(huán)首 (14, 循環(huán)變量1)
  .計次循環(huán)首 (16, 循環(huán)變量2)
    臨時字節(jié)集 ＝ 取字節(jié)集中間 (錄像地圖數(shù)據(jù), 記次變量 × 4 ＋ 1, 4)
    背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 取字節(jié)集數(shù)據(jù) (臨時字節(jié)集, #整數(shù)型)
    .判斷開始 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 57 或 背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 58)
      當(dāng)前橫坐標(biāo) ＝ 循環(huán)變量1
      當(dāng)前縱坐標(biāo) ＝ 循環(huán)變量2
    .判斷 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 3)
      錯誤箱子數(shù) ＝ 錯誤箱子數(shù) ＋ 1
    .默認(rèn)
    .判斷結(jié)束
    記次變量 ＝ 記次變量 ＋ 1
  .計次循環(huán)尾 ()
.計次循環(huán)尾 ()
畫板1.清除 (, , , )
第一次畫 ＝ 真
畫背景 (假)
_啟動窗口.標(biāo)題 ＝ #游戲版本號 ＋ “ 你現(xiàn)在推的是第” ＋ 到文本 (當(dāng)前關(guān)數(shù)) ＋ “關(guān)”
畫板1.禁止 ＝ 真
_啟動窗口.禁止 ＝ 真
.計次循環(huán)首 (取數(shù)組成員數(shù) (錄像數(shù)組), 循環(huán)變量1)
  不自動尋路 ＝ 真
  __啟動窗口_按下某鍵 (錄像數(shù)組 [循環(huán)變量1], 0)
  移動音樂開關(guān) ＝ 1
  不自動尋路 ＝ 真
  延時 (200)
.計次循環(huán)尾 ()
不自動尋路 ＝ 假
_停止播放_被選擇 ()
畫板1.禁止 ＝ 假
_啟動窗口.禁止 ＝ 假
時鐘1.時鐘周期 ＝ 500
.子程序 _停止播放_被選擇
時鐘1.時鐘周期 ＝ 0
錄像播放中 ＝ 假
.如果 (取數(shù)組成員數(shù) (撤消數(shù)組) ＞ 0)
  撤消.禁止 ＝ 假
.否則
  撤消.禁止 ＝ 真
.如果結(jié)束
播放錄像.禁止 ＝ 假
停止播放.禁止 ＝ 真
保存錄像.禁止 ＝ 假
開始錄像.禁止 ＝ 假
停止錄像.禁止 ＝ 真
打開錄像文件.禁止 ＝ 假
返回游戲.禁止 ＝ 假
重來.禁止 ＝ 假
選關(guān).禁止 ＝ 假
設(shè)計.禁止 ＝ 假
時鐘1.時鐘周期 ＝ 500
.子程序 _保存錄像_被選擇
.局部變量 臨時字節(jié)集, 字節(jié)集
.局部變量 循環(huán)變量, 整數(shù)型
.局部變量 標(biāo)志, 字節(jié)集
時鐘1.時鐘周期 ＝ 0
通用對話框1.類型 ＝ 1
通用對話框1.初始目錄 ＝ 當(dāng)前目錄
通用對話框1.標(biāo)題 ＝ “保存游戲錄像”
通用對話框1.文件必須存在 ＝ 真
通用對話框1.文件覆蓋提示 ＝ 真
.如果真 (通用對話框1.打開 () ＝ 真)
  臨時字節(jié)集 ＝ { }
  .計次循環(huán)首 (取數(shù)組成員數(shù) (錄像數(shù)組), 循環(huán)變量)
    臨時字節(jié)集 ＝ 臨時字節(jié)集 ＋ 到字節(jié)集 (錄像數(shù)組 [循環(huán)變量])
  .計次循環(huán)尾 ()
  標(biāo)志 ＝ 到字節(jié)集 (“E-box Recoder”)
  寫到文件 (通用對話框1.文件名, 標(biāo)志 ＋ 錄像地圖數(shù)據(jù) ＋ 臨時字節(jié)集)
.如果真結(jié)束
時鐘1.時鐘周期 ＝ 500
.子程序 _打開錄像文件_被選擇
.局部變量 標(biāo)志, 文本型
.局部變量 變量, 整數(shù)型
.局部變量 臨時字節(jié)集, 字節(jié)集
.局部變量 臨時判斷, 邏輯型
.局部變量 臨時字節(jié)集1, 字節(jié)集
.局部變量 臨時字節(jié)集2, 字節(jié)集
.局部變量 記次變量, 整數(shù)型
時鐘1.時鐘周期 ＝ 0
通用對話框1.類型 ＝ 0
通用對話框1.初始目錄 ＝ 當(dāng)前目錄
通用對話框1.標(biāo)題 ＝ “打開游戲錄像”
通用對話框1.文件必須存在 ＝ 真
通用對話框1.文件覆蓋提示 ＝ 真
.如果真 (通用對話框1.打開 () ＝ 真)
  臨時字節(jié)集 ＝ 讀入文件 (通用對話框1.文件名)
  臨時判斷 ＝ 假
  .如果真 (取字節(jié)集長度 (臨時字節(jié)集) ≥ 224 × 4 ＋ 14)
    標(biāo)志 ＝ 取字節(jié)集數(shù)據(jù) (取字節(jié)集左邊 (臨時字節(jié)集, 14), #文本型)
    .如果真 (標(biāo)志 ＝ “E-box Recoder”)
      臨時字節(jié)集1 ＝ 取字節(jié)集中間 (臨時字節(jié)集, 15, 224 × 4)
      .如果真 (取字節(jié)集長度 (臨時字節(jié)集1) ＝ 224 × 4)
        臨時判斷 ＝ 真
        臨時字節(jié)集2 ＝ 取字節(jié)集中間 (臨時字節(jié)集, 224 × 4 ＋ 14 ＋ 1, 取字節(jié)集長度 (臨時字節(jié)集) － 224 × 4 ＋ 14)
        記次變量 ＝ 取字節(jié)集長度 (臨時字節(jié)集2) ÷ 4
        清除數(shù)組 (錄像數(shù)組)
        .如果真 (記次變量 ＞ 0)
          .計次循環(huán)首 (記次變量, 變量)
            加入成員 (錄像數(shù)組, 取字節(jié)集數(shù)據(jù) (取字節(jié)集中間 (臨時字節(jié)集2, (變量 － 1) × 4 ＋ 1, 4), #整數(shù)型))
          .計次循環(huán)尾 ()
        .如果真結(jié)束
      .如果真結(jié)束
    .如果真結(jié)束
  .如果真結(jié)束
  .如果 (臨時判斷 ＝ 真)
    錄像地圖數(shù)據(jù) ＝ 臨時字節(jié)集1
    _停止錄像_被選擇 ()
  .否則
    信息框 (“選定的文件不是推箱子的錄像文件”, 0, “錯誤”)
  .如果結(jié)束
.如果真結(jié)束
時鐘1.時鐘周期 ＝ 500
.子程序 _返回游戲_被選擇
.局部變量 循環(huán)變量1, 整數(shù)型
.局部變量 循環(huán)變量2, 整數(shù)型
.局部變量 臨時字節(jié)集, 字節(jié)集
.局部變量 記次變量, 整數(shù)型
時鐘1.時鐘周期 ＝ 0
正在錄像中 ＝ 假
錄像播放中 ＝ 假
上步橫坐標(biāo) ＝ 0
上步縱坐標(biāo) ＝ 0
當(dāng)前橫坐標(biāo) ＝ 0
當(dāng)前縱坐標(biāo) ＝ 0
錯誤箱子數(shù) ＝ 0
記次變量 ＝ 0
.計次循環(huán)首 (14, 循環(huán)變量1)
  .計次循環(huán)首 (16, 循環(huán)變量2)
    臨時字節(jié)集 ＝ 取字節(jié)集中間 (臨時地圖數(shù)據(jù), 記次變量 × 4 ＋ 1, 4)
    背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 取字節(jié)集數(shù)據(jù) (臨時字節(jié)集, #整數(shù)型)
    .判斷開始 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ≥ 52 且 背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ≤ 59)
      當(dāng)前橫坐標(biāo) ＝ 循環(huán)變量1
      當(dāng)前縱坐標(biāo) ＝ 循環(huán)變量2
    .判斷 (背景數(shù)組 [循環(huán)變量1] [循環(huán)變量2] ＝ 3)
      錯誤箱子數(shù) ＝ 錯誤箱子數(shù) ＋ 1
    .默認(rèn)
    .判斷結(jié)束
    記次變量 ＝ 記次變量 ＋ 1
  .計次循環(huán)尾 ()
.計次循環(huán)尾 ()
臨時地圖數(shù)據(jù) ＝ { }
畫板1.清除 (, , , )
第一次畫 ＝ 真
畫背景 (假)
_啟動窗口.標(biāo)題 ＝ #游戲版本號 ＋ “ 你現(xiàn)在推的是第” ＋ 到文本 (當(dāng)前關(guān)數(shù)) ＋ “關(guān)”
返回游戲.禁止 ＝ 真
時鐘1.時鐘周期 ＝ 500