source: Daodan/MSVC/Flatline_Server.c@ 585

#include "Flatline.h"
#include "Flatline_Server.h"
#include <Windows.h>

//I hereby apologize for the uglyness of the below code. 
//It was never intended to be "final" code, much less shared with anyone

int total_players = 0;
uint16_t max_connections = MAX_CONNECTIONS;

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

                //Skip for the host
                if(!is_server)
                {
                        char* zero = strchr(name, 0);
                        playerlist_slot = FLr_FindEmptyListSlot();

                        total_players++;

                        //checks to see if a name exists or not
                        //then appends [#] on the end of it if it does
                        //May be buggy, come back to this.
                        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;
                                }
                        }
                }
                
                new_char.new_player.Playernumber = playerlist_slot; 

                //Set up a new Character structure to be spawned as the new player.
                //Can this code be surrounded with if(!is_server){}?
                Char = &new_char.new_player.Character;
                memset(Char, 0, sizeof(CharacterObject));
                Char->Header.Type = 'CHAR';
                sprintf(Char->OSD.Name,"%s",name);
                sprintf(Char->OSD.Class, "%s", "konoko_generic");
                if(is_bot) {
                        Char->OSD.MeleeID = 22;
                        Char->OSD.JobID = 1;
                        Char->OSD.MinimalAlertLevel = 4;
                        Char->OSD.InvestigatingAlertLevel = 4;
                        Char->OSD.InitialAlertLevel = 4;
                        Char->OSD.StartJobAlertLevel = 4;
                }
                else if( !is_server )
                {
                        Char->Header.Position.X = PlayerList[0]->Chr->Position.X;
                        Char->Header.Position.Y = PlayerList[0]->Chr->Position.Y;
                        Char->Header.Position.Z = PlayerList[0]->Chr->Position.Z;
                }
                
                //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...
                        if(!is_bot) ONgGameState->CharacterStorage[player_slot].charType = 0;

                        PlayerList[playerlist_slot] = Players+player_slot;
                        PlayerList[playerlist_slot]->spawnnumber = player_slot;
                        PlayerList[playerlist_slot]->Chr = &(ONgGameState->CharacterStorage)[player_slot];
                        //PlayerList[playerlist_slot]->Chr->Flags = chr_dontaim | chr_unkillable; //&= 0xFFBFFFFF; //WTF
                        if(!is_bot) PlayerList[playerlist_slot]->Chr->Flags &= 0xFFBFFFFF; //WTF, magic number. 
                        sprintf_s(PlayerList[playerlist_slot]->Chr->Name, 32, "%s", name);              
                        sprintf_s(PlayerList[playerlist_slot]->name, 32, "%s", 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_s(PlayerList[playerlist_slot]->name, 32, "%s", name);           
                
                MultiplayerStatus.PleaseUpdateAllPlayers = 1;

                return &Players[player_slot];
        }
        return (player_info*)(-1);
}

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

//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;
}

//FLsPublic_Event
//Sends an event (door opening, player disconnecting, etc) to all players
//Always make sure you send a pointer to this, even if it is just one arg. ;).
//If it is void the double door in State crashes. Probably stack corruption,
//I'm not sure exactly why.
//So we return 0 to stop that.
int FLsPublic_Event( const unsigned int eventIndex, const int * args )
{
        int numArgs = FLrEvent_GetNumArgs( eventIndex );
        int ret;
        flatline_packet eventPacket = {0};
        eventPacket.id = FLATLINE_EVENT;
        eventPacket.flatline_event.event_index = eventIndex;
        ret = memcpy( eventPacket.flatline_event.intArray, args, sizeof(int) * numArgs );
        ret = UDPServer_SendToAll( &eventPacket, sizeof(int) * (numArgs + 1) + FLATLINE_HEADER );
        return 0;
}

void FLsPingAll()
{
        flatline_packet ping;
        ping.id = PK_PING;
        lastPingTime = ping.ping = GetTickCount();
        UDPServer_SendToAll(&ping, FLATLINE_HEADER + 4);
}

void FLsUpdateName( int index, char* name )
{
        flatline_packet message;
        int message_size;       

        char message_buffer[1024];
        sprintf(message_buffer,"%s changed their name to %s", PlayerList[index]->name, name);
        COrMessage_Print(message_buffer, "name_change", 0);
        
        sprintf_s(PlayerList[index]->name, 32, "%s", name);
        sprintf_s(PlayerList[index]->Chr->Name, 32, "%s", name);

        message.id = CHANGE_NAME;
        message.data[0] = index;
        message_size = sprintf(message.data + 1, "%s", name);

        UDPServer_SendToAll(&message, message_size + 2 + FLATLINE_HEADER);
}