#include "News.h"
#include <DateiSystem.h>
#include <Bildschirm.h>
#include <Punkt.h>
#include <Textfeld.h>
#include <Schrift.h>
#include <Datei.h>
#include <InitDatei.h>

void KSGSRückruf( void *p, RCArray< KSGSVariable > *parameter, KSGSVariable **ret )
{
    if( !p )
        return;
    ( (News *)p )->rückruf( parameter, ret );
}

// Inhalt der News Klasse aus News.h
// Konstruktor
News::News( UIInit &uiFactory, KSGClient::NewsServerClient *client )
    : Thread()
{
    this->client = client;
    // Ladeanimation laden
    Animation2DData *aData = new Animation2DData();
    LTDBDatei *aDatei = new LTDBDatei();
    aDatei->setDatei( new Text( "data/bilder/ladeanimation.ltdb" ) );
    aDatei->leseDaten( 0 );
    aData->ladeAnimation( aDatei );
    aData->setFPS( 30 );
    aData->setWiederhohlend( 1 );
    aData->setTransparent( 0 );
    laden = new Animation2D();
    laden->setPosition( uiFactory.initParam.bildschirm->getBackBufferSize() / 2 - Punkt( 25, 25 ) );
    laden->setSize( 50, 50 );
    laden->setAPS( 450 );
    laden->setAnimationDataZ( aData );
    laden->setRahmen( 1 );
    laden->setRahmenBreite( 1 );
    laden->setRahmenFarbe( 0xFFFFFFFF );
    laden->setSichtbar( 0 );
    uiFactory.initParam.bildschirm->setOnTopZeichnung( dynamic_cast<Zeichnung *>( laden->getThis() ) );
    // Fehler Textfeld Initialisieren
    fehler = uiFactory.createTextFeld( uiFactory.initParam );
    fehler->setStyle( TextFeld::Style::Text & ~TextFeld::Style::Sichtbar );
    fehler->setPosition( 10, 60 );
    fehler->setSize( 480, 312 );
    fehler->setText( "Fehler beim Laden der Seite!\n" );
    uiFactory.initParam.bildschirm->addMember( dynamic_cast<Zeichnung *>( fehler->getThis() ) );
    // Startwerte Initialisieren
    this->uiFactory = uiFactory;
    // DLL Datei Laden
    ksgsDll = LoadLibrary( "data/bin/KSGScript.dll" );
    if( !ksgsDll )
    { // Error
        fehler->addZeile( "Die DLL Datei 'data/bin/KSGScript.dll' wurde nicht gefunden." );
        fehler->addStyle( TextFeld::Style::Sichtbar );
        laden->setSichtbar( 0 );
        uiFactory.initParam.bildschirm->setOnTop( 0 );
        run = 0;
        return;
    }
    KSGSGetZeichnung getKSGSZeichnung = (KSGSGetZeichnung)GetProcAddress( ksgsDll, KSGS_START_FUNKTION );
    if( !getKSGSZeichnung )
    { // Error
        fehler->addZeile( "Die Funktion '" KSGS_START_FUNKTION "' wurde in der\nDLL Datei 'data/bil/KSGScript.dll' nicht gefunden." );
        fehler->addStyle( TextFeld::Style::Sichtbar );
        laden->setSichtbar( 0 );
        run = 0;
        return;
    }
    frame = getKSGSZeichnung();
    if( !frame )
    { // Error
        fehler->addZeile( "Unbekannter Fehler." );
        fehler->addStyle( TextFeld::Style::Sichtbar );
        laden->setSichtbar( 0 );
        run = 0;
        return;
    }
    frame->setSchriftZ( dynamic_cast<Schrift *>( uiFactory.initParam.schrift->getThis() ) );
    frame->setBildschirmZ( dynamic_cast<Bildschirm *>( uiFactory.initParam.bildschirm->getThis() ) );
    frame->setPosition( 10, 60 );
    frame->setSize( 480, 312 );
    frame->setCallbackParam( this );
    frame->setCallbackFunktion( KSGSRückruf );
    uiFactory.initParam.bildschirm->addMember( dynamic_cast<Zeichnung *>( frame->getThis() ) );
    scriptName = new Text( "Patcher/Start" );
    // Lade Thread starten
    start();
}

// Destruktor
News::~News()
{
    if( client )
    {
        client->trenne( 1 );
        client->release();
    }
    if( frame )
    {
        frame->reset();
        frame->setBildschirmZ( 0 );
        uiFactory.initParam.bildschirm->removeMember( frame );
        frame->release();
    }
    if( ksgsDll )
        FreeLibrary( ksgsDll );
    if( scriptName )
        scriptName->release();
    laden->release();
    fehler->release();
}

// nicht constant
void News::rückruf( RCArray< KSGSVariable > *parameter, KSGSVariable **ret )
{
    if( isRunning() )
        return;
    KSGSVariable *bef = parameter->z( 0 );
    if( !bef )
        return;
    Text *sn = bef->getText();
    if( !sn || !sn->getLength() )
    {
        if( sn )
            sn->release();
        return;
    }
    scriptName->setText( sn->getText() );
    sn->release();
    start();
}

void News::thread()
{
    uiFactory.initParam.bildschirm->setOnTop( 1 );
    laden->setSichtbar( 1 );
    frame->reset();
    // KSGScript Seite Herunterladen
    if( client )
    {
        if( !client->verbinde() )
        {
            fehler->addZeile( "Fehler beim verbinden mit dem News-Server." );
            fehler->addStyle( TextFeld::Style::Sichtbar );
            laden->setSichtbar( 0 );
            uiFactory.initParam.bildschirm->setOnTop( 0 );
            return;
        }
        if( !client->ladeSeite( scriptName->getText() ) )
        {
            client->trenne( 0 );
            fehler->addZeile( "Die Seite konnte nicht herruntergeladen werden." );
            fehler->addStyle( TextFeld::Style::Sichtbar );
            laden->setSichtbar( 0 );
            uiFactory.initParam.bildschirm->setOnTop( 0 );
            return;
        }
        client->trenne( 0 );
    }
    else
    {
        fehler->addZeile( "Es steht kein News Client zur Verfügung." );
        fehler->addStyle( TextFeld::Style::Sichtbar );
        laden->setSichtbar( 0 );
        uiFactory.initParam.bildschirm->setOnTop( 0 );
        return;
    }
    // KSGScript Laden
    Text *pfad = new Text( "data/tmp/news/" );
    pfad->append( scriptName->getText() );
    pfad->append( "/seite.ksgs" );
    frame->setScriptDatei( pfad );
    if( !frame->neuLaden() )
    { // error
        fehler->addZeile( "Es befindet sich ein Scriptfehler auf dieser Seite." );
        fehler->addStyle( TextFeld::Style::Sichtbar );
        laden->setSichtbar( 0 );
        uiFactory.initParam.bildschirm->setOnTop( 0 );
        run = 0;
        return;
    }
    laden->setSichtbar( 0 );
    uiFactory.initParam.bildschirm->setOnTop( 0 );
    run = 0;
}