Post reply

Warning: this topic has not been posted in for at least 120 days.
Unless you're sure you want to reply, please consider starting a new topic.
Name:
Email:
Subject:
Message icon:
Verification:

shortcuts: hit alt+s to submit/post or alt+p to preview


Topic Summary

Posted by: King_Hual
« on: February 11, 2011, 06:55:32 pm »

Quote from: Jane on February 11, 2011, 06:21:35 pm
Nice Script, did you script it urself ?

Yup, and it's so long because of the colors.
Posted by: Jane
« on: February 11, 2011, 06:21:35 pm »

Nice Script, did you script it urself ?
Posted by: King_Hual
« on: February 11, 2011, 03:14:48 pm »

Code: [Select]
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
    }
  }
}