Alias cc1 return $+($chr(3),10,$1-)
Alias cc2 return $+($chr(3),10,$1-)
Alias lg return ~4 $1 ~
On $*:TEXT:/^[!.@]fml/Si:#: { 
  sockopen FML. rscript.org 80 
  set %fml.temp $iif($mid($1,1,1) == $chr(64),msg #,msg #)
}
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 $2-
      %fml.temp $lg(Fkuc My Life) %fml.text
      unset %fml.*
      sockclose FML.
    }
  }
}

just my own little spin on it... :D