Browse: NNScript :: ScriptServ

NNScript — File Browser

NNScriptv3.21 / NNScriptv3.21 / themes / echelon / echelon.mrc
echelon.mrc — 5.57 KB — Download this file
alias -l ech.form return $+(14Ç15[11,$1,15]14´15)
alias echelon.whois {
  var %r = $rand(1,4),%r2 = $rand(1,4)
  %:echo $+($str(ÿ,21),14- Ä15-,$str(Ä,%r),00Ä15Ä¿)
  %:echo 14ÖÄÄÄ-15Ä0Ä14Â15[11/whois1515]14ÄÄÄ15ÄÄ14Ä $+ $str(Ä,%r) $+ Ä15ÄÄ14ÄÄÙ
  %:echo $ech.form(nick) %::nick $+ $iif($q.net && %thm.auth,11 (15authed as $ifmatch $+ 11)15) $+ $iif(%::operline,11 (15IRC operator11)15) $+ 11,15 %::realname
  %:echo $ech.form(addy) $replace(%::address,@,11@15,.,11.15,~,11~15) $+ $iif($readini(script\txt\countries.ini,country,$gettok(%::address,-1,46)),11 $+ $chr(44) $+ 15 $ifmatch)
  if (%thm.ownip) { %:echo $ech.form(real) $replace($gettok($ifmatch,1,32),@,11@15,.,11.15,~,11~15) $+ 11,15 $replace($gettok($ifmatch,2,32),.,11.15) }
  if (%::chan) { %:echo $ech.form(chan) $replace(%::chan,@#,11@15#,+#,11+15#,$chr(35),14#15) }
  if (%::wserver) { %:echo $ech.form(serv) $replace(%::wserver,.,11.15) $+ $iif(%::serverinfo,11 $+ $chr(44) $+ 15 $ifmatch) }
  if (%::away) { %:echo $ech.form(away) %::away }
  if (%::idletime) { %:echo $ech.form(idle) $duration(%::idletime) $+ 11,15 signed on $duration($calc($ctime - $ctime(%::signontime))) ago }
  %:echo 14ÓÄ15-14ÄÄÄÄÁ15[11end15]14Ä15ÄÄ00ÄÄ15Ä14Ä15Ä $+ $str(Ä,%r2) $+ 14Ä-ÿÄ¿
  %:echo $+($str(ÿ,17),14-ÿ-Ä15Ä-00Ä15Ä,$str(Ä,%r2),14Ù)
  unset %thm.auth %thm.ownip
}
alias echelon.whowas {
  var %r = $rand(1,4),%r2 = $rand(1,4)
  %:echo $str(ÿ,20) 14- Ä15- $+ $str(Ä,%r) $+ 00Ä15Ä¿
  %:echo 14ÖÄÄÄ-15Ä0Ä14Â15[11/whowas1515]14ÄÄÄ15ÄÄ14Ä $+ $str(Ä,%r) $+ Ä15ÄÄ14ÄÙ
  %:echo $ech.form(nick) %::nick $+ 11,15 %::realname
  %:echo $ech.form(addy) $replace(%::address,@,11@15,.,11.15,~,11~15) $+ $iif($readini(script\txt\countries.ini,country,$gettok(%::address,-1,46)),11 $+ $chr(44) $+ 15 $ifmatch)
  if (%::wserver) { %:echo $ech.form(serv) $replace(%::wserver,.,11.15) }
  if (%::serverinfo) { %:echo $ech.form(quit) $asctime($ctime(%::serverinfo),dddd $+ $chr(44) mmm dd yyyy $+ $chr(44) HH:nn:ss) }
  %:echo 14ÓÄ15-14ÄÄÄÄÁ15[11end15]14Ä15ÄÄ00ÄÄ15Ä14Ä15Ä $+ $str(Ä,%r2) $+ 14Ä-ÿÄ¿
  %:echo $str(ÿ,16) 14-ÿ-Ä15Ä-00Ä15Ä $+ $str(Ä,%r2) $+ 14Ù
}
alias echelon.welc {
  if ($1 == 1) {
    var %r = $rand(1,5)
    %:echo $+($str(ÿ,20),14- Ä15-,$str(Ä,%r),Ä00Ä15Ä¿)
    %:echo $+(14ÖÄÄ15ÄÄÄ14ÄÂ15[11welcome15]14ÄÄÄ15,$str(Ä,%r),Ä14Ä-ÄÄÄ) Ù
    %:echo $ech.form(welc) Welcome $2-
  }
  if ($1 == 2) {
    %:echo $ech.form(serv) $left($4,-1)
    %:echo $ech.form(vers) $7
  }
  if ($1 == 3) {
    var %r = $rand(1,5)
    %:echo $ech.form(crea) $5-
    %:echo $+(14ÓÄÄÄÄÄÄÁ15[11end15]14ÄÄ-ÄÄ15,$str(Ä,%r),0ÄÄ15Ä14ÄÄ¿)
    %:echo $+($str(ÿ,16),14- Ä15-,$str(Ä,%r),Ä00Ä15ÄÙ)
  }
}
alias echelon.topic {
  if ($1 == 1) {
    var %r = $rand(1,5)
    %:echo $+($str(ÿ,16),14- Ä15-,$str(Ä,%r),Ä00Ä15Ä¿)
    %:echo $+(14ÖÄÄ15ÄÄÄ14ÄÂ15[11topic15]14ÄÄ15,$str(Ä,%r),Ä14Ä-ÄÄ) Ù
    %:echo $ech.form(topc) $2-
  }
  if ($1 == 2) {
    var %r = $rand(1,5)
    %:echo $ech.form(user) $2
    %:echo $ech.form(time) $asctime($ctime($3-),dddd $+ $chr(44) mmm dd yyyy $+ $chr(44) HH:nn:ss)
    %:echo $+(14ÓÄÄÄÄÄÄÁ15[11end15]14ÄÄ-ÄÄ15,$str(Ä,%r),0ÄÄ15Ä14ÄÄ¿)
    %:echo $+($str(ÿ,16),14- Ä15-,$str(Ä,%r),Ä00Ä15ÄÙ)
  }
}
alias echelon.lusers {
  if ($1 == 1) {
    var %r = $rand(1,5)
    %:echo $+($str(ÿ,25),14- Ä15-,$str(Ä,%r),Ä00Ä15Ä¿)
    %:echo $+(14Ö15[11/lusers15]14Â15[11global info15]14Ä,$str(Ä,%r),Ä15ÄÄ-Ä14-ÄÙ)
    %:echo 14º15 $echelon.align(7,$calc($2 + $3)) 14³15 users total
    %:echo 14º15 $echelon.align(7,$2) 14³15 visible ( $+ $+($int($calc($2 / ($2 + $3) * 100)),%) $+ )
    %:echo 14º15 $echelon.align(7,$3) 14³15 invisible ( $+ $+($int($calc($3 / ($2 + $3) * 100)),%) $+ )
    %:echo 14º15 $echelon.align(7,$4) 14³15 servers
    %:echo 14º15 $echelon.align(7,$int($calc(($2 + $3) / $4))) 14³15 average users per server
    %:echo 14ÇÄÄ15ÄÄÄ0Ä15ÄÄ14ÄÅ15[11local info15]14ÄÄÄ-15ÄÄÄ14ÄÄ -
  }
  if ($1 == 2) { %:echo 14º15 $echelon.align(7,$2) 14³15 operators online }
  if ($1 == 3) { %:echo 14º15 $echelon.align(7,$2) 14³15 unknown connections }
  if ($1 == 4) { %:echo 14º15 $echelon.align(7,$2) 14³15 channels formed }
  if ($1 == 5) {
    var %r = $rand(1,5)
    %:echo 14º15 $echelon.align(7,$3) 14³15 users total
    %:echo 14º15 $echelon.align(7,$6) 14³15 servers
    %:echo $+(14ÓÄ15ÄÄÄ14ÄÄ-ÄÄÁ15[11end15]14ÄÄ15ÄÄ00Ä15ÄÄÄ-14,$str(Ä,%r),15ÄÄ14Ä¿)
    %:echo $+($str(ÿ,21),14- Ä15-,$str(Ä,%r),Ä00Ä15ÄÙ)
  }
}
alias -l echelon.align { return $+($str( ,$calc($1 - $len($2-))),$2-) }
alias echelon.eval {
  var %a = $str( ,$calc(15 - $len($2)))
  if (%::chan) { %:echo 14ù11í14ù11 $+($1,14,$echelon.brack($3) 11,%a,$2,14) $iif($4-,$4-,$address) %:comments }
  else { %:echo 14ù11í14ù11 $+($1,14,(query) 11,%a,$2,14) $iif($3-,$3-,$address) %:comments }
}
alias echelon.txtal {
  if ($strip($2)) { var %m = $right($2,1) }
  else { var %m =   }
  var %a = $str( ,$calc(15 - $len($3)))
  if ($1 == -t) { %:echo $+(11,%m,14/15,$3,%a,14>) $4- }
  else { %:echo $+(11,%m,14!15,$3,%a)  $4- }
}
alias -l echelon.brack { if ($1) return ( $+ $1- $+ 14) }
alias echelon { me is using [echelon] MTS theme by greeny. }
alias nn.tsd { return $+(11,$1-,15) }
alias nn.tgt { return $+(11,$1-,15) }
alias nn.tgtd { return $+(15[11,$1-,15]14:15) }
alias nn.linesep { return 15þ14ÄÄÄ-15Ä0Ä14ÄÄÄÄÄ15ÄÄ14ÄÄÄ15ÄÄ14ÄÄÄÄÄÄÄÄ15-Ä0Ä15ÄÄ14Ä Ä }