alias coolblue.whois { %:echo 11×-----------------10-------------11--------10---11-- -10---11- --10- -- -11- -10- 11- 10 - %:echo %::pre 9/11whois report for %::nick 11(09 $+ %::realname $+ 11) %:echo %::pre 9A11ddress0:09 $replace(%::address,~,11~09,@,11@09,.,11.09,-,11-09) if (%thm.ownip) { %:echo %::pre 9A11ctual Host0:09 $replace($gettok($ifmatch,1,32),~,11~09,@,11@09,.,11.09,-,11-09) 11(09 $+ $replace($gettok($ifmatch,2,32),.,11.09) $+ 11) } if ($q.net) && (%thm.auth) { %:echo %::pre 9A11uth0:09 $ifmatch } if (%::operline) { %:echo %::pre 9S11tatus0:09 IRC Operator } if (%::chan) { %:echo %::pre 9C11hannels0:09 $replace(%::chan,.,11.09,@,11@09,%,11%09,+,11+09,$chr(35),10#09) } if (%::wserver) { %:echo %::pre 9S11erver0:09 $replace(%::wserver,.,11.09,-,11-09) $+ 11,09 %::serverinfo } if (%::away) { %:echo %::pre 9A11way0:09 %::away } if (%::idletime) { %:echo %::pre 9I11dle0:09 $duration(%::idletime) %:echo %::pre 9S11ignOn0:09 $duration($calc($ctime - $ctime(%::signontime))) ago } %:echo 11×-----------------10-------------11--------10---11-- -10---11- --10- -- -11- -10- 11- 10 - unset %thm.auth %thm.ownip } alias coolblue.whowas { %:echo 11×-----------------10-------------11--------10---11-- -10---11- --10- -- -11- -10- 11- 10 - %:echo %::pre 9/11whowas report for %::nick 11(09 $+ %::realname $+ 11) %:echo %::pre 9A11ddress0:09 $replace(%::address,~,11~09,@,11@09,.,11.09,-,11-09) if (%::wserver) { %:echo %::pre 9S11erver0:09 $replace(%::wserver,.,11.09,-,11-09) } if (%::serverinfo) { %:echo %::pre 9Q11uit0:09 $asctime($ctime(%::serverinfo),dddd $+ $chr(44) mmm dd yyyy $+ $chr(44) HH:nn:ss) } %:echo 11×-----------------10-------------11--------10---11-- -10---11- --10- -- -11- -10- 11- 10 - } alias nn.tsd { return 11(09 $+ $1- $+ 11) } alias nn.tgt { return $+(09,$left($1,1),11,$right($1-,-1),11) } alias nn.tgtd { return $+(09,$left($1,1),11,$right($1-,-1),0:11) } alias nn.linesep { return 11×-----------------10-------------11--------10---11-- -10---11- --10- -- -11- -10- 11- 10 - }