1. on *:text:!fml:#:{
  2.   set %sock.chan $chan
  3.   sockClose fml
  4.   sockOpen fml www.rscript.org 80
  5.   msg %sock.chan Categorie: %sock.fml.cate - Agree:3 %sock.fml.agree - Deserved:4 %sock.fml.deserved | msg %sock.chan %sock.fml.text
  6.  
  7.  
  8. }
  9. on *:SockOpen:fml: {
  10.   sockwrite -nt fml GET /lookup.php?type=fml HTTP/1.0
  11.   sockwrite -nt fml Host: www.rscript.com
  12.   sockwrite -nt fml $crlf
  13. }
  14. on *:SockRead:fml: {
  15.   var %read
  16.   sockRead %read
  17.   if (*Cate:* iswm %read) { set %sock.fml.cate $remove(%read,Cate:) }
  18.   if (*Text:* iswm %read) { set %sock.fml.text $remove(%read,Text:) }
  19.   if (*Agree:* iswm %read) { set %sock.fml.agree $remove(%read,Agree:) }
  20.   if (*Deserved:* iswm %read) { set %sock.fml.deserved $remove(%read,Deserved:)  }
  21. }
  22.  
  23.