/ScriptServ

alias digital.pre { return $replace($+($rand(1,0),$rand(1,0),$rand(1,0),$rand(1,0)),1,¹,0,º) }
alias digital.whois {
  %:echo 10×-----------------11-------------10--------11---10-- -11---10- --11- -- -10- -11- 10- 11 -
  %:echo $digital.pre 00 $+ %::nick $+  15is "11 $+ %::realname $+ 15"
  %:echo $digital.pre 01 $+ %::nick $+  15is11 $replace(%::address,~,12~11,@,12@11,.,12.11,-,12-11)
  if (%thm.ownip) { %:echo $digital.pre 01 $+ %::nick $+  15real host is11 $replace($gettok($ifmatch,1,32),~,12~11,@,12@11,.,12.11,-,12-11) $+ ,11 $replace($gettok($ifmatch,2,32),.,12.11) }
  if ($q.net) && (%thm.auth) { %:echo $digital.pre 01 $+ %::nick $+  15is11 authed as 15" $+ $ifmatch $+ 15" }
  if (%::operline) { %:echo $digital.pre 01 $+ %::nick $+  15is11 an IRC Operator }
  if (%::chan) { %:echo $digital.pre 01 $+ %::nick $+  15on11 $replace(%::chan,.,12.11,@,12@11,%,12%11,+,12+11,$chr(35),14#11) }
  if (%::wserver) { %:echo $digital.pre 01 $+ %::nick $+  15using11 $replace(%::wserver,.,12.11,-,12-11) $+ 15, %::serverinfo }
  if (%::away) { %:echo $digital.pre 01 $+ %::nick $+  15is away15:11 %::away }
  if (%::idletime) { %:echo $digital.pre 01 $+ %::nick $+  15has been idle for11 $duration(%::idletime) $+ , 15signed on11 $duration($calc($ctime - $ctime(%::signontime))) ago }
  %:echo 10×-----------------11-------------10--------11---10-- -11---10- --11- -- -10- -11- 10- 11 -
  unset %thm.auth %thm.ownip
}
alias digital.whowas {
  %:echo 10×-----------------11-------------10--------11---10-- -11---10- --11- -- -10- -11- 10- 11 -
  %:echo $digital.pre 00 $+ %::nick $+  15was " $+ %::realname $+ 15"
  %:echo $digital.pre 01 $+ %::nick $+  15was $replace(%::address,@,12@,.,12.,-,12-)
  if (%::wserver) { %:echo $digital.pre 01 $+ %::nick $+  15using $replace(%::wserver,.,12.,-,12-) }
  if (%::serverinfo) { %:echo $digital.pre 01 $+ %::nick $+  15quit $asctime($ctime(%::serverinfo),dddd $+ $chr(44) mmm dd yyyy $+ $chr(44) HH:nn:ss) }
  %:echo 10×-----------------11-------------10--------11---10-- -11---10- --11- -- -10- -11- 10- 11 -
}
alias nn.tsd { return $+(11,$chr(40),00,$1-,11,$chr(41),15) }
alias nn.tgt { return $+(00,$left($1,1),11,$right($1-,-1),15) }
alias nn.tgtd { return $+(00,$left($1,1),11,$right($1-,-1),00»15) }
alias nn.linesep { return 10×-----------------11-------------10--------11---10-- -11---10- --11- -- -10- -11- 10- 11 - }