XProfan

Declare Random%,ICON%,Buttons%,ICON$,Buttons$
Def @GetAsyncKeyState(1) !"User32","GetAsyncKeyState"
Windowstyle 31+512
WINDOWTITLE "Verrückte Messagebox => Funktioniert nur als EXE compiliert!"
Window 0,0-640,440

While @GETASYNCKEYSTATE(27)=0

    Randomize
    LET ButtonS%=@RND(6)
    LET ICON%=@RND(5)

    IF ICON%=1

        LET ICON%=16
        LET ICON$="Stop"

    elseif ICON%=2

        LET ICON%=32
        LET ICON$="Fragezeichen"

    elseif ICON%=3

        LET ICON%=48
        LET ICON$="Ausrufezeichen"

    elseif ICON%=4

        LET ICON%=64
        LET ICON$="Info"

    endif

    IF Buttons%=0

        LET Buttons$="OK"

    elseif Buttons%=1

        LET Buttons$="OK+Abbrechen"

    elseif Buttons%=2

        LET Buttons$="Abbrechen+Wiederholen+Ignorieren"

    elseif Buttons%=3

        LET Buttons$="Ja+Nein+Abbrechen"

    elseif Buttons%=4

        LET Buttons$="Ja+Nein"

    elseif Buttons%=5

        LET Buttons$="Wiederholen+Abbrechen"

    endif

    PRINT "Icon: ";Icon$,ICON%
    PRINT "BUTTONS: ";BUTTONS$,Buttons%
    PRINT ""
    LET RANDOM%=BUTTONS%+ICON% Das kann die Messagebox nicht wissen, oder??
    @messagebox("Eine Verrückte Messagebox! Das Ding kann Gedankenlesen!","Was ist denn das??","OOPS, was falsch gemacht!",64)

WEND