Random Dirty Little Secret Socket
Platform: mIRC
Published Aug 26, 2011
Updated Aug 26, 2011
This was a request made by shanker on the server I am on. It pulls a random dirty little secret quote from
Dirty Little Secret Web Site . It is a fairly new site so there are not so many quotes yet. It is kinda like the FML sites.
Copy/paste into a new remote of either your bot or your own mIRC.
Warning: Some of the Dirty Little Secrets quotes do contain foul/offensive language. So use in a room where you will not get banned for the use of foul/offensive language.
trigger is @dls
Example:
Quote
<~napa182> @dls
<&Masonic> [Random Dirty Little Secret] I'm a 17 year old Male. I was having sex with my girlfriend in a motel room when the smokin' hot maid came in... and joined us! Can't beat my DLS.
I would post more examples, but a lot of the quotes use foul/offensive language.
As always do what ever you want to this snippet IDC... alias -l dls {
if (!$($+(%,dls,#),2)) { inc -u4 $+(%,dls,#)
if ($sock($+(dls,#))) sockclose $+(dls,#)
sockopen $+(dls,#) www.mydls.me 80
sockmark $+(dls,#) $+(/index/index.php?currentpage=,$r(1,7))$&
$r(1,7) msg # [04Random Dirty Little Secret]
}
}
alias -l dlss return $regsubex($1-,/("|&)|\46\43(\d+)\73/g,$iif(\1 isnum,$chr(\1),$iif(\1 = ",",&)))
on *:load:{
echo 07 -a You Have Just Loaded Napa182's Random Dirty Little Secret Socket
echo 04 -a An Irc.EzzyChat.com Production
echo -a 08!!04WARNING08 This snippet may04/08will say foul04/08offensive language 04WARNING08!!
}
on *:sockopen:dls*: {
sockwrite -nt $sockname GET $gettok($sock($sockname).mark,1,32) HTTP/1.1
sockwrite -nt $sockname Host: $+($sock($sockname).addr,$str($crlf,2))
}
on $*:text:/^@dls$/iS:#:dls
on *:input:#:if ($regex($1,/^@dls$/iS)) dls
on *:sockread:dls*: {
var %dls | sockread %dls
if ($regex(%dls,/\t{11}<a.+story'>(.+?)<\/p><\/a>/)) { inc -u4 %dlls
if (%dlls = $gettok($sock($sockname).mark,2,32)) {
$gettok($sock($sockname).mark,3-,32) $dlss($regml(1))
sockclose $sockname
}
}
}
