植物大战僵尸资源解包工具

把植物大战僵尸的main.pak拖拉进来即可

拖放对象1.接收文件 ＝ 假
文本型 ＝ 分割文本 (接收到的文件路径, #换行符, )
取最后文件 ＝ 文本型 [取数组成员数 (文本型)]
.如果真 (取文本右边 (取最后文件, 3) ≠ “pak”)
信息框 (“错误或不支持的文件”, 0, , )
拖放对象1.接收文件 ＝ 真
返回 ()
.如果真结束
标题 ＝ “解包中...请耐心等待！”
启动线程 (&解包, 字节集异或 (取最后文件), )

.判断循环首 (取读写位置 (内存文件号) ＜ 文件总长度)
读入数据 (内存文件号, 字节型)
.如果真 (字节型 ＝ 结束标记)
跳出循环 ()
.如果真结束
读入数据 (内存文件号, 文件名长度)
文件名 ＝ 读入字节集 (内存文件号, 文件名长度)
读入数据 (内存文件号, 文件长度)
读入数据 (内存文件号, 文件时间属性)
宝开PAK结构.文本型 ＝ 取字节集数据 (文件名, 10, )
宝开PAK结构.整数型 ＝ 文件长度
加入成员 (宝开PAK结构_数组, 宝开PAK结构)
.判断循环尾 ()
' =======================文件数据部分（未完善，缺少创建目录和写出文件）==========================
.判断循环首 (取数组成员数 (宝开PAK结构_数组) ≠ 文件数量)
文件数量 ＝ 文件数量 ＋ 1
宝开PAK结构_数组 [文件数量].字节集 ＝ 读入字节集 (内存文件号, 宝开PAK结构_数组 [文件数量].整数型)
调试输出 (取字节集左边 (宝开PAK结构_数组 [文件数量].字节集, 8), 宝开PAK结构_数组 [文件数量].文本型, 宝开PAK结构_数组 [文件数量].整数型)
.判断循环尾 ()