home *** CD-ROM | disk | FTP | other *** search
/ Xentax forum attachments archive / xentax.7z / 20216 / core_string_extract.7z / core_string_extract.bms
Encoding:
Text File  |  2021-05-26  |  408 b   |  32 lines
  1. get FILESIZE asize
  2. get NAME BASENAME
  3. string NAME + ".txt"
  4.  
  5. for
  6.     savepos OFFSET
  7.  
  8.     get MAGIC longlong
  9.     get SIZE long
  10.  
  11.  
  12.     if MAGIC == 0x31BE502435317445
  13.  
  14.         get UNK longlong
  15.         get UNK longlong
  16.  
  17.  
  18.         get STR_SIZE short
  19.         savepos OFFSET_STR
  20.         
  21.         slog NAME OFFSET_STR STR_SIZE
  22.     
  23.  
  24.     endif
  25.     xmath NEXTOFF "OFFSET + SIZE + 12"
  26.     
  27.     if NEXTOFF == FILESIZE
  28.         cleanexit
  29.     endif
  30.     goto NEXTOFF
  31.  
  32. next