// Dark GDK - The Game Creators - www.thegamecreators.com

#include "DarkGDK.h"

// Functions
void createStrap ( void );
void controlStrap ( void );

// Globals
int		iStrapX1	= 0;
int		iStrapX2	= 0;
int		iMat		= 0;
float	carx		= 240;
float	ss			= 100;
float	roadz		= 0.0f;
float	side		= 0.0f;
int		tr			= 0;
int		c			= 0;
float	heada		= 0.0f;
int		t			= 0;

void DarkGDK ( void )
{
	dbSetDir ( "media\\" );

	int iMat = 0;

	dbSyncOn   ( );
	dbSyncRate ( 60 );

	dbBackdropOff ( );
	
	// Loading screen
	dbLoadBitmap ( "media\\gfx\\backdrop1.jpg" , 1 );
	dbCopyBitmap ( 1 , 0 , 0 , 640 , 480 , 0 , 0 , 0 , dbScreenWidth ( ) , dbScreenHeight ( ) );
	dbSync ( );
	dbSync ( );
	dbDeleteBitmap ( 1 );

	// Setup strapline
	createStrap ( );

	// Setup terrain
	dbLoadImage		( "media\\world\\rock.jpg" , 1 );
	dbLoadBitmap	( "media\\world\\land.bmp" , 1 );

	for ( iMat = 0 ; iMat < 8 ; iMat++ )
	{
		dbMakeMatrix			( 1 + iMat , 512 , 512 , 32 , 32 );
		dbPositionMatrix		( 1 + iMat , 0.0f , -2.0f , 512.0f * iMat );
		dbPrepareMatrixTexture	( 1 + iMat , 1 , 33 , 33 );
		dbSetMatrixTexture		( 1 + iMat , 2 , 1 );
	}

	dbSetCurrentBitmap ( 1 );
	dbLockPixels ( );

	int		tc	= 1;
	int		col	= 0;
	float	h	= 0.0f;

	for ( int z = 0 ; z < 32 ; z++ )
	{
		for ( int x = 0 ; x < 32 ; x++ )
		{
			  col = dbPoint ( x , z );
			  h = dbRGBR ( col ) / 4.0f;
			  for ( iMat = 0 ; iMat < 8 ; iMat++ )
			  {
					dbSetMatrixHeight	( 1 + iMat , x , z , h );
					dbSetMatrixTile		( 1 + iMat , 31 - x , z , tc );
			  }
			  tc++;
		}
		tc++;
	}

	dbUnLockPixels ( );
	dbDeleteBitmap ( 1 );

	for ( iMat = 0 ; iMat < 8 ; iMat++ )
	{
		dbUpdateMatrix ( 1 + iMat );
	}
	
	dbSetCurrentBitmap ( 0 );

	// Create high quality road surface
	dbLoadImage ( "media\\world\\road.jpg" , 11 );

	for ( int r = 0 ; r < 8 ; r++ )
	{
		 dbMakeObjectPlane		( 11 + r , 128.0f , 512.0f );
		 dbPositionObject		( 11 + r , 256.0f + 10.0f , 0.025f , 512.0f * r );
		 dbTextureObject		( 11 + r , 11 );
		 dbXRotateObject		( 11 + r , 90.0f );
		 dbSetObjectTexture		( 11 + r , 1 , 1 );
		 dbScaleObjectTexture	( 11 + r , 2 , 8 );
	}

	
	// Load sky and set it up
	dbSetCameraRange	( 2.5 , 15000 );
	dbLoadObject		( "media\\sky\\os.x" , 1 );
	dbPositionObject	( 1 , 256 , 30 , 0 );
	dbSetObjectTexture	( 1 , 2 , 1 );
	dbSetObjectLight	( 1 , 0 );
	dbSetObjectCull		( 1 , 0 );
	dbYRotateObject		( 1 , 270 );
	dbScaleObject		( 1 , 250 , 250 , 250 );
	

	// Setup mountain range
	dbSetImageColorKey	( 255 ,0 , 255 );
	dbLoadImage			( "media\\sky\\mountains.bmp" , 4 );
	dbMakeObjectPlane	( 4 , 1024 * 20.5 , 128 * 20.5 );
	dbSetObjectTexture	( 4 , 2 , 1 );
	dbSetObjectLight	( 4 , 0 );
	dbSetObject			( 4 , 1 , 1 , 0 );
	dbTextureObject		( 4 , 4 );

	// Two bikes
	int obj;

	dbSetImageColorKey	( 128, 128, 128 );

	for ( c = 0 ; c < 2 ; c++ )
	{
		 // Load bike
		 obj = 5 + ( c * 100 );
		 if ( c == 0 ) dbLoadObject ( "media\\bike\\bike.x" , obj );
		 if ( c == 1 ) dbLoadObject ( "media\\bike\\bike2.x" , obj );

		 dbPositionObject	( obj , 256 , 2 , 500 );
		 dbScaleObject		( obj , 1000 , 1000 , 1000 );
		 dbRotateObject		( obj , 0 , 180 , 0 );
		 dbFixObjectPivot	( obj );
		 dbRotateObject		( obj , 0 , 0 , 0 );
		 dbSetObjectLight	( obj , 0 );
	}

	// Create ten trees for road
	dbSetImageColorKey	( 0 , 0 , 0 );
	dbLoadImage ( "media\\world\\tree.jpg" , 501 );
	for ( tr = 1 ; tr < 11 ; tr++ )
	{
			 dbMakeObjectPlane ( 500 + tr , 128 , 128 );
			 int r = dbRnd ( 1 );

			 if ( r = 0 ) dbPositionObject ( 500 + tr , 160.0f - dbRnd ( 400 ) , 64.0f , 51.0f * ( 100.0f + dbRnd ( 150 ) ) );
			 if ( r = 1 ) dbPositionObject ( 500 + tr , 370.0f + dbRnd ( 400 ) , 64.0f , 51.0f * ( 100.0f + dbRnd ( 150 ) ) );

			 dbTextureObject	( 500 + tr , 501 );
			 dbSetObject		( 500 + tr , 1 , 1 , 1 );
	}

	// Setup camera, light
	dbSetPointLight		( 0 , 256 , 300 , 256 );
	dbSetCameraFOV		( 120 );
	dbRotateCamera		( 0 , 0 , 0 );
	dbSetAmbientLight	( 50 );

	// Load bike sound
	dbLoad3DSound	( "media\\sounds\\car.wav" , 1 );
	dbPositionSound ( 1 , 30000 , 30000 , 30000 );
	dbLoopSound		( 1 );
	

	// Init bike variables
	carx = 240;
	ss = 100;


	// loop until the escape key is pressed
	while ( LoopGDK ( ) )
	{
		if ( dbEscapeKey ( ) )
			return;

		// bike control
		carx = dbWrapValue ( carx + 1.0f );

		// Move on road
		roadz += 15.0f;
		side = dbWrapValue ( side + 0.3f );

		if ( roadz >= 512.0f )
		{
			// move camera back
			roadz -= 512.0;
			
			// trees as relative
			for ( tr = 1 ; tr < 11 ; tr++ )
			{
				dbPositionObject ( 500 + tr , dbObjectPositionX ( 500 + tr ) , 64 , dbObjectPositionZ ( 500 + tr ) -512 );
			}
		}

		 dbPositionCamera ( 256 + ( dbSin ( side ) * 10 ) , 12 + ( dbCos ( side ) * 5 ) , roadz + ( dbSin ( side ) * 20 ) );
		 dbXRotateCamera ( 0 , 10 );

		 // Position main light
		 dbPositionLight ( 0 , 200 , 800 , roadz );

		 // Make third matrix rise up over time
		 dbPositionMatrix ( 8 , 0 , -2 + ((( 512 - roadz ) / 10.0f ) * -1 ) , 512 * 7 );

		 // Keep sky and mountains in place
		 dbPositionObject ( 1 , 256 , 15 , roadz );
		 dbPositionObject ( 4 , 256 , 400 , roadz + ( 4684 ) );
		 dbYRotateObject  ( 1 , dbWrapValue ( dbObjectAngleY ( 1 ) - 0.1f ) );

		 // Keep bike in place
		 for ( c = 0 ; c < 2 ; c++ )
		 {
				  // Position bike and parts
				  if ( c == 0 )
				  {
					   dbPositionObject ( 5 + ( c * 100 ) , 240 + ( dbCos ( carx ) * 8 ) , 0 , roadz + 35 + ( dbSin ( ss * 15 ) * 5 ) );
					   dbPositionObject ( 7 + ( c * 100 ) , 240 + ( dbCos ( carx ) * 8 ) , 0.1f , roadz + 35 + ( dbSin ( ss * 15 ) * 5 ) );
				  }
				  else
				  {
						dbPositionObject ( 5 + ( c * 100 ) , 270 -  ( dbCos ( carx ) * 8 ) , 0 , roadz + 35 + ( dbSin ( ss * 15 ) * 5 ) );
						dbPositionObject ( 7 + ( c * 100 ) , 270 -  ( dbCos ( carx ) * 8 ) , 0.1f , roadz + 35 + ( dbSin ( ss * 15 ) * 5 ) );
				  }

					dbZRotateObject ( 5 + ( c * 100 ) , dbCos ( carx ) * 4 );

				  // Rotate bike wheels
				  heada = dbWrapValue ( heada + 2 );
				  if ( dbLimbExist ( 5 + ( c * 100 ) , 1 ) == 1 )
				  {
					   t = 7;
					   dbRotateLimb ( 5 + ( c * 100 ) , t , 0 , dbWrapValue ( dbCos ( heada ) * 20 ) , 0 );
					   t = 3;
					   dbRotateLimb ( 5 + ( c * 100 ) , t , dbWrapValue ( dbLimbAngleX ( 5 + ( c * 100 ) , t ) - 35 ) , 0 , 0 );
					   t = 5;
					   dbRotateLimb ( 5 + ( c * 100 ) , t , dbWrapValue ( dbLimbAngleX ( 5 + ( c * 100 ) , t ) - 35 ) , 0 , 0 );
				  }
		 }

		 // Move trees and wrap them
		 for ( tr = 1 ; tr < 11 ; tr++ )
		 {
				  // move tree
				  dbPositionObject ( 500 + tr , dbObjectPositionX ( 500 + tr ) , 64 , dbObjectPositionZ ( 500 + tr ) - 15 );
				  // wrap tree
				  if ( dbObjectPositionZ ( 500 + tr ) < -512 )
				  {
				   int r = dbRnd ( 1 );
				   if ( r == 0 ) dbPositionObject ( 500 + tr , 160.0f - dbRnd ( 400 ) , 64.0f , 51.0f * ( 100 + dbRnd ( 150 ) ) );
				   if ( r == 1 ) dbPositionObject ( 500 + tr , 370.0f + dbRnd ( 400 ) , 64.0f , 51.0f * ( 100 + dbRnd ( 150 ) ) );
				  }
		 }

		 // Move mountains closer and closer
		 if ( ss < 150.0f ) ss += 0.05f;
		 dbScaleObject ( 4 , ss , ss , ss );

		 // Set sound position for bike
		 dbPositionListener ( 256 , 5 + ( dbCos ( side ) * 5 ) , roadz + ( dbSin ( side ) * 35 ) );
		 dbPositionSound ( 1 , carx , 0 , roadz + 35 );
		 dbScaleListener ( 0.25 );

		 // Move strap line
		 controlStrap ( );

		 // Update screen
		 dbSync ( );
	}
}


// Demo Functions
void createStrap ( void )
{
	dbLoadImage		( "media\\gfx\\prompt1.jpg" , 2 );
	dbLoadImage		( "media\\gfx\\strapblank1.jpg" , 3 );

	iStrapX1			= 0;
	dbSprite			( 1 , iStrapX1 , 480-63 , 2 );
	iStrapX2			= 1024;
	dbSprite			( 2 , iStrapX2 , 480-63 , 2 );
	dbSetSpriteAlpha	( 1 , 196 );
	dbSetSpriteAlpha	( 2 , 196 );
}

void controlStrap ( void )
{
	iStrapX1--;
	if ( iStrapX1 <= -1024 ) iStrapX1 = iStrapX2 + 1023;

	iStrapX2--;
	if ( iStrapX2 <= -1023 ) iStrapX2 = iStrapX1 + 1024;

	dbSprite ( 1 , iStrapX1 , dbScreenHeight ( ) - 63 , 2 );
	dbSprite ( 2 , iStrapX2 , dbScreenHeight ( ) - 63 , 3 );
}