function main()
{
... // do some initialization
    if(!session_connect(app_name,"")) // no client found on the localhost?
      session_open(app_name); // start as server

// => IMPORTANT!!
  while(dplay_status < 2) wait(1); // wait until the session is opened or joined
	
  dplay_localfunction = 2;
  level_load("level.wmb");
  while(dplay_status < 6) wait(1); // wait until the level is up to date

  if (connection & CONNECT_SERVER) {
// do server stuff...
  } else { 
// do client stuff...
  }
... // do more initialization...

}

while(!my.client_id) wait(1);

PANEL* testPNL = {
	flags = SHOW;
	digits(0,0,6.4,*,1,player.skill1);
	digits(0,10,6.4,*,1,player.skill98);
	digits(0,20,6.4,*,1,dplay_id);
	digits(0,30,6.4,*,1,player.client_id);
}

void fPlayer()
{
	set(my,TRANSLUCENT);
	
	while(my == NULL){wait(1);beep();}
	
	player = my;
	
	if(connection == 1 || connection == 3)
	{
		my.skill1 = 100;
	}
	
	if(connection == 2)
	{
		my.skill = 50;
	}
	
	while(my.skill1 == 50)
	{
		wait(-2);
		if(connection == 2 && my.skill1 == 50)
		{
			my.skill98 = dplay_id;
			send_skill(my.skill98,0);
			beep();
		}
	}

	wait(-0.5);

	reset(my,TRANSLUCENT);

	if(connection == 2)
	{
		my.skill1 = 25;
	}

	while(1)
	{
		wait(1);
		
		if(connection == 2 && my.skill1 == 25)
		{
			my.skill98 = dplay_id;
			send_skill(my.skill98,0);
			while(my.skill1 != 1000)
			{
				wait(1);
			}
		}
		
		if(my.skill98 != 0 && (connection == 1 || connection == 3))
		{
			wait(-1);
			my.skill1 = 1000;
			beep();
			send_skill_id(my.skill98,my.skill1,0);
			beep();
			my.skill98 = 0;
		}
	}
}

void main()
{
	dplay_localfunction = 2;		//run actions on both server and client
	
	while(dplay_status < 2) wait(1);
	
	level_load("valiance.wmb");
	
	while(dplay_status < 6) wait(1);
	
	#ifdef server						//if we defined this game as a server
		while(connection == 0) {wait(1);}	// wait until we have a connection
	#endif

	#ifdef client						//if we defined this game as a client
		while(connection == 0) {wait(1);}	// wait until we have a connection
	#endif
	
	if(connection == 1 || connection == 3)
	{
		player = ent_create("testing.mdl",vector(100,0,0),fPlayer);
	}
}

while(!my.client_id) wait(1);

PANEL* testPNL = {
	flags = SHOW;
	digits(0,0,6.4,*,1,player.skill1);
	digits(0,10,6.4,*,1,player.skill98);
	digits(0,20,6.4,*,1,dplay_id);
	digits(0,30,6.4,*,1,player.client_id);
}

void fPlayer()
{
	while(my.client_id < 0) wait(1);
	
	set(my,TRANSLUCENT);
	
	while(my == NULL){wait(1);}
	
	player = my;
	
	if(connection == 1 || connection == 3)
	{
		my.skill1 = 100;
	}
	
	if(connection == 2)
	{
		my.skill1 = 50;
	}
	
	//my.ENABLE_RECEIVE = ON; // sensible for this event
	my.emask |= ENABLE_RECEIVE;
	
	
	while(my.skill1 == 50)
	{
		wait(-2);
		if(connection == 2 && my.skill1 == 50)
		{
			my.skill98 = dplay_id;
			send_skill(my.skill98,0);
			beep();
		}
	}

	wait(-0.5);

	reset(my,TRANSLUCENT);

	if(connection == 2)
	{
		my.skill1 = 25;
	}

	while(1)
	{
		wait(1);
		
		if(connection == 2 && my.skill1 == 25)
		{
			my.skill98 = dplay_id;
			send_skill(my.skill98,0);
			while(my.skill1 != 1000)
			{
				wait(1);
			}
			break;
		}
		
		if(my.skill98 != 0 && (connection == 1 || connection == 3))
		{
			wait(-1);
			my.skill1 = 1000;
			send_skill_id(my.skill98,my.skill1,0);
			my.skill98 = 0;
		}
	}
	
	beep();
	beep();
	beep();
}

void main()
{
	dplay_localfunction = 2;		//run actions on both server and client
	
	while(dplay_status < 2) wait(1);
	
	level_load("valiance.wmb");
	
	while(dplay_status < 6) wait(1);
	
	#ifdef server						//if we defined this game as a server
		while(connection == 0) {wait(1);}	// wait until we have a connection
	#endif

	#ifdef client						//if we defined this game as a client
		while(connection == 0) {wait(1);}	// wait until we have a connection
	#endif
	
	if(connection == 1 || connection == 3)
	{
		player = ent_create("testing.mdl",vector(100,0,0),fPlayer);
	}
}

ENTITY* item;	//a pointer not called player to eliminate confusion
var itemSkill1;//a global variable for the item's skill1 so that the engine doesnt return a "IDK what item.skill1 is" error
var itemClient_id;//this is the items's client_id of the item's maker. This should be zero because the SERVER made this entity
var vClientid;	//a variable to indicate the client_id of a client that has just joined

PANEL* testPNL = {
	flags = SHOW;
	digits(0,0,"item.skill1: %.3f",*,1,itemSkill1);
	digits(0,10,"dplay_id: %.3f",*,1,dplay_id);
	digits(0,20,"item.client_id: %.3f",*,1,itemClient_id);
	digits(0,30,"vClientid: %.3f",*,1,vClientid);
}

function on_server_event(void* str,var id) // automatically assigned to on_server
{
	if(event_type == EVENT_JOIN)	//if a client joined
	{
		vClientid = id;	//store the ID of the client that just joined into a global variable
	}
}

void fItem()
{
	while(my.client_id < 0) wait(1);	//this item is created on the server there for client_id will be zero but I'll include it anyway
	item = my;	//this is an item
	
	if(connection & CONNECT_SERVER)	//in my game the server would assign the item an ID number so i'll do the same here for skill1
	{
		my.skill1 = 1000;
	}
	else										//if we're not a server we're a client
	{
		while(my.skill1 != 1000)		//wait until our skill1 because the value we know it should be. In this case 1000
		{
			itemSkill1 = my.skill1;		//since we're locked in this loop forever because send_skill_id isn't working I want
			itemClient_id = my.client_id;//to update our client_id and skill1 values.
			wait(1);
		}
	}
	
	while(1)
	{
		wait(1);
		
		itemSkill1 = my.skill1;				//this only works on the server because the client never makes it to this point
		itemClient_id = my.client_id;		//because it's skill1 never changes from zero
		
		if(connection & CONNECT_SERVER)
		{
			send_skill_id(vClientid,my.skill1,0);	//the server sends the vClientid FOREVER but the client never seems to receive it
		}														//regardless of the fact that the client's dplay_id is equal to vClient_id which 
		else													//is the where the server is sending information to.
		{
			if(my.skill1 != 0)	//if the client would ever make it to this point the problem is solved and we break out of the while loop
			{
				break;
			}
		}
	}
	
	beep();	//two beeps indicate success!!
	beep();
}

on_server = on_server_event;	//if a client joins two parameters are passed: the player's name and the client identification number
//this is all in the manual if you look up on_server.
void main()
{
	if (!connection) { // not started with -cl / -sv -cl?
		if (!session_connect(app_name,"")) // no client found on the localhost?
		session_open(app_name); // start as server
	}
	
	do{wait(1);}
	while(dplay_status < 2); // wait until the session is opened or joined
	
	dplay_localfunction = 2;		//run actions on both server and client
	
	level_load("valiance.wmb");	// load the level
	
	if(connection & CONNECT_SERVER)	//are we a server?
	{
		ent_create("testing.mdl",vector(100,0,0),fItem); //OMG a monster was killed!!! Drop an item ont he server!
	}
}