#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <time.h>
#include "picture.h"
 
char str[1000], name[1000], *s;
int type;
 
int mx = 0, my = 0, slen;
BYTE *tex = 0;
 
inline void out_uc(unsigned char c, int &k)
{
        if (k < 0) {printf("\n\""); k = 0;}
        printf("\\x%02X", c);
        k++;
        if (k >= 20) {printf("\""); k = -1;}
}
 
inline void out_cl(int &k)
{
        if (k >= 0) {printf("\""); k = -1;}
}
 
inline void out_end(int &k)
{
        if (k == -10) return;
        if (type == 0) {out_uc(0, k); out_uc(255, k);}
        out_cl(k);
        printf(";\n\n");
        k = -10;
}
 
void del_last_space(char *s0)
{
        char *s1;
        for (s1 = s0; *s1; s1++)
        {
                if (!isspace(*s1)) s0 = s1 + 1;
        }
        *s0 = 0;
}
 
int main()
{
        BYTE *t0;
        int i, j, k, m, t, v;
//      randomize();
        srand(time(NULL));
        i = rand() + (rand() << 16);
        j = rand() + (rand() << 16);
        k = rand() + (rand() << 16);
        printf("#ifndef _INCLUDE_BITMAP_%08X_%08X_%08X__PICTURE_\n", i, j, k);
        printf("#define _INCLUDE_BITMAP_%08X_%08X_%08X__PICTURE_\n", i, j, k);
        strcpy(name, "bitmap_pictures");
        type = 0;
        k = -10;
        while (!feof(stdin))
        {
                memset(str, 0, sizeof(str));
                fgets(str, sizeof(str)-1, stdin);
                s = str;
                while (*s && isspace(*s)) s++;
                if (strncmp(s, "rem", 3) != 0) continue;
                s += 3;
                if (!isspace(*s)) continue;
                while (*s && isspace(*s)) s++;
                if (strncmp(s, "<array", 6) == 0)
                {
                        s += 6;
                        if (strncmp(s, ":bmp>", 5) == 0) {s += 5; v = 0;}
                        else if (strncmp(s, ":set>", 5) == 0) {s += 5; v = 1;}
                        else if (strncmp(s, ":life>", 6) == 0) {s += 6; v = 2;}
                        else continue;
                        if (!isspace(*s)) continue;
                        while (*s && isspace(*s)) s++;
                        if (!*s) continue;
                        del_last_space(s);
                        strcpy(name, s);
                        out_end(k);
                        type = v;
                        continue;
                }
                else if (strncmp(s, "<skip>", 6) == 0)
                {
                        s += 6;
                        if (!isspace(*s)) continue;
                        while (*s && isspace(*s)) s++;
                        if (!*s) continue;
                        i = 2*atoi(s);
                        while (--i >= 0) out_uc(0, k);
                        continue;
                }
                else if (strncmp(s, "<bitmap", 7) == 0)
                {
                        s += 7; v = 0;
                        for (;;)
                        {
                                if (strncmp(s, ":inv", 4) == 0) {s += 4; v ^= 1;}
                                else break;
                        }
                        if (s[0] == '>') s++;
                        else continue;
                }
                else continue;
                if (!isspace(*s)) continue;
                while (*s && isspace(*s)) s++;
                if (!*s) continue;
                del_last_space(s);
                if ((PictureFileOpen(mx, my, tex, s) & PFO_MASK_ERROR) != 0) continue;
                if (!tex || mx <= 0 || my <= 0) continue;
                if (type == 0 || type == 1)
                {
                        if (mx >= 256 || my >= 256) continue;
                }
                else if (type == 2)
                {
                        if (mx >= 65536 || my >= 65536) continue;
                }
                slen = GetStringPictLenght(mx);
                if (k == -10)
                {
                        printf("\nconst unsigned char %s[] = \"", name);
                        if (type == 2) printf("#LifeBin 2.0\\n");
                        printf("\"");
                        k = -1;
                }
                if (v & 1)
                {
                        for (i = 0; i < my; i++)
                        {
                                t0 = tex + slen * i;
                                for (j = 3*mx; j > 0; j--)
                                {
                                        t0[0] = (unsigned char)~t0[0];
                                        t0++;
                                }
                        }
                }
                m = 0; t = 0;
                if (type == 0 || type == 1)
                {
                        out_uc((unsigned char)mx, k); out_uc((unsigned char)my, k);
                }
                else if (type == 2)
                {
                        out_uc((unsigned char)mx, k); out_uc((unsigned char)(mx >> 8), k);
                        out_uc((unsigned char)my, k); out_uc((unsigned char)(my >> 8), k);
                }
                for (i = 0; i < my; i++)
                {
                        t0 = tex + slen * i;
                        for (j = mx; j > 0; j--)
                        {
                                if (type == 0)
                                {
                                        out_uc(t0[2], k); out_uc(t0[1], k); out_uc(t0[0], k);
                                }
                                else if (type == 1)
                                {
                                        m |= ((int)t0[0] + (int)t0[1] + (int)t0[2] >= 384) << t;
                                        if (++t >= 8) {out_uc((unsigned char)m, k); m = 0; t = 0;}
                                }
                                else if (type == 2)
                                {
                                        if ((int)t0[0] + (int)t0[1] + (int)t0[2] >= 384)
                                        {
                                                if (m) {out_uc((unsigned char)m, k); m = 0;}
                                                out_uc(0, k);
                                        }
                                        else
                                        {
                                                if (m == 255) {out_uc((unsigned char)m, k); m = 0;}
                                                m++;
                                        }
                                }
                                t0 += 3;
                        }
                }
                if (type == 1)
                {
                        if (t) out_uc((unsigned char)m, k);
                }
                else if (type == 2)
                {
                        if (m) out_uc((unsigned char)m, k);
                }
        }
        if (tex) delete[] tex;
        out_end(k);
        printf("#endif\n");
        return 0;
}