By _Dean_ on Sep 11, 2011• Copy and paste this script into a new remote page (alt+r)
in channel, type
!slogan "word"
example
<~Dean> !slogan hawkee
<&Botname> Look at hawkee to look your best.
this script was made by request in forum, requested by Mtn64
on $*:text:/^!slogan\s(.+)/iS:#:{
if (!%floods) {
$iif($sock(slogan), sockclose slogan)
sockopen slogan sloganmaker.com 80
sockmark slogan $replace($regml(1),$chr(32),+) msg $chan
inc -u3 %floods
}
else { .notice $nick You need to wait 3 seconds to trigger it again | return }
}
on *:sockopen:slogan:{
tokenize 32 $sock(slogan).mark
if ($sockerr) { $2-3 An error happenned with the server connection: $sock(slogan).wsmsg | sockclose slogan }
else {
var %x = sockwrite -nt $sockname, %slogan = $+(user=,$1,&send=Make+a+Slogan%21)
%x POST /sloganmaker.php HTTP/1.1
%x HOST: sloganmaker.com
%x Connection: close
%x Content-Type: application/x-www-form-urlencoded
%x Content-Length: $len(%slogan)
%x $crlf $+ %slogan
}
}
on *:sockread:slogan:{
tokenize 32 $sock(slogan).mark
if ($sockerr) { $2-3 An error happenned with the server connection: $sock(slogan).wsmsg | sockclose slogan }
else {
sockread %x
if $regex(%x,/<p>(.+)<\/p><\/div>/) {
$2-3 $regml(1)
}
}
}
alabama, you need to discontinue this meaningless attack that does nothing good but inflame this thread and make yourself look bad. It's time you come to a realization to get along with all the members at Hawkee. I'm saying this to you because I was there, doing that myself, not realizing what a conniving and despicable person I was looking back.
please test this version using vars
erase the one you have
on $*:text:/^!slogan\s(.+)/iS:#:{
if (!%floods) {
$iif($sock(slogan), sockclose slogan)
sockopen slogan sloganmaker.com 80
set -u5 %maker $replace($regml(1),$chr(32),+)
set -u5 %channel $chan
inc -u3 %floods
}
else { .notice $nick You need to wait 3 seconds to trigger it again | return }
}
on *:sockopen:slogan:{
if ($sockerr) { msg %channel An error happenned with the server connection: $sock(slogan).wsmsg | sockclose slogan }
else {
var %x = sockwrite -nt $sockname, %slogan = $+(user=,%maker,&send=Make+a+Slogan%21)
%x POST /sloganmaker.php HTTP/1.1
%x HOST: sloganmaker.com
%x Connection: close
%x Content-Type: application/x-www-form-urlencoded
%x Content-Length: $len(%slogan)
%x $crlf $+ %slogan
}
}
on *:sockread:slogan:{
if ($sockerr) { msg %channel An error happenned with the server connection: $sock(slogan).wsmsg | sockclose slogan }
else {
sockread %x
if $regex(%x,/<p>(.+)<\/p><\/div>/) {
msg %channel $regml(1)
}
}
}
i know there is some scripts like that, but i saw a lot of ppl posting scripts made by request in forum, so i decide to post it too...
Frenetic, its really strange
since its not returning any error, i need to test it in 7.17 versions to check it
but if i have to bet in something, it would be the tokenize the $sockmark