''Neverwinter Nights'' [http://nwn.bioware.com/] is a computer role-playing game (RPG) from Bioware that comes with a toolkit for creating your own game worlds and you can even build small-scale multiplayer persistent worlds using it (supporting around 50+ players). It has no particular connection with [Tcl] that I ([NEM]) know of, but I have recently been using it as a testbed for some [intelligent agent]s research I have been doing. To help with this work I created a small Tcl package for parsing the binary file formats used to store game data (the formats are documented at [http://nwn.bioware.com/developers/]). I imagine this is of limited usefulness to most people, but I will release the files anyway. '''Download:''' http://www.cs.nott.ac.uk/tcl/ '''Usage''' package require Tcl 8.5 package require nwn 0.3 nwn module unpack $module ?directory? ?-progress $cmd? This command unpacks an ERF format file (e.g. a module or hakpak) to a directory on the disk, much like unzipping a .zip file. If the directory argument is not given then it defaults to the same name as the module file without the ".mod" extension. The -progress option can be given to specify a command to call for each file unpacked, passing in the number of files unpacked so far and the total number of files. This defaults to a simple text-based progress bar. EXAMPLE nwn module unpack modules/Rhun.mod nwn module files $module ?options..? {file chan size} $script Loop through each file in the module calling a script, passing in the name of the file, a readable channel positioned at the start of the file in the module, and the size of the file in bytes. The options available are: -progress cmd Call a command for each iteration of the loop. -filter glob Only loop through files that match the pattern. EXAMPLE # Equivalent to the "unpack" command nwn module files modules/Rhun.mod {file chan size} { set out [open $file w] chan configure $out -translation binary chan copy $chan $out -size $size close $out } nwn module areas ?-progress $cmd? {name area} $script Loop through each area in the module calling the script with the filename of the area and an array of information about the area taken from the corresponding .are and .git files in the module. See the Area File documentation from Bioware for a description of the fields available. EXAMPLE nwn module areas modules/Rhun.mod {file area} { puts "$file tag = $area(Tag)" } nwn gff parse $chan ?$offset? Parse a Generic File Format (GFF) file read from the given channel starting at the given offset (default = 0). The entire file is read and parsed into a nested dictionary data structure describing the toplevel struct in the file (and thus all other structures in the file). All data structures and transformed into corresponding Tcl data structures. nwn gff parsefile $file Parse a GFF file from disk. ---- [[ [Category Package] ]]