Sorry your browser is not supported!

rem BEGINNING OF CODE

set display mode 1024,768,16: rem       Sets high screen res. If your monitor wont allow, change to 800,600,16
draw to Front:sync on:sync rate 0: rem       Sets various display properties, check the help file 4 info :)

rem Below draws our initial box, made of 2, to give a window effect!
rem ----------------------------------------------------------------
box 100,100,400,300,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)
box 101,115,399,299,RGB(255,0,0),RGB(0,0,0),RGB(255,0,0),RGB(0,0,0)

rem Below sets our font and style
rem -----------------------------
set text font "arial":set text to bolditalic:set text size 14

rem Below asks user to input their name, then saves it as 'name$'
rem -------------------------------------------------------------
set cursor 101,101:ink rgb(255,255,255),rgb(0,0,255):input "What is your Name?";name$

MAKE OBJECT CUBE 1,50: rem          This makes a cube, and represents where your 3d graphics are made.
DO: rem                  Starts Main Loop
YROTATE OBJECT 1,OBJECT ANGLE Y(1)+1: rem   Rotates cube to show 3d work happenning under window

rem Below Makes our first message window. The texttodisplay$ shows how you can add strings together to personalise text
rem -------------------------------------------------------------------------------------------------------------------
if message=0
box 100,100,400,300,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)
box 101,115,399,299,RGB(255,0,0),RGB(0,0,0),RGB(255,0,0),RGB(0,0,0)
text 101,101,"Thank You! :)"
texttodisplay$="Welcome "+name$+", to the wonderful world of my RPG!"
text 105,120,texttodisplay$
text 105,130,"[space]"
endif

rem Below Makes our 2nd message window - if required
rem ------------------------------------------------
if message=1
box 100,100,400,300,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)
box 101,115,399,299,RGB(255,0,0),RGB(0,0,0),RGB(255,0,0),RGB(0,0,0)
text 101,101,"Thank You! :)"
text 105,120,texttodisplay$
text 105,140,"Here you will find monsterous ogres,"
text 105,150,"Beautiful Maidens, and fluffy kiwis!"
text 105,160,"[space]"
if newmessage=0
newkey=1
newmessage=1
endif
endif

rem Below Makes our 3rd message window - if required
rem ------------------------------------------------
if message=2
box 100,100,400,300,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)
box 101,115,399,299,RGB(255,0,0),RGB(0,0,0),RGB(255,0,0),RGB(0,0,0)
text 101,101,"Thank You! :)"
text 105,120,texttodisplay$
text 105,140,"Here you will find monsterous ogres,"
text 105,150,"Beautiful Maidens, and fluffy kiwis!"
text 105,170,"Dare you brave the challenge?"
text 105,180,"[space]"
if newmessage=0
newkey=1
newmessage=1
endif
endif

rem Below Makes our 4th message window - if required
rem ------------------------------------------------
if message=3
box 100,100,400,300,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)
box 101,115,399,299,RGB(255,0,0),RGB(0,0,0),RGB(255,0,0),RGB(0,0,0)
text 101,101,"Thank You! :)"
text 105,120,texttodisplay$
text 105,140,"Here you will find monsterous ogres,"
text 105,150,"Beautiful Maidens, and fluffy kiwis!"
text 105,170,"Dare you brave the challenge?"
text 105,190,"Wait... what's that I hear?"
text 105,200,"[space]"
if newmessage=0
newkey=1
newmessage=1
endif
endif

rem Below Makes our 5th message window - if required
rem ------------------------------------------------
if message=4
box 100,100,400,300,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)
box 101,115,399,299,RGB(255,0,0),RGB(0,0,0),RGB(255,0,0),RGB(0,0,0)
text 101,101,"Thank You! :)"
text 105,120,texttodisplay$
text 105,140,"Here you will find monsterous ogres,"
text 105,150,"Beautiful Maidens, and fluffy kiwis!"
text 105,170,"Dare you brave the challenge?"
text 105,190,"Wait... what's that I hear?"
box 200,200,500,280,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)
box 201,215,499,279,RGB(255,0,0),RGB(0,0,0),RGB(255,0,0),RGB(0,0,0)
text 205,220,"''ROOOOOOOAAAAAAARRRRRR!''"
text 205,230,"[space]"
if newmessage=0
newkey=1
newmessage=1
endif
endif

rem Below Makes our 6th message window - if required
rem ------------------------------------------------
if message=5
box 100,100,400,300,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)
box 101,115,399,299,RGB(255,0,0),RGB(0,0,0),RGB(255,0,0),RGB(0,0,0)
text 101,101,"Thank You! :)"
text 105,120,texttodisplay$
text 105,140,"Here you will find monsterous ogres,"
text 105,150,"Beautiful Maidens, and fluffy kiwis!"
text 105,170,"Dare you brave the challenge?"
text 105,190,"Wait... what's that I hear?"
box 200,200,500,280,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)
box 201,215,499,279,RGB(255,0,0),RGB(0,0,0),RGB(255,0,0),RGB(0,0,0)
text 205,220,"''ROOOOOOOAAAAAAARRRRRR!''"
text 205,240,"Argh! Its the sound of a Dark Basic Pro"
text 205,250,"programmer who's got no sleep for 48 hours!"
text 205,260,"Run for your life!!!!!!!!!"
if newmessage=0
newkey=1
newmessage=1
endif
endif

rem Below ends program when all windows displayed
if message>5 then end

rem Below waits for space key to add a new window
if spacekey()=1 and newkey=0:newmessage=0:message=message+1:endif

rem Below pauses between windows displayed, otherwise SPACE key repeats too quickly and they all display at once
if newkey=1 then waitkey=waitkey+1:if waitkey=100:newkey=0:waitkey=0:endif

rem Below refreshes the screen, then goes back to DO, creating a loop
sync
loop

rem END OF CODE