Sorry your browser is not supported!

function Replace$(s$,c$,nc$)
for n=1 to len(s$)
	tc$=mid$(s$,n)
	if tc$=c$
		tc$=nc$
	endif
	ns$=ns$+tc$
next
endfunction ns$

function Piece$(s$,entry,char$)
`If entry<1
`   exitfunction ""
`   EndIf
`If Trim(char$)=""
`   While Instr$(s$,char$+char$)>0
`      s$=ReplaceString$(s$,char$+char$,char$)
`      endwhile
`   EndIf
For n=1 To entry-1
   p=instr(s$,char$)
   If p
      s$=Right$(s$,Len(s$)-p)
      Else
      exitfunction ""
      EndIf
   Next
p=Instr(s$,char$)
If p<1
   `s$=Trim(s$)
   Else
   s$=Left$(s$,p-1)
   EndIf
endfunction s$

function KeyValue$(properties$,findname$,defaultvalue$)
findname$=lower$(findname$)
repeat
   p=Instr(properties$,chr$(13)+chr$(10))
   if p>0
      keypair$=left$(properties$,p-1)
      properties$=right$(properties$,len(properties$)-p-1)
      else
      keypair$=properties$
      properties$=""
      endif
   p=instr(keypair$,"=")
   if p=0
      exitfunction ""
      else
      name$=left$(keypair$,p-1)
      value$=right$(keypair$,len(keypair$)-p)
      if lower$(name$)=findname$ then exitfunction value$
      endif
	until properties$=""
endfunction defaultvalue$

function Instr(searchstring$,findstring$)
l1=len(searchstring$)
l2=len(findstring$)
dl=l1-l2
if dl<l then exitfunction 0
for n=0 to dl
   endp=n+l2
   s$=right$(searchstring$,l1-n)
   s$=left$(s$,endp-n)
   if s$=findstring$ then exitfunction n+1
   next n
endfunction 0

The 3D World Studio File Format
May 14, 2006
Overview
The .3dw file format stores structures which contain both stored and referenced data. Brushes, entities, lightmaps, and terrain, are stored entirely in the format. Materials and mesh data are stored by referencing media files found on the hard drive. Before loading a file, the program media folders should be scanned for mesh and texture files, so that these can be loaded if they occur in the file.
The file format is split into two main areas. The name table stores a list of strings found within the file. Rather than write strings uniquely, the format stores a 32-bit index to the name table. The object table is a list of every object in the file. Each object has a predetermined structure, as shown below. If an object is unknown or unneeded, it can be skipped.
Data Types
The following data types are used:
Byte 8-bit unsigned integer
Word 16-bit unsigned integer
Long 32-bit signed integer
Float 32-bit float value
String null-terminated string, found only in the name table
Name 32-bit index to the name table
Color3 24-bit color value
Vec2 2-dimensional float vector
Vec3 3-dimensional float vector
Vec4 4-dimensional float vector
Header
Word mapversion (should be 14)
Byte mapflags
Long name count
Long name offset
Long object count
Long object offset
Name Table
String name
Object Table
Name objectclass
Long datasize
Objects
group
Byte flags
Long group index
visgroup
Byte flags
Name visgroup name
Color3 visgroup color
material
Byte flags
Name group name
Name object name
If (2 & flags)
Name extension name
meshreference
Byte flags
Name group name
Name object name
Byte limb count
lightmap
Byte flags
Byte resolution
Long format
For 1 to 2^resolution
	For 1 to 2^resolution
		Color3 pixel
brush
Byte flags (4 - hidden)
Long keys
For 1 to keys
	Name keyname
	Name keyvalue
Long group index
Long visgroup index
Color3 brush color
Byte vertex count
For 1 to vertex count
	Vec3 vertex position
Byte face count
For 1 to face count
	Byte flags
	Vec4 face plane equation
	Vec2 texture position
	Vec2 texture scale
	Vec2 texture rotation
	Vec4 U texture mapping plane
	Vec4 V texture mapping plane
	Float luxel size
	Long smooth group index
	Long material index
	If (16 & flags)
		Long lightmap index
	Byte indice count
	For 1 to indice count
		Byte vertex
		Vec2 texcoords
		If (16 & flags) 
			Vec2 lightmap texcoords
mesh
Byte flags
Long keys
For 1 to keys
	Name keyname
	Name keyvalue
Long group
Long visgroup
Color3 mesh color
Long meshreference index
Vec3 position
Vec3 rotation
If Not (1 & flags)
	Vec3 scale
For 1 to limb count (from meshreference structure)
	Long material index
	If (16 & flags)
		Short vertex count
		For 1 to vertex count
			Color3 vertex color
entity
Byte flags
Vec3 position
Long keys
For 1 to keys
	Name keyname
	Name keyvalue
Long group
Long visgroup
terrain
Byte flags
Vec3 position
Float width
Float height
Name terrain name
Long resolution
Long sectors
Long detail levels
Float lightmap resolution
Long layer count
If 1 && flags = 1 
	For 1 to resolution^2
		Color3 luxel color
For 1 to (resolution+1)^2
	Float terrain height
For 1 to layer count
	Name layer name
	Long material index
	If >1
		For 1 to resolution^2
			Byte alpha

int Instr(char* searchstring, char* findstring)
{
int L1=dbLen(searchstring);
int L2=dbLen(findstring);
int dL=L1-L2;
if (dL<L1){
return 0;
}
char* s;
for (int n=0;n!=dL;n++)
{
	int endp = n+12;
	s=dbRight(searchstring,L1-n);
	s=dbLeft(s,endp-n);
	if (s=findstring)
	return n+1;
}
return 0;
}
char* Piece(char* s, int entry, char* chr)
{
for (int n = 1;n!=entry-1;n++)
{
	int p = Instr(s,chr);
	if (p!=0){
	s=dbRight(s,dbLen(s)-p);
	} else{
	return "";
	}
}
int p = Instr(s,chr);
if (p<1){
}
else{
s=dbLeft(s,p-1);
}
return s;
}

char* KeyValue(char* props,char* findname,char* defaultvalue)
{
findname = dbLower(findname);
char* keypair;
do{
	//int p = Instr(props,(dbChr(13))+(dbChr(10)));
	char* temp=dbChr(13);
	int p = Instr(props,strcat(temp,dbChr(10)));
	if (p>0)
	{
		keypair=dbLeft(props,p-1);
		props=dbRight(props,dbLen(props)-p-1);
	}else
	{
		keypair=props;
		props="";
	}

	p = Instr(keypair,"=");
	if (p==0)
	{
		return "";
	}else
	{
		char* name=dbLeft(keypair,p-1);
		char* value=dbRight(keypair,dbLen(keypair)-p);
		if(dbLower(name)==findname)
		return value;
	}
}while(props!="");
return defaultvalue;
}