Hi just made a tutorial for a Noob - viv2k which features this simple but cool program. It is no-where near optimised I purposely did it a longwinded way to make it easy to understand. Its very simple and obvious programming, but some people may find it useful
The Below code was Written by Sam Jones (samjones@kangaroo2.com) It is NOT copyrighted and you may use it any way you wish. Credit would be nice where appropriate
Thank you
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
Please don't diss it its meant to be simple and longwinded to teach the basics
The full tutorial is at [url]http://www.myminehead.com/textbox noob tutorial.txt[/url]
Hope some1 finds this useful!
* If the apocalypse comes, email me
*
