Sorry your browser is not supported!

sync on
sync rate 0

overlay = 1
load object "C:\t.ed converter\ter.x",overlay
base = TedVA_ExtractBaseLayer(overlay,1,1)
`now you can save them and not run this function next time
save object "c:\spire\texture layer.dbo",overlay
save object "c:\spire\base layer.dbo",base

do


sync
loop



function TedVA_ExtractBaseLayer(inObj,freeMeshNum,freeImgNum)
count = 0 `keeps track of how many limbs we've extracted

`search inObj for the base layer's limbs and make objects from them
curobj = inObj+1
_startloop:
perform checklist for object limbs inObj
for i = 1 to checklist quantity()
    if right$(checklist string$(i),10) = "BASELAYER1"
        if basetex$ = "" then basetex$ = limb texture name(inObj,i-1)
        make object from limb curobj,inObj,i-1
        position object curobj,limb position x(inObj,i-1),limb position y(inObj,i-1),limb position z(inObj,i-1)
        inc count,1
        inc curobj,1
        remove limb inObj,i-1   `remove the base layer from inObj because we don't need it anymore
        goto _startloop     `we offset the checklist by removing a limb, so we have to restart the loop
    endif
next i

`set the number of our output object
`the last limb that we extracted is the first block of the terrain
outObj = inObj+count

`merge the extracted objects together as limbs
`exit out if there's only one block
if count = 1 then goto _end_Conversion
load image basetex$,freeImgNum   `reload the base texture
limbcount = 1
for i = inObj+1 to outObj-1
    make mesh from object freeMeshNum,i
    add limb outObj,limbcount,freeMeshNum
    texture limb outObj,limbcount,freeImgNum    `the limbs must be retextured
    offset limb outObj,limbcount,object position x(i),object position y(i),object position z(i)
    delete mesh freeMeshNum
    delete object i
    inc limbcount,1
next i

_end_Conversion:
`set up the input object for transparency and exit
set object transparency inObj,2
endfunction outObj

{

.....

	for (int o=0; o<=7;o++)
	{
		for (int i=0; i<=7; i++)
		{

			dbHideAllSprites();
			dbPasteSprite(loadScreen+50000,0,0);
		      dbText(xResolution*.4,yResolution*.7,"Terrain");
			dbText(xResolution*.4,yResolution*.75,dbStr(i+1));
			dbText(xResolution*.4,yResolution*.8,dbStr(o+1));
			dbSync();

memset(mapName,0x0,sizeof(mapName));
			strcat(mapName,"3D Maps/gv1(");
			strcat(mapName,dbStr(i+1));
			strcat(mapName,",");
			strcat(mapName,dbStr(o+1));
			strcat(mapName,").dbo");

			dbLoadObject(mapName,GVTRAINING+i+(8*o));


			convertTerrain(i,o,mapName);

		}
	}

}






void convertTerrain(int i, int o, char mapName[200])
{
	int base = TedVA_ExtractBaseLayer(GVTRAINING+i+(8*o),165210,1681848);
			
	memset(mapName,0x0,sizeof(mapName));

	strcat(mapName,"DBO/gv1(");
	strcat(mapName,dbStr(i+1));
	strcat(mapName,",");
	strcat(mapName,dbStr(o+1));
	strcat(mapName,")_T.dbo");

	dbSaveObject(mapName,GVTRAINING+i+(8*o));



	memset(mapName,0x0,sizeof(mapName));

	strcat(mapName,"DBO/gv1(");
	strcat(mapName,dbStr(i+1));
	strcat(mapName,",");
	strcat(mapName,dbStr(o+1));
	strcat(mapName,")_B.dbo");

	dbSaveObject(mapName,base);

}






int TedVA_ExtractBaseLayer(int inObj,int freeMeshNum,int freeImgNum)
{
	int count = 0;

	int curobj = inObj+1;

	char right[100];
	char basetex[100];

	_startloop:
	for (int i = 1; i<=dbChecklistQuantity(); i++)
	{
		if ( strcmp(dbRight(dbChecklistString(i),10),"BASELAYER1")==0 )
		{
			if (strcmp(basetex,"")==0)
			{
				strcpy(basetex,dbLimbTextureName(inObj,i-1));
			}

			dbMakeObjectFromLimb(curobj,inObj,i-1);
			dbPositionObject(curobj,dbLimbPositionX(inObj,i-1),dbLimbPositionY(inObj,i-1),dbLimbPositionZ(inObj,i-1));
			count++;
			curobj++;

			dbRemoveLimb(inObj,i-1);
			goto _startloop;
		}
	}

	int outObj = inObj+count;

	if (count == 1)
	{
		goto _end_conversion;
	}

	dbLoadImage(basetex,freeImgNum);
	int limbcount = 1;

	for (int i = inObj+1; i<= outObj-1; i++)
	{
		dbMakeMeshFromObject(freeMeshNum,i);
		dbAddLimb(outObj,limbcount,freeMeshNum);
		dbTextureLimb(outObj,limbcount,freeImgNum);
		dbOffsetLimb(outObj,limbcount,dbObjectPositionX(i), dbObjectPositionY(i), dbObjectPositionZ(i));

		dbDeleteMesh (freeMeshNum);
		dbDeleteObject(i);

		limbcount++;
	}

_end_conversion:
	dbSetObjectTransparency(inObj,2);
	return(outObj);
}

`this is not my code, i give credit to the creator of this code

sync on
sync rate 0

overlay = 1


`load your t.ed .x exports here
load object "c:\t.ed converter\terrain x.x",overlay
base = TedVA_ExtractBaseLayer(overlay,1,1)


`now you can save them and not run this function next time
save object "c:\terrain\texture layer.dbo",overlay
save object "c:\terrain\base layer.dbo",base
do


sync
loop



function TedVA_ExtractBaseLayer(inObj,freeMeshNum,freeImgNum)
count = 0 `keeps track of how many limbs we've extracted

`search inObj for the base layer's limbs and make objects from them
curobj = inObj+1
_startloop:
perform checklist for object limbs inObj
for i = 1 to checklist quantity()
    if right$(checklist string$(i),10) = "BASELAYER1"
        if basetex$ = "" then basetex$ = limb texture name(inObj,i-1)
        make object from limb curobj,inObj,i-1
        position object curobj,limb position x(inObj,i-1),limb position y(inObj,i-1),limb position z(inObj,i-1)
        inc count,1
        inc curobj,1
        remove limb inObj,i-1   `remove the base layer from inObj because we don't need it anymore
        goto _startloop     `we offset the checklist by removing a limb, so we have to restart the loop
    endif
next i

`set the number of our output object
`the last limb that we extracted is the first block of the terrain
outObj = inObj+count

`merge the extracted objects together as limbs
`exit out if there's only one block
if count = 1 then goto _end_Conversion
load image basetex$,freeImgNum   `reload the base texture
limbcount = 1
for i = inObj+1 to outObj-1
    make mesh from object freeMeshNum,i
    add limb outObj,limbcount,freeMeshNum
    texture limb outObj,limbcount,freeImgNum    `the limbs must be retextured
    offset limb outObj,limbcount,object position x(i),object position y(i),object position z(i)
    delete mesh freeMeshNum
    delete object i
    inc limbcount,1
next i

_end_Conversion:
`set up the input object for transparency and exit
set object transparency inObj,2
endfunction outObj