Scrolling Rainbow Nicklist

By Teh Maestro on Mar 18, 2007

To use: Paste in a fresh remote and type /rainnick to initiate. Type /rainoff to stop it.

What it does: This script makes the names in the nicklist become rainbow colored and will scroll through each color in sequence. Obviously, the scrolling won't occur in a channel with a multiple of 7 users on it, and the more people on the channel, the slower the scrolling effect. I find it looks best on a channel with only 6 people.

Update: Added an option in the channel window to turn it on if it's off and off if it's on and modified the ending code.

alias rainnick {
  set %RainbowChan #
  set %RainbowColors 4,7,8,9,11,12,6
  set %RainbowColorVar 1
  set %RainbowNickVar 1
  set %RainStatus Off
  timerRainNick -m 0 10 RainNickGo
}

alias -l RainNickGo {
  :RainStart
  if (%RainbowColorVar > 7) {
    set %RainbowColorVar 1
    goto RainStart
    halt
  }
  elseif (%RainbowNickVar > $nick(%RainbowChan,0)) {
    set %RainbowNickVar 1
    goto RainStart
    halt
  }
  var %RainbowColor = $gettok(%RainbowColors,%RainbowColorVar,44)
  cline %RainbowColor %RainbowChan $nick(%RainbowChan,%RainbowNickVar)
  inc %RainbowNickVar
  inc %RainbowColorVar
}

alias rainoff {
  timerRainNick off
  unset %RainbowChan
  unset %RainbowColors
  unset %RainbowColorVar
  unset %RainbowNickVar
  set %RainStatus On
  var %i 0
  while %i < $line(#,0,1) {
    inc %i
    cline -r # %i
  }
}

menu channel {
  -
  Rainbow Nicklist %RainStatus:{
    if (%RainStatus == Off) {
      rainoff
    }
    else {
      rainnick
    }
  }
  -
}

Comments

Sign in to comment.
erry   -  Sep 26, 2007

its kinda fun lol

 Respond  
no_body21   -  Mar 18, 2007

ok good job

 Respond  
Teh Maestro   -  Mar 18, 2007

To add to that post, keep in mind that I had to use a sequence of colors in a certain order, so I couldn\'t just use $rand for the numbers needed.

 Respond  
Teh Maestro   -  Mar 18, 2007

Yeah, I know that most of the coding could be done simpler, but it still works just as well.

 Respond  
no_body21   -  Mar 18, 2007

no offense but have seen a code like this before only it\'s simplier

;;;;;;;;;;;
menu channel {

Fairy Lights On/Off:fairy

}
alias -l fairy {
if !$timer(fairy) {
.timerfairy -m 0 10 cline $ $+ rand(0,15) # $ $+ rand(1,$line(#,0,1))
set %leo $color(listbox)
color listbox 1
}
else {
.timerfairy off
color listbox %leo
unset %leo
var %i 0
while %i < $line(#,0,1) {
inc %i
cline -r # %i
}
}
}
;;;;;;;;;;;
trying to find who made this but i can find him/her

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.