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
}
 

Commenting Options