#include <stdlib.h>
#include <stdio.h>
#include <WINGs/WINGs.h>



#define MAX_SIZE 	10*10


WMWindow *win;
WMButton *Button[MAX_SIZE];
char Map[MAX_SIZE];
int Size = 4;
int MoveCount;

#define MAP(x,y)  Map[(x)+(y)*Size]

int WinSize = 120;


Bool
CheckWin(void)
{
    int i;

    for (i = 0; i < Size*Size-1; i++) {
        if (Map[i] != i)
            return False;
    }

    return True;
}


void
MoveButton(int button, int x, int y)
{
    WMMoveWidget(Button[button], x*(WinSize/Size), y*(WinSize/Size));
}


Bool
SlideButton(int button)
{
    int x=0, y=0, done = 0;

    /* locate the button */
    for (y = 0; y < Size; y++) {
        for (x = 0; x < Size; x++) {
            if (MAP(x,y) == button) {
                done = 1;
                break;
            }
        }
        if (done)
            break;
    }

    if (x > 0 && MAP(x-1, y) < 0) {
        MAP(x,y) = -1;
        MoveButton(button, x-1, y);
        MAP(x-1,y) = button;
    } else if (x < Size-1 && MAP(x+1, y) < 0) {
        MAP(x,y) = -1;
        MoveButton(button, x+1, y);
        MAP(x+1,y) = button;
    } else if (y > 0 && MAP(x, y-1) < 0) {
        MAP(x,y) = -1;
        MoveButton(button, x, y-1);
        MAP(x,y-1) = button;
    } else if (y < Size-1 && MAP(x, y+1) < 0) {
        MAP(x,y) = -1;
        MoveButton(button, x, y+1);
        MAP(x,y+1) = button;
    } else {
        return False;
    }
    return True;
}


#define SWAP(a,b) {int tmp; tmp=a; a=b; b=tmp;}

void ResetGame(void)
{
    int i, x, y, ox, oy;


    MoveCount = 0;

    for (i = 0; i < Size*Size-1; i++) {
        Map[i] = i;
    }
    Map[i] = -1;
    ox = x = Size-1;
    oy = y = Size-1;
    for (i = 0; i < 1000; i++) {
        int ok;
        ok = 1;
        switch (rand()%4) {
        case 0:
            if (x > 0) x--; else ok = 0;
            break;
        case 2:
            if (x < Size-1) x++; else ok = 0;
            break;
        case 1:
            if (y > 0) y--; else ok = 0;
            break;
        case 3:
            if (y < Size-1) y++; else ok = 0;
            break;
        }
        if (ok) {
            MoveButton(MAP(x,y), ox, oy);

            SWAP(MAP(ox, oy), MAP(x, y));

            while (XPending(WMScreenDisplay(WMWidgetScreen(win)))) {
                XEvent ev;
                WMNextEvent(WMScreenDisplay(WMWidgetScreen(win)), &ev);
                WMHandleEvent(&ev);
            }
            ox = x;
            oy = y;
        }
    }
}


void buttonClick(WMWidget *w, void *ptr)
{
    char buffer[300];

    if (SlideButton((int)ptr)) {
        MoveCount++;

        if (CheckWin()) {
            sprintf(buffer, "You finished the game in %i moves.", MoveCount);

            if (WMRunAlertPanel(WMWidgetScreen(w), win, "You Won!", buffer,
                                "Wee!", "Gah! Lemme retry!", NULL) == WAPRDefault) {
                exit(0);
            }

            ResetGame();
        }
    }
}


static void resizeObserver(void *self, WMNotification *notif)
{
    WMSize size = WMGetViewSize(WMWidgetView(win));
    int x, y;

    WinSize = size.width;
    for (y = 0; y < Size; y++) {
        for (x = 0; x < Size; x++) {
            if (MAP(x,y) >= 0) {
                WMResizeWidget(Button[(int)MAP(x,y)],
                               WinSize/Size, WinSize/Size);
                WMMoveWidget(Button[(int)MAP(x,y)],
                             x*(WinSize/Size), y*(WinSize/Size));
            }
        }
    }

}


int main(int argc, char **argv)
{
    Display *dpy;
    WMScreen *scr;
    int x, y, i;

    WMInitializeApplication("Puzzle", &argc, argv);


    dpy = XOpenDisplay("");
    if (!dpy) {
        printf("could not open display\n");
        exit(1);
    }

    scr = WMCreateScreen(dpy, DefaultScreen(dpy));

    win = WMCreateWindow(scr, "puzzle");
    WMResizeWidget(win, WinSize, WinSize);
    WMSetWindowTitle(win, "zuPzel");
    WMSetWindowMinSize(win, 80, 80);
    WMSetWindowAspectRatio(win, 2, 2, 2, 2);
    WMSetWindowResizeIncrements(win, Size, Size);
    WMSetViewNotifySizeChanges(WMWidgetView(win), True);
    WMAddNotificationObserver(resizeObserver, NULL,
                              WMViewSizeDidChangeNotification,
                              WMWidgetView(win));



    for (i = y = 0; y < Size && i < Size*Size-1; y++) {
        for (x = 0; x < Size && i < Size*Size-1; x++) {
            char buf[32];
            WMColor *color;
            RColor col;
            RHSVColor hsv;

            hsv.hue = i*360/(Size*Size-1);
            hsv.saturation = 120;
            hsv.value = 200;

            RHSVtoRGB(&hsv, &col);

            color = WMCreateRGBColor(scr, col.red<<8, col.green<<8,
                                     col.blue<<8, False);

            MAP(x,y) = i;
            Button[i] = WMCreateButton(win, WBTMomentaryLight);
            WMSetWidgetBackgroundColor(Button[i], color);
            WMReleaseColor(color);
            WMSetButtonAction(Button[i], buttonClick, (void*)i);
            WMResizeWidget(Button[i], WinSize/Size, WinSize/Size);
            WMMoveWidget(Button[i], x*(WinSize/Size), y*(WinSize/Size));
            sprintf(buf, "%i", i+1);
            WMSetButtonText(Button[i], buf);
            WMSetButtonTextAlignment(Button[i], WACenter);
            i++;
        }
    }

    WMMapSubwidgets(win);
    WMMapWidget(win);
    WMRealizeWidget(win);

    ResetGame();

    WMScreenMainLoop(scr);

    return 0;
}