Text Wrapper - GameCreators Forum

Author

Message

BlackChaos

16

Years of Service

User Offline

Joined: 2nd May 2010

Location: London

Posted: 10th Sep 2011 20:39 Edited at: 10th Sep 2011 23:22

Link

Prob about time that i posted something useful so here!

Its a text wrapper. You know! In MS word when your about to write off the page and it jumps to the next line

Anyway this is V1 just to sort-of demonstrate the possibilities. Essentially you can write the longest string you want and it will create new lines to accommodate.

Sync On:Sync Rate 10

Remstart

Hope this helps;)

-Next version
   + will eliminate blanck spaces at the star of new lines
   + Push whole words that cant fit to the next line

Remend

//Text wrapper type
Type TextWrapper
    TextLine as String
    TotalLines as Integer
Endtype

//100 line to wrap
Dim wrap(100) as TextWrapper

Do
    WordWrapper(\"Do not let my long string go more that ten characters.\")
    cls
Loop

Function WordWrapper(Wrap_String$)
    //Get the total lenth of the string
    Total_String_Lenth = Len(Wrap_String$)
    Remstart
        For every 10 characters drop the next character anotherline //Start count from the left
    Remend
    
    For n=0 to 100
        //Clear line before fill
        wrap(n).TextLine = \"\"    
    Next n

//Run through all characters in the string
    For n=1 to Total_String_Lenth
        //Pass is used to set next line once the current line has been filled
        If Pass >=11 Then Pass = 0 
        Inc Pass,1
        //Use next array line if string goes past 11 characters
        If Pass>=11 then Inc wrap(0).TotalLines,1
        
        //Keep adding each letter to the array line, also make sure wrap(0).TotalLines is less that the max(when the array was created)
        If wrap(0).TotalLines<100 Then wrap(wrap(0).TotalLines).TextLine = wrap(wrap(0).TotalLines).TextLine+Right$(Left$(Wrap_String$,n),1)
        
        TLin = wrap(0).TotalLines
        
        //Reset total array wrap line 
        If n=Total_String_Lenth then wrap(0).TotalLines = 0
    Next n

//Show lines of text, 5lines
    For n=0 to TLin
        Text 400,n*10,wrap(n).TextLine
    Next n
        
    //wrap(0).TextLine
Endfunction

+ Code Snippet

Sync On:Sync Rate 10

Remstart

Hope this helps;)


-Next version
   + will eliminate blanck spaces at the star of new lines
   + Push whole words that cant fit to the next line

Remend


//Text wrapper type
Type TextWrapper
    TextLine as String
    TotalLines as Integer
Endtype

//100 line to wrap
Dim wrap(100) as TextWrapper


Do
    WordWrapper(\"Do not let my long string go more that ten characters.\")
    cls
Loop


Function WordWrapper(Wrap_String$)
    //Get the total lenth of the string
    Total_String_Lenth = Len(Wrap_String$)
    Remstart
        For every 10 characters drop the next character anotherline //Start count from the left
    Remend
    
    For n=0 to 100
        //Clear line before fill
        wrap(n).TextLine = \"\"    
    Next n

    //Run through all characters in the string
    For n=1 to Total_String_Lenth
        //Pass is used to set next line once the current line has been filled
        If Pass >=11 Then Pass = 0 
        Inc Pass,1
        //Use next array line if string goes past 11 characters
        If Pass>=11 then Inc wrap(0).TotalLines,1
        
        //Keep adding each letter to the array line, also make sure wrap(0).TotalLines is less that the max(when the array was created)
        If wrap(0).TotalLines<100 Then wrap(wrap(0).TotalLines).TextLine = wrap(wrap(0).TotalLines).TextLine+Right$(Left$(Wrap_String$,n),1)
        
        TLin = wrap(0).TotalLines
        
        //Reset total array wrap line 
        If n=Total_String_Lenth then wrap(0).TotalLines = 0
    Next n

    //Show lines of text, 5lines
    For n=0 to TLin
        Text 400,n*10,wrap(n).TextLine
    Next n
        
    //wrap(0).TextLine
Endfunction

bchaos101

Back to top

Profile PM Email

BlackChaos

16

Years of Service

User Offline

Joined: 2nd May 2010

Location: London

Posted: 10th Sep 2011 20:44

Link

Sorry my browser there are some errors in the last post(Something happened when i hit submit)

Sync On:Sync Rate 10

Remstart

Hope this helps;)

-Next version
   + will eliminate blanck spaces at the start of new lines
   + Push whole words that cant fit to the next line

Remend

//Text wrapper type
Type TextWrapper
    TextLine as String
    TotalLines as Integer
Endtype

//100 line to wrap
Dim wrap(100) as TextWrapper

Do
    WordWrapper("Do not let my long string go more that ten characters.")
    cls
Loop

Function WordWrapper(Wrap_String$)
    //Get the total lenth of the string
    Total_String_Lenth = Len(Wrap_String$)
    Remstart
        For every 10 characters drop the next character anotherline //Start count from the left
    Remend
    
    For n=0 to 100
        //Clear line before fill
        wrap(n).TextLine = ""    
    Next n

//Run through all characters in the string
    For n=1 to Total_String_Lenth
        //Pass is used to set next line once the current line has been filled
        If Pass >=11 Then Pass = 0 
        Inc Pass,1
        //Use next array line if string goes past 11 characters
        If Pass>=11 then Inc wrap(0).TotalLines,1
        
        //Keep adding each letter to the array line, also make sure wrap(0).TotalLines is less that the max(when the array was created)
        If wrap(0).TotalLines<100 Then wrap(wrap(0).TotalLines).TextLine = wrap(wrap(0).TotalLines).TextLine+Right$(Left$(Wrap_String$,n),1)
        
        TLin = wrap(0).TotalLines
        
        //Reset total array wrap line 
        If n=Total_String_Lenth then wrap(0).TotalLines = 0
    Next n

//Show lines of text, 5lines
    For n=0 to TLin
        Text 400,n*10,wrap(n).TextLine
    Next n
        
    //wrap(0).TextLine
Endfunction

+ Code Snippet

Sync On:Sync Rate 10

Remstart

Hope this helps;)


-Next version
   + will eliminate blanck spaces at the start of new lines
   + Push whole words that cant fit to the next line

Remend


//Text wrapper type
Type TextWrapper
    TextLine as String
    TotalLines as Integer
Endtype

//100 line to wrap
Dim wrap(100) as TextWrapper


Do
    WordWrapper("Do not let my long string go more that ten characters.")
    cls
Loop


Function WordWrapper(Wrap_String$)
    //Get the total lenth of the string
    Total_String_Lenth = Len(Wrap_String$)
    Remstart
        For every 10 characters drop the next character anotherline //Start count from the left
    Remend
    
    For n=0 to 100
        //Clear line before fill
        wrap(n).TextLine = ""    
    Next n

    //Run through all characters in the string
    For n=1 to Total_String_Lenth
        //Pass is used to set next line once the current line has been filled
        If Pass >=11 Then Pass = 0 
        Inc Pass,1
        //Use next array line if string goes past 11 characters
        If Pass>=11 then Inc wrap(0).TotalLines,1
        
        //Keep adding each letter to the array line, also make sure wrap(0).TotalLines is less that the max(when the array was created)
        If wrap(0).TotalLines<100 Then wrap(wrap(0).TotalLines).TextLine = wrap(wrap(0).TotalLines).TextLine+Right$(Left$(Wrap_String$,n),1)
        
        TLin = wrap(0).TotalLines
        
        //Reset total array wrap line 
        If n=Total_String_Lenth then wrap(0).TotalLines = 0
    Next n

    //Show lines of text, 5lines
    For n=0 to TLin
        Text 400,n*10,wrap(n).TextLine
    Next n
        
    //wrap(0).TextLine
Endfunction

bchaos101

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 11th Sep 2011 03:09

Link

It's not bad but the way you wrote it you'll never see the results.

+ Code Snippet

Do
    WordWrapper("Do not let my long string go more that ten characters.")
    cls
Loop

The above calls the WordWrapper function that will eventually print the results to the screen. But then it hits CLS and clears the screen so the user doesn't have enough time to see it. But again even if the CLS wasn't there it wouldn't work because you have SYNC ON at the top of the code and no SYNC to update the screen changes.

It's best to keep it out of a DO/LOOP (so it only does it once) and SYNC the screen. And the worst offence of them all is you use WRAP as an array which conflicts with IanMs Matrix 1 Utilities Plugins WRAP command. Once you have IanMs commands installed it's a reserved keyword... and since you didn't know that it means you don't have IanMs Matrix 1 Utilities Plugin which is even worse! You're missing out on a lot of good text commands that'll make a text wrapper even easier to make (like the SPLIT STRING command).

I changed WRAP to TWRAP:

Sync On:Sync Rate 10
sync

Remstart

Hope this helps;)

-Next version
   + will eliminate blanck spaces at the start of new lines
   + Push whole words that cant fit to the next line

Remend

//Text twrapper type
Type Texttwrapper
    TextLine as String
    TotalLines as Integer
Endtype

//100 line to twrap
Dim twrap(100) as Texttwrapper

cls
Wordtwrapper("Do not let my long string go more that ten characters.")
` Update the screen
sync
wait key

end

Function Wordtwrapper(twrap_String$)
    //Get the total lenth of the string
    Total_String_Lenth = Len(twrap_String$)
    Remstart
        For every 10 characters drop the next character anotherline //Start count from the left
    Remend
    
    For n=0 to 100
        //Clear line before fill
        twrap(n).TextLine = ""    
    Next n

//Run through all characters in the string
    For n=1 to Total_String_Lenth
        //Pass is used to set next line once the current line has been filled
        If Pass >=11 Then Pass = 0 
        Inc Pass,1
        //Use next array line if string goes past 11 characters
        If Pass>=11 then Inc twrap(0).TotalLines,1
        
        //Keep adding each letter to the array line, also make sure twrap(0).TotalLines is less that the max(when the array was created)
        If twrap(0).TotalLines<100 Then twrap(twrap(0).TotalLines).TextLine = twrap(twrap(0).TotalLines).TextLine+Right$(Left$(twrap_String$,n),1)
        
        TLin = twrap(0).TotalLines
        
        //Reset total array twrap line 
        If n=Total_String_Lenth then twrap(0).TotalLines = 0
    Next n

//Show lines of text, 5lines
    For n=0 to TLin
        Text 400,n*10,twrap(n).TextLine
    Next n
        
    //twrap(0).TextLine
Endfunction

+ Code Snippet

Sync On:Sync Rate 10
sync

Remstart

Hope this helps;)


-Next version
   + will eliminate blanck spaces at the start of new lines
   + Push whole words that cant fit to the next line

Remend


//Text twrapper type
Type Texttwrapper
    TextLine as String
    TotalLines as Integer
Endtype

//100 line to twrap
Dim twrap(100) as Texttwrapper


cls
Wordtwrapper("Do not let my long string go more that ten characters.")
` Update the screen
sync
wait key

end



Function Wordtwrapper(twrap_String$)
    //Get the total lenth of the string
    Total_String_Lenth = Len(twrap_String$)
    Remstart
        For every 10 characters drop the next character anotherline //Start count from the left
    Remend
    
    For n=0 to 100
        //Clear line before fill
        twrap(n).TextLine = ""    
    Next n

    //Run through all characters in the string
    For n=1 to Total_String_Lenth
        //Pass is used to set next line once the current line has been filled
        If Pass >=11 Then Pass = 0 
        Inc Pass,1
        //Use next array line if string goes past 11 characters
        If Pass>=11 then Inc twrap(0).TotalLines,1
        
        //Keep adding each letter to the array line, also make sure twrap(0).TotalLines is less that the max(when the array was created)
        If twrap(0).TotalLines<100 Then twrap(twrap(0).TotalLines).TextLine = twrap(twrap(0).TotalLines).TextLine+Right$(Left$(twrap_String$,n),1)
        
        TLin = twrap(0).TotalLines
        
        //Reset total array twrap line 
        If n=Total_String_Lenth then twrap(0).TotalLines = 0
    Next n

    //Show lines of text, 5lines
    For n=0 to TLin
        Text 400,n*10,twrap(n).TextLine
    Next n
        
    //twrap(0).TextLine
Endfunction

Try IanMs Matrix 1 Utilities Plugin to see the cool text commands (and all the others): https://forumfiles.thegamecreators.com/download/2257295

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 11th Sep 2011 15:26

Link

Quote: "and since you didn't know that it means you don't have IanMs Matrix 1 Utilities Plugin which is even worse!"

It's not the Law ... yet!

I have some example code that does this kind of thing with my own string commands, except that it requires you to specify the pixel width you want the text to fit within instead of the number of characters.

sync on
sync rate 0
sync

` Display the border that the text should fit within.
` - This is just for verification purposes.
line 100, 0, 100, screen height()
line 400, 0, 400, screen height()

` Position the cursor within that border.
set cursor 100, 0

PrettyPrint("This is a test of a standard line splitter function, using the Matrix1Utils string functions to make it easy!", 300)

set text font "Comic Sans MS"
set text size 20
PrettyPrint("As you can see, it works automatically with the current font you have set.", 300)

set text size 45
PrettyPrint("The only problem it has is with reallyreallylongwords, but it deals with hyphenated-words-just-fine.", 300)

set text size 20
PrettyPrint("You just need to be careful with those long words to avoid all problems.", 300)
PrettyPrint("... or amend this code to split long words at an appropriate place.", 300)
PrettyPrint("It also works with multibyte character sets - and hyphens that split the sentence!", 300)

sync
wait key
end

function PrettyPrint(Txt as string, PixelWidth as integer)
    local i as integer
    local CurrentLine as string
    local CurrentWidth as integer
    local WordWidth as integer
    local SepWidth as integer
    local x as integer

` Remember the x coordinate of the cursor, so can reset to that each time we print a line.
    x = get cursor x()

` Split the string on spaces and hyphens, and start with the first word.
    split string Txt, " -"
    CurrentLine = split word$(1)
    CurrentWidth = text width( CurrentLine )

` Loop through all other words
    for i = 2 to split count()

` Get the width of the current word, and the previous delimiter.
        WordWidth = text width( split word$(i) )
        SepWidth  = text width( split delimiter$(i-1) )
        
        ` If the current text, plus the word and separator cannot fit within the required borders...
        if WordWidth + SepWidth + CurrentWidth > PixelWidth
            ` Add the delimiter if it is not a space.
            if split delimiter$(i-1) = "-"  ` Could overflow the width here when adding back the previous hyphen.
                CurrentLine = CurrentLine + split delimiter$(i-1)
            endif
            ` Output the current line and reset the cursor position back within the border.
            print CurrentLine
            set cursor x, get cursor y()
            
            ` Reset the line content with the current word.
            CurrentLine = split word$(i)    ` Could overflow the width here if the current word is too long.
            CurrentWidth = WordWidth
        else
            ` otherwise, just add the word and the delimiter to the current line.
            CurrentLine = CurrentLine + split delimiter$(i-1) + split word$(i)
            CurrentWidth = CurrentWidth + SepWidth + WordWidth
        endif
    next
    
    ` After looping, if the current line is not empty, output it and reset the cursor position.
    if CurrentWidth > 0
        print CurrentLine
        set cursor x, get cursor y()
    endif
endfunction

+ Code Snippet

sync on
sync rate 0
sync

` Display the border that the text should fit within.
` - This is just for verification purposes.
line 100, 0, 100, screen height()
line 400, 0, 400, screen height()

` Position the cursor within that border.
set cursor 100, 0

PrettyPrint("This is a test of a standard line splitter function, using the Matrix1Utils string functions to make it easy!", 300)

set text font "Comic Sans MS"
set text size 20
PrettyPrint("As you can see, it works automatically with the current font you have set.", 300)

set text size 45
PrettyPrint("The only problem it has is with reallyreallylongwords, but it deals with hyphenated-words-just-fine.", 300)

set text size 20
PrettyPrint("You just need to be careful with those long words to avoid all problems.", 300)
PrettyPrint("... or amend this code to split long words at an appropriate place.", 300)
PrettyPrint("It also works with multibyte character sets - and hyphens that split the sentence!", 300)

sync
wait key
end

function PrettyPrint(Txt as string, PixelWidth as integer)
    local i as integer
    local CurrentLine as string
    local CurrentWidth as integer
    local WordWidth as integer
    local SepWidth as integer
    local x as integer

    ` Remember the x coordinate of the cursor, so can reset to that each time we print a line.
    x = get cursor x()

    ` Split the string on spaces and hyphens, and start with the first word.
    split string Txt, " -"
    CurrentLine = split word$(1)
    CurrentWidth = text width( CurrentLine )

    ` Loop through all other words
    for i = 2 to split count()

        ` Get the width of the current word, and the previous delimiter.
        WordWidth = text width( split word$(i) )
        SepWidth  = text width( split delimiter$(i-1) )
        
        ` If the current text, plus the word and separator cannot fit within the required borders...
        if WordWidth + SepWidth + CurrentWidth > PixelWidth
            ` Add the delimiter if it is not a space.
            if split delimiter$(i-1) = "-"  ` Could overflow the width here when adding back the previous hyphen.
                CurrentLine = CurrentLine + split delimiter$(i-1)
            endif
            ` Output the current line and reset the cursor position back within the border.
            print CurrentLine
            set cursor x, get cursor y()
            
            ` Reset the line content with the current word.
            CurrentLine = split word$(i)    ` Could overflow the width here if the current word is too long.
            CurrentWidth = WordWidth
        else
            ` otherwise, just add the word and the delimiter to the current line.
            CurrentLine = CurrentLine + split delimiter$(i-1) + split word$(i)
            CurrentWidth = CurrentWidth + SepWidth + WordWidth
        endif
    next
    
    ` After looping, if the current line is not empty, output it and reset the cursor position.
    if CurrentWidth > 0
        print CurrentLine
        set cursor x, get cursor y()
    endif
endfunction

You will need my plug-ins to get this to work

Get the latest Matrix1Utility plug-ins (10-SEPT-2011)

Back to top

Profile PM Email Website

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Sep 2011 16:52

Link

Why is it called Matrix 1 anyway? Nobody would look for text code called Matrix 1. I always thought it was Matrix code. You should rename it so that people can find it.

Back to top

Profile PM Email Website

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 11th Sep 2011 18:21

Link

It's not called 'Matrix 1', it's called 'Matrix1'. It's nothing to do with the film either - my hostname was registered in 1996, 3 years before the film was made.

TBH, I can't remember why I selected the name either...

Get the latest Matrix1Utility plug-ins (11-SEPT-2011)

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 11th Sep 2011 18:26

Link

But "everyone" knows you need it whatever it's called.

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 11th Sep 2011 18:35

Link

Quote: "It's not the Law ... yet!"

Yeah it needs to be Law.

Quote: "It's not called 'Matrix 1', it's called 'Matrix1'."

I just noticed that myself.

I won't use the space again. Just using "Matrix1" in the search finds it at the top of the list where it belongs.

Quote: "TBH, I can't remember why I selected the name either..."

I figured you made the first group and decided to name it that... then later added the second group and just kept the name of the first group of commands.

@ Green Gandalf:

Amen! Only the cool people have IanMs Matrix1 Utilities Plugin.

Back to top

Profile PM Email

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Sep 2011 18:37

Link

I have it but never used it, because I've never needed a matrix in my games before.. see the confusion?

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 11th Sep 2011 18:50 Edited at: 11th Sep 2011 18:51

Link

Not even the extended MID$() command that brings MID$() back to it's Basic roots? I'm sure you know that the Darkbasic version of MID$() takes out only one character from as string but IanMs version takes out multiple characters (as the original Basic command did).

Or how about the DATAFILE commands? It's extremely hard to do a database in Darkbasic without having to rewrite the entire file because all the file commands require a non-existent file to write. IanMs DATAFILE commands allow us to open a file and write to it without first having to destroy the file.

I'm starting to think I need to use an apostrophe in IanMs name now.

Which is right "IanMs" or "IanM's"?

Back to top

Profile PM Email

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Sep 2011 18:53 Edited at: 11th Sep 2011 18:53

Link

No because I thought it was a matrix utility, and they are string commands.

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 11th Sep 2011 19:17

Link

Really? Here's a link to IanMs online help files that shows what each group of commands do.

http://www.matrix1.demon.co.uk/Matrix1Utils_Help/Matrix1_Index.html

The string commands are in group 16 and the DATAFILE commands are in group 22 but of course there are many more useful commands just waiting for you to discover.

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 11th Sep 2011 19:36

Link

Quote: "Which is right "IanMs" or "IanM's"?"

The second - the apostrophe is added to denote possession.

... although I guess you could also add it as a contraction from my full name too.

Does it get better than this? Free plug-ins with an English lesson thrown in too!

Get the latest Matrix1Utility plug-ins (11-SEPT-2011)

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 11th Sep 2011 19:41

Link

@Ian, can you please show me how to make it so I can add a parameter such as:

<color=68,207,252>M<color=255,0,0>y <color=0,0,0>Color</color>

So it shows the M in blue, the y in red, and the rest of the text in black?

Thanks!

CHECK OUT MY WEBSITE AT http://imageposeidon.com/ !

Back to top

Profile

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Sep 2011 20:11

Link

Quote: "Really? Here's a link to IanMs online help files that shows what each group of commands do.

http://www.matrix1.demon.co.uk/Matrix1Utils_Help/Matrix1_Index.html

The string commands are in group 16 and the DATAFILE commands are in group 22 but of course there are many more useful commands just waiting for you to discover. "

That's not the point. People telling you that it's a string DLL after you find out that it's a string DLL is too late. Everyone needs a name that reflects the DLL functions. Now I am working on a matrix I included the DLL's, but I'm not working on strings at the moment.

Back to top

Profile PM Email Website

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 11th Sep 2011 20:21

Link

Sorry Pincho but reading these last few post made me giggle...

Matrix1 does tons of useful and possible scary stuff too, not just strings. It took me a while before I started to add dll's and the Matrix1 set I would say for DBPro users is essential. It's now a part of PureGDK which helped sway me over to that too.

Warning! May contain Nuts!

Back to top

Profile PM Email Website

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Sep 2011 20:43

Link

If it was me I would have split them up into different dll categories. Each dll having a name to match the dll.

Back to top

Profile PM Email Website

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 11th Sep 2011 23:56

Link

1. I'm not you.
2. They're named the Matrix1 Utility Plug-ins for a reason. Matrix1 from my demon internet name, Utility because they aren't targeted at a single area, and Plug-ins because there are many of them.
3. They've been on release since the second half of 2005 and you hadn't picked up on the fact that there are over 1000 additional and widely varying commands in the set?

There's just no pleasing some people

@Grog,
Grog, you obviously need to step up your campaign!

Quote: "I figured you made the first group and decided to name it that... then later added the second group and just kept the name of the first group of commands."

It's the 'Matrix1' part that I can't remember the origin of - see above for the reason behind the rest of the name.

Get the latest Matrix1Utility plug-ins (11-SEPT-2011)

Back to top

Profile PM Email Website

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 12th Sep 2011 00:28 Edited at: 12th Sep 2011 00:33

Link

Well your plan took me 6 years to discover. Is that what you want? I just go by names. If something is called Matrix utils, I think it is Matrix Utilities. That is what most people would think. Even your signature says the same thing.

Back to top

Profile PM Email Website

JackDawson

14

Years of Service

User Offline

Joined: 12th Jul 2011

Location:

Posted: 12th Sep 2011 00:36

Link

Quote: "Amen! Only the cool people have IanMs Matrix1 Utilities Plugin."

Man, wish I could be cool like you people.. WAIT. I have been using those plugins.. I'M COOL !!! lmao

"Life is like a box of chocolates.. eat it before it melts."

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 12th Sep 2011 01:12

Link

Quote: "@Ian, can you please show me how to make it so I can add a parameter such as:

<color=68,207,252>M<color=255,0,0>y <color=0,0,0>Color</color>

So it shows the M in blue, the y in red, and the rest of the text in black?

Thanks!"

CHECK OUT MY WEBSITE AT http://imageposeidon.com/ !

Back to top

Profile

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 12th Sep 2011 02:31

Link

This might help

+ Code Snippet

cls rgb(0, 255, 0)
mwPrint("mycolor")
wait key
end

function mwPrint(a$)
  a = len(a$)
  select a
    case 0
    endcase
    case 1
      ink rgb(0, 0, 255), 0
      print a$
    endcase
    case 2
      ink rgb(0, 0, 255), 0 : print mid$(a$, 1);
      ink rgb(255, 0, 0), 0 : print mid$(a$, 2)
    endcase
    case default
      ink rgb(0, 0, 255), 0 : print mid$(a$, 1);
      ink rgb(255, 0, 0), 0 : print mid$(a$, 2);
      ink rgb(0, 0, 0), 0 : print right$(a$, a-2)
    endcase
  endselect
endfunction

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 12th Sep 2011 07:31 Edited at: 12th Sep 2011 07:32

Link

@ IanM:

Yeah, I'll definitely step it up the campaign to show/inform everybody about the awesomeness of IanM's Matrix1 Utilities Plug-ins.

@ JackDawson:

I was hoping you were one of the cool people.

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 12th Sep 2011 14:26

Link

@GG, this works for single letters AND multiple words?

CHECK OUT MY WEBSITE AT http://imageposeidon.com/ !

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 12th Sep 2011 15:35 Edited at: 12th Sep 2011 15:38

Link

Um, Gandalf? It cuts out part of the word o.o

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Monday, September 12, 2011

Rem ***** Main Source File *****

mwPrint("Test")
wait key
end

function mwPrint(a$)
  a = len(a$)
  select a
    case 0
    endcase
    case 1
      ink rgb(0, 0, 255), 0
      print a$
    endcase
    case 2
      ink rgb(0, 0, 255), 0 : print mid$(a$, 1);
      ink rgb(255, 0, 0), 0 : print mid$(a$, 2)
    endcase
    case default
      ink rgb(0, 0, 255), 0 : print mid$(a$, 1);
      ink rgb(255, 0, 0), 0 : print mid$(a$, 2);
      ink rgb(0, 0, 0), 0 : print right$(a$, a-2)
    endcase
  endselect
endfunction

Also, is there any way that I can control the colors with a variable? <color 255,0,0>M<color 0, 255, 0>y <color 0, 0, 255>Text</color>

Thanks GG!

CHECK OUT MY WEBSITE AT http://imageposeidon.com/ !

Back to top

Profile

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 12th Sep 2011 17:01 Edited at: 12th Sep 2011 20:36

Link

Being an old SysOp of a Renegade BBS before the internet existed I prefer to use pipe codes to color text.

When you want to change colors just type |##| within the string (the ## representing the 2 digit color number you wish to change to).

` 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) (IanM's MID$() command)
   Color=val(mid$(Tex$,t+1,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

+ Code Snippet

` 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) (IanM's MID$() command)
   Color=val(mid$(Tex$,t+1,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

The above requires IanM's Matrix1 Utilities Plugins to work properly or you can just write your own extended MID$() command. Making your own function for a true Basic MID$() command is easy but IanM has made our lives SO MUCH EASIER by making all those useful commands and putting them right at our fingertips.

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 12th Sep 2011 17:58

Link

Parameter do not match String, Value at line 63.

I have IanM's plugins. EVERYONE does.

CHECK OUT MY WEBSITE AT http://imageposeidon.com/ !

Back to top

Profile

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 12th Sep 2011 18:31 Edited at: 12th Sep 2011 18:36

Link

That's weird... it works fine for me (see attached image).

Try it without using Matrix1... but don't get used to it! Use the following function instead of IanM's extended MID$() command. Change "Color=val(mid$(Tex$,t+1,t+2))" to "Color=val(Mids(Tex$,t+1,t+2))".

+ Code Snippet

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

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

endfunction a$

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 12th Sep 2011 18:55

Link

Subscript must be Integer or DWORD when referencing an array at line 67.

Rem Project: Dark Basic Pro Project
Rem Created: Monday, September 12, 2011

Rem ***** Main Source File *****
` 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) (IanM's MID$() command)
   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$

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Monday, September 12, 2011

Rem ***** Main Source File *****
` 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) (IanM's MID$() command)
   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$

CHECK OUT MY WEBSITE AT http://imageposeidon.com/ !

Back to top

Profile

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 12th Sep 2011 19:24

Link

Your 't+2' should just be '2' in that line.

Code extended to allow colours and bold/italic:

sync on
sync rate 0
sync

` Display the border that the text should fit within.
` - This is just for verification purposes.
line 100, 0, 100, screen height()
line 400, 0, 400, screen height()

` Position the cursor within that border.
set cursor 100, 0

PrettyPrint("This is a test of a standard line splitter function, using the Matrix1Utils string functions to make it easy!", 300)

set text font "Comic Sans MS"
set text size 20
PrettyPrint("As you can see, it <color red>works automatically with the current fo<color white>nt you have set.", 300)

set text size 45
PrettyPrint("The only problem it has is with reallyreallylongwords, but it deals with hyphenated-words-just-fine.", 300)

set text size 20
PrettyPrint("You just need to be careful <color #ff00ff>with those long words to avoid all problems.<color white>", 300)
PrettyPrint("... or amend <bold on>this <italic on>code<bold off> to split long words<italic off> at an appropriate place.", 300)
PrettyPrint("It also works with multibyte character sets - and hyphens that split the sentence!", 300)

sync
wait key
end

global PrettyPrint_BoldItalic as integer = 0

function PrettyPrint(Txt as string, PixelWidth as integer)
    local i as integer
    local CurrentLine as string
    local CurrentWidth as integer
    local WordWidth as integer
    local SepWidth as integer
    local x as integer
    local PrevDelimiter as string
    local TextModeChange as integer

` Remember the x coordinate of the cursor, so can reset to that each time we print a line.
    x = get cursor x()

` Split the string on spaces and hyphens, and start with the first word.
    split string Txt, " -<>"
    CurrentLine = split word$(1)
    CurrentWidth = text width( CurrentLine )

` Loop through all other words
    for i = 2 to split count()
        PrevDelimiter = split delimiter$(i-1)

if PrevDelimiter = "<"
            print CurrentLine;          ` Output what has been gathered so far, but don't reset the width.
            CurrentLine = ""
            TextModeChange = 0
            select split word$(i)
                case "color"
                    if left$( split word$(i+1), 1 ) = "#"
                        ` Ensure that the colour includes full alpha
                        Colour = 0xff000000 || hex to decimal( remove$( split word$(i+1), 1, 1) )
                    else
                        Colour = css3 colour( split word$(i+1) )
                    endif
                    ink Colour
                endcase
                case "bold"
                    TextModeChange = 1
                    if split word$(i+1) = "on"
                        PrettyPrint_BoldItalic = PrettyPrint_BoldItalic || 1
                    else
                        PrettyPrint_BoldItalic = PrettyPrint_BoldItalic && (not 1)
                    endif
                endcase
                case "italic"
                    TextModeChange = 1
                    if split word$(i+1) = "on"
                        PrettyPrint_BoldItalic = PrettyPrint_BoldItalic || 2
                    else
                        PrettyPrint_BoldItalic = PrettyPrint_BoldItalic && (not 2)
                    endif
                endcase
            endselect
            if TextModeChange = 1
                select (PrettyPrint_BoldItalic && 3)
                    case 0 : set text to normal     : endcase
                    case 1 : set text to bold       : endcase
                    case 2 : set text to italic     : endcase
                    case 3 : set text to bolditalic : endcase
                endselect
            endif
            while split delimiter$(i) <> ">"
                inc i
            endwhile
        else
            if PrevDelimiter = ">"
                PrevDelimiter = ""
            endif
            
            ` Get the width of the current word, and the previous delimiter.
            WordWidth = text width( split word$(i) )
            SepWidth  = text width( PrevDelimiter )
            
            ` If the current text, plus the word and separator cannot fit within the required borders...
            if WordWidth + SepWidth + CurrentWidth > PixelWidth
                ` Add the delimiter if it is not a space.
                if PrevDelimiter = "-"          ` Could overflow the width here when adding back the previous hyphen.
                    CurrentLine = CurrentLine + PrevDelimiter
                endif
                ` Output the current line and reset the cursor position back within the border.
                print CurrentLine
                set cursor x, get cursor y()
                
                ` Reset the line content with the current word.
                CurrentLine = split word$(i)    ` Could overflow the width here if the current word is too long.
                CurrentWidth = WordWidth
            else
                ` otherwise, just add the word and the delimiter to the current line.
                CurrentLine = CurrentLine + PrevDelimiter + split word$(i)
                CurrentWidth = CurrentWidth + SepWidth + WordWidth
            endif
        endif
    next
    
    ` After looping, if the current line is not empty, output it and reset the cursor position.
    if CurrentWidth > 0
        print CurrentLine
        set cursor x, get cursor y()
    endif
endfunction

+ Code Snippet

sync on
sync rate 0
sync

` Display the border that the text should fit within.
` - This is just for verification purposes.
line 100, 0, 100, screen height()
line 400, 0, 400, screen height()

` Position the cursor within that border.
set cursor 100, 0

PrettyPrint("This is a test of a standard line splitter function, using the Matrix1Utils string functions to make it easy!", 300)

set text font "Comic Sans MS"
set text size 20
PrettyPrint("As you can see, it <color red>works automatically with the current fo<color white>nt you have set.", 300)

set text size 45
PrettyPrint("The only problem it has is with reallyreallylongwords, but it deals with hyphenated-words-just-fine.", 300)

set text size 20
PrettyPrint("You just need to be careful <color #ff00ff>with those long words to avoid all problems.<color white>", 300)
PrettyPrint("... or amend <bold on>this <italic on>code<bold off> to split long words<italic off> at an appropriate place.", 300)
PrettyPrint("It also works with multibyte character sets - and hyphens that split the sentence!", 300)

sync
wait key
end

global PrettyPrint_BoldItalic as integer = 0

function PrettyPrint(Txt as string, PixelWidth as integer)
    local i as integer
    local CurrentLine as string
    local CurrentWidth as integer
    local WordWidth as integer
    local SepWidth as integer
    local x as integer
    local PrevDelimiter as string
    local TextModeChange as integer

    ` Remember the x coordinate of the cursor, so can reset to that each time we print a line.
    x = get cursor x()

    ` Split the string on spaces and hyphens, and start with the first word.
    split string Txt, " -<>"
    CurrentLine = split word$(1)
    CurrentWidth = text width( CurrentLine )

    ` Loop through all other words
    for i = 2 to split count()
        PrevDelimiter = split delimiter$(i-1)

        if PrevDelimiter = "<"
            print CurrentLine;          ` Output what has been gathered so far, but don't reset the width.
            CurrentLine = ""
            TextModeChange = 0
            select split word$(i)
                case "color"
                    if left$( split word$(i+1), 1 ) = "#"
                        ` Ensure that the colour includes full alpha
                        Colour = 0xff000000 || hex to decimal( remove$( split word$(i+1), 1, 1) )
                    else
                        Colour = css3 colour( split word$(i+1) )
                    endif
                    ink Colour
                endcase
                case "bold"
                    TextModeChange = 1
                    if split word$(i+1) = "on"
                        PrettyPrint_BoldItalic = PrettyPrint_BoldItalic || 1
                    else
                        PrettyPrint_BoldItalic = PrettyPrint_BoldItalic && (not 1)
                    endif
                endcase
                case "italic"
                    TextModeChange = 1
                    if split word$(i+1) = "on"
                        PrettyPrint_BoldItalic = PrettyPrint_BoldItalic || 2
                    else
                        PrettyPrint_BoldItalic = PrettyPrint_BoldItalic && (not 2)
                    endif
                endcase
            endselect
            if TextModeChange = 1
                select (PrettyPrint_BoldItalic && 3)
                    case 0 : set text to normal     : endcase
                    case 1 : set text to bold       : endcase
                    case 2 : set text to italic     : endcase
                    case 3 : set text to bolditalic : endcase
                endselect
            endif
            while split delimiter$(i) <> ">"
                inc i
            endwhile
        else
            if PrevDelimiter = ">"
                PrevDelimiter = ""
            endif
            
            ` Get the width of the current word, and the previous delimiter.
            WordWidth = text width( split word$(i) )
            SepWidth  = text width( PrevDelimiter )
            
            ` If the current text, plus the word and separator cannot fit within the required borders...
            if WordWidth + SepWidth + CurrentWidth > PixelWidth
                ` Add the delimiter if it is not a space.
                if PrevDelimiter = "-"          ` Could overflow the width here when adding back the previous hyphen.
                    CurrentLine = CurrentLine + PrevDelimiter
                endif
                ` Output the current line and reset the cursor position back within the border.
                print CurrentLine
                set cursor x, get cursor y()
                
                ` Reset the line content with the current word.
                CurrentLine = split word$(i)    ` Could overflow the width here if the current word is too long.
                CurrentWidth = WordWidth
            else
                ` otherwise, just add the word and the delimiter to the current line.
                CurrentLine = CurrentLine + PrevDelimiter + split word$(i)
                CurrentWidth = CurrentWidth + SepWidth + WordWidth
            endif
        endif
    next
    
    ` After looping, if the current line is not empty, output it and reset the cursor position.
    if CurrentWidth > 0
        print CurrentLine
        set cursor x, get cursor y()
    endif
endfunction

Use <color word> to specify a css3 colour, or <color #xxxxxx> to specify a hex colour. Use <bold on>, <bold off>, <italic on> and <italic off> to control the bold/italics.

Any further enhancements (I suggest a line break, and switching to the D3D plug-in) you can do yourself :p

Get the latest Matrix1Utility plug-ins (11-SEPT-2011)

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 12th Sep 2011 19:59

Link

Thanks, @IanM! =D Works GREAT! =D

CHECK OUT MY WEBSITE AT http://imageposeidon.com/ !

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 12th Sep 2011 20:01

Link

@Ian, I don't know if you're aware of this, but Matrix1util16.dll likes to argue with StyxCore.dll -.- Can u rename the function so there is no combating functions? It seems to duplicate Split String. Possibly others.

CHECK OUT MY WEBSITE AT http://imageposeidon.com/ !

Back to top

Profile

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 12th Sep 2011 20:35

Link

Quote: "Your 't+2' should just be '2' in that line."

Doh! <smacks head>

Thanks for spotting that error.

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 12th Sep 2011 22:54

Link

@Mugen Wizardry,
No, sorry.

Remember always that I write these DLLs primarily for me and I have far too much of my own code that uses those string commands to simply rename them - only slightly less of a worry to me, is that other people also have lots of code that uses them

Besides, 'I was here first' (19th Nov 2002, compared to sometime late in 2006)

In fact, the original source code for my original 'Matrix1Utility' plug-in (singular) is still available from my site - it's well out of date now though.

Get the latest Matrix1Utility plug-ins (11-SEPT-2011)

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Text Wrapper