By napa182 on Jan 18, 2010Ok had to update cuz of other bullshit
copy/paste into ur bot's remotes
trigger is @slo
ex:
<&napa182> @slo napa182
<&Sick0> :[Random Slogan]: napa182 - You see this name, you think dirty.
<&napa182> @slo Typo
<&Sick0> :[Random Slogan]: Typo is rolling, the others are stoned.
<&napa182> @slo shanker is a nut
<&Sick0> :[Random Slogan]: shanker is a nut is inspiration.
eh good for a few laughs
Like always rip rape strip this script how ever you want i dont care
on $*:text:/^@slo\s(.+)/Si:#:{
if (!$($+(%,f,#),2)) { inc -u5 $+(%,f,#)
if ($sock($+(slo,#))) sockclose $+(slo,#)
sockopen $+(slo,#) www.sloganizer.net 80
sockmark $+(slo,#) msg # 09:[04Random Slogan09]: $regml(1)
}
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Random Slogan
echo 12 -a An irc.EzzyChat.com Production
}
on *:sockopen:slo*:{
var %slo $+(fslogan=,$gettok($sock($sockname).mark,5-,32),&submit=Sloganize!),$&
%slo2 = sockwrite -n $sockname
%slo2 POST /en/ HTTP/1.1
%slo2 Host: $sock($sockname).addr
%slo2 Content-Type: application/x-www-form-urlencoded
%slo2 Content-Length: $len(%slo)
%slo2 $+($crlf,%slo)
}
on *:sockread:slo*: {
var %slo | sockread %slo
if ($regex(%slo,/<div class=.+<b>(.+?)<\/b>/)) {
$gettok($sock($sockname).mark,1-4,32) $regml(1)
sockclose $sockname
}
}
Well, I'm not sure about that. I just go with what I find...lol By chance if either site of our choice goes down for some reason, I'm sure mine can be served as a backup. Of course, if they all suffer the downtime, people just have to wait or salvage for another website that has a guarantee of 24/7 365 days up-time...lol
Here is mine based upon Napa's original with a different site that supports both GET and POST:
on $*:text:/^@slogan\s(.+)/iS:#:{
if !%f { inc -u5 %f | if $sock(slogan) { sockclose slogan }
sockopen slogan thesurrealist.co.uk 80
sockmark slogan $replace($regml(1),$chr(32),+) msg # [04Random Slogan]
}
}
on *:sockopen:slogan:{
var %sloggen $+(?word=,$token($sock(slogan).mark,1,32))
sockwrite -nt slogan POST /slogan.cgi HTTP/1.1
sockwrite -nt slogan Host: $sock(slogan).addr $+ $str($crlf,2)
sockwrite -nt slogan Content-Type: application/x-www-form-urlencoded
sockwrite -nt slogan Content-Length: $len(%sloggen)
}
on *:sockread:slogan:{
var %slogan | sockread %slogan
if ($regex(%slogan,/<a href="\/slogan.cgi\?word\="\sclass\="h1a">(.+)</a>/)) {
$token($sock(slogan).mark,2-,32) $regsubex($regml(1),/(<b>.+<\/b>)/,$&
$replace($token($sock(slogan).mark,1,32),+,$chr(32))) | sockclose slogan
}
}
ok updated so remove the old one and copy/paste the new uptop or the one on this post
ended up going with http://www.sloganizer.net/en/
<&napa182> @slo napa182
<&Sick0> :[Random Slogan]: napa182 - You see this name, you think dirty.
<&napa182> @slo Typo
<&Sick0> :[Random Slogan]: Typo is rolling, the others are stoned.
<&napa182> @slo shanker is a nut
<&Sick0> :[Random Slogan]: shanker is a nut is inspiration.
on $*:text:/^@slo\s(.+)/Si:#:{
if (!$($+(%,f,#),2)) { inc -u5 $+(%,f,#)
if ($sock($+(slo,#))) sockclose $+(slo,#)
sockopen $+(slo,#) www.sloganizer.net 80
sockmark $+(slo,#) msg # 09:[04Random Slogan09]: $regml(1)
}
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Random Slogan
echo 12 -a An irc.EzzyChat.com Production
}
on *:sockopen:slo*:{
var %slo $+(fslogan=,$gettok($sock($sockname).mark,5-,32),&submit=Sloganize!),$&
%slo2 = sockwrite -n $sockname
%slo2 POST /en/ HTTP/1.1
%slo2 Host: $sock($sockname).addr
%slo2 Content-Type: application/x-www-form-urlencoded
%slo2 Content-Length: $len(%slo)
%slo2 $+($crlf,%slo)
}
on *:sockread:slo*: {
var %slo | sockread %slo
if ($regex(%slo,/<div class=.+<b>(.+?)<\/b>/)) {
$gettok($sock($sockname).mark,1-4,32) $regml(1)
sockclose $sockname
}
}
Napa182, another great socket searcher
Ive got recently obbseses with these, my self and other chan users thought of some other suddgestions for a socket searcher, ebay.com, discogs.com, amazon.com.
In addition, and looking at your codes for socket scripts, would it be simple enough to edit one and change the www address. and tigger? or is there more i would need to do.
regards
pan
''Dan where the hell have you been??''- Haha, well it's a long story man, I'll drop by sometime soon, i lurk here a bit, mIRC is a difficult habit to break, even if i haven't touched any codes in so long. still so many fond memories of time well spend.
EDIT: ''Awww, how nostalgic. '' - init though?, Heh i remember you Snooop, mite remember my other name, EL.
