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:/^[!.@]fml/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.
    }
  }
}
 

Commenting Options