Zugg Software :: View topic - Newly Improved

Sorcerer Joined: 10 Oct 2000 Posts: 706 Location: USA

This script was created for me by Iljhar. Since, this is such a great Alias, I thought it would be great in the finished scripts forum.
This alias will randomly stutter on the letters given in the alias.

Sorcerer Joined: 10 Oct 2000 Posts: 706 Location: USA

NEW AND IMPROVED SCRIPT BY ILJHAR.
I asked Iljhar if he could improve the script to do the following:

Find a way to use a string list for the letters to stutter on.
Fix the problem when I have the first word in the sentence over 3 letters it automatically capitalizes the fourth letter.
Find a way to be able to Capitalize the first word of each additional sentence.

Example: stutter gossip This is it. I want to run for office.
Here is the finished script:

Newbie Joined: 18 Nov 2001 Posts: 2 Location: Italy

I have modified the scritp to make it usefull also with non-public channel that uses a target. I.e. Say to, Send, Trasmit.

In RED the modification

#VARIABLE stutterlist {t|m|n|l|b|c|s|d}
#VARIABLE input {%-1}
#VARIABLE found 0
#VARIABLE cap 1
#VARIABLE whole ""
#VARIABLE channel %word( @input, 1)
#VARIABLE sayto %word( @input, 2)
#VARIABLE target %word( @input, 3)
#VARIABLE input %replace( %right( @input, %pos( " ", @input)), " ", " ")
#IF (%upper(@sayto)="TO") {
#VARIABLE input %replace( %right( @input, %pos( " ", @input)), " ", " ")
#VARIABLE input %replace( %right( @input, %pos( " ", @input)), " ", " ")
#VARIABLE channel %concat( @channel, " ", @sayto, " ", @target, " ")
} {#IF (%upper( @sayto)="MESS" or %upper( @sayto)="SEND" or %upper( @sayto)="MESSAGE") {
#VARIABLE input %replace( %right( @input, %pos( " ", @input)), " ", " ")
#VARIABLE channel %concat( @channel, " ", @sayto, " ")
} {#NOOP}
}
#VARIABLE input %replace( @input, " ", "|")
#FORALL @input {
#VARIABLE temp2 %i
#IF (%random( 1, 2)=1) {#FORALL @stutterlist {#IF (!@found) {#IF (%begins( %lower( @temp2), %i)) {
#VARIABLE whole %concat( @whole, %if( @cap, %proper( %i), %i), "..", %if( @cap, %proper( %i), %i), "..")
#VARIABLE found 1
}}}}
#VARIABLE whole %concat( @whole, %if( @cap, %proper( @temp2), @temp2), " ")
#VARIABLE found 0
#VARIABLE cap 0
#IF (%ends( @temp2, ".")) {#VARIABLE cap 1}
}
#VARIABLE temp2 %proper( %left( %trim( @whole), 3))
#VARIABLE whole %right( %trim( @whole), 3)
#IF (%begins( @whole, ".")) {
#VARIABLE temp2 %concat( @temp2, %left( @whole, 1))
#VARIABLE whole %right( @whole, 1)
}
@channel %concat( @temp2, %if( %pos( ".", @temp2), %concat( %upper( %left( @whole, 1)), %right( @whole, 1)), @whole))

Alrik

Newbie Joined: 10 Jul 2002 Posts: 5

How do you keep it from stuttering the persons name while your messaging them...
so things don't look like this: tell S..S..Seid s..s..stop stuttering so much
They aren't here.

Sorcerer Joined: 10 Oct 2000 Posts: 706 Location: USA

Then don't use the stutter alias when you want to use the tell command!

Darmir
"A gentle answer turns way wrath,
but a harsh word stirs up anger"
Proverbs 15:1

Newbie Joined: 04 Mar 2003 Posts: 2 Location: USA

I am not a good scripter at all... So I need to ask for some help here.

I'm looking to to make an olde English-speak script...

I want it to change every command I send out that begins with say, ', tell, gnt, and ct to do this:

Change HAD/HAVE/HAS to HATH
Change ARE to ART
Change YOU'RE to THOU ART
Change YOURS to THINE
Change YOUR to THY
Change YOU to THEE

the next best thing to a stutter script. :-)

conjure illusion The Pixie Queen sticks her tongue out and blows a raspberry at you.

Sorcerer Joined: 10 Oct 2000 Posts: 706 Location: USA

This is only for completed scripts! Ask this question on the general forum.

Darmir
"A gentle answer turns way wrath,
but a harsh word stirs up anger"
Proverbs 15:1

Sorcerer Joined: 10 Oct 2000 Posts: 706 Location: USA

New version of Stutter Script
I have re-written this script from scratch to make better use of the latest version of zMud.
Capabilites:

Can distinguish between channels with a target.
Can also use emphasis of channels - Designed specifically for Shadows of Isildur Mud.
Script will stop if emphasis not formatted correctly.
Can distinguish between Proper words and non-proper words for stuttering.

---------------------------------------------------
Example 1:
stutter tell Dave My oh my. This is not for you. I will not do it?
Output 1:
tell Dave My oh my. This i..i..is not for you. I will not do i..i..it?
---------------------------------------------------
Example 2:
stutter tell Dave (while smiling) My oh my. This is not for you. I will not do it?
Output 2:
tell Dave (while smiling) My oh my. This is not for you. I will not do it?
---------------------------------------------------
Example 3:
stutter say (while smiling) My oh my. This is not for you. I will not do it?
Output 3:
say (while smiling) M..M..My oh my. Th..Th..This is not for you. I will not do it?
---------------------------------------------------
stutter say /(while smiling) My oh my. This is not for you. I will not do it?
Output 5:
You used the incorrect format for an emphasis
---------------------------------------------------
Example 5:
stutter say My oh my. This is not for you. I will not do it?
Output 5:
say M..M..My oh my. Th..Th..This is not for you. I will not do it?
---------------------------------------------------
Here is the finished script

Newbie Joined: 09 Jul 2004 Posts: 1 Location: Sweden

Iam on new om the mud thing so i was wondering what "stutter" is... Can anyone help m understand?

Sorcerer Joined: 10 Oct 2000 Posts: 706 Location: USA

Night Walker,
The stutter script is so you can roleplay a person that has a stutter problem with his/her speech.

Sorcerer Joined: 13 Jan 2006 Posts: 715

I've added a little adjustment to this to allow for different moods.
If you're confident you will stutter less. If you are excited (stressed)
you will stutter a lot (my code makes it always). I've also added
to the stutterlist a few things. It isn't as pretty to look at as the above
post, but I'm not going to take the time to edit it ;)

Sorcerer Joined: 10 Oct 2000 Posts: 706 Location: USA

Nice adjustment to my script.. I was thinking of converting this for cMUD. So I will do it in next week so so and put it into the package library.

Sorcerer Joined: 13 Jan 2006 Posts: 715

Oops, darmir has kindly pointed out that I forgot to add the new examples for my adjustments.

To stutter when "excited" use stex <channel> <message>
To stutter when "confident" use stconf <channel> <message>
To stutter "normal" use st | stutter <channel> <message>

Other than that, my only changes were to add some stuff to the stutterlist and replace the final outputting code with a cleaner version that avoids extraneous spaces (that didn't matter on my MUD but look bad)

Beginner Joined: 18 Aug 2010 Posts: 13

Seems to be an EMPH malfunction with the sayto "say". Doesn't seem to have this issue with any of the other sayto's I added. Also, any way to avoid being forced to use 2+ words in the emph, allowing you to use single-word emph's also? I worked around it by adding spaces around the single-word, aka, ( emph ). Perhaps anyone can assist?

IMPUT:
st say (while smiling) boom batter better butt bale box boch break

OUTPUT:
You say '(while (while smiling) boom batter b..b..better butt b..b..bale b..b..box boch b..b..break'

Sorcerer Joined: 13 Jan 2006 Posts: 715

Did you modify the code?

Beginner Joined: 18 Aug 2010 Posts: 13

It's an exact duplicate of the one above.
zMud version 7.21.

I added additional sayto's, that's all I changed, I will report the change for you to see:

#VAR sayto {tell|whisper|reply|>|gossip|cgossip|clan|gtell|say|yell|shout}

They all work except the "say" command.

Beginner Joined: 18 Aug 2010 Posts: 13

Sorcerer Joined: 13 Jan 2006 Posts: 715

Ok, I'll look at this when I get home. It shouldn't do that.

Beginner Joined: 18 Aug 2010 Posts: 13

Thanks!

Also, another item of note: the emph only acknowledges 2+ word emph's, and not single-word emphs. A way to get around this is to add [spaces] around the single word, because if you don't, it enables the emph to act like a normal word, thus a chance of stuttering if the letter is in your stutterlist.

Examples of valid inputs:

st [channel] [name] (while smiling) [message]
st [channel] [name] ( angrily ) [message]

Adding the [spaces] around "angrily" allows the stutter exemption to stay in place as if the emph were 2+ words long. Any chance we can get the single-word emph fixed so the need for [spaces] are eliminated?

Thanks again! >:-D

Sorcerer Joined: 13 Jan 2006 Posts: 715

Ok, I think I see your problem. You're putting all channels into sayto. sayto is only used with things like tell, where it expects an argument of
st channel name msg.
gossip, say, etc... don't have that. They're just:
st channel msg.
And so they don't need to be in the sayto list.

As for the 1 word emphasis, yes I can and have fixed that (by replacing that portion of the code with regex instead)

Sorcerer Joined: 13 Jan 2006 Posts: 715

I've been informed that my code post above doesn't work because I forgot to remove all the semi-colons from the line ends when I prettied it up for display. Here's the original code. If this gives you syntax errors I don't know why, I don't have any on my end. Actually, when viewing it in the CLASS folder view of all the code in the class, I show a syntax error that isn't really. So ignore that one.

Beginner Joined: 18 Aug 2010 Posts: 13

Perfect.

Sorcerer Joined: 13 Jan 2006 Posts: 715

If you have any more problems, just let me know.