open FDDE DIR 1
2 o7 A* ]/ R3 `9 h' G' mopen FDDE TOC 2
+ g8 I. ?" Y. v6 x$ ado
( ^6 n" H$ w5 g* o- y9 J' o. l0 q% f5 m getdstring CHUNK 4 2& T- s$ J) c6 @' Y! A
get DUNNO long 2
. d/ o, j, m6 d0 c get DUNNO long 2
# P% ~6 n# ~4 S. C) D( e* S, e get FILES long 2. ^* W7 v4 c% M; R
get DUNNO long 26 t* i7 f. P; ^9 S/ j6 \! ?
get DUNNO long 2$ Z) b2 u5 ~+ N) S
get DUNNO long 2
* V) C0 F7 S) u" f5 T$ N3 [ get DUNNO long 2
6 w9 l! I3 y' z4 V @( Rwhile CHUNK != "REST"2 _& }4 z n1 E( [
savepos NAMEPTR 12 j/ T& K! ~+ G3 u- }2 K9 `
for i = 1 to FILES6 E! N* _% I. ~; Z5 V, q6 i1 w
get DUNNO long 2( W* }7 L7 p% k5 `6 i
get SIZE long 2
5 K' |: @& E0 B& {$ D* n math SIZE >>= 2, _/ p6 r( G( v& ^
get OFFSET long 2
6 X2 N4 K2 z# y' _- @* C goto NAMEPTR 1
+ K" f& x7 r: h' R' m* H1 X get NAMEOFF long 1
5 c# {9 U P4 Q, O# M& {4 D savepos NAMEPTR 1
9 ?& Y- O5 v# U) U" @. e goto NAMEOFF 1/ y/ P$ r, z4 \; b' Q+ x& w% w5 ]
get NAME string 1
4 F* x6 M1 c& {7 u log NAME OFFSET SIZE0 x# ]- o5 [% ?3 H1 [
next i
2 n# M- B8 U% m4 R
8 ]1 h/ R! b$ u
3 c- E0 j/ [; ?9 z' D这是解包器
: u8 l7 P- z% @6 U) O: N( `& v4 h8 ~& g5 ^% z
for 里面读取toc的部分,long就是4个字节
, R8 m( l5 U. A) q6 ~ get DUNNO long 23 r0 L3 w& q; z
get SIZE long 2
0 g3 I8 z) X4 O$ @, Y8 H- o4 g math SIZE >>= 2
7 n- u- W$ z, V/ g get OFFSET long 2+ \: Y/ x2 r* `( t9 ^" |3 V
7 g8 q/ J7 Q6 T; y- w5 Sfor 里面读取dir的部分,long就是4个字节" M; \1 m) H! c+ v: Y
goto NAMEPTR 1
0 k# z) M; s% b& X7 S r8 N get NAMEOFF long 1
# u" Y0 [" \8 {8 T } savepos NAMEPTR 1
* T8 Y. _6 E2 F+ ? goto NAMEOFF 15 y9 v0 l, f( p/ k# t& u
get NAME string 1 |