NNScript — File Browser

NNScriptv3.21 / NNScriptv3.21 / themes / dirt / dirt.mrc

dirt.mrc — 2.31 KB — Download this file

alias dirt.whois {
  %:echo 5•••••••••••••••••15••••••••••••5••••••15••••5•• •15•••5• ••15• •• •5• •15• 5• 15 •
  %:echo %::pre 0 $+ %::nick $+  15is "05 $+ %::realname $+ 15"
  %:echo •14•• %::nick 15is05 $replace(%::address,~,15~05,@,15@05,.,15.05,-,15-05)
  if (%thm.ownip) { %:echo •14•• %::nick 15real host is05 $replace($gettok($ifmatch,1,32),~,15~05,@,15@05,.,15.05,-,15-05) $+ 15,05 $replace($gettok($ifmatch,2,32),.,15.05) }
  if ($q.net) && (%thm.auth) { %:echo •14•• %::nick 15is05 authed as 15"05 $+ $ifmatch $+ 15" }
  if (%::operline) { %:echo •14•• %::nick 15is05 an IRC Operator }
  if (%::chan) { %:echo •14•• %::nick 15on05 $replace(%::chan,$chr(35),15#05) }
  if (%::wserver) { %:echo •14•• %::nick 15using05 $replace(%::wserver,.,05.05,-,05-05) $+ 15,05 %::serverinfo }
  if (%::away) { %:echo •14•• %::nick 15is away15:05 %::away }
  if (%::idletime) { %:echo •14•• %::nick 15has been05 idle for $duration(%::idletime) $+ 15, signed on05 $duration($calc($ctime - $ctime(%::signontime))) ago }
  %:echo 5•••••••••••••••••15••••••••••••5••••••15••••5•• •15•••5• ••15• •• •5• •15• 5• 15 •
  unset %thm.auth %thm.ownip
}
alias dirt.whowas {
  %:echo 5•••••••••••••••••15••••••••••••5••••••15••••5•• •15•••5• ••15• •• •5• •15• 5• 15 •
  %:echo %::pre 0 $+ %::nick 15was05 " $+ %::realname $+ 05"
  %:echo •14•• %::nick 15was05 $replace(%::address,~,15~05,@,15@05,.,15.05,-,15-05)
  if (%::wserver) { %:echo •14•• %::nick 15using05 $replace(%::wserver,.,05.05,-,05-05) }
  if (%::serverinfo) { %:echo •14•• %::nick 15quit05 $asctime($ctime(%::serverinfo),dddd $+ $chr(44) mmm dd yyyy $+ $chr(44) HH:nn:ss) }
  %:echo 5•••••••••••••••••15••••••••••••5••••••15••••5•• •15•••5• ••15• •• •5• •15• 5• 15 •
}
alias nn.tsd { return $+(15,$chr(40),,$1-,15,$chr(41),) }
alias nn.tgt { return $+(00,$lower($left($1,1)),,$upper($mid($1,2,1)),05,$lower($right($1-,-2))) }
alias nn.tgtd { return $+(00,$lower($left($1,1)),,$upper($mid($1,2,1)),05,$lower($right($1-,-2)),00:05) }
alias nn.linesep { return 5•••••••••••••••••15••••••••••••5••••••15••••5•• •15•••5• ••15• •• •5• •15• 5• 15 • }