// Lutz Tautenhahn (c) 1995, 1999

#include "aqua3d.cpp" 

const int MaxS1=15;
const int MaxS2=20;
const int MaxS3=25;
const int MaxS4=30;
const int MaxS5=40;
                 
short page=1;
float Zyklus=16; 

void changepage ( void )
{ _setvisualpage (page);
  if (page == 1) page = 0; else page = 1;
  _setactivepage (page); 
  _clearscreen(_GCLEARSCREEN); 
}

int main()
{ short j;                           
  char key='a';
  srand( (unsigned)time( NULL ) );  
  _setvideomode( _ERESCOLOR );  
  Staub* S1[MaxS1]; for (j=0; j<MaxS1; j++) S1[j]=new Staub(rand()%90,265+rand()%40,96,0);
  Staub* S2[MaxS2]; for (j=0; j<MaxS2; j++) S2[j]=new Staub(rand()%90,250+rand()%40,93,7);
  Staub* S3[MaxS3]; for (j=0; j<MaxS3; j++) S3[j]=new Staub(rand()%90,50+rand()%200,90,6);
  Fisch* F1=new Fisch( 20, 275, 89, 1, 5, 7, -1);
  Fisch* F2=new Fisch( 20, 185, 89, 1, 13, 14, -1);
  Fisch* F3=new Fisch( 20, 150, 88, 1, 6, 7, -2);  
  Fisch* F4=new Fisch( 20, 270, 87, 3, 9, 4, 0); 
  Alge* A1=new Alge( 60, 325, 87, 2, 2); 
  Staub* S4[MaxS4]; for (j=0; j<MaxS4; j++) S4[j]=new Staub(rand()%86,40+rand()%250,86,0);
  Fisch* F5=new Fisch( 20, 100, 85, 2, 3, 4, 2);
  Fisch* F6=new Fisch( 20, 220, 85, 1, 8, 7, 1);   
  Fisch* F7=new Fisch( 20, 310, 84, 1, 7, 12, -1); 
  Fisch* F8=new Fisch( 20, 180, 84, 2, 9, 8, 1); 
  Fisch* F9=new Fisch( 20, 105, 83, 1, 8, 7, -1);   
  Alge* A2=new Alge( 30, 340, 83, 3, 2); 
  Staub* S5[MaxS5]; for (j=0; j<MaxS5; j++) S5[j]=new Staub(rand()%82,30+rand()%300,82,7);

  changepage();          
  while (key != 'e') 
  { _setcolor(1);
    _rectangle(_GFILLINTERIOR,0,0,640,300); 
    _setcolor(8);
    _rectangle(_GFILLINTERIOR,0,300,640,350); 
    for( j = 0; j<MaxS1; j++)
    { S1[j]->Verschieben(rand()%5-2,rand()%5-2);
      S1[j]->ReiheZeichnen();
    }          
    for( j = 0; j<MaxS2; j++)
    { S2[j]->Verschieben(rand()%5-2,rand()%5-2);
      S2[j]->ReiheZeichnen();
    } 
    for( j = 0; j<MaxS3; j++)
    { S3[j]->Verschieben(rand()%5-2,rand()%5-2);
      S3[j]->ReiheZeichnen();
    }                        
    F1->Bewegen(-89.0/Zyklus); 
    F2->Bewegen(-89.0/Zyklus); 
    F3->Bewegen(-88.0/Zyklus); 
    F4->Bewegen(87.0/Zyklus);
    A1->Bewegen();                  
    A1->ReiheZeichnen();
    for( j = 0; j<MaxS4; j++)
    { S4[j]->Verschieben(rand()%5-2,rand()%5-2);
      S4[j]->ReiheZeichnen();
    }               
    F5->Bewegen(85.0/Zyklus); 
    F6->Bewegen(85.0/Zyklus);   
    F7->Bewegen(-84.0/Zyklus); 
    F8->Bewegen(84.0/Zyklus);      
    F9->Bewegen(-83.0/Zyklus);          
    A2->Bewegen();     
    A2->ReiheZeichnen();  
    for( j = 0; j<MaxS5; j++)
    { S5[j]->Verschieben(rand()%5-2,rand()%5-2);
      S5[j]->ReiheZeichnen();
    }       
    changepage();
    if(_kbhit()) key=_kbhit();
    while ((key != 'a') & (key != 's') & (key != 'e')) key=_getch();    
    if (key == 's') key = 't';
  }   
  delete F1;
  delete F2;
  delete F3;
  delete A1;
  delete F4;
  delete F5;
  delete F6;
  delete F7;
  delete F8;
  delete F9;
  delete A2;
  for (j=0; j<MaxS1; j++) delete S1[j];
  for (j=0; j<MaxS2; j++) delete S2[j];
  for (j=0; j<MaxS3; j++) delete S3[j];
  for (j=0; j<MaxS4; j++) delete S4[j];
  for (j=0; j<MaxS5; j++) delete S5[j];
  
  _setvideomode( _DEFAULTMODE );
  return 0;
}