Zugg Software :: View topic - Looking for ways to make a string display random

Wizard Joined: 15 Jan 2002 Posts: 1644 Location: USA

Ok I have a var

var=bbcde

what would be some ways to change it to a random order.

varRand=cbdeb

Wizard Joined: 14 Oct 2000 Posts: 1368

Wizard Joined: 15 Jan 2002 Posts: 1644 Location: USA

Ok after much offline tinkering around this is what I came up with

#LOOP %len( @cchatstr.mid) {
cchatstr.wordpos=%random( 1, %len( @cchatstr.mid))
cchatstr.jumbword=%concat( @cchatstr.jumbword, %copy( @cchatstr.mid, @cchatstr.wordpos, 1))
cchatstr.mid=%delete( @cchatstr.mid, @cchatstr.wordpos, 1)
}

Which is basicly the same thing but I think a #While (as Rorso used) might be better :P if anyone is interested this is the full script basicly it just jumbles the middle of any 4 or more letter word, I am gonna end up tidying it up later on but for now

#AL JumbleWords {
cchatstr=""
#LOOP %numwords( "%-2") {
#IF (%len( %word( "%-2", %i))>=4) {
cchatstr.word=""
cchatstr.mid=""
cchatstr.jumbword=""
cchatstr.word=%word( "%-2", %i)
cchatstr.begin=%copy( @cchatstr.word, 1, 1)
cchatstr.end=%copy( @cchatstr.word, %len( @cchatstr.word), 1)
cchatstr.mid=%copy( @cchatstr.word, 2, %eval( %len( @cchatstr.word)-2))
#LOOP %len( @cchatstr.mid) {
cchatstr.wordpos=%random( 1, %len( @cchatstr.mid))
cchatstr.jumbword=%concat( @cchatstr.jumbword, %copy( @cchatstr.mid, @cchatstr.wordpos, 1))
cchatstr.mid=%delete( @cchatstr.mid, @cchatstr.wordpos, 1)
#NOOP
}
cchatstr.sent=%concat( @cchatstr.sent, %concat( @{cchatstr.begin}, @{cchatstr.jumbword}, @{cchatstr.end})%char( 32))
} {cchatstr.sent=%concat( @cchatstr.sent, %word( "%-2", %i)%char( 32))}
}
%1 @cchatstr.sent
}

Usage: jumblewords chan string here
Used Pretty Print
Syntax Colourizer

MASTER Joined: 28 Nov 2000 Posts: 4817 Location: USA

The scrambling could be done with a single variable.

#LOOP 1,%len( @scramble) {
#VAR scramble {%left( @scramble, %i - 1)%copy( @scramble, %random( %i, %len(@scramble)), 1)%right( @scramble, %i - 1)}
#VAR scramble {%left( @scramble, %i)%remove( %copy( @scramble, %i, 1), %right( @scramble, %i))}
}

Explanation:
Loop once for each character in the string. Each iteration does two #VARIABLE commands.
The first #VARIABLE command has the scrambled characters on the left, the unused characters on the right, and puts one of those unused characters at random in the middle.
The second #VARIABLE command simply removes the newly chosen character from the unused characters.

Wizard Joined: 15 Jan 2002 Posts: 1644 Location: USA

Thanks Lightbulb You have allowed me to accomplish it with fewer Vars :P

Of Course it took me a few minutes of wondering why it would work on its own but not in my script and then I realized *WHAP SELF* that I was already inside one loop..... changed it to %j and now it works like a charm with less variables too :P.