#include <windows.h>

#define SCREEN(x) GetSystemMetrics(*x == 'X' ? SM_CXSCREEN : SM_CYSCREEN)

LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);

char szClassName[ ] = "WindowsApp";

const char * BSOD_TEXT[] = {
    "-An unrecoverable error has occurred and Windows has been shut down to prevent ",
    "-damaging your computer.",
"-                                        ......,...,....                                ",                             
"-                          ,iY2@@@@@@@@@@@@@@@@@@@@OPk5kF00M8ZNG@@@@@i                  ",
"-                    *LP@@@@@@@kY7*:,,........        .            .7@@r                ",
"-                :5@@2L*,                . . . . .      .:::          ,@@.              ",
"-            .P@@7.  . .,,,.. ....::iirii:,..  ....,,:,,...:ii        @@r              ",
"-          :@@2.          .....            ....,,,,,.::***,..*;,      M@7            ",
"-          .@q      .ii:,.....::i:          *r          ..,:ii*. .i,      @@.            ",
"-          *@      ,Y.        .:          :L                :.,*. .      @@            ",
"-          @@      ,            r.                .....      .  .        .@k          ",
"-        O@:                    ,.            ;M@@8@@@@@@@@Mi              .@0          ",
"-      ,@@.        ,u@@MG@@@Ui            j@@:    @@@@@@@iY@r  .        .  .@@7        ",
"-      G@r  i*, .,*  M@@@G@@@@@@@M. ::    .@@    L@@@@FLU8@P5@@i :7Y      .,,,*Y@@7      ",
"-    :@@  **:              ..,*7@@@@@L      u@ZM@@ui  ,    ...    .iU2SJr.    .,N@*    ",
"-    @@ ..,:. .:*,              S@          7*      ,@@;      :S@@@i::rYM@7    :@j  ",
"-  ,@v . i :@@@q2@@J:  *r      0@                      r@@@8XM@@@1:  L    @@  . ,@L  ",
"-  .@;,  r .      *@@@@@7      q@M                                    F@,    @@  :  O@  ",
"-    @N:  ;    :@          .5@J.          E@@L..,              iM@@1q@O*  *@  *  r@  ",
"-    ,@v. .r    @@        .i@@@                k@..,...,      :P@@@r  *@@@@7 O@  :  M@  ",
"-    v@v..:.  @@@,    .:;:7@;@M        S@@@@@  k@        :J@@@@X,    .@U    r@  ., ,@5  ",
"-      P@. .r *@YZ@N.          7@r  r.  .      7S    *j@@@@Xr :@      Y@@i    i  Y ,@@  ",
"-      @@    Z@G@:@@@U,        Y@@U          :iL8@@OY*      [email protected]@@@@:          u@Y    ",
"-      .@Y  @@@r [email protected]@@@@Pjr*.  ,*.:rrrJ@@@@@Mu;@@        .@@@@@U.,@@          7@@.    ",
"-        @@  @@@  @7  @@.7uNE@@@MOEU7u@F,.      .@  .:L@@@@@@,  @@        ,@@:      ",
"-        7@  @@@F:@@  .@.      @S      @          @@@@@@@@5: @@  :@k        :@@        ",
"-        r@  M@@@@@@@NM@S*:,. .@L ... :@* .,i78@@@@@@OL:    i@:@@7          @M          ",
"-        i@  7@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@k:,@.        @@@.          2@          ",
"-        v@    @uF@@@@@@@@@@@@@@@@@@@@@@@@@Uri.    @5      .G@@:          7@:          ",
"-        8@    M@ 1@ 1@:.u@@i:ik@@u.*:,  :@        :@L  7@@@:            O@*            ",
"-        @S    @@r@  ZE  .@    @7      i@          7@v@@@7            v@@              ",
"-        @;      @@@i ,@N  J@    *@      ,@      .iY@@@@r    .,  .ii,  L@@:              ",
"-      ,@.        rM@@@@@E@@@7;:L@Yi;ir;E@@@@@@@@@Mr    ,:..,;ri  :@@@,                ",
"-      7@              .,iir72SN2JkMM8N1Yr;r*:.      .:*,,,**.  .5@@7                    ",
"-      q@  i,  :L                              .:*r**::.  *M@@7                      ",
"-      @@  .i    .LLr:.                  ..*i7rr*:.    :j@@X*                          ",
"-      @@    r;:    .....          ..:***i:,.    .Y@@@7.                            ",
"-      @@      .:rrr**,..........,.....          *O@@Y:                                ",
"-      .@F                                    .7@@@;                                    ",
"-        @@:                          .7X@@@@@@F*                                        ",
"-          r@@1i                .*72O@@@@ELr:,                                            ",
"-            .Y@@@@@@@M8MM@@@@@@@Z17*                                                    ",
"-                .:*rrr;i:,.                                                            "

};

void PRINT_TEXT(HDC hDC){
    unsigned char k = 0;
    unsigned short y_co = 30;
    while(k <= 42){
            if(BSOD_TEXT[k][0] == '*') y_co += 23;
            TextOut(hDC,10,y_co+(k*23),BSOD_TEXT[k]+1,lstrlen(BSOD_TEXT[k])-1);
            k++;
    }
}

int WINAPI WinMain (HINSTANCE hThisInstance,
                    HINSTANCE hPrevInstance,
                    LPSTR lpszArgument,
                    int nFunsterStil){
    HWND hwnd;
    MSG messages;
    WNDCLASSEX wincl;

    wincl.hInstance = hThisInstance;
    wincl.lpszClassName = szClassName;
    wincl.lpfnWndProc = WindowProcedure;
    wincl.style = CS_DBLCLKS;
    wincl.cbSize = sizeof (WNDCLASSEX);

    wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION);
    wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION);
    wincl.hCursor = LoadCursor (NULL, IDC_ARROW);
    wincl.lpszMenuName = NULL;
    wincl.cbClsExtra = 0;
    wincl.cbWndExtra = 0;
   
    wincl.hbrBackground = CreateSolidBrush(RGB(0,0,0x77));

    if (!RegisterClassEx (&wincl))
        return 0;

    ShowCursor(FALSE);
   
    hwnd = CreateWindowEx (
          0,
          szClassName,
          "BSOD", 
          WS_POPUP,
          0,
          0,
          SCREEN("X"),
          SCREEN("Y"),
          HWND_DESKTOP,
          NULL,
          hThisInstance,
          NULL
          );

    ShowWindow (hwnd, nFunsterStil);

    while(GetMessage (&messages, NULL, 0, 0)){
        TranslateMessage(&messages);
        DispatchMessage(&messages);
    }

    return messages.wParam;
}

HDC hDC;
PAINTSTRUCT ps;
HFONT hFont;

LRESULT CALLBACK WindowProcedure(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam){
    switch(message){
        case WM_DESTROY:
            PostQuitMessage(0);
            break;
        case WM_PAINT:
            hDC = BeginPaint(hwnd,&ps);
           
            hFont = CreateFont(
                  13, 12, 0, 0,FW_NORMAL, FALSE, FALSE, FALSE,
                  ANSI_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,
                  DEFAULT_QUALITY,DEFAULT_PITCH|FF_ROMAN,"Lucida Console"
            );
           
            SelectObject(hDC, hFont);
            SetTextColor(hDC,RGB(0xFF,0xFF,0xFF));
            SetBkColor(hDC,RGB(0,0,0x77));
           
            PRINT_TEXT(hDC);
           
            DeleteObject(hFont);
           
            EndPaint(hwnd, &ps);
            break;
        default:
            return DefWindowProc (hwnd, message, wParam, lParam);
    }

    return 0;
}