Sorry your browser is not supported!

#include "DarkGDK.h"
#include "SC_Collision.h"


float radius = 70.0f;
//float littleRadius = 2.0f;

int rtimer = 0;
int stimer = 0;
int vtimer = 0;

float gravity = -0.1f;
float slope = 0.5f;
int ground = 1;
int jumptimer = 0;

int syncmode = 60;
int view = 1;
int hide = 0;

//player movement vector
float vx = 0;
float vy = 0;
float vz = 0;

void makeLevel()
{
	SetCurrentDirectory ( "media" );
	dbLoadObject( "palisades.dbo",1 );
	SC_SetupComplexObject( 1,1,2 );
	
	
	//all level objects are group 1
}

void makePlayer()
{
	//dbMakeObjectSphere( 2,radius*2.0f );
	dbMakeObjectPlain(2,5,70);
	dbPositionObject( 2,800,75,20 );
	SC_SetupObject( 2,0,1 );
	
	//player has no group
}

void movePlayer()
{
	//rotate player with mouse
	dbYRotateObject( 2,dbObjectAngleY(2) + dbMouseMoveX()/3.0f );
	dbXRotateObject( 2,dbObjectAngleX(2) + dbMouseMoveY()/3.0f );

	float oldx = dbObjectPositionX(2);
	float oldy = dbObjectPositionY(2);
	float oldz = dbObjectPositionZ(2);
	
	//apply gravity, and user changes to movement
	float angy = dbObjectAngleY(2);
	vx = 0;
	vz = 0;

	//if player is jumping or falling then apply 'normal' gravity
	//if not attempt to keep the player stuck to the floor
	if ( vy == 0 && jumptimer == 0 ) vy = vy + 10*gravity; 
	else vy = vy + gravity;

	if (dbKeyState(32) == 1 ) { vx = vx + dbCos(angy); vz = vz - dbSin(angy); }
	if (dbKeyState(30) == 1 ) { vx = vx - dbCos(angy); vz = vz + dbSin(angy); }
	if (dbKeyState(31) == 1 ) { vx = vx - dbSin(angy); vz = vz - dbCos(angy); }
	if (dbKeyState(17) == 1 ) { vx = vx + dbSin(angy); vz = vz + dbCos(angy); }

	//only jump if on ground, and a certain time after last jump
	if ( ground == 1 ) 
	{
		if ( dbSpaceKey() == 1 && jumptimer == 0 ) 
		{
			vy = vy + 3.0f;
			jumptimer = 20;
		}
	}
	
	//this would be the player's final position without collision
	float x = oldx + vx;
	float y = oldy + vy;
	float z = oldz + vz;
	
	//first handle gravity - seperated from horizontal movement
	//to achieve a more realistic effect
	//Method: simple - cast a sphere vertically down, if it hits the level then
	//                 position the object there (sticky collision) then move 
	//                 on to horizontal movement
	//  more complex - if we were to only use the simple method the player would be 
	//                 allowed to climb almost vertical slopes. Alternative is to
	//                 get the normalY direction to work out how flat the gorund
	//                 below the player is, 0-slope# is flatter, slope#-1 is steeper.
	//                 if it's flat, use sticky collision, if it's steep slide the
	//                 player down the slope. Changing slope# determines how steep the 
	//                 player can climb. NOTE: this also effects stairs.
	int collide = SC_SphereCastGroup( 1, oldx,oldy,oldz, oldx,oldy+vy,oldz, radius,0 );
	
	if ( collide > 0 )
	{
		//how flat is this ground
		float ny = SC_GetCollisionNormalY();
		if ( dbAbs(ny) > slope )
		{
			//FLAT, stick
			oldy = SC_GetStaticCollisionY();
		}
		else
		{
			//STEEP, slide
			x = x - oldx; z = z - oldz;
			oldx = SC_GetCollisionSlideX();
			oldy = SC_GetCollisionSlideY();
			oldz = SC_GetCollisionSlideZ();
			x = x + oldx; z = z + oldz;
		}
		
		//ny#<0 means the player has hit a ceiling rather than a floor
		
		if ( ny > slope )
		{
			//only on ground if standing on flat ground
			ground = 1;
			vy = 0;
		}
		else 
		{
			ground = 0;
			//if player has hit a flat ceiling then stop vy# movement
			if ( ny < -slope ) vy = gravity;
		}
	}
	else
	{
		//nothing below player, not on ground, add vertical speed to player
		oldy = oldy + vy;
		ground = 0;
	}
	
	//jumptimer will decrease only when player is back on ground
	//creates a pause between two successive jumps
	if ( ground == 1 && jumptimer > 0 ) jumptimer--;
	
	//handle horizontal movement as sliding
	//player only collides with group 1 (level) objs and moves freely through others
	collide = SC_SphereSlideGroup( 1, oldx,oldy,oldz, x,oldy,z, radius,0 );
	
	if ( collide > 0 )
	{
		//if hit, reposition player, halt movement vector
		x = SC_GetCollisionSlideX();
		oldy = SC_GetCollisionSlideY();
		z = SC_GetCollisionSlideZ();
		vx = 0;
		vz = 0;
		
		//possible code for giving the player a jumping help up stairs...
		//might be useful if slope# is set very high but stairs are still required
		//dy = oldy - SC_GetStaticCollisionY()
		//if ( dy < slope && dy > 0 && ground == 1 ) vy = 0.5;
	}
	
	//position the player
	dbPositionObject( 2,x,oldy,z );
	
	SC_UpdateObject( 2 );
}

void positionCameraToObject( int obj, int thirdPerson)
{
	dbPositionCamera( dbObjectPositionX(2),dbObjectPositionY(2),dbObjectPositionZ(2) );
	dbRotateCamera( dbObjectAngleX(2),dbObjectAngleY(2),dbObjectAngleZ(2) );
//	if ( thirdPerson == 1 )
//	{
//		dbPitchCameraDown( 10 );
//		dbMoveCamera( -30 );
//	}
}

void DarkGDK( )
{
	dbSyncOn( );
	dbSyncRate( 60 );

	dbAutoCamOff( );

	dbRandomize( dbTimer() );

	SC_Start( );

	makeLevel();
	makePlayer();

	while( LoopGDK( ) )
	{
		
		movePlayer();
		
		//change view
		if ( strcmp(dbInKey(), "v") == 0 && vtimer < dbTimer() ) 
		{
			vtimer = dbTimer() + 300;
			view = 1 - view;
		}
		
		//enable/disable sync limit
		if ( strcmp(dbInKey(), "l") == 0 && stimer < dbTimer() )
		{
			stimer = dbTimer() + 300 ;
			syncmode = 60 - syncmode;
			dbSyncRate( syncmode );
		}
		
		positionCameraToObject( 2, view );
			
		dbText( 0,0,"Use W/A/S/D to move, SPACE to jump and V to change view" );
		dbText( 0,20,"Press L to enable/disable sync limiting" );
		//dbText( 0,40,"Press RETURN to show/hide colored spheres" );
		dbText(0,40,"X=");
		dbText(0,60,"Y=");
		dbText(0,80,"Z=");
		dbText(20, 40,dbStr(dbObjectPositionX(2)));
		dbText(20, 60,dbStr(dbObjectPositionY(2)));
		dbText(20, 80,dbStr(dbObjectPositionZ(2)));


		char str [ 128 ];
		sprintf_s( str, 128, "FPS: %d", dbScreenFPS( ) );		dbText( 0,100,str );
		sprintf_s( str, 128, "Touching Ground: %d", ground );	dbText( 0,120,str );
		
		dbSync( );
	}
}