#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include <string.h>
#include <unistd.h>
#include <stdbool.h>
// #include <X11/Xlib.h>
// #include <X11/Xutil.h>
#define red "\x1b[31m"
#define gre "\x1b[32m"
#define res "\x1b[0m"
#define bro " \e[0;33m"
struct burningtree{
    int x;
    int y;
    int status;
};
int burnrate;

int forest[25][25];
struct burningtree burning[625];
int burncount=0;
struct burningtree *sort(struct burningtree tosort[], int size, bool asc){
	int i;
    int issorted=0;
    int counter=0;
    while(issorted==0){
        issorted=1;
        for (i=0;i<size-1;i++){
            if(asc==true){
                if(tosort[i].status>tosort[i+1].status){
                    struct burningtree temp=tosort[i];
                    tosort[i]=tosort[i+1];
                    tosort[i+1]=temp;
                    issorted=0;
                }
            }else if(asc==false){
                if(tosort[i].status<tosort[i+1].status){
                    struct burningtree temp=tosort[i];
                    tosort[i]=tosort[i+1];
                    tosort[i+1]=temp;
                    issorted=0;
                }
            }
        }
        counter++;
    }
    return tosort;
}
int fizzle(void){
    int i;
    for (i=0;i<burncount;i++){
        if(rand()%100>80){
            burning[i].status=-50;
            int x=burning[i].x;
            int y=burning[i].y;
            forest[x][y]=-1;
            burncount--;
        }
    }
    sort(burning,625,false);
    return 1;
}

int drawforest(void){
   
    
    int i;
    int j;
    
    //Initialize a string for what will be outputted to the screen
    char output[100000]="";
    //Initialize strings that will be concat'd to the main string
    char tree[]=gre " T";
    char burn[]=red " B";
    char dirt[]=bro "D";
    char fizzled[]=res" F";
    char newl[]=res "\n";
    for(i=0;i<25;i++){
        for(j=0;j<25;j++){
            if(forest[i][j]==1){
                strcat(output, tree);
            }else if(forest[i][j]==500){
                strcat(output,burn);
            }else if(forest[i][j]==-1){
                strcat(output,fizzled);
            }
            else{
                strcat(output,dirt);
            }
            
        }
        
        strcat(output,newl);
        
    }
    printf("------------------------------------------\n");
    printf("%s",output);
 	fizzle();
    return 1;
}


int spread(int size){
    int i;
    int x;
    int y;
    #pragma omp for
    for(i=0;i<size;i++){
        x=burning[i].x;
        y=burning[i].y;
        if(forest[x][y-1]==1&&random()%100<burnrate && y>0){
            
	    forest[x][y-1]=500;
            burning[burncount].x=x;
            burning[burncount].y=y-1;
            burncount++;
        }if(forest[x][y+1]==1&&random()%100<burnrate&& y <24){
            forest[x][y+1]=500;
            burning[burncount].x=x;
            burning[burncount].y=y+1;
            burncount++;
        }if(forest[x+1][y]==1&&random()%100<burnrate){
            
            forest[x+1][y]=500;
            burning[burncount].x=x+1;
            burning[burncount].y=y;
            burncount++;
        }if(forest[x-1][y]==1&&random()%100<burnrate){
            forest[x-1][y]=500;
            burning[burncount].x=x-1;
            burning[burncount].y=y;
            burncount++;
        }
        
    }
    
    //What do you mean, 'implicit declaration of drawforest() is invalid in c99'
    
    drawforest();
    return 1;
}
int initforest(void){
    int i;
    int j;
    printf("Enter a burn rate from 0 to 100\n");
scanf("%d",&burnrate);
    
    for(i=0;i<25;i++){
        for(j=0;j<25;j++){
            int chance=rand()%100;
            if(chance<=90){
                forest[i][j]=1;
            }else{
                forest[i][j]=0;
            }
        }
    }
    forest[12][12]=500;
    burning[0].x=12;
    burning[0].y=12;
    burning[0].status=1;
    burncount++;
    
    return 1;
}


//Basic stuff that is needed

//For some reason, Xcode won't let me clrscr() with conio.h