Alias cc1 return $+($chr(3),01,$1-)
Alias cc2 return $+($chr(3),02,$1-)
Alias lg return $+($cc1($chr(40)),$cc2($1 $+ $chr(153)),$cc1($chr(41)))
On $*:TEXT:/^[!.@]ford/Si:#: {
  sockopen FML. rscript.org 80
  set %fml.temp $iif($mid($1,1,1) == $chr(64),msg #,.notice $nick)
}
On *:SOCKOPEN:FML.: {
  sockwrite -n $sockname GET /lookup.php?type=fml HTTP/1.1
  sockwrite -n $sockname Host: rscript.org
  sockwrite -n $sockname $crlf
}
On *:SOCKREAD:FML.: {
  if ($sockerr) { halt }
  Else {
    var %fml
    sockread %fml
    if (Text:* iswm %fml) {
      tokenize 32 %fml
      set %fml.text $cc2($2-)
      %fml.temp $lg(Random FML) %fml.text
      unset %fml.*
      sockclose FML.
    }
  }
}