Written a text adventure (not finished yet) no music yet but i think it works, mind you been writing it at school in Notepad, so not too sure whether it will work. Just copy the code below and paste it into DB. Should work an all versions.
rem *** Text Adventure ***
hide mouse
set text font "Times New Roman"
set text size 14
center text 300,100, "Welcome traveller to Arinsil. As you are new to this town you may wish to ask for directions. To the north is the Merchant District, here you can buy weapons, armour and accessories. To the East is the East Gate, this can take you to the Barrows of Kings which have a reputation for being haunted, take care if you decide to venture there! To the South is the Lords's Comfort, a reputable pub with good lodgings and tasty food. Finally to the West is the Sandy Dunes which hide a city withn a sandstorm, you will need to visit one of the inhabitants in Sand Street to access the city as they will teach you the melody needed to pass the storm.
wait 5000
cls
center text 300,100, "What do you want to do?"
center text 300,120, "Go North" : center text 300,140, "Go East" : center text 300,140, "Go South" : center text 300,140, "Go West"
input:
input "Enter Direction: ";direction$
if direction$=North then gosub north
if direction$=East then gosub east
if direction$=South then gosub south
if direction$=West then gosub west
suspend for key
cls
north:
center text 300,100, "You decide to go north and arrive at a weapons shop. You decide to enter."
wait 3000
cls
east:
center text 300,100, "You decide to go to the Barrows of Kings. You've heard rumours about this place and tighten your grip on your sword."
wait 3000
cls
south:
center text 300,100, "You head south and come to the pub that the gate guard told you about and decide to enter."
wait 3000
cls
West:
center text 300,100, "You wouldn't mind having a look at the Sandstorm city and head to Sand Street."
wait 3000
cls
center text 300,100, "You enter the weapon shop and a shopkeeper steps out from behind a curtain."
center text 300,140, "How can I help ya?"
wait 3000
cls
center text 300,100, "What do you want to do?"
center text 300,140, "Buy"
center text 300,160, "Steal"
center text 300,180, "Attack"
input "Enter choice: ";choice$
if choice$=Buy then gosub buy_wares
if choice$=Steal then gosub steal_item
if choice$=Attack then gosub attack_owner
buy_wares:
steal_item
center text 300,100, "The shopkeeper notices you try to steal something, he reaches behind the counter and grabs a large battleaxe! You must defend yourself!"
wait 3000
cls
center text 300,100, "";name$
center text 300,140, "Shopkeeper"
attack_owner
Try it out and let me know.
Guardian of Hell
