#include <stdio.h>

typedef unsigned short word;
typedef unsigned long dword;

typedef struct {
	dword unkSize;
	dword skelSize;
	dword dataSize;
} Header;

typedef struct {
	dword tag1;
	dword tag2;
	char name[64];
	dword bodyOffset;
	dword bodyArgs[11];
	dword animOffset;
	dword animArgs[11];
	char desc[64];
} SkelHeader;

typedef struct {
	dword tags[6];
	dword reserved;
	dword number;
	char name[40];
	dword childOffset;
	dword numChildren,numChildren2;
	dword posFlagsOffset;
	dword numPosTypes,numPosTypes2;
	dword posDataOffset;
	dword posDataSize,posDataSize2;
	dword flags;
} Bone;

typedef struct {
	dword tags[2];
	dword polyTexOffset;
	dword numPolyTex,numPolyTex2;
	dword floats[20];
	dword res[5];
	char textureName[40];
	dword floats2[61];
	dword objCountOffset;
	dword numObjs,numObjs2;
	dword polysOffset;
	dword numPolys,numPolys2;
	dword res2[4];
	dword meshOffset;
	dword numPoints;
	dword textureOffset;
	dword res3[3];
	dword normalsOffset;
	dword negOneOffset;
	dword res4[6];
	dword floats3[3];
} BoneExt;

typedef struct {
	dword tags[2];
	char name[64];
	dword firstBoneOffset;
	dword size;
	dword floats[10];
	char rootName[40];
	dword floats2[9];
} AnimHeader;

typedef struct {
	word type;
	word res1;
	word numItems;
	word res2;
	word res3;
	word itemSize;
} PositionHeader;

static void readSkeleton(FILE *f,int indent);
static void readAnimation(FILE *f,int numAnim,int indent);
static dword unkStart,skelStart,dataStart;

int main(int argc,char *argv[])
{
	FILE *f;
	Header header;
	SkelHeader skelHeader;

	if (argc!=2)
	{
		printf("usage: %s [filename]\n",argv[0]);
		exit(1);
	}
	f=fopen(argv[1],"r");
	fread(&header,1,sizeof(Header),f);
	unkStart=ftell(f);
	fseek(f,header.unkSize+unkStart,SEEK_SET); //next chunk
	skelStart=ftell(f);
	fseek(f,header.skelSize+skelStart,SEEK_SET); //next chunk
	dataStart=ftell(f);

	fseek(f,skelStart,SEEK_SET);

	fread(&skelHeader,1,sizeof(SkelHeader),f);

	printf("%s\n",skelHeader.name);
	printf("%s\n",skelHeader.desc);

	fseek(f,skelStart+skelHeader.bodyOffset,SEEK_SET);
	readSkeleton(f,0);
	printf("-----\n");
	printf("%x\n",skelStart+skelHeader.animOffset);
	fseek(f,skelStart+skelHeader.animOffset,SEEK_SET);
	readAnimation(f,skelHeader.animArgs[0],0);

	fclose(f);
}

static char tabstr[255];
static char *tab(int indent)
{
	if (indent>254) indent=254;
	memset(tabstr,' ',indent);
	tabstr[indent]=0;
	return tabstr;
}

static void readSkeleton(FILE *f,int indent)
{
	Bone bone;
	BoneExt boneExt;
	dword *children;
	int i;
	PositionHeader *posHead;
	union {
		long l;
		float f;
	} fl;

	fread(&bone,1,sizeof(Bone),f);
	printf("%s%d: %s\n",tab(indent),bone.number,bone.name);
	if (bone.flags&0x20)
	{
		dword numPoints,numTexPoints;
		fread(&boneExt,1,sizeof(BoneExt),f);
		printf("%s Texture: %s\n",tab(indent),boneExt.textureName);

		fseek(f,skelStart+boneExt.polyTexOffset,SEEK_SET);
		for (i=0;i<boneExt.numPolyTex;i++)
		{
			word w;
			int j;
			for (j=0;j<4;j++)
				fread(&fl.l,1,4,f);
			for (j=0;j<8;j++)
				fread(&w,1,2,f);
		}
		for (i=0;i<boneExt.numObjs;i++)
		{
			word w;
			int j;
			dword num,offs;
			fseek(f,skelStart+boneExt.objCountOffset+i*4,SEEK_SET);
			fread(&num,1,4,f);
			fseek(f,skelStart+boneExt.polysOffset+i*4,SEEK_SET);
			fread(&offs,1,4,f);
			fseek(f,dataStart+offs,SEEK_SET);
			for (j=0;j<num;j++)
			{
				fread(&w,1,2,f);
			}
		}

		numTexPoints=0;
		numPoints=boneExt.numPoints;
		if (numPoints>>16)
		{
			numTexPoints=(boneExt.normalsOffset-boneExt.textureOffset)/4;
			numPoints&=0xffff;
		}
		fseek(f,dataStart+boneExt.meshOffset,SEEK_SET);
		for (i=0;i<numPoints;i++)
		{
			int j;
			for (j=0;j<3;j++)
				fread(&fl.l,1,4,f);
		}
		for (i=0;i<numTexPoints/2;i++)
		{
			int j;
			for (j=0;j<2;j++)
				fread(&fl.l,1,4,f);
		}
		fseek(f,dataStart+boneExt.normalsOffset,SEEK_SET);
		for (i=0;i<numPoints;i++)
		{
			int j;
			for (j=0;j<3;j++)
				fread(&fl.l,1,4,f);
		}
	}

	fseek(f,skelStart+bone.posFlagsOffset,SEEK_SET);
	posHead=(PositionHeader *)malloc(bone.numPosTypes*sizeof(PositionHeader));
	for (i=0;i<bone.numPosTypes;i++)
		fread(&posHead[i],1,sizeof(PositionHeader),f);
	
	fseek(f,skelStart+bone.posDataOffset,SEEK_SET);
	for (i=0;i<bone.numPosTypes;i++)
	{
		int j;
		int max=1;
		//timing values
		for (j=0;j<posHead[i].numItems;j++)
			fread(&fl.l,1,4,f);
		if (posHead[i].type==0x8) max=3;
		if (posHead[i].type==0x14) max=4;
		// actual data
		for (j=0;j<posHead[i].numItems;j++)
		{
			int k;
			for (k=0;k<max;k++)
				fread(&fl.l,1,4,f);
		}
	}

	free(posHead);
	children=(dword *)malloc(4*bone.numChildren);
	fseek(f,skelStart+bone.childOffset,SEEK_SET);
	fread(children,bone.numChildren,4,f);
	for (i=0;i<bone.numChildren;i++)
	{
		fseek(f,skelStart+children[i],SEEK_SET);
		readSkeleton(f,indent+2);
	}
	free(children);
}

static void readAnimation(FILE *f,int numAnim,int indent)
{
	AnimHeader header;
	dword *anims;
	int i;

	anims=(dword *)malloc(numAnim*4);
	fread(anims,numAnim,4,f);

	for (i=0;i<numAnim;i++)
	{
		fseek(f,skelStart+anims[i],SEEK_SET);
		fread(&header,1,sizeof(AnimHeader),f);
		printf("%s\n",header.name);
		fseek(f,skelStart+header.firstBoneOffset,SEEK_SET);
		readSkeleton(f,indent+2);
	}
}