Zugg Software :: View topic

Posted: Fri May 09, 2008 4:36 pm

I've been racking my brains on this. It should be simple enough, but I somehow cannot come up with a way to script this. And since the MUD hasn't implemented this, I want to make a script to automatically format my notes for me. Below is an example of a properly formatted note:

Wizard Joined: 26 Mar 2008 Posts: 1547

I would be interested in this too, my mud allows formatting, but the way it formats can screw up some fancy effects so I would prefer to format myself with the fancy effects in tact.

I'm imagining there must be function that can count the number of characters in a line? IF there isn't, perhaps it can count the individual characters of the words, white spaces and such until it reads a carriage return (you may have to make a character to physically represent this) and then feeds to a new line?

Posted: Fri May 09, 2008 5:30 pm

Well, to answer your question, chamenas, there is. For instance, I could do:

#ONINPUT {(*)} {#show %len(%1)} and it'll show me the number of characters in the parameter. Heh. So I know that's going to be part of the code. Probably %word, too. But not sure how to all implement it. *sigh*

Charneus

Wizard Joined: 26 Mar 2008 Posts: 1547

I suggest making a carriage return character, one that you're not going to use, like... ^ so it could put ^ every 79 characters and then a later part of the script could spot them, remove them, and replace with a carriage return.

Wizard Joined: 26 Mar 2008 Posts: 1547

hrmm...

totalcount=%len(%1)

numberoflines=totalcount/79

place a line feed at character 79+79 and run through a loop that ends once it hits numberoflines, addng 79+79+79+...

Enchanter Joined: 05 Mar 2003 Posts: 593 Location: Canada

I haven't got CMUD or ZMUD handy ATM
So I dont expect this to run right out of the box
but how about something like:

Posted: Fri May 09, 2008 5:50 pm

Okay, so we're starting with a string. $string="This is an example of a note. Each line can be no more than 79 characters long, but I do not want it to break off in the middle of a word. Therefore I need to be able to have the script detect the final word, and if it allows the line to go over 79 characters, it breaks it off to the space before and moves it to the next line.".

Now we need to take a substring that's the first 79 characters: $substring=%copy($string,1,79) and then find where the last space in this string is: $break=%regex($substring," [^ ]+$"). Now we know where to break the line, so we do that: #additem Lines %left($string,$break) and snap the part we just used out of the string: $string=%right($string,$break). Repeat until $string is less than 79 chars long.

I won't guarantee that this'll work, but it's my thoughts on the issue.

EDIT: Though I'm really liking Dharkael's \b approach, if you can get that to work.

Posted: Fri May 09, 2008 5:53 pm

I like the idea behind it, Dharkael, but unfortunately, you said it - it didn't work right out of the box. ;) Hmmm... let me see if I might be able to figure it out until you get CMUD handy...

Charneus

Enchanter Joined: 05 Mar 2003 Posts: 593 Location: Canada

Hmm for some reason I thought you had said 80 chars :p
I think thats the limit on my mud :p

Wizard Joined: 26 Mar 2008 Posts: 1547

My psuedo attempts are still options! Though they of course don't check for finished words Confused

Posted: Fri May 09, 2008 6:21 pm

Heh. I tried your example, Fang, and it just froze up CMUD. Unless I messed up somewhere in my own scripting. Below is what the two different scripts look like.

Enchanter Joined: 05 Mar 2003 Posts: 593 Location: Canada

Any chance you can give some info on how it's not working? Like what's going into $slist, is it getting locked somewhere?
If ya give me some info maybe I can trouble shoot my code a bit.

EDIT: I think I have it! In my additem the $slist and $str are backwards
try

Posted: Fri May 09, 2008 6:43 pm

Well, after doing the change and the initial start, what's happening is that it's sending the line, completely unchanged. So basically, nothing is happening during the #WHILE. I've done a couple of echoes to echo the local variables, and only the $string comes out. (I don't bother with the $slist, $str, and $count, since I echo them under the #while).

*sigh*

Charneus

Enchanter Joined: 05 Mar 2003 Posts: 593 Location: Canada

Well If you haven't got it in about 2 or so hrs I'll see what I can come up with.

Posted: Fri May 09, 2008 7:10 pm

Ha. I'm not at my computer right now, but I think I realize why, and I feel like an idiot right now. I really shouldn't use #ONINPUT. Instead, I should just alias it. The script was sending the line unformatted. In the alias, the script has to format the string first, then send it. Heh. Will let you know how it works in a bit.

Charneus

Posted: Fri May 09, 2008 7:23 pm

Nope. That didn't work. Then I decided, "Well, maybe the WHILE doesn't have a pattern to match to (thinking the %regex wouldn't satisify it). So, I decided to change it to #WHILE (%len($string)>79) {%regex...} --- All that wound up doing was spamming my screen with the same $string, as it would continually echo it.

EDIT: In fact, all it did was send 0 to the mud multiple times. Heh.

Charneus

Wizard Joined: 17 Jun 2006 Posts: 1201

Well that would work.

$length=%len($string)

Then do the #while ($length > 79) but you would have to remove the substring from $string and then update the length after adding it to the list.

SubAdmin Joined: 18 Nov 2001 Posts: 5187

Bah, only takes 1 line of code.

Enchanter Joined: 05 Mar 2003 Posts: 593 Location: Canada

Turns out that in the pattern I had to set the lower bound ^(.{1,79}\b)

Posted: Fri May 09, 2008 8:48 pm

Wizard Joined: 17 Jun 2006 Posts: 1201

lol I was waiting for the regex guru to show up.

SubAdmin Joined: 18 Nov 2001 Posts: 5187

That wasn't really showing off. Doing justification would be showing off.

Wizard Joined: 17 Jun 2006 Posts: 1201

We are not worthy! *bow*

Posted: Fri May 09, 2008 10:13 pm

oldguy2 is right. We are definitely not worthy of your greatness, although in your "showing off" example, it added spaces between words in some cases (like for instance, it shows

SubAdmin Joined: 18 Nov 2001 Posts: 5187