Just a whois I made for myself, to fit my web-developer desire. It's a bit big, I know.
raw 311:* {
echo -at $+(<script type=,$boldage(text/mirc),$chr(32),name=,$boldage($2),$chr(32),id=,$boldage($6),>)
echo -at $crlf
echo -at $comment(3,This is $2 $+ 's $+($boldage(Host),$chr(44)) $+($boldage(Ident),$chr(44)), and $boldage(Full Address).)
echo -at $+($faketab,<host>,,$boldage($4),</host>)
echo -at $+($faketab,<ident>,$boldage($3),</ident>)
echo -at $+($faketab,<address>,$boldage($+($2,!,$3,@,$4)),</address>)
halt
}
raw 313:* {
echo -at $crlf
echo -at $comment(3,Is $2 an IRCop?)
echo -at $+($faketab,<status>,$boldage($5-),</status>)
halt
}
raw 307:* {
echo -at $crlf
echo -at $comment(3,$2 $+ 's nickname is registered.)
echo -at $+($faketab,<LUID>,$boldage($3),</LUID>)
echo -at $+($faketab,<registered>,$boldage(Yes),</registered>)
halt
}
raw 319:* {
echo -at $crlf
echo -at $comment(3,What chans $2 is in:)
echo -at $+($faketab,<chans>,$comchans($2,$3-),</chans>)
halt
}
raw 312:* {
echo -at $crlf
echo -at $comment(3,What server $2 is on:)
echo -at $+($faketab,<server>,$boldage($3),</server>)
halt
}
raw 318:* {
echo -at $crlf
echo -at </script>
halt
}
raw 344:* {
echo -at $crlf
echo -at $comment(3,$2 might be hacked:)
echo -at $+($faketab,<secure>,$boldage($2 $+ 's Connection),</secure>)
halt
}
raw 309:* {
echo -at $crlf
echo -at $comment(3,$2 $+ 's Preferred Language:)
echo -at $+($faketab,<language>,$boldage($6),</language>)
halt
}
raw 301:* {
echo -at $crlf
echo -at $comment(3,$2 is away:)
echo -at $+($faketab,<away reason=,$boldage($4-),$chr(32),/>)
halt
}
raw 334:* {
echo -at $crlf
if ($3 = location) {
echo -at $comment(3,$2 $+ 's Location:)
echo -at $+($faketab,<location>,$boldage($4-),</location>)
}
if ($3 = occupation) {
echo -at $comment(3,$2 $+ 's Occupation:)
echo -at $+($faketab,<occupation>,$boldage($4-),</occupation>)
}
if ($3 = interests) {
echo -at $comment(3,$2 $+ 's Interests:)
echo -at $+($faketab,<interests>,$boldage($4-),</interests>)
}
halt
}
alias boldage {
return $+($chr(2),$1-,$chr(2))
}
alias comment {
return $+($faketab,$chr(3),$1,// , $2-)
}
alias faketab {
return $str($chr(160),5)
}
alias comchans {
var %x = $comchan($1,0)
var %y = $2-
%y = $replace(%y,@,$null)
while (%x > 0) {
%y = $replace(%y,$comchan($1,%x),$+(,$comchan($1,%x),))
dec %x
}
return %y
}