I found out how to make message boxes with user32. so here!(Makesure you load user32 if you use it in your programs
Here's the little thing i made
load dll "User32.dll",1
#constant m_question 32
#constant m_info 64
#constant m_critical 16
#constant m_exclamation 48
#constant m_yesno 4
#constant m_yesnocancel 3
`0 would be normal box
`above are the types of boxes you can use
#constant a_cancel 2
#constant a_no 7
#constant a_yes 6
#constant a_ok 1
`these are to find out what they clicked
g=MBox("","DON'T PRESS NO WHATEVER"+chr$(13)+"YOU DO!",m_yesno)
if g = a_no
g=MBox("","I TOLD YOU NOT TO PRESS NO.",0)
wait 500
g=MBox("","BUT YOU STILL DID!!!!!",0)
wait 500
g=MBox("","YOU JUST HAD TO PRESS NO!!!",0)
wait 500
g=MBox("","WHY DID YOU DO IT???",0)
wait 500
g=MBox("","It said it quite planly...",0)
wait 500
g=MBox("",chr$(34)+"DONT PRESS NO WHATEVER"+chr$(13)+"YOU DO!"+chr$(34),0)
wait 500
g=MBox("","WHY DID YOU HAVE DO IT?!?!?",0)
wait 500
g=MBox("","YOU ARE UNINTELLIGENT!",0)
wait 500
g=MBox("","YOU JUST HAD TO PRESS NO!!!",0)
wait 500
g=MBox("","I TOLD YOU NOT TO PRESS NO.",0)
wait 500
g=MBox("","BUT YOU STILL DID!!!!!",0)
wait 500
g=MBox("","YOU ARE UNINTELLIGENT!",0)
wait 500
g=MBox("","Think of it this way...",0)
wait 500
g=MBox("","You tell your brother not to"+chr$(13)+"use your video game",0)
wait 500
g=MBox("","Yet",0)
wait 500
g=MBox("","HE GOES AND USES IT ANYWAY!!!!!!!!",0)
wait 500
g=MBox("","You think your so good, pressing yes...",0)
wait 500
g=MBox("","As you can see. it was not a good idea.",0)
wait 500
g=MBox("","I will now do a series of computer...",0)
wait 500
g=MBox("","DEMOLISHING routines!!!",m_critical)
wait 500
g=MBox("","Soon after you press ok, your sound"+chr$(13)+"card will be demolished",0)
g=MBox("","NOW DEMOLISHING SOUND CARD",m_critical)
wait 3000
g=MBox("","SOUND CARD DEMOLISHED",m_critical)
wait 500
g=MBox("","Soon after you press ok, your video"+chr$(13)+"card RAM will be demolished",0)
g=MBox("","NOW DEMOLISHING VIDEO CARD RAM",m_critical)
wait 3000
g=MBox("","VIDEO CARD RAM DEMOLISHED",m_critical)
g=MBox("","Now you're feelin' sorry huh?",0)
wait 500
g=MBox("","Soon after you press ok, your RAM"+chr$(13)+"will be demolished",0)
g=MBox("","NOW DEMOLISHING ALL RAM",m_critical)
wait 200
g=MBox("","error4F7603b05windowaptaskma n ag er",m_critical)
wait 200
g=MBox("","eoWINDOWS 67539G T4gfdh63Aew5436"+chr$(13)+"54descrip tion:IOERRORATy656754"+chr$(13)+"FAILING",m_critical)
wait 200
g=MBox("","9gfdw%;kernel32errorHI05%&^fj:h6798/*//"+chr$(13)+".gjWRAR.dll// Opo5(I;LL:oG.E\TYlO_U!",mcritical)
end
else
g=MBox("","Thank you for not pressing no",0)
endif
end
FUNCTION MBox(Caption as string, Message as string, mtype as integer)
RV = call dll(1,"MessageBoxA",0,Message,Caption,mtype)
endfunction RV
