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

int sx = 0;
int x = 100;
int y = 30;
extern bopti_image_t img_tilemap;
extern bopti_image_t img_numbers;
int 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 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 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[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)){
            if(sele==1&&game_map[x/10+1][y/10]==0){game_map[x/10+1][y/10]=sinv;}
            if(sele==2&&game_map[x/10][y/10+1]==0){game_map[x/10][y/10+1]=sinv;}
            if(sele==3&&game_map[x/10-1][y/10]==0){game_map[x/10-1][y/10]=sinv;}
            if(sele==0&&game_map[x/10][y/10-1]==0){game_map[x/10][y/10-1]=sinv;}
        }
        if(can_move ==1 && keydown(KEY_SQUARE)){
            if(sele==1){game_map[x/10+1][y/10]=0;}
            if(sele==2){game_map[x/10][y/10+1]=0;}
            if(sele==3){game_map[x/10-1][y/10]=0;}
            if(sele==0){game_map[x/10][y/10-1]=0;}
        }
        if(selecoll>0){selecoll--;}
        if(keydown(KEY_F6)&&selecoll==0){
                if(sinv==BLOCKS_LEN+1){sinv=0;}
                sinv++;
        }
        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;
}