Posted by Uncle Bob on October 25, 2000 at 08:44:24:
Here's a little something I wrote for my peeps. It will convert any amount of normal text, and convert it to a 'Role +' format suitable for the mud. 1. Copy the code below BETWEEN the asterisks. Notes: If Snarf or someone wants to throw this into a word template, and make it available on their site, feel free. And anyone that has comments to the structure of the code can suck my hairy yellow ass, this was a lunch time activity, and I didn't spend time making it efficient or purty. But I could. If someone has the ching to send my way. There you have it. I guarantee nothing, I promise everything, I deliver only candy wishes and tangerine dreams. Or something. Good luck. Dim whole As String, temp As String, nextline As String ' Check if line ends in the middle of a word ' check if line holds a carriage return, if so, split the line. Selection.TypeParagraph BEFORE: And will result in this, after running the macro: AFTER:
2. In Word, create and edit a new macro…paste the code in. (Number of ways to do this, try Tools>Macros>Visual basic editor. Then paste.)
3. Write the role.
4. Run the macro (Tools>Macro>Macros>RoleCreator)
5. Copy and paste the resulting text (the macro puts the text in a new window, so you won't lose your original text) into the mud directly, or try exporting to a text file, and importing that into your favorite client.
* Don't use carriage returns except where you want blank lines between paragraphs. This macro splits every line with a carriage return, so those of you who love the returns are going to have some big ass roles.
* The default character count is 60, that is, 60 characters per line. Keep in mind that I check for words and go to the next space, so if you use a lot of flowery words, it may wind up being 65 or so in some cases.
* The resulting text, after running the macro, is completely editable…I've tried to trim extra spaces and what not, but you'll certainly want to verify.
'*****
Sub RoleCreator()
'
' Macro recorded 10/24/00 by Uncle Bob
'
Dim templength As Integer, wholelength As Integer, cutamount As Integer, checkend As Integer, checkreturn As Integer
Windows(1).Activate
Selection.WholeStory
Selection.Copy
whole = Selection
Documents.Add
cutamount = 60
temp = Left(whole, cutamount)
While Not temp = ""
wholelength = Len(whole)
If wholelength > cutamount Then
While Not Right(temp, 1) = " "
cutamount = cutamount + 1
temp = Left(whole, cutamount)
Wend
End If
checkreturn = InStr(temp, Chr(13))
If checkreturn <> 0 Then
Selection.TypeText Text:="Role + " + Trim(Left(temp, checkreturn - 1))
Selection.TypeParagraph
Selection.TypeText Text:="Role +"
whole = Trim(Right(temp, Len(temp) - checkreturn)) + " " + Trim(Right(whole, wholelength - cutamount))
Else
nextline = "Role + " + temp
Selection.TypeText Text:=Trim(nextline)
End If
templength = Len(temp)
If Not checkreturn <> 0 Then
whole = Right(whole, wholelength - cutamount)
End If
temp = Left(whole, cutamount)
wholelength = Len(whole)
If wholelength < cutamount Then
cutamount = wholelength
nextline = "Role + " + temp
Selection.TypeText Text:=Trim(nextline)
Exit Sub
End If
cutamount = 60
Wend
End Sub
'*****
EXAMPLE:
Rangerboy's role, in a word document, would originally look like this:
Ranger never really knew the city, it was just there, and in the way. It never seemed natural to him, is false sanctity obvious in his mind. All he ever knew was the forest, his home. His life was one of harmony and peace, but it was short lived. The folks of the cities began to intrude into his home, at first not seeking to harm it though. They carelessly walked through, trampling the fox's dens and knocking the bird's nests from the trees. For a while it was hardly any trouble to repair what damage the folks had done, but it was not long before the outsiders began truly to harm the wood.
Masses of them poured into the wood toting bows and shields, and implements of war, as if to fight some great battle. But all they sought was more for themselves. They needlessly killed the creatures of the wood, often taking only their hides, and leaving their bodies to rot. They chopped down nearly all the trees, not to keep themselves warm for the night, but to burn in massive bonfires, wasting nature's bounty. While hunting to live was the natural way, things had gone too far, and that which he loves was being ravaged all around him. He could only repair their damage so fast, and creating new life was far beyond any power he had.
Role + Ranger never really knew the city, it was just there, and in
Role + the way. It never seemed natural to him, is false sanctity obvious
Role + in his mind. All he ever knew was the forest, his home. His life
Role + was one of harmony and peace, but it was short lived. The folks
Role + of the cities began to intrude into his home, at first not seeking
Role + to harm it though. They carelessly walked through, trampling
Role + the fox's dens and knocking the bird's nests from the trees.
Role + For a while it was hardly any trouble to repair what damage
Role + the folks had done, but it was not long before the outsiders
Role + began truly to harm the wood.
Role +
Role + Masses of them poured into the wood toting bows and shields,
Role + and implements of war, as if to fight some great battle. But
Role + all they sought was more for themselves. They needlessly killed
Role + the creatures of the wood, often taking only their hides, and
Role + leaving their bodies to rot. They chopped down nearly all the
Role + e trees, not to keep themselves warm for the night, but to burn
Role + in massive bonfires, wasting nature's bounty. While hunting to
Role + live was the natural way, things had gone too far, and that which
Role + he loves was being ravaged all around him. He could only repair
Role + their damage so fast, and creating new life was far beyond any
Role + power he had.