Funny Usernick Facts Socket
Platform: mIRC
Published Jan 13, 2010
Updated Feb 21, 2011
This will say random funny facts of the nick you enter.
to use type @nfact <nick> m|f|o the m = male f = female and o = other
so ex: @nfact napa182 m
copy/paste into ur bots remotes and have fun.
rip or strip this script how ever you want i dont care
ex:
Quote
<napa182> @nfact GothGirl f
<Sick0> GothGirl doesn't shower, she only takes blood baths.
<napa182> @nfact Bertrum m
<Sick0> Bertrum is a vegetarian. Meaning, he does not eat animals until first he puts them into vegetative state with his fists.
<napa182> @nfact Security o
<Sick0> Most people know that Descarte said, "I think, therefore I am." What most people don't know is that that quote continues, "...afraid of Security."
<napa182> @nfact napa182 m
<Sick0> Q: How many napa182's does it take to change a light bulb? A: None, napa182 prefers to kill in the dark.
on $*:text:/^@nfact\s(\S+)\s([mfo])$/iS:#: {
if (!%f && $regml(1) ison #) { inc -u4 %f
if ($sock(nfact)) sockclose nfact
sockopen nfact blog.esaba.com 80
sockmark nfact $+(/projects/facts/index.php?n=,$regml(1),&g=,$replace($regml(2),m,male,f,female,o,other)) msg #
}
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Funny Nick Facts
echo 07 -a A irc.EzzyChat.com Production
}
on *:sockopen:nfact: {
sockwrite -nt nfact GET $gettok($sock(nfact).mark,1,32) HTTP/1.1
sockwrite -nt nfact Host: $+($sock(nfact).addr,$str($crlf,2))
}
on *:sockread:nfact: {
var %nfact | sockread %nfact
if ($regex(%nfact,/\t{7}\s(.+?)$/)) {
$gettok($sock(nfact).mark,2-,32) $regml(1)
sockclose nfact
}
}
