#include <iostream>
#include <stdlib.h>
#include "Etrevivant.h"
#include <vector>
#include <math.h>
#include <ctime>
#include<gsl/gsl_rng.h>
#include<gsl/gsl_randist.h>
#include "windows.h"
#define EXPORT __declspec(dllexport)
using namespace std;

void afficher (vector <Etrevivant> EV)
{for (int unsigned i=0; i<EV.size(); i++)
     { cout<< EV[i].get_zombie() << " ";
       cout<< EV[i].get_humain() <<" ";
       cout<< EV[i].get_immunise () << " ";
       cout<< EV[i].get_age () << " ";
       cout<< EV[i].get_ligne () << " ";
       cout<< EV[i].get_colonne () << " fin    ";
       cout<< endl;
       }
 cout<<endl<<endl;
}

vector <Etrevivant> esttransforme(vector <Etrevivant> Z, vector <Etrevivant> H, Etrevivant EV )
{   vector <Etrevivant> N(1);
      const gsl_rng_type* T;
           gsl_rng* r;
           T=gsl_rng_default;
           r=gsl_rng_alloc(T);
           gsl_rng_set(r,time(NULL));


    if (EV.get_humain())
        { Z.resize(Z.size()+1, Etrevivant(true, false, false,0,EV.get_ligne(),EV.get_colonne()));
          N.resize(Z.size());
          N=Z;
        }
    else { double age =gsl_rng_uniform ( r);
           int A=floor(age*5)+1;

           Z.resize(Z.size()+1, Etrevivant(false, true, false,A,EV.get_ligne(),EV.get_colonne()));
           N.resize(Z.size());
           N=Z;
        }
    //cout << "transformation" <<endl;
    //afficher(N);
    //cout << endl;
return N;
}

bool occupee (vector <Etrevivant> E, int i)
{ bool ok=false;
    int ligne = E[i].get_ligne();
    int colonne = E[i].get_colonne();
    for(int k=0; k<i; k++)
        { if ((E[k].get_ligne()==ligne) && (E[k].get_colonne()==colonne))
            { ok=true;
            }
        }
  return ok;
}

bool encercler(vector <Etrevivant> E, int i, int n)
{ bool g=false;
  bool h=false;
  bool d=false;
  bool b=false;
  bool tot=false;
  Etrevivant gauche (E[i].get_zombie(), E[i].get_humain(), E[i].get_immunise(), E[i].get_age(), E[i].get_ligne(), E[i].get_colonne()-1);
  Etrevivant haut (E[i].get_zombie(), E[i].get_humain(), E[i].get_immunise(), E[i].get_age(), E[i].get_ligne()-1, E[i].get_colonne());
  Etrevivant droite (E[i].get_zombie(), E[i].get_humain(), E[i].get_immunise(), E[i].get_age(), E[i].get_ligne(), E[i].get_colonne()+1);
  Etrevivant bas (E[i].get_zombie(), E[i].get_humain(), E[i].get_immunise(), E[i].get_age(), E[i].get_ligne()+1, E[i].get_colonne());

  for (int j=0; j<i; j++)
    {if ((E[j].get_ligne()==gauche.get_ligne() and E[j].get_colonne()==gauche.get_colonne()) or (E[i].get_colonne()==0))
        { g=true;
        }
     if((E[j].get_ligne()==haut.get_ligne() and E[j].get_colonne()==haut.get_colonne()) or (E[i].get_ligne()==0))
        { h=true;
        }
     if((E[j].get_ligne()==droite.get_ligne() and E[j].get_colonne()==droite.get_colonne())or (E[i].get_colonne()==n))
        { d=true;
        }
     if((E[j].get_ligne()==bas.get_ligne() and E[j].get_colonne()==bas.get_colonne())or (E[i].get_ligne()==n))
        { b=true;
        }
    }

  if (g and h and d and b)
    { tot=true;}
return tot;
}

vector <Etrevivant> Tuer (vector <Etrevivant> E, int unsigned i)
{ vector <Etrevivant> N (E.size());
  //cout << "fonction tuer pour le zombie " << i << endl;
  if(i < E.size())
    {N.resize (E.size()-1);
     //cout << "taille de zombie " << E.size() << "   taille de N " << N.size()<<endl;
     for (int unsigned j=0; j<i ; j++)
        {  N[j]=E[j];
        }
     for (int unsigned j=i; j<N.size(); j++)
        {  N[j]=E[j+1];
        }
    }
   else {cout<< endl;
         //cout<<"il n'y a pas autant d'individus dans le vecteur "<< endl;
         N=E;
         }
  return N;
}

vector<Etrevivant> deplacement (vector<Etrevivant> E, int i, int n,const gsl_rng*  r)
{ double proba;
  int c=0;

  if (not encercler (E,i,n))
  {while (occupee(E,i) or c<1)
        {c++;
   //cout<<"occupe : "<<occupee(E,i)<<endl;
        proba = gsl_rng_uniform ( r );
        if (proba <=0.25 && E[i].get_colonne()>=1)//gauche si peut pas bouge pas !
            {E[i].set_colonne(E[i].get_colonne()-1);
            }

        else if (proba<=0.5 && E[i].get_ligne()>=1)//haut
                { E[i].set_ligne(E[i].get_ligne()-1);
                }
            else if (proba<=0.75 && E[i].get_colonne()<n)//droite
                    { E[i].set_colonne(E[i].get_colonne()+1);
                    }
                else if (proba<=1 && E[i].get_ligne()<n)//bas
                        { E[i].set_ligne(E[i].get_ligne()+1) ;
                        }
   //cout<<"occupe : "<<occupee(E,i)<<endl;
   //afficher(E);
         }
  }
return E;
}

vector <Etrevivant> Combat(vector<Etrevivant> zombie,vector <Etrevivant> humains,vector<Etrevivant> HI,int n)
{//création de la graine
 const gsl_rng_type* T;//là j'ai repris ce que t'avais mis ds le .cpp mais je sais pas ce que ca fait exactement faudrait que t'explik
 gsl_rng* r;//en gros je lance un tirage aleatoire sur une loi uniforme[0,1]??
 T=gsl_rng_default;
 r=gsl_rng_alloc(T);
 gsl_rng_set(r,time(NULL));

 cout << "fct combat"<< endl;
 for (int unsigned i=0; i<zombie.size(); i++) //Pour chaque element du tableau zombie on regarde par rappot aux elements des tableaux humains et humains immunisés
  {for (int unsigned j=0; j<humains.size();j++)
    { if ((zombie[i].get_ligne() == humains[j].get_ligne()) && (zombie[i].get_colonne() == humains[j].get_colonne()))
            // même case et bien vivant
            {double fight = gsl_rng_uniform ( r); // proba pour le combat
             //cout<< "proba fight : "<<fight <<endl;
             if(humains[j].get_age()==1) //les combats auront une issu differente selon l'age de l'humain
                    //si on est dans la classe 1:[0,10]
                    {if (fight<0.8)
                        {vector <Etrevivant> temp1 (zombie.size()+1);
                         temp1 = esttransforme(zombie, humains, humains[j]);
                         zombie.resize(zombie.size()+1);
                         zombie=temp1;
                         vector <Etrevivant> temp (zombie.size()-1);
                         temp=Tuer(humains,j);
                         humains.resize(zombie.size()-1);
                         humains=temp;

                         zombie=deplacement(zombie,zombie.size()-1,n,r);
                         }
                    else{zombie=deplacement(zombie,i,n,r);
                         //cout<<"apres deplacement en cas de non combat: "<<endl;
                         //afficher(zombie);
                         }
                    }
             else if (humains[j].get_age()==2)//si on est dans la classe 2:[10,30]
                    {if (fight<0.1)
                        {vector <Etrevivant> temp1 (zombie.size()+1);
                         temp1 = esttransforme(zombie, humains, humains[j]);
                         zombie.resize(zombie.size()+1);
                         zombie=temp1;
                         vector <Etrevivant> temp (zombie.size()-1);
                         temp=Tuer(humains,j);
                         humains.resize(zombie.size()-1);
                         humains=temp;

                         zombie=deplacement(zombie,zombie.size()-1,n,r);
                         }
                    else{zombie=deplacement(zombie,i,n,r);
                         //cout<<"apres deplacement en cas de non combat: "<<endl;
                         //afficher(zombie);
                         }
                    }
             else if (humains[j].get_age()==3)//si on est dans la classe 3:[30,50]
                    {if (fight<0.3)
                        {vector <Etrevivant> temp1 (zombie.size()+1);
                         temp1 = esttransforme(zombie, humains, humains[j]);
                         zombie.resize(zombie.size()+1);
                         zombie=temp1;
                         vector <Etrevivant> temp (zombie.size()-1);
                         temp=Tuer(humains,j);
                         humains.resize(zombie.size()-1);
                         humains=temp;

                         zombie=deplacement(zombie,zombie.size()-1,n,r);
                         }
                    else{zombie=deplacement(zombie,i,n,r);
                         //cout<<"apres deplacement en cas de non combat: "<<endl;
                         //afficher(zombie);
                        }
                    }
             else if (humains[j].get_age()==4)//si on est dans la classe 4:[50,70]
                    {if (fight<0.6)
                        {vector <Etrevivant> temp1 (zombie.size()+1);
                         temp1 = esttransforme(zombie, humains, humains[j]);
                         zombie.resize(zombie.size()+1);
                         zombie=temp1;
                         vector <Etrevivant> temp (zombie.size()-1);
                         temp=Tuer(humains,j);
                         humains.resize(zombie.size()-1);
                         humains=temp;

                         zombie=deplacement(zombie,zombie.size()-1,n,r);
                         }
                    else{zombie=deplacement(zombie,i,n,r);
                         //cout<<"apres deplacement en cas de non combat: "<<endl;
                         //afficher(zombie);
                         }
                    }
             else if (humains[j].get_age()==5)//si on est dans la classe 5:[70,100]
                    {if (fight<0.9)
                        {vector <Etrevivant> temp1 (zombie.size()+1);
                         temp1 = esttransforme(zombie, humains, humains[j]);
                         zombie.resize(zombie.size()+1);
                         zombie=temp1;
                         vector <Etrevivant> temp (zombie.size()-1);
                         temp=Tuer(humains,j);
                         humains.resize(zombie.size()-1);
                         humains=temp;

                         zombie=deplacement(zombie,zombie.size()-1,n,r);
                         }
                    else{zombie=deplacement(zombie,i,n,r);
                         //cout<<"apres deplacement en cas de non combat: "<<endl;
                         //afficher(zombie);
                         }
                    }
            }
    }
   for (int unsigned j=0; j<HI.size();j++)
        {//cout << "boucle for HI "<<endl;
         if (zombie[i].get_ligne()==HI[j].get_ligne() && zombie[i].get_colonne()==HI[j].get_colonne() )
                {cout << "combat zombie "<<i <<" HI "<<j<<endl;
                 double fight = gsl_rng_uniform ( r );
                 //cout<< "proba fight : "<<fight <<endl;
                 if(HI[j].get_age()==1) //les combats auront une issu differente selon l'age de l'humain
                    //si on est dans la classe 1:[0,10]
                     {//cout << "cas 1 :"<< endl;
                        if (fight<0.6)
                            { vector <Etrevivant> temp (HI.size()-1);
                              temp=Tuer(HI,j);
                              HI.resize(HI.size()-1);
                              HI=temp;
                              }
                        else if(fight<0.8)
                                {vector <Etrevivant> temp (zombie.size()-1);
                                 temp=Tuer(zombie,i);
                                 zombie.resize(zombie.size()-1);
                                 zombie=temp;
                                 }
                             else if (fight<0.9)
                                    {vector <Etrevivant> temp1 (HI.size()+1);
                                     temp1 = esttransforme(zombie, HI, zombie[i]);
                                     HI.resize(HI.size()+1);
                                     HI=temp1;
                                     vector <Etrevivant> temp (zombie.size()-1);
                                     temp=Tuer(zombie,i);
                                     zombie.resize(zombie.size()-1);
                                     zombie=temp;
                                     HI=deplacement(HI,HI.size()-1,n,r);}
                                  //sinon, il ne se passe rien...
                        }
                 else if (HI[j].get_age()==2)//si on est dans la classe 2:[10,30]
                        {//cout << "cas 2 :"<< endl;
                        if (fight<0.05)
                            { vector <Etrevivant> temp (HI.size()-1);
                              temp=Tuer(HI,j);
                              HI.resize(HI.size()-1);
                              HI=temp;
                              }
                        else if(fight<0.65)
                                {vector <Etrevivant> temp (zombie.size()-1);
                                 temp=Tuer(zombie,i);
                                 zombie.resize(zombie.size()-1);
                                 zombie=temp;
                                 }
                             else if (fight<0.9)
                                    {vector <Etrevivant> temp1 (HI.size()+1);
                                     temp1 = esttransforme(zombie, HI, zombie[i]);
                                     HI.resize(HI.size()+1);
                                     HI=temp1;
                                     vector <Etrevivant> temp (zombie.size()-1);
                                     temp=Tuer(zombie,i);
                                     zombie.resize(zombie.size()-1);
                                     zombie=temp;
                                     HI=deplacement(HI,HI.size()-1,n,r);}
                        //sinon, il ne se passe rien...
                        }
                 else if (HI[j].get_age()==3)//si on est dans la classe 3:[30,50]
                        {//cout << "cas 3 :"<< endl;
                        if (fight<0.1)
                            { vector <Etrevivant> temp (HI.size()-1);
                              temp=Tuer(HI,j);
                              HI.resize(HI.size()-1);
                              HI=temp;
                              }
                        else if(fight<0.5)
                                {vector <Etrevivant> temp (zombie.size()-1);
                                 temp=Tuer(zombie,i);
                                 zombie.resize(zombie.size()-1);
                                 zombie=temp;
                                 }
                             else if (fight<0.9)
                                    {vector <Etrevivant> temp1 (HI.size()+1);
                                     temp1 = esttransforme(zombie, HI, zombie[i]);
                                     HI.resize(HI.size()+1);
                                     HI=temp1;
                                     vector <Etrevivant> temp (zombie.size()-1);
                                     temp=Tuer(zombie,i);
                                     zombie.resize(zombie.size()-1);
                                     zombie=temp;
                                     HI=deplacement(HI,HI.size()-1,n,r);}
                            //sinon, il ne se passe rien...
                        }
                 else if (HI[j].get_age()==4)//si on est dans la classe 4:[50,70]
                        {//cout << "cas 4 :"<< endl;
                        if (fight<0.3)
                            { vector <Etrevivant> temp (HI.size()-1);
                              temp=Tuer(HI,j);
                              HI.resize(HI.size()-1);
                              HI=temp;
                              }
                        else if(fight<0.6)
                                {vector <Etrevivant> temp (zombie.size()-1);
                                 temp=Tuer(zombie,i);
                                 zombie.resize(zombie.size()-1);
                                 zombie=temp;
                                 }
                             else if (fight<0.9)
                                    {vector <Etrevivant> temp1 (HI.size()+1);
                                     temp1 = esttransforme(zombie, HI, zombie[i]);
                                     HI.resize(HI.size()+1);
                                     HI=temp1;
                                     vector <Etrevivant> temp (zombie.size()-1);
                                     temp=Tuer(zombie,i);
                                     zombie.resize(zombie.size()-1);
                                     zombie=temp;
                                     HI=deplacement(HI,HI.size()-1,n,r);}
                        //sinon, il ne se passe rien...
                        }
                 else if (HI[j].get_age()==5)//si on est dans la classe 5:[70,100]
                        {//cout << "cas 5 :"<< endl;
                        if (fight<0.7)
                            { vector <Etrevivant> temp (HI.size()-1);
                              temp=Tuer(HI,j);
                              HI.resize(HI.size()-1);
                              HI=temp;
                              }
                        else if(fight<0.8)
                                {vector <Etrevivant> temp (zombie.size()-1);
                                 temp=Tuer(zombie,i);
                                 zombie.resize(zombie.size()-1);
                                 zombie=temp;
                                 }
                             else if (fight<0.9)
                                    {vector <Etrevivant> temp1 (HI.size()+1);
                                     temp1 = esttransforme(zombie, HI, zombie[i]);
                                     HI.resize(HI.size()+1);
                                     HI=temp1;
                                     vector <Etrevivant> temp (zombie.size()-1);
                                     temp=Tuer(zombie,i);
                                     zombie.resize(zombie.size()-1);
                                     zombie=temp;
                                     HI=deplacement(HI,HI.size()-1,n,r);}
                        //sinon, il ne se passe rien...
                        }
                 }
        }

    }

vector <Etrevivant> Total (zombie.size()+humains.size()+HI.size()+3);

Total[0].set_age (zombie.size());
Total[1].set_age (humains.size());
Total[2].set_age (HI.size());

for (int unsigned i=3; i<(zombie.size()+3); i++)
{ Total[i]=zombie[i-3];
}

for (int unsigned i=(zombie.size()+3); i<(humains.size()+zombie.size()+3); i++)
{ Total[i]=humains[i-zombie.size()-3];
}

for (int unsigned i=(humains.size()+zombie.size()+3); i<Total.size(); i++)
{ Total[i]=HI[i-(humains.size()+zombie.size()+3)];
}

//cout <<"le vecteur Total : " << endl;
//afficher(Total);

return Total;
}

vector <Etrevivant> deplacements (vector <Etrevivant> E, int n, const gsl_rng*  r)
{ for (int unsigned i (0); i<E.size(); i++) // balayage toutes les "cases" du vecteur
    {if(not encercler(E,i,n))
     {//cout<<"deplacement du " <<i <<"eme element"<<endl;
      double proba;
      proba = gsl_rng_uniform ( r);
      //cout << " proba : " << proba<<endl;
      if (proba <=0.25)//gauche si peut pas bouge pas !
            { if (E[i].get_colonne()>=1)
                {E[i].set_colonne(E[i].get_colonne()-1);
                 if (occupee(E,i))
                    { E[i].set_colonne(E[i].get_colonne()+1);
                    }
                }
            }
           else if (proba<=0.5)//haut
                    { if (E[i].get_ligne()>=1)
                        { E[i].set_ligne(E[i].get_ligne()-1);
                          if (occupee(E,i))
                            { E[i].set_ligne(E[i].get_ligne()+1);
                            }
                        }
                    }
                else if (proba<=0.75)//droite
                        { if(E[i].get_colonne()<n)
                            { E[i].set_colonne(E[i].get_colonne()+1);
                              if (occupee(E,i))
                                { E[i].set_colonne(E[i].get_colonne()-1);
                                  }
                            }
                        }
                     else if (proba<=1)//bas
                            { if(E[i].get_ligne()<n)
                                { E[i].set_ligne(E[i].get_ligne()+1) ;
                                  if (occupee(E,i))
                                  { E[i].set_ligne(E[i].get_ligne()-1);
                                    }
                                }
                            }
     //sinon il reste sur place exceptionnelement
    }
    }
    return E;

}

EXPORT int __stdcall projet (int a,int b,int c,int n)
{ vector <Etrevivant> Z (a);
  vector <Etrevivant> H (b);
  vector <Etrevivant> HI (c);

  const gsl_rng_type* T;
  gsl_rng* r;
  T=gsl_rng_default;
  r=gsl_rng_alloc(T);
  gsl_rng_set(r,time(NULL));

  for (int i=0; i<a; i++)
     { Z[i].set_zombie(true) ;
       Z[i].set_humain(false) ;
       Z[i].set_immunise (false);
       Z[i].set_age (0);
       double u,v;
       u=gsl_rng_uniform ( r )*n;
       v=gsl_rng_uniform ( r )*n;
       Z[i].set_ligne(floor(u));
       Z[i].set_colonne(floor(v));
       }

  for (int i=0; i<b; i++)
     { H[i].set_zombie(false) ;
       H[i].set_humain(true) ;
       H[i].set_immunise (false);
       int age = floor(gsl_rng_uniform ( r )*5)+1;
       H[i].set_age (age);
       double u,v;
       u=gsl_rng_uniform ( r )*n;
       v=gsl_rng_uniform ( r )*n;
       H[i].set_ligne(floor(u));
       H[i].set_colonne(floor(v));
       }

  for (int i=0; i<c; i++)
     { HI[i].set_zombie(false) ;
       HI[i].set_humain(true) ;
       HI[i].set_immunise (true);
       int age = floor(gsl_rng_uniform ( r )*5)+1;
       HI[i].set_age (age);
       double u,v;
       u=gsl_rng_uniform ( r )*n;
       v=gsl_rng_uniform ( r )*n;
       HI[i].set_ligne(floor(u));
       HI[i].set_colonne(floor(v));
       }

  cout<< "apres creation :"<<endl;
  afficher(Z);
  cout<<endl;
  afficher(H);
  cout<<endl;
  afficher(HI);
  cout<<endl;

  int i=1;
  while (i<=5 and Z.size()>0 and (H.size()+HI.size())>0)
        { cout<< "tour " <<i <<endl;
          Z=deplacements(Z,n,r);
          H=deplacements(H,n,r);
          HI=deplacements(HI,n,r);
          cout << "apres deplacement : "<<endl;
          afficher(Z);
          cout<<endl;
          afficher(H);
          cout<<endl;
          afficher(HI);
          cout<<endl;
          vector <Etrevivant> R (H.size()+HI.size()+Z.size());
          R=Combat(Z,H,HI,n);
          Z.resize(R[0].get_age());
          H.resize(R[1].get_age());
          HI.resize(R[2].get_age());
          for (int i=3; i<(R[0].get_age()+3);i++)
            { Z[i-3]=R[i];
            }
          for (int i=R[0].get_age()+3; i<(R[1].get_age()+R[0].get_age()+3); i++)
            {H[i-(R[0].get_age()+3)]=R[i];
            }
          for (int unsigned i=R[1].get_age()+R[0].get_age()+3; i<R.size(); i++)
            {HI[i-(R[1].get_age()+R[0].get_age()+3)]=R[i];
            }
          cout<<"apres combat :" <<endl;
          afficher(Z);
          cout<<endl;
          afficher(H);
          cout<<endl;
          afficher(HI);
          cout<<endl;
          i++;
        }

  if (Z.size()==0)
    { cout<< "il n'y a plus de zombie au tour "<<i<<endl;
    }
  else if((H.size()+HI.size())==0)
        {cout << "il n'y a plus d'homme au tour "<<i<<endl;
        }
      else {cout<< "nombre de tour max atteint"<<endl;}

  int R =H.size()+HI.size();
  return R;
}