extern "C"{
    #include <gint/display.h>
    #include <gint/keyboard.h>
    //#include <gint/std/string.h>
}
#define MAP_X 250
#define BLOCKS_LEN 17
#define CRAFTS 2
using namespace std;

int sx = 0;
int x = 100;
int y = 30;
extern bopti_image_t img_tilemap;
extern bopti_image_t img_craft;
int8_t game_map[MAP_X+1][7] = {0};
int opt = GETKEY_DEFAULT | GETKEY_REP_ARROWS | GETKEY_MENU;
int optd = GETKEY_DEFAULT | GETKEY_MENU;
int timeout = 1;
int key;
int rwalk =0;
int can_move = 1;
int dir = 1;
int vdir;
int sele = 2;
int vas = 0;
int sinv = 3;
int inv[BLOCKS_LEN+1] = {0};
int btmp = sinv;
int selecoll = 0;
int rockminer_interval;
int craftdata[][6] = {{5,1,4,2,15,1},{3,2,15,4,0,0}};
int s = 0;

int isCollide(int num){
    if(num==0){return 1;}
    else if(num==3){return 1;}
    else if(num==14){return 1;}
    else if(num==15){return 1;}
    else if(num==16){return 1;}
    else{return 0;}
}

int isMultipleof5 (int n)
{
    while ( n > 0 )
        n = n - 5;

    if ( n == 0 )
        return 1;

    return 0;
}

void PrintSblock(int num,int x,int y){
    dsubimage(x*10, y*10+4 ,&img_tilemap,num*10,10,10, 10, DIMAGE_NONE);
}

void PrintMap(){
    int cx = MAP_X;
    int cy = 6;
    dsubimage(116, 0 ,&img_tilemap,sinv*10,0,10, 10, DIMAGE_NONE);
    dhline(12,C_BLACK);
    dprint(96, 0, C_BLACK, "%d", inv[sinv]);
    while(cx>0){
    cy = 6;
        while(cy>0){
            dsubimage(cx*10-sx, cy*10+4 ,&img_tilemap,game_map[cx][cy]*10,0,10, 10, DIMAGE_NONE);
            /*if(game_map[cx][cy]==2&&game_map[cx][cy]>1&&game_map[cx][cy]<MAP_X){
                if(game_map[cx-1][cy]==2&&game_map[cx+1][cy]==2){PrintSblock(4,cx,cy);}
                if(game_map[cx-1][cy]!=2&&game_map[cx+1][cy]==2){PrintSblock(3,cx,cy);}
                if(game_map[cx-1][cy]==2&&game_map[cx+1][cy]!=2){PrintSblock(5,cx,cy);}
            }*/
            cy--;
        }
        cx--;
    }
    if(dir==0){dsubimage(x-sx, y+4 ,&img_tilemap,5*10,20,10, 10, DIMAGE_NONE);}
    if(dir==1){dsubimage(x-sx, y+4 ,&img_tilemap,4*10,20,10, 10, DIMAGE_NONE);}
    if(vas==0&& (keydown(KEY_VARS) || keydown(KEY_SQUARE))){
        if(sele==1){dsubimage(x+10-sx, y+4 ,&img_tilemap,0,20,10, 10, DIMAGE_NONE);}
        if(sele==2){dsubimage(x-sx, y+4+10 ,&img_tilemap,0,20,10, 10, DIMAGE_NONE);}
        if(sele==3){dsubimage(x-10-sx, y+4 ,&img_tilemap,0,20,10, 10, DIMAGE_NONE);}
        if(sele==0){dsubimage(x-sx, y+4-10 ,&img_tilemap,0,20,10, 10, DIMAGE_NONE);}
    }
    if(vas==1){
        if(sele==1){dsubimage(x+10-sx, y+4 ,&img_tilemap,10,20,10, 10, DIMAGE_NONE);}
        if(sele==2){dsubimage(x-sx, y+4+10 ,&img_tilemap,10,20,10, 10, DIMAGE_NONE);}
        if(sele==3){dsubimage(x-10-sx, y+4 ,&img_tilemap,10,20,10, 10, DIMAGE_NONE);}
        if(sele==0){dsubimage(x-sx, y+4-10 ,&img_tilemap,10,20,10, 10, DIMAGE_NONE);}
    }
}

int craft(int item){
    if(craftdata[item][3]<=inv[craftdata[item][2]] && craftdata[item][5]<=inv[craftdata[item][4]]){
        inv[craftdata[item][2]] = inv[craftdata[item][2]] - craftdata[item][3];
        inv[craftdata[item][4]] = inv[craftdata[item][4]] - craftdata[item][5];
        inv[craftdata[item][0]] = inv[craftdata[item][0]] + craftdata[item][1];
        return 1;
    }
    else{
        return 0;
    }
}

void craftmenu(){
    int s = 0;
    while(1){
        dclear(C_WHITE);
        for(int i=0;i<CRAFTS;i++) {
            dsubimage(0,i*16,&img_craft,0,0,128,16,DIMAGE_NONE); // template
            if(s==i){dsubimage(1,i*16+3,&img_tilemap,21,21,8,8,DIMAGE_NONE);} //if select
            dsubimage(13,i*16+3,&img_tilemap,craftdata[i][0]*10,0,10,10,DIMAGE_NONE); //block to craft
            dprint(25, i*16+4, C_BLACK, "%d",craftdata[i][1]);
            dsubimage(75,i*16+3,&img_tilemap,craftdata[i][2]*10,0,10,10,DIMAGE_NONE);
            dprint(88, i*16+4, C_BLACK, "%d",craftdata[i][3]);
            dsubimage(95,i*16+3,&img_tilemap,craftdata[i][4]*10,0,10,10,DIMAGE_NONE);
            dprint(108, i*16+4, C_BLACK, "%d",craftdata[i][5]);
        }
        key = getkey_opt(opt, &timeout).key;
        if(key==KEY_EXIT){break;}
        if(key==KEY_OPTN){if(craft(s)){break;}}
        if(key==KEY_DOWN&&s<CRAFTS-1){s++;}
        if(key==KEY_UP&&s>0){s--;}
        dupdate();
    }
}

int main(void)
{
    int i = 10;
    while(i<MAP_X-10){
        game_map[i][5] = 1;
        game_map[i][4] = 2;
        i++;
        if(i>10 && i<MAP_X-10 && isMultipleof5(i) == 1){
            game_map[i][3] = 15;
            game_map[i][2] = 15;
            game_map[i][1] = 15;
            game_map[i][0] = 17;
            game_map[i-1][0] = 17;
            game_map[i+1][0] = 17;
            game_map[i-1][1] = 17;
            game_map[i+1][1] = 17;
            game_map[i-2][1] = 17;
            game_map[i+2][1] = 17;
            game_map[i+1][3] = 4;
        }
    }
    game_map[5][3] = 9;
    game_map[6][3] = 10;
    game_map[7][3] = 11;
    inv[3] = 15;
    inv[13] = 10;
    inv[17] = 5;
    while(1==1){
        if(keydown(KEY_OPTN)){vas=1;}else{vas=0;}
        sx = x-60;
        dclear(C_WHITE);
        //dtext(12, 1, C_BLACK, "item");
        PrintMap();
        dupdate();
        key = getkey_opt(opt, &timeout).key;
        if(keydown(KEY_VARS)==0&&can_move == 1 &&( isCollide(game_map[x/10][y/10+1]) == 0 || game_map[x/10][y/10+1]==3)){
            if(keydown(KEY_RIGHT)&&isCollide(game_map[x/10+1][y/10])){rwalk = 10;can_move=0;dir=1;vdir=1;}
            if(keydown(KEY_UP)&&game_map[x/10][y/10]==3){rwalk = 10;can_move=0;vdir=0;}
            if(keydown(KEY_LEFT)&&isCollide(game_map[x/10-1][y/10])){rwalk = 10;can_move=0;dir=0;vdir=3;}
            if(keydown(KEY_DOWN)&&game_map[x/10][y/10+1]==3){rwalk = 10;can_move=0;vdir=2;}
        }
        if(keydown(KEY_VARS)){
            if(keydown(KEY_RIGHT)){sele=1;}
            if(keydown(KEY_DOWN)){sele=2;}
            if(keydown(KEY_LEFT)){sele=3;}
            if(keydown(KEY_UP)){sele=0;}
        }
        if(can_move ==1 && keydown(KEY_OPTN)&& inv[sinv] > 0){

            if(sele==1&&game_map[x/10+1][y/10]==0){game_map[x/10+1][y/10]=sinv;inv[sinv]--;}
            if(sele==2&&game_map[x/10][y/10+1]==0){game_map[x/10][y/10+1]=sinv;inv[sinv]--;}
            if(sele==3&&game_map[x/10-1][y/10]==0){game_map[x/10-1][y/10]=sinv;inv[sinv]--;}
            if(sele==0&&game_map[x/10][y/10-1]==0){game_map[x/10][y/10-1]=sinv;inv[sinv]--;}
        }
        if(can_move ==1 && keydown(KEY_SQUARE)){
            if(sele==1){inv[game_map[x/10+1][y/10]]++;game_map[x/10+1][y/10]=0;}
            if(sele==2){inv[game_map[x/10][y/10+1]]++;game_map[x/10][y/10+1]=0;}
            if(sele==3){inv[game_map[x/10-1][y/10]]++;game_map[x/10-1][y/10]=0;}
            if(sele==0){inv[game_map[x/10][y/10-1]]++;game_map[x/10][y/10-1]=0;}
        }
        if(selecoll>0){selecoll--;}
        if(keydown(KEY_F6)&&selecoll==0){
                if(sinv==BLOCKS_LEN+1){sinv=1;}
                sinv++;
                selecoll = 30;
        }
        if(keydown(KEY_F5)&&selecoll==0){
                if(sinv==1){sinv=BLOCKS_LEN+1;}
                sinv--;
                selecoll = 30;
        }
        if(keydown(KEY_F1)){
                craftmenu();
        }
        if(can_move == 1 && game_map[x/10][y/10+1] == 0){
            can_move = 0;
            rwalk=10;
            vdir=2;
        }
        if(can_move==0&&rwalk>0){
            rwalk--;
            if(vdir==1){x++;}
            if(vdir==2){y++;}
            if(vdir==3){x--;}
            if(vdir==0){y--;}
            if(rwalk==0){can_move = 1;}
        }
    }
	getkey();
	return 1;
}