Author Topic: Displaying the users in a channel with information using random colors (Read 266 times)

King_Hual · « **on:** February 11, 2011, 03:14:48 pm »

on *:TEXT:!users*:#:{
  if ($2 == $null) {
    notice $nick 0,4Collecting info about $chan $+ 's users.
    set %users.temp $null
    var %i = 1
    while (%i <= $nick($chan,0)) {
      set %RandVar $r(0,12)
      if (%RandVar == 0) { set %users.temp %users.temp 1 $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 1) { set %users.temp %users.temp 2 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 2) { set %users.temp %users.temp 3 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 3) { set %users.temp %users.temp 0 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 4) { set %users.temp %users.temp 5 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 5) { set %users.temp %users.temp 6 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 6) { set %users.temp %users.temp 8 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 7) { set %users.temp %users.temp 9 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 8) { set %users.temp %users.temp 10 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 9) { set %users.temp %users.temp 11 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 10) { set %users.temp %users.temp 12 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 11) { set %users.temp %users.temp 13 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      else if (%RandVar == 12) { set %users.temp %users.temp 15 $+ $nick($chan,%i) ( $+ $address($nick($chan,%i),5) $+ ) }
      inc %i 
    }
    msg $nick 0,4The users in $chan ( $+ $nick($chan,0) total users) are: %users.temp
    unset %users.temp
  }
  else {
    if ($me ison $$2) {
      notice $nick 0,4Collecting info about $$2 $+ 's users.
      set %users.temp $null
      var %i = 1
      while (%i <= $nick($$2,0)) {
        set %RandVar $r(0,12)
        if (%RandVar == 0) { set %users.temp %users.temp 1 $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 1) { set %users.temp %users.temp 2 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 2) { set %users.temp %users.temp 3 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 3) { set %users.temp %users.temp 0 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 4) { set %users.temp %users.temp 5 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 5) { set %users.temp %users.temp 6 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 6) { set %users.temp %users.temp 15 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 7) { set %users.temp %users.temp 9 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 8) { set %users.temp %users.temp 10 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 9) { set %users.temp %users.temp 11 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 10) { set %users.temp %users.temp 12 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 11) { set %users.temp %users.temp 13 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        else if (%RandVar == 12) { set %users.temp %users.temp 8 $+ $nick($$2,%i) ( $+ $address($nick($$2,%i),5) $+ ) }
        inc %i 
      }
      msg $nick 0,4The users in $$2 ( $+ $nick($$2,0) total users) are: %users.temp
      unset %users.temp
    }
    else {
      notice $nick 0,4Error: I am not in channel $$2 
    }
  }
}