.版本 2
.DLL命令 寫配置文件, 整數(shù)型, , "WritePrivateProfileStringA", , 如果配置文件不存在則將被創(chuàng)建
  .參數(shù) 小節(jié)名, 文本型, , 就是用中括號括起來的內容
  .參數(shù) 項目名, 文本型, , 就是等號前邊的內容
  .參數(shù) 項目值, 文本型, , 就是等號后面的內容
  .參數(shù) 文件名, 文本型, , 就是你要寫入的那個文件
.DLL命令 讀配置整數(shù), 整數(shù)型, , "GetPrivateProfileIntA"
  .參數(shù) 小節(jié)名, 文本型
  .參數(shù) 項目名, 文本型
  .參數(shù) 默認值, 整數(shù)型, , 如果找不到對應的項目則返回該值
  .參數(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ù) 默認值, 文本型, , 可以為“”
  .參數(shù) 緩沖容器, 文本型, , 一般將容器的大小設定為255
  .參數(shù) 緩沖容積, 整數(shù)型, , 應與緩沖容器的大小相等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”"
.常量 場景方案, "“場景方案”"
.常量 小人方案, "“小人方案”"
.常量 音樂方案, "“音樂方案”"
.常量 游戲地圖, "“游戲地圖”"
.常量 默認方案, "“默認方案”"

.版本 2
.全局變量 保存標志, 整數(shù)型
.全局變量 背景數(shù)組, 整數(shù)型, , "14,16", 背景數(shù)組
.全局變量 總圖片號組, 整數(shù)型, , "256", 用來保存游戲中用到的圖片的圖片號
.全局變量 撤消數(shù)組, 撤消類型, , "0", 用來實現(xiàn)多次撤消操作
.全局變量 正在錄像中, 邏輯型
.全局變量 錄像播放中, 邏輯型
.全局變量 錄像數(shù)組, 整數(shù)型, , "0"
.全局變量 錄像地圖數(shù)據(jù), 字節(jié)集
.全局變量 臨時地圖數(shù)據(jù), 字節(jié)集
.全局變量 第一次畫, 邏輯型
.全局變量 選擇關卡, 整數(shù)型
.全局變量 移動音樂, 字節(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)
.判斷開始 (類型 ＝ #場景方案)
  .如果 (場景方案名 ＝ “”)
    場景方案名 ＝ #默認方案
    總圖片號組 [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] ＝ 載入圖片 (#紅箱子圖)
    .如果結束
  .如果結束
  .如果真 (總圖片號組 [1] ＝ 0 或 總圖片號組 [2] ＝ 0 或 總圖片號組 [3] ＝ 0 或 總圖片號組 [4] ＝ 0 或 總圖片號組 [5] ＝ 0 或 總圖片號組 [8] ＝ 0)
    返回 (假)
  .如果真結束
  返回 (真)
.判斷 (類型 ＝ #小人方案)
  .如果 (小人方案名 ＝ “”)
    小人方案名 ＝ #默認方案
    總圖片號組 [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)
    .如果結束
  .如果結束
  .如果真 (總圖片號組 [52] ＝ 0 或 總圖片號組 [53] ＝ 0 或 總圖片號組 [54] ＝ 0 或 總圖片號組 [55] ＝ 0 或 總圖片號組 [56] ＝ 0 或 總圖片號組 [57] ＝ 0 或 總圖片號組 [58] ＝ 0 或 總圖片號組 [59] ＝ 0)
    返回 (假)
  .如果真結束
  總圖片號組 [62] ＝ 總圖片號組 [52]
  總圖片號組 [63] ＝ 總圖片號組 [53]
  總圖片號組 [64] ＝ 總圖片號組 [54]
  總圖片號組 [65] ＝ 總圖片號組 [55]
  總圖片號組 [66] ＝ 總圖片號組 [56]
  總圖片號組 [67] ＝ 總圖片號組 [57]
  總圖片號組 [68] ＝ 總圖片號組 [58]
  總圖片號組 [69] ＝ 總圖片號組 [59]
  返回 (真)
.默認
  返回 (假)
.判斷結束
返回 (真)
畫片數(shù) ＝ 0
.計次循環(huán)首 (256, 循環(huán)變量1)
  .如果真 (總圖片號組 [循環(huán)變量1] ＞ 0)
    畫片數(shù) ＝ 畫片數(shù) ＋ 1
  .如果真結束
.計次循環(huán)尾 ()
.如果 (畫片數(shù) ≠ 14 ＋ 8)
  返回 (假)
.否則
  返回 (真)
.如果結束
.子程序 載入音樂, 邏輯型
.如果 (音樂方案名 ＝ “”)
  音樂方案名 ＝ #默認方案
  移動音樂 ＝ #移動音樂
  結束音樂 ＝ #結束音樂
  推箱音樂 ＝ #推箱音樂
  重來音樂 ＝ #重來音樂
  禁止音樂 ＝ #禁止音樂
  點擊音樂 ＝ #點擊音樂
  撤消音樂 ＝ #撤消音樂
  背景音樂 ＝ #背景音樂
.否則
  跳到 (1)
  .如果 (查找 (讀 (#方案類型) ＝ #音樂方案 且 讀 (#方案名稱) ＝ 音樂方案名) ＝ 真)
    移動音樂 ＝ 讀 (#數(shù)據(jù)1)
    結束音樂 ＝ 讀 (#數(shù)據(jù)2)
    推箱音樂 ＝ 讀 (#數(shù)據(jù)3)
    重來音樂 ＝ 讀 (#數(shù)據(jù)4)
    禁止音樂 ＝ 讀 (#數(shù)據(jù)5)
    點擊音樂 ＝ 讀 (#數(shù)據(jù)6)
    撤消音樂 ＝ 讀 (#數(shù)據(jù)7)
    背景音樂 ＝ 讀 (#數(shù)據(jù)8)
  .否則
    移動音樂 ＝ #移動音樂
    結束音樂 ＝ #結束音樂
    推箱音樂 ＝ #推箱音樂
    重來音樂 ＝ #重來音樂
    禁止音樂 ＝ #禁止音樂
    點擊音樂 ＝ #點擊音樂
    撤消音樂 ＝ #撤消音樂
    背景音樂 ＝ #背景音樂
  .如果結束
.如果結束
返回 (真)
.子程序 畫圖片
.參數(shù) 橫坐標, 整數(shù)型
.參數(shù) 縱坐標, 整數(shù)型
.參數(shù) 畫片編號, 整數(shù)型
.如果真 (總圖片號組 [畫片編號 ＋ 1] ＝ 0)
  返回 ()
.如果真結束
_啟動窗口.畫板1.畫圖片 (總圖片號組 [畫片編號 ＋ 1], (縱坐標 － 1) × 30, (橫坐標 － 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)尾 ()
      .如果真結束
    .如果真結束
    畫圖片 (循環(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])
  .如果真結束
.計次循環(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ù)庫名, 字段) ＝ 假)
    返回 (假)
  .如果真結束
.如果真結束
.如果真 (打開 (#數(shù)據(jù)庫名, , , , , , ) ＝ 假)
  返回 (假)
.如果真結束
返回 (真)
選擇方案窗口程序集
.版本 2
.程序集 選擇方案窗口程序集
.子程序 _選擇方案窗口_創(chuàng)建完畢
跳到 (1)
.如果真 (查找 (讀 (#方案類型) ＝ #場景方案 且 讀 (#方案名稱) ＝ #默認方案) ＝ 假)
  加記錄 (#場景方案, #默認方案, #背景圖, #墻圖, #地板圖, #黃箱子圖, #箱子位置圖, #紅箱子圖)
.如果真結束
更新 (場景方案組合框, #場景方案)
跳到 (1)
.如果真 (查找 (讀 (#方案類型) ＝ #小人方案 且 讀 (#方案名稱) ＝ #默認方案) ＝ 假)
  加記錄 (#小人方案, #默認方案, #上1, #上2, #下1, #下2, #左1, #左2, #右1, #右2)
.如果真結束
更新 (小人方案組合框, #小人方案)
跳到 (1)
.如果真 (查找 (讀 (#方案類型) ＝ #音樂方案 且 讀 (#方案名稱) ＝ #默認方案) ＝ 假)
  加記錄 (#音樂方案, #默認方案, #移動音樂, #結束音樂, #推箱音樂, #重來音樂, #禁止音樂, #點擊音樂, #撤消音樂, #背景音樂)
.如果真結束
更新 (音樂方案組合框, #音樂方案)
方案被改變 ＝ 假
.子程序 更新
.參數(shù) 組合框, 組合框
.參數(shù) 類型, 文本型
.局部變量 臨時變量, 整數(shù)型
跳到 (1)
組合框.清空 ()
.計次循環(huán)首 (取記錄數(shù) (), 臨時變量)
  .如果真 (查找 (讀 (#方案類型) ＝ 類型) ＝ 真)
    組合框.加入項目 (讀 (#方案名稱), 取記錄號 ())
    .如果真 (跳過 () ＝ 假)
      跳出循環(huán) ()
    .如果真結束
  .如果真結束
  組合框.現(xiàn)行選中項 ＝ 0
.計次循環(huán)尾 ()
.子程序 _按鈕1_被單擊
場景方案名 ＝ 場景方案組合框.取項目文本 (場景方案組合框.現(xiàn)行選中項)
小人方案名 ＝ 小人方案組合框.取項目文本 (小人方案組合框.現(xiàn)行選中項)
音樂方案名 ＝ 音樂方案組合框.取項目文本 (音樂方案組合框.現(xiàn)行選中項)
方案被改變 ＝ 真
銷毀 ()
.子程序 _按鈕2_被單擊
方案被改變 ＝ 假
銷毀 ()

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