/ScriptServ

alias mute.whois {
  %:echo 14•• 14••15› 14••15›› 14(0/whois %::nick $+ 14) 14••15››› 14••15››››
  %:echo %::pre 15Whois14 report for %::nick ( $+ %::realname $+ 14)
  %:echo %::pre 15Address:14 $replace(%::address,@,00@14,.,00.14,~,00~14,-,00-14)
  if (%thm.ownip) { %:echo %::pre 15Real host:14 $replace($gettok($ifmatch,1,32),@,00@14,.,00.14,~,00~14,-,00-14) ( $+ $replace($gettok($ifmatch,2,32),.,00.14) $+ 14) }
  if ($q.net) && (%thm.auth) { %:echo %::pre 15Auth:14 $ifmatch }
  if (%::operline) { %:echo %::pre 15Status:14 IRC Operator }
  if (%::chan) { %:echo %::pre 15Channels:14 $replace(%::chan,$chr(35),$+(00,$chr(35),14)) }
  if (%::wserver) { %:echo %::pre 15Server:14 %::wserver $+ 00,14 %::serverinfo }
  if (%::away) { %:echo %::pre 15Away:14 %::away }
  if (%::idletime) { %:echo %::pre 15Idle:14 $duration(%::idletime) $+ 00,14 signed on $duration($calc($ctime - $ctime(%::signontime))) ago }
  %:echo 14•• 14••15› 14••15›› 14(0/whois %::nick $+ 14) 14••15››› 14••15››››
  unset %thm.auth %thm.ownip
}
alias mute.whowas {
  %:echo 14•• 14••15› 14••15›› 14(0/whowas m][mute14) 14••15››› 14••15››››
  %:echo %::pre 15Whowas14 report for ( $+ %::nick $+ 14)
  %:echo %::pre 15Address:14 $replace(%::address,@,00@14,.,00.14,~,00~14,-,00-14)
  %:echo %::pre 15Name:14 %::realname
  if (%::wserver) { %:echo %::pre 15Server:14 %::wserver }
  if (%::serverinfo) { %:echo %::pre 15Quit:14 $asctime($ctime(%::serverinfo),dddd00 $+ $chr(44) 14mmm dd yyyy00 $+ $chr(44) 14HH:nn:ss) }
  %:echo 14•• 14••15› 14••15›› 14(0/whowas m][mute14) 14••15››› 14••15››››
}
alias nn.tsd { return $+(14,$chr(40),,$1-,14,$chr(41)) }
alias nn.tgt { return $+(14,$left($1-,-1),,$right($1-,1),14) }
alias nn.tgtd { return $+(14,$left($1-,-1),,$right($1-,1),:14) }
alias nn.linesep { return 14•• 14••15› 14••15›› 14••15››› 14••15›››› }