parameters.cpp

Go to the documentation of this file.

#include "borqueror.h"


Parameters::Parameters( Window *aParent )
: BqBase( eParameters , aParent ) , res( Cfg::GetCfg().GetFilename() )
{
        double  t = 0.46875 * time( 0 );
        while( t > 1.0 )
                t /= 10.0;
   Random::Set( t );

   LoadStarsName();
}

Parameters::~Parameters( void )
{
}

int Parameters::GenPosition( void )
{
        xy4Shape.clear();

        const int       id = Graf::LoadImg( "Shape" , img2Shape[parShape] );
        SDL_Surface *sfc = Graf::Img( id );

        for( int i = 0 ; i < sfc->w ; i++ )
                for( int j = 0 ; j < sfc->h ; j++ )
                {
                        XPoint  p( i , j );
                        if( ReadPoint( sfc , p ) != RGBColor( 255 , 255 , 255 ) )
                                xy4Shape.push_back( make_pair( p , true ) );
                }

        return (int)xy4Shape.size();
}

int     cntplanet[20] = { 0 } , cntsun[10] = { 0 };

void Parameters::CreateGalaxy( void )
{
        int     i;
        double  avgAge = 0 , toPlanets = 0;
        int     cnt = 0;
        MainGame::galaxy->Reset();
        xstNames.clear();
#ifdef WIN32
SET_TRACE_MEASURE( tm1 , "Creating Galaxy" );
#endif
        Cfg::Handler    &h = Cfg::GetCfg( "@Generator" );
        //      Star generator is function f the galaxy age
        ExprParser      e;
        SumRandom       *sr = e.Apply( e.Eval( h.GetCfgString( "StarGen" , img2Age[parAge] ) ) );
        const int nrStars = h.GetCfgInt( "GalaxySize" , img2Size[parSize] , 0 );
        const int       n = 100 * nrStars;
        const int       gx = h.GetCfgInt( "Galaxy-coord" , "playW" );
        const int       gy = h.GetCfgInt( "Galaxy-coord" , "playH" );

        Uniform u1 , u2;

        ProbaHolder     urnd( new Uniform );

        const int gp = GenPosition();
        ProbaHolder     starAtxy( n , u1 , gp );
        SDL_Surface *sfc = Graf::Img( Graf::LoadImg( "Shape" , img2Shape[parShape] ) );
        const double    squareSize = sqrt( (sfc->h * sfc->w) / (double)starName.size() );
        ratio = max( gx / sfc->w , gy / sfc->h );
        Cfg::GetCfg().SetCfgInt( "DefaultParameters" , "Ratio" , (int)ratio );
        ProbaHolder     offsetAtxy( n , u2 , (int)ratio );

        ProbaHolder     starGen( nrStars , *sr , starInfo.size() );

        Free( eProgress );
        Form    *f = Load( "Progress" , eProgress );
        f->InitDialog( this );
        f->GetArsObject( 1 )->SetWndText( "Generating the galaxy" );
        XProgress       *progress = dynamic_cast<XProgress *>( f->GetArsObject( 2 ) );
        progress->SetProgress( 0 );
        progress->SetLimits( 0 , nrStars );
        f->Draw();
#ifdef WIN32
TRACE_MEASURE( tm1 , "Initialization" )
#endif
        XPoint  center( gx / 2 , gy / 2 );
        double oneSection = center.dist() / (double)starInfo.back()->ageSection;
        int     atxy = 0 , offset = 0;
        i = 0;

        while( atxy < starAtxy.n && GetGalaxy().size() < (unsigned)nrStars )
        {
#ifdef WIN32
TRACE_MEASURE( tm1 , "finding a new Star" );
#endif
                while( atxy < starAtxy.n && !xy4Shape[starAtxy[atxy]].second )
                        atxy += 1;
                XPoint  p1 , p2;
                XPoint  p = xy4Shape[starAtxy[atxy]].first;
                p1 = p;
                p2 = p;
                p2 *= ratio;
                p2.x += offsetAtxy[offset++];
                p2.y += offsetAtxy[offset++];

                if( img2Shape[parShape] != "Irregular" )
                {
                        XPoint  p3 = p2 - center;
                        int     atdist = (int)(p3.dist() / oneSection);
                        while( abs( starInfo[starGen[i]]->ageSection - atdist ) > 3 )
                                if( ++i >= nrStars )
                                        i = 0;
                }
                StarInfo        *si = starInfo[starGen[i]];     
                const int StarType = si->sid;
                const int StarSize = si->ssize;
                avgAge = avgAge + si->age;
                if( ++i >= nrStars )
                        i = 0;
#ifdef WIN32
TRACE_MEASURE( tm1 , "Star Found... Compute the # planets" );
#endif
                const int nrPlanets = (int)si->nrPlanets->Next( 1 + si->size() );

                cntsun[StarType] += 1;

                string  starName , starDescr;
                GetStarName( squareSize , p1 , starName , starDescr );
                StarSystem      *ss = new StarSystem( starName , starDescr , GetDenomination( p2 , StarType , StarSize , nrPlanets , gx , gy ) , StarType , StarSize );
                static_cast<XPoint &>( *ss ) = p2;
                vector<PlanetInfo *>    pl1 = planetInfo;
                const EcoZone   *ez = GetEcoZone( si->temperature );
                
                toPlanets += nrPlanets;
#ifdef WIN32
TRACE_MEASURE( tm1 , "Star system created" );
#endif          
                for( int pl = 0 ; pl < nrPlanets ; pl++ )
                {
                        for( int atEcoZone = 0 ; atEcoZone < (int)ez->size() ; atEcoZone++ )
                                if( pl < (*ez)[atEcoZone] )
                                        break;

                        vector<PlanetInfo *>    pl2 = pl1;
                        int     y = RestrictToZone( atEcoZone , pl2 );
                        int     PlId = -1;
                        const int       PlSize = (*si)[pl]->Next();
                        y = RestrictWithSize( PlSize , pl2 );

                        if( (y = RestrictWithAge( si->age , pl2 )) != 0 )
                                PlId = pl2[(int)urnd.Next( pl2.size() )]->id;
                        else
                        {
//                              tron << "Star " << GetGalaxy().size() << " sun type " << si->sid << "  - At planet " << pl << ": Zone : " << atEcoZone << " - size " << PlSize << endl;
                                cnt += 1;
                        }

                        if( PlId > -1 )
                                cntplanet[PlId] += 1;
                        ss->push_back( new Planet( ss , ss->GetPlanetName( pl ) , PlId , PlSize , pl ) );
                }
#ifdef WIN32
TRACE_MEASURE( tm1 , "Planets created" );
#endif
                GetGalaxy().push_back( ss );

                xy4Shape[starAtxy[atxy]].second = false;

                progress->SetProgress( GetGalaxy().size() , true );

                f->DoDialog( 0 );
        }
        tron << img2Age[parAge] << " Average galaxy age = " << avgAge / GetGalaxy().size() << endl;
        tron << "Number of gap in ss: " << cnt << endl;
        double  sm = 0.0;
        for( i = 0 ; i < 20 ; sm += cntplanet[i++] )    ;
        for( i = 0 ; i < 20 ; i++ )
                tron << "Planet " << i << " : " << cntplanet[i] << " - Avg of " << cntplanet[i] * 100.0 / sm  << "%\n";

        for( i = 0 ; i < 10 ; i++ )
                tron << "sun type " << i << " : " << cntsun[i] << " - Avg of " << cntsun[i] * 100.0 / GetGalaxy().size() << "\n";

        tron.flush();
        delete sr;

/*
        tron << "sun Type\tSun Size\tplanet\tzone\tsize\tclass\tageMin\n";
        for( vector<StarInfo *>::iterator a = starInfo.begin() ; a != starInfo.end() ; ++a )
        {
//              tron << "Sun type " << (*a)->name << " - size " << (*a)->ssize << endl;
                vector<PlanetInfo *>    pl1 = planetInfo;
                const EcoZone   *ez = GetEcoZone( (*a)->temperature );
                for( int pl = 0 ; pl < 9 ; pl++ )
                {
                        for( int atEcoZone = 0 ; atEcoZone < (int)ez->size() ; atEcoZone++ )
                                if( pl < (*ez)[atEcoZone] )
                                        break;
//                      tron << "\tplanet " << pl << " - Zone : " << atEcoZone << endl;

                        vector<PlanetInfo *>    pl2 = pl1;
                        int     y = RestrictToZone( atEcoZone , pl2 );
                        for( int s = 0 ; s < 6 ; s++ )
                        {
//                              tron << "\t\tsize " << s << endl;
                                vector<PlanetInfo *>    pl3 = pl2;
                                y = RestrictWithSize( s , pl3 );
                                y = RestrictWithAge( (*a)->age , pl3 );
                                if( !pl3.empty() )
                                {
                                        for( vector<PlanetInfo *>::iterator b = pl3.begin() ; b != pl3.end() ; ++b )
                                                tron << (*a)->name << "\t" << (*a)->ssize << "\t" << pl << "\t" << atEcoZone << "\t" << s << "\t" << (*b)->type << "\t" << (*b)->ageMin << endl;
//                                              tron << "\t\t\tplanet: " << (*b)->id << " class " << (*b)->type << endl;
                                }
                                else
                                        tron << "*** Sun type " << (*a)->sid << "  - At planet " << pl << ": Zone : " << atEcoZone << " - size " << s << endl;
                        }
                }
        }
*/

//      SetupSpecies();

        icstring        playSpecies = Cfg::GetCfg( "@ai" ).GetCfgString( "Player" , "id" ).c_str();
        {
                for( vector<SpeciesInfo *>::iterator it = allSpecies.begin() ; it != allSpecies.end() ; ++it )
                        if( (*it)->name == playSpecies )
                        {
                                find_if( Planet::allPlanets.begin() , Planet::allPlanets.end() , bind2nd( mem_fun( &Planet::IsCompatible ) , (*it) ) );
                                if( (*it)->hwPlanet )
                                {
                                        tron << (*it)->name.c_str() << " with residue of " << (*it)->residue << "\n";
                                        Planet  *pl = (*it)->hwPlanet;

                                        (*it)->humidity = (int)pl->GetTotalHumidity();
                                        (*it)->atmPressure = (int)pl->GetTotalPressure();
                                        (*it)->surfaceTemperature = (int)pl->GetTotalSurfaceTemperature();

                                        species.insert( make_pair( (*it)->name , (*it) ) );
                                        pl->Colonize( (*it)->name , true );
                                }
                                break;
                        }
        }
        random_shuffle( allSpecies.begin() , allSpecies.end() );
        f->GetArsObject( 1 )->SetWndText( "Generating and locating the species..." );
        progress->SetProgress( 0 );
        progress->SetLimits( 0 , nrAliens );
        f->Draw();
        int     j = 0;
        {

                for( vector<SpeciesInfo *>::iterator it = allSpecies.begin() ; it != allSpecies.end() && j < (int)nrAliens ; ++it )
                {
                        if( (*it)->name != playSpecies )
                        {
                                find_if( Planet::allPlanets.begin() , Planet::allPlanets.end() , bind2nd( mem_fun( &Planet::IsCompatible ) , (*it) ) );
                                if( (*it)->hwPlanet )
                                {
                                        tron << (*it)->name.c_str() << " with residue of " << (*it)->residue << "\n";
                                        
                                        Planet  *pl = (*it)->hwPlanet;
                                        (*it)->humidity = (int)pl->GetTotalHumidity();
                                        (*it)->atmPressure = (int)pl->GetTotalPressure();
                                        (*it)->surfaceTemperature = (int)pl->GetTotalSurfaceTemperature();

                                        species.insert( make_pair( (*it)->name , (*it) ) );
                                        pl->Colonize( (*it)->name , true );
                                        progress->SetProgress( ++j , true );
                                }
                        }
                }
        }
        f->ShutdownDialog( this );
}

const bool Parameters::SetupWindow( const Message &aMsg )
{
        BqBase::SetupWindow( aMsg );

        Rsrc    res( "@Images" );

        img2Size.push_back( "Tiny" );
        img2Size.push_back( "Small" );
        img2Size.push_back( "Medium" );
        img2Size.push_back( "Large" );
        img2Size.push_back( "Big" );

        img2Age.push_back( "Young" );
        img2Age.push_back( "Recent" );
        img2Age.push_back( "Mature" );
        img2Age.push_back( "Aged" );
        img2Age.push_back( "Old" );

        img2Shape.push_back( "Elliptical" );
        img2Shape.push_back( "Ring" );
        img2Shape.push_back( "Irregular" );
        img2Shape.push_back( "Spiral" );
        img2Shape.push_back( "Weird" );
        img2Shape.push_back( "Pleiad" );

        MessageServer::Instance().RegisterMessageClient( this , Message::CTRL_VALUECHANGE );
        MessageServer::Instance().RegisterMessageClient( this , Message::CTRL_VALUECHANGING );

        return true;
}

void Parameters::InitDialog( void )
{
        BqBase::InitDialog();

        {
                Cfg::Handler    &h = Cfg::GetCfg();
                parShape = h.GetCfgInt( "DefaultParameters" , "Shape" , 2 );
                parAge = h.GetCfgInt( "DefaultParameters" , "Age" , 1 );
                parSize = h.GetCfgInt( "DefaultParameters" , "Size" , 2 );
                nrAliens = h.GetCfgInt( "DefaultParameters" , "nrAliens" , 10 );
        }

        Cfg::Handler    &h = Cfg::GetCfg( "@Images" );

        if( f )
        {
                dynamic_cast<XScrollBar *>( f->GetArsObject( 42 ) )->SetPosition( 5 );
                f->GetArsObject( 30 )->SetWndText( Cfg::GetCfg().GetCfgString( "DefaultParameters" , "PlayerName" , "PTY-1" ) );
                UpdateParameters();
        }
}

void Parameters::UpdateParameters( void )
{
        f->GetArsObject( 10 )->EnableWindow( parSize > 0 );
        dynamic_cast<XImage *>( f->GetArsObject( 11 ) )->ChangeImage( "" , img2Size[parSize] );
        f->GetArsObject( 12 )->SetWndText( img2Size[parSize] );
        f->GetArsObject( 13 )->EnableWindow( (parSize + 1) < img2Size.size() );

        f->GetArsObject( 14 )->EnableWindow( parAge > 0 );
        dynamic_cast<XImage *>( f->GetArsObject( 15 ) )->ChangeImage( "" , img2Age[parAge] );
        f->GetArsObject( 16 )->SetWndText( img2Age[parAge] );
        f->GetArsObject( 17 )->EnableWindow( (parAge + 1) < img2Age.size() );

        f->GetArsObject( 18 )->EnableWindow( parShape > 0 );
        dynamic_cast<XImage *>( f->GetArsObject( 19 ) )->ChangeImage( "" , img2Shape[parShape] );
        f->GetArsObject( 20 )->SetWndText( img2Shape[parShape] );
        f->GetArsObject( 21 )->EnableWindow( (parShape + 1) < img2Shape.size() );

        f->GetArsObject( 40 )->SetWndText( nrAliens );
        dynamic_cast<XScrollBar *>( f->GetArsObject( 42 ) )->SetPosition( nrAliens - 5 );
}

const bool Parameters::MainLoop( void )
{
        SetupDialog( "Parameters" );
        ans = 0;

        while( isDisplayed )
                f->DoDialog();

        if( ans == 2 )
        {
                Cfg::Handler    &h = Cfg::GetCfg();
                h.SetCfgInt( "DefaultParameters" , "Size" , parSize );
                h.SetCfgInt( "DefaultParameters" , "Age" , parAge );
                h.SetCfgInt( "DefaultParameters" , "Shape" , parShape );
                h.SetCfgString( "DefaultParameters" , "ShapeName" , img2Shape[parShape] );
                h.SetCfgInt( "DefaultParameters" , "nrAliens" , nrAliens );
                h.SetCfgString( "DefaultParameters" , "PlayerName" , f->GetArsObject( 30 )->GetWindowText() );

                CreateGalaxy();

                Cfg::Handler as( h.GetCfgString( "Paths" , "Saves" ) + "autosave.cfg" );
                h.SetCfgString( "SavedGames" , "0" , h.GetCfgString( "Paths" , "Saves" ) + "autosave" );
                h.Flush();

                SDL_Surface *sfc = Graf::Img( Graf::LoadImg( "Shape" , img2Shape[parShape] ) );
                as.SetCfgInt( "Galaxy" , "Shape" , parShape );
                as.SetCfgInt( "Galaxy" , "Age" , parAge );
                as.SetCfgInt( "Galaxy" , "Size" , parSize );

                as.SetCfgString( "Player" , "Name" , f->GetArsObject( 30 )->GetWindowText() );
                char    temp[60];
                time_t  ltime;
                time( &ltime );
                struct tm *today = localtime( &ltime );
                strftime( temp , sizeof( temp ) , "%d/%m %H:%M" , today );
                as.SetCfgString( "Game" , "DateCreated" , temp );
                as.SetCfgString( "Game" , "Name" , "Auto Save" );
                as.Flush();

                f->ShutdownDialog( this );

                ArsPostMessage( UserMessage( Message::USER , 0 , SAVE_GALAXY , 0 ) );
                ArsPostMessage( UserMessage( Message::USER , 0 , SAVE_SPECIES , 0 ) );

                ArsPostMessage( UserMessage( Message::USER , GetParent() , 4 ) );
        }
        else
                f->ShutdownDialog( this );

        return true;
}

const bool Parameters::evMouseLClick( const CtrlMessage &msg )
{
        BqBase::evMouseLClick( msg );

        if( isDisplayed )
                if( (ans = ((Window *)msg.source)->GetId()) < 9 )
                {
                        isDisplayed= false;     
                        return !isDisplayed;
                }
                else
                {
                        switch( ((Window *)msg.source)->GetId() )
                        {
                                case 10:        parSize -= 1;   break;
                                case 13:        parSize += 1;   break;
                                case 14:        parAge -= 1;    break;
                                case 17:        parAge += 1;    break;
                                case 18:        parShape -= 1;  break;
                                case 21:        parShape += 1;  break;
                        }
                        UpdateParameters();
                }

        return isDisplayed;
}

const bool Parameters::evValueChange( const CtrlMessage &msg )
{
        bool ans = BqBase::evValueChange( msg );

        if( ((Window *)msg.source)->GetId() == 42 )
        {
                nrAliens = 5 + msg.value;
                f->GetArsObject( 40 )->SetWndText( nrAliens );
                ans = true;
        }
        return ans;
}

const bool Parameters::evValueChanging( const CtrlMessage &msg )
{
        bool ans = BqBase::evValueChanging( msg );

        if( ((Window *)msg.source)->GetId() == 42 )
        {
                nrAliens = 5 + msg.value;
                f->GetArsObject( 40 )->SetWndText( nrAliens );
                ans = true;
        }
        return ans;
}

vector<string> Parameters::starName;

void Parameters::LoadStarsName( void )
{
        Rsrc    res( "@GenStars" );

        icstring        s = res.FindCombination( icstring( "PlanetNameDB" ) );
        while( !s.empty() )
                starName.push_back( res.GetList( s ).c_str() );
}

void Parameters::GetStarName( const double sqSize , const XPoint &p , string &sname , string &StarDescr )
{
        const string GrLetters[] =
        {
                "Alpha" , "Beta" ,"Gamma" ,"Delta" ,
                "Epsilon" ,"Zeta" ,"Eta" ,"Theta" ,"Iota" ,
                "Kappa" ,"Lambda" ,"Mu" ,"Nu" ,"Xi" ,"Omicron" ,
                "Phi" , "Omega" , "Lambda" , "Kala" , "Malaka" ,
                "Manfou" , "Enaimar" , "Pabo" , "Principal" , "Secundary",
                "Forgotten" , "Jalan" , ""
        };
        int     atsn = (int)(p.x / sqSize + p.y / sqSize);
        if( atsn < (int)starName.size() )
        {
                icstring        tt = icstring( starName[atsn].c_str() );
                string  t1 = Rsrc::GetStr( tt );
                StarDescr = Rsrc::GetStr( tt );
                sname = t1;
                int     i = 0;
                while( !GrLetters[i].empty() && xstNames.find( sname ) != xstNames.end() )
                {
                        sname = t1 + " ";
                        sname += GrLetters[i++];
                }
                xstNames.insert( sname );
        }
}

string Parameters::GetDenomination( const XPoint &p2 , const int StarType , const int StarSize , const int nrPlanets , const int gx , const int gy )
{
        const string    TypeStr = "ROYGWBD";
        const string    SizeStr = " TSMLBG";
        char    tmp[10];
        string  denomination = TypeStr.substr( StarType , 1 ) + SizeStr.substr( StarSize , 1 ) + "-";
        denomination += itoa( nrPlanets , tmp , 10 );
        denomination += "-";
        denomination += 'A' + (p2.x * 26) / gx;
        denomination += 'A' + (p2.y * 26) / gy;

        return denomination;
}

vector<StarInfo *> Parameters::starInfo;
map<int,int>    Parameters::SIFromSunSize;
const bool cmpByAge( const StarInfo *si0 , const StarInfo *si1 ){       return si0->age < si1->age;     }

double Parameters::ratio;

void Parameters::SetupStarInfo( void )
{
        ratio = Cfg::GetCfg().GetCfgInt( "DefaultParameters" , "Ratio" , 80 );

        Rsrc    res( "@GenStars" );

        icstring        tmp = res.FindCombination( icstring( "star-description" ) );
        icstring        s = strip( tmp );

        while( !s.empty() )
        {

                icstring        aStr = res.GetList( s );
                const string name = Rsrc::GetId( aStr ).c_str();
                const int starId = Rsrc::GetInt( aStr );

                while( !aStr.empty() )
                {
                        icstring        sdsz = res.GetList( aStr );

                        tmp = Rsrc::FindCrdOf( sdsz , "Temperature" );
                        int temperature = Rsrc::GetInt( tmp );
                        tmp = Rsrc::FindCrdOf( sdsz , "Age" );
                        const int age = Rsrc::GetInt( tmp );
                        tmp = Rsrc::FindCrdOf( sdsz , "Size" );
                        icstring sz = tmp;
                        tmp = Rsrc::FindCrdOf( sdsz , "PNrPlanets" );
                        const string ProbaExpr = tmp.c_str();


                        icstring        PPlSize = Rsrc::FindCrdOf( sdsz , "PSize" );

                        tmp = Rsrc::FindCrdOf( sdsz , "class" );
                        const string classInf = Rsrc::GetStr( tmp );
                        tmp = Rsrc::FindCrdOf( sdsz , "approxAge" );
                        const string ageInf = Rsrc::GetStr( tmp );
                        tmp = Rsrc::FindCrdOf( sdsz , "approxTemperature" );
                        const string temInf = Rsrc::GetStr( tmp );
                        tmp = Rsrc::FindCrdOf( sdsz , "Example" );
                        const string exInf = Rsrc::GetStr( tmp );
                        tmp = Rsrc::FindCrdOf( sdsz , "Description" );
                        const string descrInf = Rsrc::GetStr( tmp );

                        while( !sz.empty() )
                        {
                                int     size = Rsrc::GetInt( sz );
                                if( size == -1 )
                                        break;
                                StarInfo        *si = new StarInfo;

                                si->temperature = temperature;
                                si->age = age;
                                si->classInf = classInf;
                                si->ageInf = ageInf;
                                si->temInf = temInf;
                                si->exInf = exInf;
                                si->descrInf = descrInf;
                                si->name = name;
                                si->ssize = size;
                                si->sid = starId;
                                si->ageSection = 0;

                                SIFromSunSize.insert( make_pair( starId << 8 | size , starInfo.size() ) );
                                int     nrPlts = 0;
                                icstring        s = PPlSize;
                                while( !s.empty() )
                                {
                                        icstring        aS = res.GetList( s );
                                        int     n = Rsrc::GetInt( aS );
                                        nrPlts = max( nrPlts , n );
                                        si->Setup( aS );
                                }
                                assert( nrPlts != 0 );
                                ExprParser      e;
                                SumRandom *sr = e.Apply( e.Eval( ProbaExpr ) );
                                si->nrPlanets = new ProbaHolder( nrPlts ,  *sr , 1000 );
                                delete sr;
                                starInfo.push_back( si );
                                temperature -= temperature / 10 ;
                        }
                }
        }

        std::sort( starInfo.begin() , starInfo.end() , cmpByAge );

        for( unsigned i = 1 ; i < starInfo.size() ; i++ )
        {
                // SDL_Delay( 50 );
                if( starInfo[i - 1]->age != starInfo[i]->age )
                        starInfo[i]->ageSection = starInfo[i - 1]->ageSection + 1;
                else
                        starInfo[i]->ageSection = starInfo[i - 1]->ageSection;
        }
}

void Parameters::ResetInfo( void )
{
        {
                for( vector<StarInfo *>::iterator it = starInfo.begin() ; it != starInfo.end() ; ++it )
                        delete (*it);
                starInfo.clear();
        }{
                for( vector<PlanetInfo *>::iterator it = planetInfo.begin() ; it != planetInfo.end() ; ++it )
                        delete (*it);
                planetInfo.clear();
        }{
                for( vector<SpeciesInfo *>::iterator it = allSpecies.begin() ; it != allSpecies.end() ; ++it )
                        delete (*it);
                allSpecies.clear();
        }{
                for( vector<EcoZone *>::iterator it = ecoZones.begin() ; it != ecoZones.end() ; ++it )
                        delete (*it);
                ecoZones.clear();
        }
}

vector<PlanetInfo *> Parameters::planetInfo;
map<int,PlanetInfo *> Parameters::plIndice;
const bool cmpPlanetByAge( const PlanetInfo *pl0 , const PlanetInfo *pl1 ){     return pl0->ageMin < pl1->ageMin;       }

void Parameters::SetupPlanetInfo( void )
{
        Rsrc    res( "@GenPlanets" );
        icstring        tmp = res.FindCombination( icstring( "planet-description" ) );
        icstring        s = strip( tmp );

        while( !s.empty() )
        {
                icstring        aStr = res.GetList( s );
                PlanetInfo      *pi = new PlanetInfo;
                // SDL_Delay( 50 );
                pi->id = Rsrc::GetInt( aStr );
                tmp = Rsrc::FindCrdOf( aStr , "description" );
                pi->Description = Rsrc::GetStr( tmp );
                tmp = Rsrc::FindCrdOf( aStr , "class" );
                pi->type = Rsrc::GetStr( tmp );
                tmp = Rsrc::FindCrdOf( aStr , "athmosphere" );
                pi->athmosphere = Rsrc::GetStr( tmp );
                tmp = Rsrc::FindCrdOf( aStr , "description" );
                pi->Description = Rsrc::GetStr( tmp );
                tmp = Rsrc::FindCrdOf( aStr , "LifeForm" );
                pi->lifeForm = Rsrc::GetStr( tmp );
                tmp = Rsrc::FindCrdOf( aStr , "surface" );
                pi->surface = Rsrc::GetStr( tmp );
                tmp = Rsrc::FindCrdOf( aStr , "Example" );
                pi->example = Rsrc::GetStr( tmp );

                // SDL_Delay( 50 );
                icstring        str = Rsrc::FindCrdOf( aStr , "Size" );
                pi->sizeMin = Rsrc::GetInt( str );
                pi->sizeMax = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr  , "Age");
                pi->ageMin = Rsrc::GetInt( str );
                pi->ageMax = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "soil" );
                pi->soil[0] = Rsrc::GetInt( str );
                pi->soil[1] = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "surfaceTemperature" );
                pi->surfaceTemperature[0] = Rsrc::GetInt( str );
                pi->surfaceTemperature[1] = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "atmPressure" );
                pi->atmPressure[0] = Rsrc::GetInt( str );
                pi->atmPressure[1] = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "ore" );
                pi->ore[0] = Rsrc::GetInt( str );
                pi->ore[1] = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "energy" );
                pi->energy[0] = Rsrc::GetInt( str );
                pi->energy[1] = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "Humidity" );
                pi->humidity[0] = Rsrc::GetInt( str );
                pi->humidity[1] = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "fauna" );
                pi->fauna[0] = Rsrc::GetInt( str );
                pi->fauna[1] = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "flora" );
                pi->flora[0] = Rsrc::GetInt( str );
                pi->flora[1] = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "lithium" );
                pi->lithium[0] = Rsrc::GetInt( str );
                pi->lithium[1] = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "deuterium" );
                pi->deuterium[0] = Rsrc::GetInt( str );
                pi->deuterium[1] = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "water" );
                pi->water[0] = Rsrc::GetInt( str );
                pi->water[1] = Rsrc::GetInt( str );

                // SDL_Delay( 50 );
                str = Rsrc::FindCrdOf( aStr , "EcoZone" );
                while( !str.empty() )
                        pi->push_back( Rsrc::GetInt( str ) );

                // SDL_Delay( 50 );
                str = Rsrc::FindCrdOf( aStr , "Become" );
                while( !str.empty() )
                        pi->become.push_back( Rsrc::GetInt( str ) );

                // SDL_Delay( 50 );
                str = Rsrc::FindCrdOf( aStr , "PDelta" );
                ExprParser      e;
                pi->delta = new ProbaHolder( e.Apply( e.Eval( str.c_str() ) ) );

                // SDL_Delay( 50 );
                planetInfo.push_back( pi );
                plIndice.insert( make_pair( pi->id , pi ) );
                // SDL_Delay( 50 );
        }
        std::sort( planetInfo.begin() , planetInfo.end() , cmpPlanetByAge );

}

const int Parameters::RestrictWithAge( const int sunAge , vector<PlanetInfo *> &v )
{
        vector<int>     toAdd;
        for( vector<PlanetInfo *>::iterator it = v.begin() ; it != v.end() ; )
        {
                if( (*it)->ageMax < sunAge )
                {
                        for( vector<int>::iterator a = (*it)->become.begin() ; a != (*it)->become.end() ; ++a )
                                toAdd.push_back( *a );
                        v.erase( it );
                        it = v.begin();
                }
                else
                        ++it;
        }
        for( vector<int>::iterator a = toAdd.begin() ; a != toAdd.end() ; ++a )
                v.push_back( plIndice[*a] );

        std::sort( v.begin() , v.end() , cmpPlanetByAge );
        return v.size();
}

vector<pair<int , int> >        Parameters::planetSize;
map<icstring , vector<double> > Parameters::compensator;
map<int,string> Parameters::sizeStr;

void Parameters::SetupPlanetSize( void )
{
        Rsrc    res( "@GenPlanets" );
        // SDL_Delay( 50 );
        icstring        tmp = res.FindCombination( icstring( "PLanetSizeRef" ) );
        icstring        s = strip( tmp );
        // SDL_Delay( 50 );
        while( !s.empty() )
        {
                icstring        aStr = res.GetList( s );
                int     id = Rsrc::GetInt( aStr );
                string  sStr = Rsrc::GetId( aStr ).c_str();
                pair<int,int>   p;
                // SDL_Delay( 50 );
                p.first = Rsrc::GetInt( aStr );
                p.second = Rsrc::GetInt( aStr );
                planetSize.push_back( p );
                sizeStr.insert( make_pair( id , sStr ) );
                // SDL_Delay( 50 );
        }

        tmp = res.FindCombination( icstring( "Compensator" ) );
        s = strip( tmp );

        // SDL_Delay( 50 );
        while( !s.empty() )
        {
                icstring        aStr = res.GetList( s );
                icstring        id = Rsrc::GetId( aStr ).c_str();
                vector<double>  vdbl;
                // SDL_Delay( 50 );
                while( !aStr.empty() )
                        vdbl.push_back( Rsrc::GetDbl( aStr ) );
                compensator.insert( make_pair( id , vdbl ) );
                // SDL_Delay( 50 );
        }
}

const int Parameters::RestrictWithSize( const int atSize , vector<PlanetInfo *> &v )
{
        const pair<int,int>     &p = planetSize[atSize];
        for( vector<PlanetInfo *>::iterator it = v.begin() ; it != v.end() ; )
        {
                if( (*it)->sizeMin > p.second || (*it)->sizeMax <= p.first )
                {
                        v.erase( it );
                        it = v.begin();
                }
                else
                        ++it;
        }
        return v.size();
}
vector<EcoZone *>       Parameters::ecoZones;
void Parameters::SetupEcoZones( void )
{
        Rsrc    res( "@GenPlanets" );
        // SDL_Delay( 50 );
        icstring        tmp = res.FindCombination( icstring( "EcoZone" ) );
        icstring        s = strip( tmp );
        // SDL_Delay( 50 );

        while( !s.empty() )
        {
                icstring        aStr = res.GetList( s );
                EcoZone *ez = new EcoZone;
                ez->sunTemp = Rsrc::GetInt( aStr );
                while( !aStr.empty() )
                        ez->push_back( Rsrc::GetInt( aStr ) );
                ecoZones.push_back( ez );
                // SDL_Delay( 50 );
        }
}

EcoZone *Parameters::GetEcoZone( const int sunTemperature )
{
        for( vector<EcoZone *>::iterator it = ecoZones.begin() ; it != ecoZones.end() ; ++it )
                if( (*it)->sunTemp > sunTemperature )
                        return (*it);
        return ecoZones.back();
}

const int Parameters::RestrictToZone( const int ez , vector<PlanetInfo *> &v )
{
        for( vector<PlanetInfo *>::iterator it = v.begin() ; it != v.end() ; )
        {
                for( vector<int>::iterator k = (*it)->begin() ; k != (*it)->end() ; ++k )
                        if( *k == ez )
                                break;
                if( k == (*it)->end() )
                {
                        v.erase( it );
                        it = v.begin();
                }
                else
                        ++it;
        }
        return v.size();
}

vector<SpeciesInfo *> Parameters::allSpecies;
map<icstring,SpeciesInfo *> Parameters::species;

void Parameters::SetupSpecies( void )
{
        for( vector<SpeciesInfo *>::iterator it = allSpecies.begin() ; it != allSpecies.end() ; ++it )
                delete (*it);
        allSpecies.clear();
        species.clear();

        Rsrc    res( "@Colony" );
        // SDL_Delay( 50 );
        icstring tmp = res.FindCombination( icstring( "species" ) );
        icstring        s = strip( tmp );
        // SDL_Delay( 50 );
        while( !s.empty() )
        {
                icstring        aStr = res.GetList( s );
                SpeciesInfo     *si = new SpeciesInfo;
                si->name = Rsrc::GetId( aStr );
                
                icstring str = Rsrc::FindCrdOf( aStr , "color" );
                si->color = Rsrc::GetColor( str , si->color );
                
                str = Rsrc::FindCrdOf( aStr , "humidity" );
                si->humidity = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "SurfaceTemperature" );
                si->surfaceTemperature = Rsrc::GetInt( str );

                str = Rsrc::FindCrdOf( aStr , "AtmPressure" );
                si->atmPressure = Rsrc::GetInt( str );

                // SDL_Delay( 50 );
                str = Rsrc::FindCrdOf( aStr , "Potential" );
                tmp = Rsrc::FindCrdOf( str , "Power" );
                si->powerPotential = Rsrc::GetInt( tmp );
                tmp = Rsrc::FindCrdOf( str , "Industry" );
                si->industryPotential = Rsrc::GetInt( tmp );
                tmp = Rsrc::FindCrdOf( str , "Medical" );
                si->medicalPotential = Rsrc::GetInt( tmp );
                tmp = Rsrc::FindCrdOf( str , "Farming" );
                si->farmingPotential = Rsrc::GetInt( tmp );
                allSpecies.push_back( si );
                // SDL_Delay( 50 );
        }
}

---