using System;

using sharpallegro5;

using ALLEGRO_DISPLAY = System.IntPtr;
using ALLEGRO_BITMAP = System.IntPtr;
using ALLEGRO_EVENT_QUEUE = System.IntPtr;
using ALLEGRO_FONT = System.IntPtr;

public class ex_mouse_events : AllegroExample
{
    const int NUM_BUTTONS = 5;
    static int actual_buttons;

    static void draw_mouse_button(int but, bool down)
    {
        int[] offset = { 0, 70, 35, 105, 140 };
        ALLEGRO_COLOR grey;
        ALLEGRO_COLOR black;
        int x;
        int y;

        x = 400 + offset[but];
        y = 130;

        grey = al_map_rgb(0xe0, 0xe0, 0xe0);
        black = al_map_rgb(0, 0, 0);

        al_draw_filled_rectangle(x, y, x + 27, y + 42, grey);
        al_draw_rectangle(x + 0.5f, y + 0.5f, x + 26.5f, y + 41.5f, black, 0);
        if (down)
        {
            al_draw_filled_rectangle(x + 2, y + 2, x + 25, y + 40, black);
        }
    }

    static int Main()
    {
        ALLEGRO_DISPLAY display;
        ALLEGRO_BITMAP cursor;
        ALLEGRO_EVENT_QUEUE queue;
        ALLEGRO_EVENT @event = new ALLEGRO_EVENT();
        ALLEGRO_FONT font;
        int mx = 0;
        int my = 0;
        int mz = 0;
        int mw = 0;
        int mmx = 0;
        int mmy = 0;
        int mmz = 0;
        int mmw = 0;
        bool @in = true;
        bool[] buttons = { false, false, false, false, false };
        int i;
        float p = 0.0f;
        ALLEGRO_COLOR black;

        if (!al_init())
        {
            abort_example("Could not init Allegro.\n");
            return 1;
        }

        al_init_primitives_addon();
        al_install_mouse();
        al_install_keyboard();
        al_init_image_addon();
        al_init_font_addon();

        actual_buttons = (int)al_get_mouse_num_buttons();
        if (actual_buttons > NUM_BUTTONS)
            actual_buttons = NUM_BUTTONS;

        al_set_new_display_flags(ALLEGRO_RESIZABLE);
        display = al_create_display(640, 480);
        if (display == IntPtr.Zero)
        {
            abort_example("Error creating display\n");
            return 1;
        }

        al_hide_mouse_cursor(display);

        cursor = al_load_bitmap("data/cursor.tga");
        if (cursor == IntPtr.Zero)
        {
            abort_example("Error loading cursor.tga\n");
            return 1;
        }

        font = al_load_font("data/fixed_font.tga", 1, 0);
        if (font == IntPtr.Zero)
        {
            abort_example("data/fixed_font.tga not found\n");
            return 1;
        }

        black = al_map_rgb_f(0, 0, 0);

        queue = al_create_event_queue();
        al_register_event_source(queue, al_get_mouse_event_source());
        al_register_event_source(queue, al_get_keyboard_event_source());
        al_register_event_source(queue, al_get_display_event_source(display));

        while (true)
        {
            if (al_is_event_queue_empty(queue))
            {
                al_clear_to_color(al_map_rgb(0xff, 0xff, 0xc0));
                for (i = 0; i < actual_buttons; i++)
                {
                    draw_mouse_button(i, buttons[i]);
                }
                al_draw_bitmap(cursor, mx, my, 0);
                al_set_blender(ALLEGRO_ADD, ALLEGRO_ONE, ALLEGRO_INVERSE_ALPHA);
                al_draw_textf(font, black, 5, 5, 0, "dx %i, dy %i, dz %i, dw %i", __arglist(mmx, mmy, mmz, mmw));
                al_draw_textf(font, black, 5, 25, 0, "x %i, y %i, z %i, w %i", __arglist(mx, my, mz, mw));
                al_draw_textf(font, black, 5, 45, 0, "p = %g", __arglist((double)p));
                al_draw_textf(font, black, 5, 65, 0, "%s", __arglist(@in ? "in" : "out"));
                al_set_blender(ALLEGRO_ADD, ALLEGRO_ONE, ALLEGRO_INVERSE_ALPHA);
                mmx = mmy = mmz = 0;
                al_flip_display();
            }

            al_wait_for_event(queue, ref @event);
            switch (@event.type)
            {
                case ALLEGRO_EVENT_MOUSE_AXES:
                    mx = @event.mouse.x;
                    my = @event.mouse.y;
                    mz = @event.mouse.z;
                    mw = @event.mouse.w;
                    mmx = @event.mouse.dx;
                    mmy = @event.mouse.dy;
                    mmz = @event.mouse.dz;
                    mmw = @event.mouse.dw;
                    p = @event.mouse.pressure;
                    break;

                case ALLEGRO_EVENT_MOUSE_BUTTON_DOWN:
                    if (@event.mouse.button - 1 < NUM_BUTTONS)
                    {
                        buttons[@event.mouse.button - 1] = true;
                    }
                    p = @event.mouse.pressure;
                    break;

                case ALLEGRO_EVENT_MOUSE_BUTTON_UP:
                    if (@event.mouse.button - 1 < NUM_BUTTONS)
                    {
                        buttons[@event.mouse.button - 1] = false;
                    }
                    p = @event.mouse.pressure;
                    break;

                case ALLEGRO_EVENT_MOUSE_ENTER_DISPLAY:
                    @in = true;
                    break;

                case ALLEGRO_EVENT_MOUSE_LEAVE_DISPLAY:
                    @in = false;
                    break;

                case ALLEGRO_EVENT_KEY_DOWN:
                    if (@event.keyboard.keycode == ALLEGRO_KEY_ESCAPE)
                    {
                        goto done;
                    }
                    break;

                case ALLEGRO_EVENT_DISPLAY_RESIZE:
                    al_acknowledge_resize(@event.display.source);
                    break;

                case ALLEGRO_EVENT_DISPLAY_CLOSE:
                    goto done;
            }
        }

    done:

        al_destroy_event_queue(queue);

        return 0;
    }
}