金发美女的懒汉打包工具(scgame请进)

shane007

scgame

* [( P% F1 h3 H* z( C; ?. J你好，请在完成前一个小任务以后，抽时间完成一下这个金发美女的懒汉打包工具。
" a9 p" A7 S. @* V4 V请先看一下下面这个帖子
【神秘岛4汉化项目】懒汉式打包新方法
6 q2 j7 n( K9 Ehttps://www.chinaavg.com/read.php?tid=19892&keyword=%C0%C1%BA%BA
( ~5 n1 a3 s2 U6 s8 I  P' f' @6 O相关帖子
金发美女正式版的解包和打包工具
https://www.chinaavg.com/read.php?tid=21364
1 W2 H% _/ K* F细节大致如下
6 X/ s) X6 h* p4 F9 {.TOC 存放了SIZE和OFFSET，.DIR存放了文件名OFFSET和文件名。
0 U; g% F$ l$ f4 V  D工具大致用法如下
pack.exe filelist.txt foldername
9 B  y. t; Z2 i6 wfilelist.txt里存放了修改后的文件列表，foldername是修改后的文件保存目录。
pack.exe把文件列表的文件逐个加入到.DAT的尾部，并修改.TOC，.DIR，使游戏找到我们修改后的文件。

shane007

open FDDE DIR 1
open FDDE TOC 2
do
    getdstring CHUNK 4 2
    get DUNNO long 2
    get DUNNO long 2
    get FILES long 2
/ M" K6 r$ C: `9 f    get DUNNO long 2
9 O$ m. N' D/ S& B% Z7 H1 X+ u    get DUNNO long 2
1 A; p# d3 j: j% k% d  L    get DUNNO long 2
) N& l1 m+ `0 q- ?    get DUNNO long 2
; x: u6 [/ W1 U+ K  `, p# |while CHUNK != "REST"
savepos NAMEPTR 1
for i = 1 to FILES
    get DUNNO long 2
7 ?3 C7 R6 O3 H# r- D7 t) `    get SIZE long 2
, M( J! F8 F0 W, a/ D- s, B) H7 ^0 \" c    math SIZE >>= 2
; U' V5 t6 T! d, J) Y    get OFFSET long 2
3 G* r. q4 o; h! ?7 ~7 Q" ?0 g- R    goto NAMEPTR 1
    get NAMEOFF long 1
    savepos NAMEPTR 1
6 o3 q: d2 ]6 ~: ?4 t0 o    goto NAMEOFF 1
    get NAME string 1
    log NAME OFFSET SIZE
next i
6 k% `( v- _9 O& q' N6 S) b$ p

这是解包器

# ~8 z* O0 L1 U4 T7 Nfor 里面读取toc的部分，long就是4个字节
1 n+ w5 E% \$ Y2 z. a  get DUNNO long 2
    get SIZE long 2
    math SIZE >>= 2
    get OFFSET long 2

for 里面读取dir的部分，long就是4个字节
3 Z% k6 }4 y# [( h5 t    goto NAMEPTR 1
    get NAMEOFF long 1
: A( r  ~0 c, a/ ]( ~) H  A7 i    savepos NAMEPTR 1
    goto NAMEOFF 1
, L6 ?1 c' h: ^& [" Q    get NAME string 1

shane007

不明白的地方请继续提问。

shane007

我来详细解释一下，
8 f& K" @2 o7 _$ P7 A+ Jopen FDDE DIR 1
) g5 s7 E3 [$ Q# fopen FDDE TOC 2
相当于打开2个文件，后面的1,2相当于句柄

do
- j% y/ d0 C5 S; `2 t    getdstring CHUNK 4 2
) Z9 b2 T* M) ?) Y* F- O    get DUNNO long 2
- y* W! A9 H) p' [/ M* o5 v" X    get DUNNO long 2  
    get FILES long 2
9 j2 n$ C9 ~/ u. ]    get DUNNO long 2
    get DUNNO long 2
    get DUNNO long 2
# V! R3 [: ~% v  T2 Q; Q% I( E    get DUNNO long 2
while CHUNK != "REST"
: L6 B/ `; Z! |9 ]6 n6 k' V6 |
这段主要是打开TOC ，读取文件数FILES 。
# q4 z1 o# v6 I9 d2 P你算算FILES 就能分析出是BE还是LE的。

后面2段是
3 q: G, @4 O; {' l% a, u$ d* }: \读取toc里面的每个文件的SIZE ，offset
( d8 b3 c# a, e* o9 Z/ e. S" \读取dir里面的每个文件的NAMEOFF ，NAME
最后根据每个文件的SIZE ，offset，NAME到dat里面把每个文件切出来。
( N  J) b% l% t: |, T9 q, H3 Q
4 u, s) g9 A* E. R# h该明白了吧？