#include <gint/display.h>
#include <gint/defs/util.h>

#include "animation.h"
#include "engine.h"

struct Sheet
{
    /*the sheet image of the animation*/
    bopti_image_t *img;
    /*the frame width*/
    int frame_w;
    /*the frame height*/
    int frame_h;
};

extern bopti_image_t img_spritesheet;
struct Sheet const anim_player = {
    .img = &img_spritesheet,
    .frame_w = 16,
    .frame_h = 21,
};

static struct AnimFrame anim_frame(struct Sheet const *sheet, int col, int row) {
    struct AnimFrame f = {
        .source = sheet->img,
        .left   = sheet->frame_w * col,
        .top    = sheet->frame_h * row,
        .w      = sheet->frame_w,
        .h      = sheet->frame_h,
    };
    return f;
}

/*draw the frame*/
void dframe(int x, int y, struct AnimFrame const frame) {
    dsubimage(x, y, frame.source, frame.left, frame.top, frame.w, frame.h,
        DIMAGE_NONE);
}

/*animation for player walking*/
int anim_player_walking(struct AnimData *data, int init) {
    if(init) {
        data->function = anim_player_walking;
        data->frame = 0;
        data->duration = 50;
        int dx = (data->dir == DIR_LEFT) - (data->dir == DIR_RIGHT);
        int dy = (data->dir == DIR_UP)   - (data->dir == DIR_DOWN);

        data->dx = 4 * dx;
        data->dy = 4 * dy;
    } else {
        data->dx -= sgn(data->dx);
        data->dy -= sgn(data->dy);

        if(!data->dx && !data->dy) {
            return anim_player_idle(data, 1);
        }

        data->frame = (data->frame + 1) % 3;
        data->duration += 50;
    }

    data->img = anim_frame(&anim_player, data->dir+4, data->frame);
    return 1;
}

/*animation for player walking*/
int anim_player_sprinting(struct AnimData *data, int init) {
    if(init) {
        data->function = anim_player_sprinting;
        data->frame = 0;
        data->duration = 25;
        int dx = (data->dir == DIR_LEFT) - (data->dir == DIR_RIGHT);
        int dy = (data->dir == DIR_UP)   - (data->dir == DIR_DOWN);

        data->dx = 4 * dx;
        data->dy = 4 * dy;
    } else {
        data->dx -= sgn(data->dx);
        data->dy -= sgn(data->dy);

        if(!data->dx && !data->dy) {
            return anim_player_idle(data, 1);
        }

        data->frame = (data->frame + 1) % 3;
        data->duration += 25;
    }

    data->img = anim_frame(&anim_player, data->dir+4, data->frame);
    return 1;
}

/*animation for player doing nothing*/
int anim_player_idle(struct AnimData *data, int init) {
    if(init) {
        data->function = anim_player_idle;
        data->frame = 0;
        data->duration = 100;
    } else {
        data->frame = (data->frame + 1) % 2;
        data->duration += 100;
    }

    data->dx = 0;
    data->dy = 0;
    data->img = anim_frame(&anim_player, data->dir, data->frame);
    return 0;
}