Sorry your browser is not supported!

` use of tags to change the colour of text
dim textColours(6) as dword ` we will use just 7 different colours
textColours(0) = rgb(255, 0, 0)
textColours(1) = rgb(0, 255, 0)
textColours(2) = rgb(0, 0, 255)
textColours(3) = rgb(255, 0, 255)
textColours(4) = rgb(255, 255, 0)
textColours(5) = rgb(0, 255, 255)
textColours(6) = rgb(255, 255, 255)
dim words(10) as string
` define some words and give them a colour
words(0) = "THE"+str$(rnd(6))
words(1) = "QUICK"+str$(rnd(6))
words(2) = "BROWN"+str$(rnd(6))
words(3) = "FOX"+str$(rnd(6))
words(4) = "JUMPED"+str$(rnd(6))
words(5) = "OVER"+str$(rnd(6))
words(6) = "THE"+str$(rnd(6))
words(7) = "LAZY"+str$(rnd(6))
words(8) = "DOG"+str$(rnd(6))
words(9) = "by"+str$(rnd(6))
words(10) = "GREEN GANDALF"+str$(rnd(6))

cls 0
set cursor 100, 100
for w = 0 to 8
  c = val(mid$(words(w), len(words(w))))
  ink textColours(c), 0
  print left$(words(w), len(words(w))-1)+" ";
next w
print ""
set cursor 200, 130
c = val(mid$(words(9), len(words(9))))
ink textColours(c), 0
print left$(words(9), len(words(9))-1)+" ";
set cursor 150, 160
c = val(mid$(words(10), len(words(10))))
ink textColours(c), 0
print left$(words(10), len(words(10))-1)+" ";
wait key

` Make background text color show
set text opaque

` Create the UDT for colors
type Col
 Fore as dword
 Back as dword
endtype

` Dimensionalize the array
dim Color(19) as Col

` Define all background colors
for t=0 to 19
 Color(t).Back=rgb(0,0,150)
next t

` Define the colors
Color(0).Fore=rgb(80,80,80)     ` Debug Text Color
Color(1).Fore=rgb(0,0,0)        ` Status Line Foreground Color
Color(1).Back=rgb(150,150,150)  ` Status Line Background Color
Color(2).Fore=rgb(255,255,255)  ` Begining Text Color
Color(3).Fore=rgb(0,255,0)      ` Room Name Color
Color(4).Fore=rgb(255,255,255)  ` Room Description Color
Color(5).Fore=rgb(45,132,238)   ` Item Color
Color(6).Fore=rgb(192,102,203)  ` Inventory Color
Color(7).Fore=rgb(255,255,0)    ` Get Text Symbol  >
Color(8).Fore=rgb(255,0,255)    ` Command Color
Color(9).Fore=rgb(0,255,0)      ` Get Text Prompt \|/
Color(10).Fore=rgb(150,150,150) ` Normal Text Color
Color(11).Fore=rgb(100,100,0)   ` Color of ()'s for producing light
Color(12).Fore=rgb(255,255,0)   ` Color of producing light ()'s in item list
Color(13).Fore=rgb(93,47,3)     ` Color of ()'s for producing light
Color(14).Fore=rgb(157,77,5)    ` Color of open and close in item list
Color(15).Fore=rgb(255,128,64)  ` Color of L and D in Loading Data...
Color(16).Fore=rgb(213,69,0)    ` Color of oading in Loading Data...
Color(17).Fore=rgb(80,80,80)    ` Color of ... in Loading Data...

cls Color(0).Back

ColorText(0,0,"|03|Library")
ColorText(0,15,"|04|It's an amazingly |10|large |04|room with countless shelves full of books in every")
ColorText(0,30,"|04|subject known to Earthlings.")
ColorText(0,45,"|05|On the floor is a Diga-mark.")
ColorText(0,75,"|07|> |08|TAKE ALL")
ColorText(0,90,"|10|Diga-mark: Taken")
ColorText(0,120,"|07|> ")
wait key
end


` Function to Color Text      ColorText(x coordinate, y coordinate, Text to color)
function ColorText(x,y,Tex$)

 for t=1 to len(Tex$)
  
  ` Get the character
  a$=mid$(Tex$,t)
  
  ` Check for color marker
  if a$="|"
  	` Grab the color (two digits)
  	Color=val(Mids(Tex$,t+1,t+2))
   ` Change the color
   ink Color(Color).Fore,Color(Color).Back
   ` Advance t so it skips over the |xx|
   inc t,3
  else
   ` Show the character
   text x,y,a$
   ` Move x over for the next character
   inc x,text width(a$)
  endif

 next t

 ` Reset the color
 ink Color(2).Fore,Color(2).Back

endfunction


` True basic mid$ command
function Mids(t$,a,b)

 a$=left$(right$(t$,len(t$)-a+1),b)

endfunction a$

colText("A {red} red {white} piece of text")
wait key
end

Function colText(txt$)
  
  split string txt$," "
  for wrd=1 to split count()
    wrd$=get split word$(wrd)
    if left$(wrd$,1)="{"
      if wrd$="{red}" then ink rgb(255,0,0),0
      if wrd$="{white}" then ink rgb(255,255,255),0
    else 
      print wrd$+" ";
    endif
  next wrd

EndFunction

type txt_window
  x as integer
  y as integer
  width as integer
  height as integer
  maxLin as integer
  curLin as integer
  numLin as integer
endType

global txtWin as txt_window

txtWin.x=100
txtWin.y=100
txtWin.width=500
txtWin.height=200
txtWin.maxLin=50                                           `Number of lines in history
txtWin.numLin=(txtWin.height/text height("lineheight"))-1  `Number of lines that fit into window
txtWin.curLin=txtWin.maxLin                                `Current line display position
dim txt$(txtWin.maxLin)

`each string must start with a colour code to preserve colours with multi-line text wrapping
addTxt("{white} Ok.. So the thing I noticed {red} about all these {white} wonderful (they truly are) {red} examples, is they all seem to deal with use print or text statements at the time the color is applied..")
addTxt("{red} But I realized, I need something different.. Because anything to be printed to the screen, {white} is actually a string that is stored in an array, and then a range of array indices is printed to the screen.")
addTxt("{white} There is no way for me to apply Print/Text assignment {blue} commands {white} in real time like these examples do..")
addTxt("{white} IS it possible, to apply an RGB color to a string variable, and have that text retain its color, when it is printed from the array? No matter -what- the text color is currently set to?")
addTxt("{white} I hope that came out clearly...")
addTxt("{white} I saw a method, I think for playbasic, where I think you essentially make an image/copy of the current screen where your text is, and then shift that image in such a way so that a line of text will dissapear, and a new blank line will be available at the bottom.. I think it was an in-game console (like Quake and many other FPS games have) example, but I don't think it supported scrolling back up.")
addTxt("{red} I suppose I could try and code something like that if I needed, but I've never worked with image commands or anything, and not sure how well the idea would translate.")

sync on
do
  cls
  showTxt()
  if upkey() and txtWin.curLin>0 then dec txtWin.curLin                          `Scroll history & keep within number of lines & window size boundaries
  if downkey() and txtWin.curLin<txtWin.maxLin-txtWin.numLin then inc txtWin.curLin       
  sync
  wait 50
  inc t
  if t=30 then addTxt("{white} If its not possible, I guess the only way")
  if t=60 then addTxt("{white} to get it to {green} work is to change the")
  if t=90 then t=0 : addTxt("{blue} way I am displaying {white} my scrolling text...")
loop

Function addTxt(txt$)
  `Add a chunk of text to the buffer, splitting into lines depending on window size
  split string txt$," "
  chunk$=""
  chunkWidth=0
  curCode$=""
  
  for wrd=1 to split count()
    wrd$=get split word$(wrd)

    if left$(wrd$,1)<>"{"
      inc chunkWidth,text width(wrd$+" ")                   `Increment text width (control codes have no width)
    else
      curCode$=wrd$+" "                                     `Save current text code for start of each line
    endif

    if chunkWidth<txtWin.width then chunk$=chunk$+wrd$+" "  `Word fits so add it to current line
    
    if chunkWidth>txtWin.width or wrd=split count()         `otherwise wrap line and start new one. Also saves final line chunk
      rotate array txt$()                  
      if txtWin.curLin>0 and txtWin.curLin+txtWin.numLin<>txtWin.maxLin then dec txtWin.curLin   `Control scrolling as lines are added
      txt$(txtWin.maxLin)=chunk$
      chunk$=curCode$+wrd$+" "                              `Start new line with word that wouldn't fit
      chunkWidth=text width(wrd$+" ")
    endif
  next wrd  

EndFunction

Function showTxt()
  `Display text at line position, fitting window
  
  ink rgb(30,30,30),0
  box txtWin.x,txtWin.y,txtWin.x+txtWin.Width,txtWin.y+txtWin.Height  `Show text window area
  ink rgb(255,255,255),0

  y=txtWin.y
  for lin=txtWin.curLin to txtWin.curLin+txtWin.numLin       `Display however many lines fit in window
    split string txt$(lin)," "
    x=txtWin.x

    for wrd=1 to split count()                               `Go thru each line word by word
      wrd$=get split word$(wrd)   
      if left$(wrd$,1)="{"                                   `Apply formatting
        if wrd$="{red}" then ink rgb(255,0,0),0
        if wrd$="{white}" then ink rgb(255,255,255),0
        if wrd$="{green}" then ink rgb(0,255,0),0
        if wrd$="{blue}" then ink rgb(50,50,255),0
      else 
        text x,y,wrd$   
        inc x,text width(wrd$+" ")
      endif
    next wrd

    inc y,text height("lineheight")
  next lin
  
EndFunction

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, October 13, 2010

Rem ***** Main Source File *****
Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, October 13, 2010

Rem ***** Main Source File *****
SET DISPLAY MODE 1024,600,32: Sync ON: Sync Rate 60


TYPE Text_Box
    x           as Integer  `X position on the screen
    y           as Integer  `Y position on the screen
    width       as Integer  `Width of the text box
    height      as Integer  `Height of the text box
    maxLine     as Integer  `Maximum number of lines the box holds
    curLine     as Integer  `Current Line being pointed to
    numLine     as Integer  `Maximum number of lines that can fit in box
    TxColor     as Dword    `Default color of text within the box
    TxtHght     as Integer  `Get the height of one line in the current font
    BgColor     as Dword    `Default flood-fill color of the box
ENDTYPE

GLOBAL TextBox as Text_Box
TextBox.x       = 0
TextBox.y       = 0
TextBox.width   = 800
TextBox.height  = 500
TextBox.maxLine = 1999

TextBox.numLine = (TextBox.Height / TEXT HEIGHT("Aj"))
TextBox.TxtHght = (TEXT HEIGHT("Aj") - 1)
TextBox.TxColor = RGB(255,255,255)
TextBox.BgColor = RGB(150,  0,  0)

DIM Screen_Buffer$(TextBox.maxLine)

FOR x = 1949 to 1999
    Screen_Buffer$(x) = "This is Line # " + Str$(x)
NEXT x

DO
    CLS 0
    MainDisplay$()
    Text 0, 550, Str$(SCREEN FPS())
    Sync
LOOP    

END

FUNCTION MainDisplay$()
    `Set the Text Box color
    INK TextBox.BgColor,0
    
    `Draw the Text Box
    BOX TextBox.x, TextBox.y, TextBox.x+TextBox.width, TextBox.y+TextBox.Height
    
    `Set the Text Color inside the Text Box
    INK TextBox.TxColor,0
    
    `Draw all lines which are visible without breaking the Text Box borders.
    LineHeight as Integer = 0
    FOR N = 1965 TO 1999
        TEXT TextBox.x, LineHeight*TextBox.TxtHght+TextBox.y+2, Screen_Buffer$(N)
        inc LineHeight, 1
    NEXT N
    
ENDFUNCTION

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, October 13, 2010

Rem ***** Main Source File *****
Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, October 13, 2010

Rem ***** Main Source File *****
SET DISPLAY MODE 1024,600,32: Sync ON: Sync Rate 60


TYPE Text_Box
    x           as Integer  `X position on the screen
    y           as Integer  `Y position on the screen
    width       as Integer  `Width of the text box
    height      as Integer  `Height of the text box
    maxLine     as Integer  `Maximum number of lines the box holds
    curLine     as Integer  `Current Line being pointed to
    numLine     as Integer  `Maximum number of lines that can fit in box
    TxColor     as Dword    `Default color of text within the box
    TxtHght     as Integer  `Get the height of one line in the current font
    BgColor     as Dword    `Default flood-fill color of the box
ENDTYPE

GLOBAL TextBox as Text_Box
TextBox.x       = 0
TextBox.y       = 0
TextBox.width   = 800
TextBox.height  = 500
TextBox.maxLine = 1999

TextBox.TxtHght = (TEXT HEIGHT("Aj")-1)
TextBox.numLine = (TextBox.Height / TextBox.TxtHght-1)

TextBox.TxColor = RGB(255,255,255)
TextBox.BgColor = RGB(150,  0,  0)

DIM Screen_Buffer$(TextBox.maxLine)

FOR x = 1949 to 1999
    Screen_Buffer$(x) = "This is Line # " + Str$(x)
NEXT x

DO
    CLS 0
    MainDisplay$()
    Text 0, 550, Str$(SCREEN FPS())
    Sync
LOOP    

END

FUNCTION MainDisplay$()
    `Set the Text Box color
    INK TextBox.BgColor,0
    
    `Draw the Text Box
    BOX TextBox.x, TextBox.y, TextBox.x+TextBox.width, TextBox.y+TextBox.Height
    
    `Set the Text Color inside the Text Box
    INK TextBox.TxColor,0
    
    ` Calculate the line to start the array
    StartLine=TextBox.maxLine-TextBox.numLine

    `Draw all lines which are visible without breaking the Text Box borders.
    FOR N = StartLine TO TextBox.maxLine
        TEXT TextBox.x, LineHeight*TextBox.TxtHght+TextBox.y+2, Screen_Buffer$(N)
        inc LineHeight, 1
    NEXT N
    
ENDFUNCTION

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, October 13, 2010
Rem ***** Main Source File *****

SET DISPLAY MODE 1024,600,32: Sync ON: Sync Rate 60

TYPE Text_Box
    x           as Integer  `X position on the screen
    y           as Integer  `Y position on the screen
    width       as Integer  `Width of the text box
    height      as Integer  `Height of the text box
    maxLine     as Integer  `Maximum number of lines ********** in the whole history **********
    curLine     as Integer  `Current Line being pointed to   
    numLine     as Integer  `Maximum number of lines that can fit in box
    TxColor     as Dword    `Default color of text within the box
    TxtHght     as Integer  `Get the height of one line in the current font
    BgColor     as Dword    `Default flood-fill color of the box
ENDTYPE

GLOBAL TextBox as Text_Box
TextBox.x       = 0
TextBox.y       = 0
TextBox.width   = 800
TextBox.height  = 500
TextBox.maxLine = 1999

TextBox.TxtHght = TEXT HEIGHT("Aj")   `****** Not sure why was -1 here?  ******
TextBox.numLine = TextBox.Height / TextBox.TxtHght -1 

TextBox.TxColor = RGB(255,255,255)
TextBox.BgColor = RGB(150,  0,  0)
TextBox.curLine = 1949      `******** Current view position in the whole history *******

DIM Screen_Buffer$(TextBox.maxLine)

FOR x = 1949 to 1999
    Screen_Buffer$(x) = "This is Line # " + Str$(x)
NEXT x

DO
    CLS 0
    MainDisplay$()
    Text 0, 550, Str$(SCREEN FPS())
    if upkey() and TextBox.curLine>0 then dec TextBox.curLine      `******* Just to show the history scrolling **********
    if downkey() and TextBox.curLine<TextBox.MaxLine then inc TextBox.curLine
    Sync
LOOP    

END

FUNCTION MainDisplay$()
    `Set the Text Box color
    INK TextBox.BgColor,0
    
    `Draw the Text Box
    BOX TextBox.x, TextBox.y, TextBox.x+TextBox.width, TextBox.y+TextBox.Height
    
    `Set the Text Color inside the Text Box
    INK TextBox.TxColor,0
    
    ` Calculate the line to start the array
    ` ************ Replaced by TxtBox.curLine otherwise would only ever show end of history ***********
    `StartLine=TextBox.maxLine-TextBox.numLine 

    `Draw all lines which are visible without breaking the Text Box borders.
    FOR N = TextBox.curLine TO TextBox.curLine + TextBox.numLine    `****** Start at current display line, display max how many lines fit in window *******
        if n>TextBox.MaxLine then exit    `****** Make sure dont try display past max lines ********
        TEXT TextBox.x, LineHeight*TextBox.TxtHght+TextBox.y+2, Screen_Buffer$(N)  
        inc LineHeight     
    NEXT N
    
ENDFUNCTION