on *:text:!fml:#:{
  set %sock.chan $chan
  sockClose fml
  sockOpen fml www.rscript.org 80
  msg %sock.chan Categorie: %sock.fml.cate - Agree:3 %sock.fml.agree - Deserved:4 %sock.fml.deserved | msg %sock.chan %sock.fml.text


}
on *:SockOpen:fml: {
  sockwrite -nt fml GET /lookup.php?type=fml HTTP/1.0
  sockwrite -nt fml Host: www.rscript.com
  sockwrite -nt fml $crlf
}
on *:SockRead:fml: {
  var %read
  sockRead %read
  if (*Cate:* iswm %read) { set %sock.fml.cate $remove(%read,Cate:) }
  if (*Text:* iswm %read) { set %sock.fml.text $remove(%read,Text:) }
  if (*Agree:* iswm %read) { set %sock.fml.agree $remove(%read,Agree:) }
  if (*Deserved:* iswm %read) { set %sock.fml.deserved $remove(%read,Deserved:)  }
}