Really Cool Windows Message boxes... Just copy and paste.

as before, really cool exact windows message boxes, if you use, no credit needed.


just so everyone knows, Martin Simpson (Games2live) entered my previous code (before i updated it) a few days ago and claimed it was his... (here's proof its mine if anyone was wondering... http://forum.thegamecreators.com/?m=forum_view&t=69067&b=1)

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    ALERT("This is a WIN32 alert box.","Alert.")
ALERT_X("This is a WIN32 alert box, with an X icon.","Alert.")
ALERT_?("This is a WIN32 alert box, with a ? icon.","Alert.")
ALERT_i("This is a WIN32 alert box, with a i icon.","Alert.")

FUNCTION ALERT(MESSAGE$,TITLE$)
    ALERT_1(MESSAGE$,TITLE$,"0")
ENDFUNCTION
FUNCTION ALERT_X(MESSAGE$,TITLE$)
    ALERT_1(MESSAGE$,TITLE$,"16")
ENDFUNCTION
FUNCTION ALERT_?(MESSAGE$,TITLE$)
    ALERT_1(MESSAGE$,TITLE$,"32")
ENDFUNCTION
FUNCTION ALERT_i(MESSAGE$,TITLE$)
    ALERT_1(MESSAGE$,TITLE$,"48")
ENDFUNCTION
FUNCTION ALERT_1(MESSAGE$,TITLE$,NUMBER$)
     OPEN TO WRITE 32,"c:\msgbox.vbs"
     WRITE STRING 32,"msgbox"+CHR$(34)+MESSAGE$+CHR$(34)+","+NUMBER$+","+CHR$(34)+TITLE$+CHR$(34)
     CLOSE FILE 32
     EXECUTE FILE "wscript.exe","c:\msgbox.vbs","C:\",1
     DELETE FILE "c:\msgbox.vbs"
ENDFUNCTION