I don't dare go into displayers as they're way too game-dependent, but the way I've solved the text-issue means you can use a typical 2d-mapviewer to display this text.
So, the only thing this does it put a string into a bank, wordwrapped. Note that tabs, newlines and such
can be *stored* in a bank, but not *processed*. In these cases I recommend against them, just use spaces. ;P
SuperStrict
Type TSimpleformattedtext
Rem
TSimpleformattedtext
by CS_TBL
Formats a given string into a bank, with wordwrap.
EndRem
Field columns:Int
Field rows:Int
Field bank:TBank=CreateBank()
Method Cleanup(s$ Var)
s=Replace(s,Chr(10),"")
s=Replace(s,Chr(13),"")
s=Replace(s,Chr(9),"")
End Method
Method Convert:TBank(s$,col:Int=16,clean:Int=1)
columns=Max(col,1)
s:+" "
If clean Cleanup s' <- optional!
Local word$
Local wordlen:Int
Local l:Int=Len(s)
Local pointer:Int=0
Local char$
Local bankx:Int
Local banky:Int
Local adres:Int
Local t:Int
Local tt:Int
ResizeBank bank,columns
While pointer<l ' do all chars..
char=Mid(s,pointer+1,1)
If char<>" "
word:+char
pointer:+1
Else
If word<>"" ' word found!
wordlen=Len(word)
If wordlen<=columns
If (bankx+wordlen)>columns ' word doesn't fit line anymore?
' wrap
For tt=bankx To columns-1
PokeByte bank,tt+(banky*columns),32
Next
ResizeBank bank,BankSize(bank)+columns ' add new line
bankx=0
banky:+1
' add word
For t=0 To wordlen-1
adres=bankx+(columns*banky)
PokeByte bank,adres,Asc( Mid(word,t+1,1) )
bankx:+1
Next
If bankx<columns-1
PokeByte bank,bankx+(columns*banky),Asc(" ")
bankx:+1
EndIf
Else ' add word
For t=0 To wordlen-1
adres=bankx+(columns*banky)
PokeByte bank,adres,Asc( Mid(word,t+1,1) )
bankx:+1
Next
If bankx<columns-1
PokeByte bank,bankx+(columns*banky),Asc(" ")
bankx:+1
EndIf
EndIf
EndIf
EndIf
word=""
pointer:+1
EndIf
rows=banky
Wend
If bankx<columns And bankx>0
For tt=bankx To columns-1
PokeByte bank,tt+(banky*columns),Asc(" ")
Next
EndIf
If bankx=0'-1
For tt=bankx To columns-1
PokeByte bank,tt+(banky*columns),Asc(" ")
Next
EndIf
rows=(BankSize(bank)/columns)
Return bank
End Method
End Type
Local b:TSimpleformattedtext=New TSimpleformattedtext
b.Convert "Hi, let's parse some text hmkay? If everything's well, this ~ntext will be wordwrapped"+..
" at a given length, And the result will go into a type with a rows field, a columns field and a bank"+..
". From all this, it's easy to make a simple map-displayer like the ones we use in games, only this time it"+..
" displays text! The size of the bank is .rows * .columns! Big words that don't fit, like these: "+..
"123456789abcdef12345678 are cancelled out",20
DebugLog b.rows
DebugLog b.columns
Showformattedtext b
b.Convert "We can use the same instance for more text!"
Showformattedtext b
End
' here's how to read out this text of ours.., transform it into your own typical 2D-mapdisplayer for scrolling/showing..
Function Showformattedtext(sft:TSimpleformattedtext)
Local x:Int,y:Int
Local s$=Chr(10)+Chr(10)
For y=0 To sft.rows-1
For x=0 To sft.columns-1
s:+Chr( PeekByte(sft.bank,x+y*sft.columns) )
Next
s:+Chr(10)
Next
DebugLog s
End Function
