By napa182 on Aug 02, 2010!Updated! with a diff site cuz the old one no longer works.
Well after a few people asked me for this snippet, I decided just to post it here so anyone can get it.
copy/paste this in a new remote.
to use right click a nick in the nicklist an click Rude Slap.
[size=16]Warning DO NOT use this in channels where they don't allow foul language, or you may be banned. 18+ channels would be the best bet to use it in.[/size]
that being said don't come crying to me if you get banned...
[size=18]As alway you may rip strip, and bust this snippet any way you see fit...[/size]
Ex:
- napa182 slaps SlickOne around abit with a stillborn troll!
napa182 slaps Death around abit with a chlamydia festering rump ranger!
napa182 slaps Bertrum around abit with a brain damaged twat!
Enjoy...
on $*:text:/^!slap\s(\S+)$/iS:#:if ($regml(1) ison #) rude_slap # $v1
alias -l rude_slap {
if (!$($+(%,f,$1),2)) { inc -u5 $+(%,f,$1)
if ($sock($+(ins,$1))) sockclose $+(ins,$1)
sockopen $+(ins,$1) insultgenerator.net 80
sockmark $+(ins,$1) describe $1 slaps $2 around abit with a
}
}
menu nicklist {
.Rude Slap $+([,$$1,]):rude_slap # $$1
}
on *:load:{
echo -a 08!!04WARNING08 You Have Just Loaded Napa182's Rude Slap Snippet 04WARNING08!!
echo -a 08!!04WARNING08 This snippet will say curse04/08foul words 04WARNING08!!
echo 12 -a An Irc.EzzyChat.Com Prodouction.
}
on *:sockopen:ins*: {
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: $+($sock($sockname).addr,$str($crlf,2))
}
on *:sockread:ins*: {
var %ins | sockread %ins
if ($regex(%ins,/you (.+?)<\/h1>/)) {
$sock($sockname).mark $regml(1)
sockclose $sockname
}
}
nopic01 it is something on ur side, cuz it is working just fine..
<~napa182> !slap Death
- &Sick0 slaps Death around abit with a throwback
<~napa182> !slap Death- &Sick0 slaps Death around abit with a pussy hole
<~napa182> !slap Death- &Sick0 slaps Death around abit with a fanny
<~napa182> !slap Death- &Sick0 slaps Death around abit with a putrid knicker-cheese
Yeah im not to clear either on "show an example of how to show the whole text" either.
Do you mean the whole text from the site? or....
I did make this snippet as a insult one that shows the whole line from the site. I think i posted as a comment on Insult Script (Random Insult Generator) by ES
the text comes out as
ex:
@insult Death <&Sick0> Take a bath Death, you anal invading retard!
redline187, I'm not clear on what you mean by showing the whole text. if you mean that you don't want to use the default slap message but have the script output the default message from the website, you need to modify this line:
sockmark ins describe # slaps $$1 around abit with a
To this:
sockmark ins describe # $$1 $+ ,
If you want it as a message instead of an action, use this one:
sockmark ins msg # $$1 $+ ,
Then change this bit in the sockread event:> if ($regex(%ins,/.+you(.+)<\/span>/)) {
$sock(ins).mark $regml(1)
sockclose ins
}To this:
if ($regex(%ins,/b">(.+)<\/span>/)) {
$sock(ins).mark $regsubex($replace($regml(1),$&
</span><br>,$+($chr(44),$chr(32))),/(.)/,$lower(\1))
sockclose ins
}
If you want both the menu and a trigger it would be better to replace
menu nicklist {
.Rude Slap $+([,$$1,]):{
if ($sock(ins)) sockclose ins
sockopen ins www.beleaguer.com 80
sockmark ins describe # slaps $$1 around abit with a
}
}
with
on $*:text:/^!slap\s(\S+)$/iS:#:if ($regml(1) ison #) rude_slap # $v1
alias -l rude_slap {
if (!%f) {
inc -u5 %f
if ($sock(ins)) sockclose ins
sockopen ins www.beleaguer.com 80
sockmark ins describe $1 slaps $2 around abit with a
}
}
menu nicklist {
.Rude Slap $+([,$$1,]):rude_slap # $$1
}
b0sse, if regex, for any reason, doesn't work for you. There is an easy fix:
Change these two lines of code:> if ($regex(%ins,/.+you(.+)<\/span>/)) {
$sock(ins).mark $regml(1) To these:
if ($remove($token(%ins,6,60),br>you)) {
$sock(ins).mark $ifmatch
You can use $v1 in place of the $ifmatch, but I figure you might be running an old version of mIRC, so I choose $ifmatch just in case.
If you use $gettok or $token along with the $v1, it actually shortens the script size further in about 4 to 7 bytes (though it's only a little) than using regex. :/
Anyway, this is a very entertaining, funny and useful snippet every one will have a laugh of. I rated an 8 along with my likes.