A big thanks to hikinotimasha for the first instructable. This is basically going to teach you how to make an adventure out of error messages.

Step 1: Set Up the Code

First, open Notepad (not Wordpad) and enter this into it

lol = msgbox ("TEXT GOES HERE" ,16, "TITLE GOES HERE")

Insert text into the "text goes here" area, and make sure you keep the quotation marks, otherwise it will not work properly.

Step 2: Do the Same

Do the same for the "enter title here" bar. This is the text that will appear at the top of the window.

Step 3: Save the File

Save the file.

Go to File-> Save, and set the save type to "all files"

Give it a name, and end the name with .vbs

Step 4: Test the File.

Now double click on the saved file. An error message with text should pop up.

If this appears (see main pic below), then drop me a comment with everything you typed, and I will try to help you.

Step 5: Adventure #1

I have made a few adventure messages out of this. Here is the first one.

lol = msgbox ("You are in a cave. There are three exits, called Abort, Retry, and Ignore. Choose one.",2, "Adventure")

if lol = 3 then msgbox "Oops, you died."_{"Bottomless Pit"}

if lol = 5 then msgbox "Oops, you died."_{"Bear Attack"}

if lol = 4 then msgbox "Good, you are out of the cave. You suddenly asplode. Way to go.",16,"Oopsie"

Step 6: Adventure #2

Here is the second adventure I made.

lol = msgbox ("System failed to explode. Continue?",2, "SYSTEM")

if lol = 3 then msgbox "Aborted."_"Abort"

if lol = 4 then msgbox "Running 'detonator.exe', Please Wait..." _"Error"

if lol = 5 then msgbox "Ignored."_"Ignore"

lol = msgbox ("WARNING! INTERNAL TEMPERATURE TOO HIGH. Continue?",20, "WARNING")

if lol = 6 then msgbox "Overheating..."_"Warning"

if lol = 7 then msgbox "Exiting..."_"Exit"

lol = msgbox ("Failed to exit. Continue?",20, "Exiting...")

if lol = 6 then msgbox "Exit Sucessful"_"Sucess"

if lol = 7 then msgbox "Window has asploded."_{"Go Boom."}

Step 7: To Get Multiple Choice...

To get a multiple choice error message, just enter

lol = msgbox ("Text Here.",2, "Title")

if lol = 3 then msgbox "Text Here."_"Title"

if lol = 5 then msgbox "Text Here."_"Title"

if lol = 4 then msgbox "Text Here",16,"Title"

Or, for just a yes and no choice, then enter

lol = msgbox ("Text Here",20, "Title")

if lol = 6 then msgbox "Text Here"_"Title"

if lol = 7 then msgbox "Text Here"_"Title"