open FDDE DIR 1* R, H7 f+ F- b
open FDDE TOC 2" R9 C/ o `/ {% z( o
do , @& n% C& }; ^: T% `7 z) |
getdstring CHUNK 4 2
: }) _+ C) S+ V" i" A+ o; C get DUNNO long 2- J: y( W# r% b
get DUNNO long 20 R+ W5 R- X* e
get FILES long 2
* N d, l' O' X get DUNNO long 2' B3 ], @2 J$ @& l
get DUNNO long 2
7 b5 y& _$ Y- s. P" P. ? get DUNNO long 2. p1 b- G! w8 F8 ?6 r
get DUNNO long 2
. l* I/ F# ~+ V+ {; l1 nwhile CHUNK != "REST"% S3 E/ `7 l, i" B% A8 ~* s( O v
savepos NAMEPTR 1
3 G: C! B, {" m* ]5 lfor i = 1 to FILES
1 t) i# w. R: D" K get DUNNO long 29 X6 F$ T& b8 q, K% _$ x, ^1 P
get SIZE long 2& W7 Y7 j& C0 `' y( S0 a; m
math SIZE >>= 22 H4 `1 f/ ]. N9 w1 n9 t* p5 h
get OFFSET long 2
5 c$ a- N! E, i' A goto NAMEPTR 1" |2 a4 c/ b/ h
get NAMEOFF long 1( q, ~8 ~0 ~6 c$ X9 \# ?
savepos NAMEPTR 1
# d6 v/ G# ]1 x( o goto NAMEOFF 1, F" T5 s( u; D& C
get NAME string 1
1 t) z8 p8 V; P. f9 a# q( T8 W# u } log NAME OFFSET SIZE( }2 `8 C: I& X$ }) j
next i
8 M" X( v* |# P
# e0 ~+ {2 R' \
5 H5 t% t1 Y3 b8 _0 q1 m+ h( v这是解包器
& T3 R9 x) W# j7 Q; S$ Z' }! T/ R& D2 O% d0 L' v6 J
for 里面读取toc的部分,long就是4个字节/ d& h) U+ @4 M
get DUNNO long 20 w( S2 z h' h4 _* U8 Z$ A
get SIZE long 2
`; E/ |$ E* t0 K2 B math SIZE >>= 20 w) t# [* y2 D6 K- a
get OFFSET long 2
! v1 m* K" x, ]5 j9 V) c* @
- o+ j1 P! U+ f7 A1 e! bfor 里面读取dir的部分,long就是4个字节/ B6 C# E+ p {% h! |+ ~* R
goto NAMEPTR 1- L- v% g6 m5 N
get NAMEOFF long 1: W# _# N, S$ e. R) ?/ o4 z
savepos NAMEPTR 1: H; y. C: S/ b, Z9 `+ L
goto NAMEOFF 1( \5 C& z& R( z& Y
get NAME string 1 |