/ScriptServ

[script]
n0=############################################
n1=# 1/4/2012                                 #
n2=# Version 1.0                              #
n3=#------------------------------------------#
n4=# I would like to Thank Foghat for helping #
n5=# me with the color and the Idle time.     #
n6=# To Load Type /load -rs whois-colors.mrc  #
n7=############################################
n8=on *:load:{
n9=  echo 4 -a * $wi $+ 9,1 Whois. Enjoy...  $+ $wi
n10=}
n11=on 1:join:#channel: {
n12=  if ($nick == $me) { return }
n13=  whois $nick $nick
n14=}
n15=on *:unload: { unset -s %namec | unset -s %infoc } 
n16=raw 311:*: {
n17=  if $window(@Whois) {
n18=    goto end
n19=  }
n20=  window -k(0)zn(0) @Whois
n21=  :end
n22=  echo @whois - | echo @whois  $+ %namec $2 is $+ %infoc ( $+ $3 $+ @ $+ $4 $+ )  | echo @whois  $+ %namec Real Name $+ %infoc $6-  | halt
n23=}
n24=raw 310:*:echo @whois  $+ %namec $2 $+  $+ %infoc Is a HelpOp  | halt
n25=raw 312:*:echo @whois  $+ %namec Server $+ %infoc $3  | halt
n26=raw 313:*:echo @whois  $+ %namec $2 $+  $+ %infoc Is a Network Administrator  | halt
n27=raw 318:*:echo @whois 4 End Of Whois  | echo @whois - | halt
n28=raw 319:*:echo @whois  $+ %namec Channels $+ %infoc $3-  | halt
n29=raw 307:*:echo @whois  $+ %namec $2 $+  $+ %infoc Has Identified for this nick  | halt
n30=raw 301:*:echo @whois  $+ %namec $2 is away  $+ %infoc $3-  | halt
n31=raw 379:*:echo @whois  $+ %namec Modes $+ %infoc $6-  | halt
n32=raw 317:*:echo @whois  $+ %namec Idle time $+ %infoc $duration($3) | if ( $4 isnum ) echo @whois  $+ %namec Signon time $+ %infoc $asctime($4) | halt
n33=raw 378:*:echo @whois  $+ %namec Real Address:  $+ %infoc $+ $6- | halt
n34=menu channel {
n35=  @Whois Colors {
n36=    set %namec $$?"Enter Name Color Here"
n37=    set %infoc $$?"Enter Info Color Here"
n38=  }
n39=}
n40=raw 318:*: {
n41=  haltdef
n42=  var %whois.Clones $ial($address($2,2),0)
n43=  if (%whois.Clones > 1) {
n44=    echo -a 12--->1Clones12:14 $2 has $calc($ial($address($2,2),0) - 1) clones on $network
n45=    var %iee $ial($address($2,2),0)
n46=    while %iee {
n47=      if ($gettok($ial($address($2,2),%iee),1,33) != $2) {
n48=        echo -a 12--->1Clones12:14 $addtok($replace($ial($v1),!,$chr(40)),$chr(32),41)
n49=      }
n50=      dec %iee
n51=    }
n52=  }
n53=  echo -a 12--->14|1End Of Whois14|
n54=  }	
n55=  alias wi return 14,5«15,4¤14,5»