# Karll's RANDOM NICKNAME generating script

echo *** Loading Rnick Module ***

# Here are all valid nickname characters that nicknames can begin with:
@ FIRSTGUNK = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_^\\\{\}\[\]`|]

# Here are ALL valid nickname characters (FIRSTGUNK + other valid characters):
@ OTHERGUNK = FIRSTGUNK ## [0123456789-]

# This function returns a randomly generated nickname that is 9 chars long:
alias randnick {
        @ GUNKNICK = MID($RAND(61) 1 $FIRSTGUNK)
        @ NICKLEN = 1
        while (NICKLEN < 9) {
                @ GUNKNICK = GUNKNICK ## MID($RAND(72) 1 $OTHERGUNK)
                @ NICKLEN = NICKLEN + 1
        }
        @ FUNCTION_RETURN = GUNKNICK
}

@ NICKCOUNT = 0

# This alias randomly changes nicks X number of times then returns ya
# to your original nickname.  Example of use: /rnicks 12
alias rnicks {
        @ REPEAT = [$0]
        @ OLDNICK = N
        while (REPEAT) {
                /nick $randnick()
                @ REPEAT = REPEAT - 1
        }
        //NICK $OLDNICK
}