FML
Platform: mIRC
Published Oct 20, 2009
Updated Nov 27, 2011
FML alias. /FML to echo the results in the active window, /FML -s sends the TEXT info to current channel. the Link and the Information are still echo'd to active window to prevent spam.
;;; Aliases needed for colouring. Changing colour by changing "$Chr(3),12,$Chr(2)" to "Chr(3),<Colour>,$Chr(2)" $h is the main colour, $hh is the secondary colour.
alias -l h { return $+($chr(3),12,$chr(2),$chr(2),$1-,$chr(3),$chr(2),$chr(2)) }
alias -l hh { return $+($chr(3),14,$chr(2),$chr(2),$1-,$chr(3),$chr(2),$chr(2)) }
alias -l Tags { Return $+($hh([),$h($1-),$hh(]) $hh(—),$h(>),) }
;;;
alias FML {
if ($Sock(FML)) { SockClose FML }
Set %FMLOut $iif($1 = -s, Say, Echo -a)
Sockopen FML rscript.org 80
}
On *:SockOpen:FML: {
Sockwrite -nt FML GET /lookup.php?type=fml
SockWrite -nt FML Host: rscript.org
SockWrite -nt FML $crlf
}
on *:SockRead:FML: {
if ($SockErr) { SockClose FML | SockOpen FML rscript.org 80 }
Var %FML
SockRead %FML
if ($Regex(%FML,ID:)) { Set %FMLID $GetTok(%FML,2-,32) }
if ($Regex(%FML,Cate:)) { Set %FMLCate $GetTok(%FML,2-,32) }
if ($Regex(%FML,TEXT:)) { Set %FMLText $GetTok(%FML,2-,32) }
if ($Regex(%FML,Agree:)) { Set %FMLAggree $Bytes($GetTok(%FML,2-,32),bd) }
if ($Regex(%FML,Deserved:)) { Set %FMLDisaggree $Bytes($GetTok(%FML,2-,32),bd) }
if ($Regex(%FML,Comments:)) { Set %FMLComments $Bytes($GetTok(%FML,2-,32),bd) }
if ($Regex(%FML,END)) { SockClose FML }
if (!$Sock(FML)) {
%FMLOut $Tags(FML) $hh(FML:) $h(%FMLText)
Echo -a $Tags(FML) $hh(Information:) $hh(Agreed:) $h(%FMLAggree) $hh($(|)) $hh(Deserved:) $h(%FMLDisaggree) $hh($(|)) $hh(Comments:) $h(%FMLComments)
Echo -a $Tags(FML) $hh(Link:) $h($+( ,http://www.fmylife.com,/,%FMLCate,/,%FMLID,/, ))
Unset %FML*
}
}
