#include "Flatline.h"
#include "Flatline_Server.h"

int total_players = 0;
uint16_t max_connections = MAX_CONNECTIONS;

player_info* FLrServer_AddPlayer(int ip, char* name, bool is_server) {
	flatline_packet new_char = {0};
	CharacterObject* Char;
	uint32_t player_slot = 0;
	int playerlist_slot = 0;
	if(is_server) goto server;
	if(total_players < max_connections) {
		char* zero = strchr(name, 0);
		int i = 0;
		int k = 0;
		playerlist_slot = FLr_FindEmptyListSlot();
		

		total_players++;

		//send new player packet to all players
		//char tempname[32] = {0};

		//checks to see if a name exists or not
		//then appends [#] on the end of it if it does
		
		if(zero - name > 28) zero = name + 28; 
		for(i = 0; i < max_connections; i++) {
			if(PlayerList[i] != 0 && !strcmp(name, PlayerList[i]->name)) {
				k++;				
				sprintf(zero, "[%i]", k);
				i = 0;
			}
		}

server:		;
		//memset( new_char, 0, sizeof(new_char);
		//new_char = {0};
		Char = &new_char.new_player.Character;
		memset(Char, 0, sizeof(CharacterObject));
		Char->Header.Type = 'CHAR';
		//Char->OSD.Options = char_dontaim;
		sprintf(Char->OSD.Name,"%s",name);
		sprintf(Char->OSD.Class, "%s", "konoko_generic");
		
		
		
		//TMrInstance_GetDataPtr('ONCC', "striker_easy_1", PlayerList[playerlist_slot]->Chr->ONCC);
		

		new_char.id = NEW_PLAYER;
		if(!is_server) { 
			ONrGameState_NewCharacter(Char, NULL, NULL, &(player_slot));
			//move this to a set up characters function...
			ONgGameState->CharacterStorage[player_slot].field_1E8 = 0;

			PlayerList[playerlist_slot] = Players+player_slot;
			PlayerList[playerlist_slot]->spawnnumber = player_slot;
			PlayerList[playerlist_slot]->Chr = &((Character *)(((GameState * )(ONgGameState))->CharacterStorage))[player_slot];
//			PlayerList[playerlist_slot]->Chr->Flags = chr_dontaim | chr_unkillable; //&= 0xFFBFFFFF; //WTF
			PlayerList[playerlist_slot]->Chr->Flags &= 0xFFBFFFFF; //WTF
			sprintf(PlayerList[playerlist_slot]->Chr->Name, "%.31s", name);		
			UDPServer_SendToAll( (char*)&new_char, sizeof(new_player) + FLATLINE_HEADER );
			
		}
		else {
			PlayerList[0] = Players;
			PlayerList[0]->Chr = (Character *)(((GameState * )(ONgGameState))->CharacterStorage);
		}

		//add player to list
		
		PlayerList[playerlist_slot]->ip = ip;
		PlayerList[playerlist_slot]->list_slot = playerlist_slot;
		sprintf(PlayerList[playerlist_slot]->name,"%.31s",name);
		
		return &Players[player_slot];
	}
	return (player_info*)(-1);
}

void FLrServer_Initialize(){
	FLrServer_AddPlayer(inet_addr("127.0.0.1"), "host", 1);
}

//UDPServer_SendToAll
//Sends a packet to all the clients currently connected.
//Returns the number of players sent to.
int UDPServer_SendToAll(void* packet, int size) {
	int j;
	int players = 0;
	sockaddr_in address;
	memset(&address, 0, sizeof(sockaddr_in)); 
	address.sin_family = AF_INET;
	address.sin_addr.s_addr = htonl(INADDR_ANY);
	address.sin_port = htons(27777);
	for(j = 0; j < max_connections; j++) {
		if (PlayerList[j] != 0 && PlayerList[j]->ip && (PlayerList[j]->ip != inet_addr("127.0.0.1"))) {
			int sent_bytes;
			address.sin_addr.s_addr = htonl(PlayerList[j]->ip);//*((struct in_addr*)(int*)&(Players[j].ip));		
			sent_bytes = NetUDPServer_Send((sockaddr *) &address, (char*)packet, size);
			if(sent_bytes == SOCKET_ERROR) NetCatchError();
			else players++;
		}
	}
	return players;
}