#include "SpielKlasse.h"
#include <time.h>
#include <Schrift.h>
#include <MausEreignis.h>
#include <TastaturEreignis.h>

// Inhalt der SpielKlasse Klasse aus SpielKlasse.h
// Konstruktor
SpielKlasse::SpielKlasse()
    : ReferenceCounter()
{
    uiFactory.initParam.bildschirm = 0;
    spielZeit = 0;
    rZeit = 0;
    spielPause = 1;
    rendern = 0;
    stkn = new RCArray< STKNachricht >();
    stkna = 0;
    time_t t;
    time( &t );
    srand( (unsigned int)t );
    infoKlient = 0;
    spielKlient = 0;
    spieler = new RCArray< Spieler >();
    kam = 0;
    spielerAnzahl = 0;
    karteId = 0;
    spielerNummer = 0;
    map = 0;
    rEnd = 0;
    end = 0;
    chat = 0;
    tasten = new char[ 256 ];
    for( int i = 0; i < 256; i++ )
        tasten[ i ] = 0;
    mx = -1;
    my = -1;
    bestenliste = 0;
}

// Destruktor
SpielKlasse::~SpielKlasse()
{
    stkn->release();
    if( infoKlient )
        infoKlient->release();
    if( spielKlient )
        spielKlient->release();
    if( kam )
        kam->release();
    if( map )
        map->release();
    if( rEnd )
        rEnd->release();
    if( end )
        end->release();
    if( bestenliste )
        bestenliste->release();
    if( chat )
        chat->release();
    spieler->release();
    delete[] tasten;
}

// privat
bool SpielKlasse::istAmLeben() const
{
    for( int i = 0; i < spielerAnzahl; i++ )
    {
        if( spieler->z( i )->getSpielerNummer() == spielerNummer )
            return spieler->z( i )->istAmLeben();
    }
    return 0;
}

// nicht constant
void SpielKlasse::lock()
{
    if( uiFactory.initParam.bildschirm )
        uiFactory.initParam.bildschirm->lock();
}

void SpielKlasse::unlock()
{
    if( uiFactory.initParam.bildschirm )
        uiFactory.initParam.bildschirm->unlock();
}

void SpielKlasse::setUIFactory( UIInit &factory )
{
    chat = new SpielChat( uiFactory );
    uiFactory = factory;
}

void SpielKlasse::nachricht( int län, char *bytes )
{
    if( !län )
        return;
    lock();
    stkn->add( new STKNachricht( län, bytes ), stkna );
    stkna++;
    unlock();
}

void SpielKlasse::setKlients( KSGClient::InformationServerClient *infoKlient, KSGClient::SpielServerClient *spielKlient )
{
    if( this->infoKlient )
        this->infoKlient->release();
    this->infoKlient = infoKlient;
    if( this->spielKlient )
        this->spielKlient->release();
    this->spielKlient = spielKlient;
}

void SpielKlasse::setKarteId( int karteId )
{
    this->karteId = karteId;
}

void SpielKlasse::ladeDaten()
{
    kam = new Kamera();
    kam->setSize( 400, 400 );
    map = new Karte();
    map->setId( karteId );
    for( int i = 1; i <= 100; i++ )
    {
        Sleep( 100 + ( rand() % 100 ) );
        spielKlient->setLadenProzent( i );
    }
}

void SpielKlasse::doPublicMausEreignis( MausEreignis &me )
{
    if( end )
    {
        end->doPublicMausEreignis( me );
        return;
    }
    if( !istAmLeben() && kam->istMausIn( me.mx, me.my ) )
    {
        if( ( me.id == ME_RLinks || me.id == ME_RRechts ) && mx >= 0 )
        {
            mx = -1;
            my = -1;
        }
        if( me.id == ME_Bewegung && mx >= 0 )
        {
            kam->addPosition( mx - me.mx, my - me.my, map );
            mx = me.mx;
            my = me.my;
        }
        if( ( me.id == ME_PLinks || me.id == ME_PRechts ) && mx < 0 )
        {
            mx = me.mx;
            my = me.my;
        }
        me.verarbeitet = 1;
    }
    else
    {
        mx = -1;
        my = -1;
    }
    if( chat )
        chat->doPublicMausEreignis( me );
    if( bestenliste )
        bestenliste->doPublicMausEreignis( me );
}

void SpielKlasse::doTastaturEreignis( TastaturEreignis &te )
{
    if( end )
        return;
    if( istAmLeben() )
    {
        if( te.id == TE_Press )
        {
            switch( te.taste )
            {
            case T_Links:
                if( !tasten[ T_Links ] )
                {
                    tasten[ T_Links ] = 1;
                    char byte = 0;
                    spielKlient->spielNachricht( 1, &byte );
                    te.verarbeitet = 1;
                }
                break;
            case T_Rechts:
                if( !tasten[ T_Rechts ] )
                {
                    tasten[ T_Rechts ] = 1;
                    char byte = 2;
                    spielKlient->spielNachricht( 1, &byte );
                    te.verarbeitet = 1;
                }
                break;
            }
        }
        if( te.id == TE_Release )
        {
            switch( te.taste )
            {
            case T_Links:
                if( tasten[ T_Links ] )
                {
                    tasten[ T_Links ] = 0;
                    char byte = 1;
                    spielKlient->spielNachricht( 1, &byte );
                    te.verarbeitet = 1;
                }
                break;
            case T_Rechts:
                if( tasten[ T_Rechts ] )
                {
                    tasten[ T_Rechts ] = 0;
                    char byte = 3;
                    spielKlient->spielNachricht( 1, &byte );
                    te.verarbeitet = 1;
                }
                break;
            }
        }
    }
    else
    {
        if( te.id == TE_Press )
        {
            switch( te.taste )
            {
            case T_Links:
                kam->addPosition( -2, 0, map );
                te.verarbeitet = 1;
                break;
            case T_Oben:
                kam->addPosition( 0, -2, map );
                te.verarbeitet = 1;
                break;
            case T_Rechts:
                kam->addPosition( 2, 0, map );
                te.verarbeitet = 1;
                break;
            case T_Unten:
                kam->addPosition( 0, 2, map );
                te.verarbeitet = 1;
                break;
            }
        }
    }
    if( !te.verarbeitet && chat )
        chat->doTastaturEreignis( te, spielKlient );
}

void SpielKlasse::stknVerarbeitung()
{
    lock();
    for( int i = 0; i < stkna; i++ )
    {
        STKNachricht *n = stkn->z( i );
        double zeit = n->getSpielZeit();
        if( zeit > spielZeit && ( !rEnd || !rEnd->istSichtbar() ) )
            break;
        int län = n->getLength();
        char *bytes = n->getNachricht();
        län--;
        switch( bytes[ 0 ] )
        {
        case 0: // set Spieler Nummer
            bytes++;
            spielerNummer = *(int *)bytes;
            län -= 4;
            break;
        case 1: // init Spieler
            if( 1 )
            {
                bytes++;
                spielerAnzahl = *(int *)bytes;
                län -= 4;
                bytes += 4;
                int maxTeam = 0;
                for( int i = 0; i < spielerAnzahl; i++ )
                {
                    Spieler *tmp = new Spieler( infoKlient );
                    int sNum = *(int *)bytes;
                    län -= 4;
                    bytes += 4;
                    tmp->setSpielerNummer( sNum );
                    int team = *(int *)bytes;
                    län -= 4;
                    bytes += 4;
                    maxTeam = maxTeam < team ? team : maxTeam;
                    tmp->setTeam( team );
                    int sFarbe = *(int *)bytes;
                    län -= 4;
                    bytes += 4;
                    tmp->setSpielerFarbe( sFarbe );
                    int tFarbe = *(int *)bytes;
                    län -= 4;
                    bytes += 4;
                    tmp->setTeamFarbe( tFarbe );
                    int accId = *(int *)bytes;
                    län -= 4;
                    bytes += 4;
                    tmp->setAccountId( accId );
                    bestenliste->addSpieler( tmp );
                    bestenliste->updateSpielerStatus( tmp );
                    spieler->set( tmp, i );
                }
                bestenliste->setTeamAnzahl( maxTeam + 1 );
            }
            break;
        case 2: // setze Spieler Position
            if( 1 )
            {
                bytes++;
                int sNum = *(int *)bytes;
                län -= 4;
                bytes += 4;
                double posX = *(double *)bytes;
                län -= 8;
                bytes += 8;
                double posY = *(double *)bytes;
                län -= 8;
                for( int i = 0; i < spielerAnzahl; i++ )
                {
                    if( spieler->z( i )->getSpielerNummer() == sNum )
                        spieler->z( i )->setPos( posX, posY );
                }
                if( spielerNummer == sNum )
                    kam->setPosition( (int)posX, (int)posY );
            }
            break;
        case 3: // setzt kammera größe
            if( 1 )
            {
                bytes++;
                int br = *(int *)bytes;
                län -= 4;
                bytes += 4;
                int hö = *(int *)bytes;
                län -= 4;
                kam->setSize( br, hö );
            }
            break;
        case 4: // Zeit Beginn
            spielPause = 0;
            spielZeit = 0;
            rZeit = 0;
            rendern = 1;
            break;
        case 5: // spieler ist tod
            if( 1 )
            {
                bytes++;
                int sNum = *(int *)bytes;
                län -= 4;
                Text *zName = 0;
                for( int i = 0; i < spielerAnzahl; i++ )
                {
                    int team = spieler->z( i )->getTeam();
                    int player = spieler->z( i )->getSpielerNummer();
                    if( player == sNum )
                    {
                        spieler->z( i )->sterben( map->zMap(), zeit, spielZeit );
                        bestenliste->updateSpielerStatus( spieler->z( i ) );
                        zName = spieler->z( i )->zName();
                        bool teamLebt = 0;
                        for( int j = 0; j < spielerAnzahl; j++ )
                        {
                            if( spieler->z( j ) && spieler->z( j )->getTeam() == team )
                                teamLebt |= spieler->z( j )->istAmLeben();
                        }
                        if( !teamLebt )
                        {
                            for( int j = 0; j < bestenliste->getTeamAnzahl(); j++ )
                            {
                                if( bestenliste->teamExistiert( j ) )
                                {
                                    bool amLeben = 0;
                                    for( int k = 0; k < spielerAnzahl; k++ )
                                    {
                                        if( spieler->z( k ) && spieler->z( k )->getTeam() == j )
                                            amLeben |= spieler->z( k )->istAmLeben();
                                    }
                                    if( amLeben )
                                        bestenliste->addPunkt( j, 1 );
                                    else
                                        bestenliste->addPunkt( j, 0 );
                                    if( bestenliste->getTeamPunkte( j ) <= 0 )
                                        bestenliste->setTeamStatus( j, "tot", 0xFFFF0000 );
                                }
                            }
                        }
                    }
                    else
                    {
                        if( spieler->z( i )->istAmLeben() )
                            bestenliste->addPunkt( team, player, 1 );
                    }
                }
                if( sNum == spielerNummer && chat )
                    chat->addNachricht( "Du bist gestorben.", 0xFFFFFF00 );
                else if( zName && chat )
                {
                    Text *txt = new Text( zName->getText() );
                    txt->append( " ist gestorben." );
                    chat->addNachricht( txt->getText(), 0xFFFFFF00 );
                    txt->release();
                }
            }
            break;
        case 6: // spiel Ende
            if( 1 )
            {
                bestenliste->updatePunkte();
                bytes++;
                char gewonnen = *bytes;
                län--;
                end = new Ende( uiFactory );
                end->setGewonnen( gewonnen );
            }
            break;
        case 7: // set Spieler Geschwindigkeit
            if( 1 )
            {
                bytes++;
                int sNum = *(int *)bytes;
                län -= 4;
                bytes += 4;
                double xSpeed = *(double *)bytes;
                län -= 8;
                bytes += 8;
                double ySpeed = *(double *)bytes;
                län -= 8;
                for( int i = 0; i < spielerAnzahl; i++ )
                {
                    if( spieler->z( i )->getSpielerNummer() == sNum )
                        spieler->z( i )->setSpeed( xSpeed, ySpeed );
                }
            }
            break;
        case 8: // set Spieler Wendigkeit
            if( 1 )
            {
                bytes++;
                int sNum = *(int *)bytes;
                län -= 4;
                bytes += 4;
                double kurve = *(double *)bytes;
                län -= 8;
                for( int i = 0; i < spielerAnzahl; i++ )
                {
                    if( spieler->z( i )->getSpielerNummer() == sNum )
                        spieler->z( i )->setKurveSpeed( kurve );
                }
            }
            break;
        case 9: // set Spieler Kurve
            if( 1 )
            {
                bytes++;
                int sNum = *(int *)bytes;
                län -= 4;
                bytes += 4;
                char k = *bytes;
                län--;
                if( k == 0 )
                {
                    for( int i = 0; i < spielerAnzahl; i++ )
                    {
                        if( spieler->z( i )->getSpielerNummer() == sNum )
                        {
                            spieler->z( i )->setLinksKurve( map->zMap(), 0, zeit, spielZeit );
                            spieler->z( i )->setRechtsKurve( map->zMap(), 0, zeit, spielZeit );
                        }
                    }
                }
                else if( k == 1 )
                {
                    for( int i = 0; i < spielerAnzahl; i++ )
                    {
                        if( spieler->z( i )->getSpielerNummer() == sNum )
                            spieler->z( i )->setLinksKurve( map->zMap(), 1, zeit, spielZeit );
                    }
                }
                else if( k == 2 )
                {
                    for( int i = 0; i < spielerAnzahl; i++ )
                    {
                        if( spieler->z( i )->getSpielerNummer() == sNum )
                            spieler->z( i )->setLinksKurve( map->zMap(), 0, zeit, spielZeit );
                    }
                }
                else if( k == 3 )
                {
                    for( int i = 0; i < spielerAnzahl; i++ )
                    {
                        if( spieler->z( i )->getSpielerNummer() == sNum )
                            spieler->z( i )->setRechtsKurve( map->zMap(), 1, zeit, spielZeit );
                    }
                }
                else if( k == 4 )
                {
                    for( int i = 0; i < spielerAnzahl; i++ )
                    {
                        if( spieler->z( i )->getSpielerNummer() == sNum )
                            spieler->z( i )->setRechtsKurve( map->zMap(), 0, zeit, spielZeit );
                    }
                }
                else if( k == 5 )
                {
                    for( int i = 0; i < spielerAnzahl; i++ )
                    {
                        if( spieler->z( i )->getSpielerNummer() == sNum )
                        {
                            spieler->z( i )->setLinksKurve( map->zMap(), 1, zeit, spielZeit );
                            spieler->z( i )->setRechtsKurve( map->zMap(), 1, zeit, spielZeit );
                        }
                    }
                }
            }
            break;
        case 0xA: // set Karte Größe
            if( 1 )
            {
                bytes++;
                int br = *(int *)bytes;
                län -= 4;
                bytes += 4;
                int hö = *(int *)bytes;
                län -= 4;
                map->setSize( br, hö );
            }
            break;
        case 0xB: // chat Nachricht
            if( 1 )
            {
                bytes++;
                Text *txt = new Text( "" );
                txt->append( bytes, län );
                if( chat )
                    chat->addNachricht( txt->getText() );
                txt->release();
                län = 0;
            }
            break;
        case 0xC: // Spieler Linien Unterbrechung
            if( 1 )
            {
                bytes++;
                int sNum = *(int *)bytes;
                län -= 4;
                bytes += 4;
                char unterbrechung = *bytes;
                län--;
                for( int i = 0; i < spielerAnzahl; i++ )
                {
                    Spieler *tmp = spieler->z( i );
                    if( tmp && tmp->getSpielerNummer() == sNum )
                        tmp->setLinienUnterbrechung( map->zMap(), unterbrechung != 0, zeit, spielZeit );
                }
            }
            break;
        case 0xD: // Max Team Punkte 
            if( 1 )
            {
                bytes++;
                int team = *(int *)bytes;
                län -= 4;
                bytes += 4;
                int mP = *(int *)bytes;
                län -= 4;
                bestenliste->setTeamMaxPunkte( team, mP );
            }
            break;
        case 0xE: // Team Punkte
            if( 1 )
            {
                bytes++;
                int team = *(int *)bytes;
                län -= 4;
                bytes += 4;
                int p = *(int *)bytes;
                län -= 4;
                bestenliste->setTeamPunkte( team, p );
                if( !p )
                    bestenliste->setTeamStatus( team, "tot", 0xFFFF0000 );
            }
            break;
        case 0xF: // Spieler Punkte
            if( 1 )
            {
                bytes++;
                int sNum = *(int *)bytes;
                län -= 4;
                bytes += 4;
                int p = *(int *)bytes;
                län -= 4;
                for( int i = 0; i < spielerAnzahl; i++ )
                {
                    if( spieler->z( i ) && spieler->z( i )->getSpielerNummer() == sNum )
                    {
                        bestenliste->setSpielerPunkte( spieler->z( i )->getTeam(), sNum, p );
                        break;
                    }
                }
            }
            break;
        case 0x10: // Team Tod
            if( 1 )
            {
                bytes++;
                int team = *(int *)bytes;
                län -= 4;
                bestenliste->setTeamPunkte( team, 0 );
                bestenliste->setTeamStatus( team, "tot", 0xFFFF0000 );
                for( int i = 0; i < spielerAnzahl; i++ )
                {
                    if( spieler->z( i ) && spieler->z( i )->getTeam() == team )
                    {
                        spieler->z( i )->sterben();
                        bestenliste->updateSpielerStatus( spieler->z( i ) );
                    }
                }
            }
            break;
        case 0x11: // Runden Ende
            if( 1 )
            {
                spielPause = 1;
                bytes++;
                int team = *(int *)bytes;
                län -= 4;
                bool gewonnen = 0;
                for( int i = 0; i < spielerAnzahl; i++ )
                {
                    if( spieler->z( i )->getSpielerNummer() == spielerNummer )
                    {
                        gewonnen = spieler->z( i )->getTeam() == team;
                        break;
                    }
                }
                rEnd->setGewonnen( gewonnen );
                bestenliste->updatePunkte();
                rEnd->setSichtbar( 1 );
            }
            break;
        case 0x12: // Verbleibende Zeit
            if( 1 )
            {
                bytes++;
                int sek = *(int *)bytes;
                län -= 4;
                rEnd->setZeit( sek );
                if( !sek )
                {
                    if( rEnd && rEnd->istSichtbar() )
                    {
                        rEnd->setSichtbar( 0 );
                        rEnd->setZeit( 6 );
                        for( int i = 0; i < spielerAnzahl; i++ )
                        {
                            if( spieler->z( i ) )
                            {
                                spieler->z( i )->neuRunde();
                                if( !bestenliste->getTeamPunkte( spieler->z( i )->getTeam() ) )
                                    spieler->z( i )->sterben();
                                bestenliste->updateSpielerStatus( spieler->z( i ) );
                            }
                        }
                    }
                }
            }
            break;
        case 0x13: // Team Name
            if( 1 )
            {
                bytes++;
                int team = *(int *)bytes;
                län -= 4;
                bytes += 4;
                char *n = new char[ län + 1 ];
                n[ län ] = 0;
                memcpy( n, bytes, län );
                län -= län;
                bestenliste->setTeamName( team, n );
                delete[] n;
            }
            break;
        default:
            // Fehler beim verarbeiten
            break;
        }
        if( län != 0 && chat )
        {
            // Fehler beim verarbeiten
            chat->addNachricht( "Es ist ein Fehler beim verarbeiten einer Nachricht aufgetreten.", 0xFFFF0000 );
        }
        n->setVerarbeitet();
    }
    for( int i = stkna; i > 0; i-- )
    {
        if( !stkn->z( 0 ) || !stkn->z( 0 )->istVerarbeitet() )
            break;
        stkna--;
        stkn->remove( 0 );
    }
    unlock();
}

bool SpielKlasse::tick( double zeit )
{
    if( spielPause )
    {
        zeit = 0;
        stknVerarbeitung();
    }
    rZeit += zeit;
    while( spielZeit + TICK < rZeit )
    {
        spielZeit += TICK;
        stknVerarbeitung();
        if( end )
            return 1;
        if( !rEnd->istSichtbar() )
        {
            int x = 0;
            int y = 0;
            bool setKam = 0;
            lock();
            for( int i = 0; i < spielerAnzahl; i++ )
            {
                spieler->z( i )->tick( map->zMap(), TICK );
                if( spielerNummer == spieler->z( i )->getSpielerNummer() )
                {
                    x = (int)spieler->z( i )->getX();
                    y = (int)spieler->z( i )->getY();
                    setKam = spieler->z( i )->istAmLeben();
                }
            }
            unlock();
            if( setKam )
            {
                double px = ( ( x - kam->getX() ) / 100.0 ) * ( 50 * TICK );
                double py = ( ( y - kam->getY() ) / 100.0 ) * ( 50 * TICK );
                kam->addPosition( (int)px, (int)py, map );
            }
        }
        if( chat )
            chat->tick( !zeit ? 0.05 : zeit );
    }
    return 1;
}

void SpielKlasse::render( Bild &zRObj )
{
    if( !rendern )
        return;
    lock();
    if( chat )
        chat->render( zRObj );
    if( bestenliste )
        bestenliste->render( zRObj );
    kam->render( zRObj );
    int x = kam->getRX( kam->getLinks() ) + 1, y = kam->getRY( kam->getOben() ) + 1;
    if( zRObj.setDrawOptions( x, y, kam->getRechts() - kam->getLinks() - 2, kam->getUnten() - kam->getOben() - 2 ) )
    {
        zRObj.addScrollOffset( x, y );
        map->render( kam, zRObj );
        for( int i = 0; i < spielerAnzahl; i++ )
            spieler->z( i )->render( kam, zRObj );
        zRObj.releaseDrawOptions();
    }
    if( rEnd )
        rEnd->render( zRObj );
    if( end )
        end->render( zRObj );
    unlock();
}

// constant
int SpielKlasse::läuft() const
{
    if( !rendern )
        return 3;
    if( !end )
        return 2;
    if( end && !end->getWeiter() )
        return 1;
    if( end && end->getWeiter() )
        return 0;
    return 0;
}