slap back

[Joatle]

Can someone make an slap back script that makes the bot slap people back when it get slaped?

Would also be nice if there was some random there..

like:

* nick slaps bot around a bit with a large trout
* Bot slaps Nick around..
* nick slaps bot around a bit with a large trout
* Bot slaps Nick right back..
* nick slaps bot around a bit with a large trout
* Bot slaps Nick over the head with an dead cat..

Something like that..

[Sir_Fz]

Code: Select all

set actReplies {
 "around..."
 "right back.."
 "over the head with an dead cat.."
}

bind ctcp - ACTION slap:back

proc slap:back {nick uhost hand chan kw arg} {
 global botnick actReplies
 if {![validchan $chan]} {return 0}
 if {[string match "slaps $botnick around a bit with a large trout" $arg]} {
  puthelp "privmsg $chan :\001ACTION slaps $nick [lindex $actReplies [rand [llength $actReplies]]]\001"
 }
}

[Joatle]

that was quic

Thanks

[romeo5k]

nice... i needed this too.. now i need the slap attack one.. http://forum.egghelp.org/viewtopic.php?t=13585

Thank you.

[Alchera]

That will get you no closer.

You will wait, you will be patient, you will make an attempt on your part instead of sitting back and doing nothing.

It would be a good idea (using the resources of these forums) to at least attempt writing your own script or modifying another.

[romeo5k]

alchera i did, and i got a result, but the result had a problem, and no one has responded yet in maybe 4 days or so. Thats why i'm giving up on it. Cause it seems i have a problem no one has ever heard of.

http://forum.egghelp.org/viewtopic.php?t=13593

[Alchera]

That is so simple to figure out and that is why no-one has responded as it is actually staring you right in the face; you actually have the script sending the text twice to the channel.

Remove either of these lines:

Code: Select all

putserv "PRIVMSG $chan :\001ACTION slaps $target around a bit with a larger trout\001"
puthelp "PRIVMSG $chan :\001ACTION slaps $target around a bit with the remains of a big Smelly Trout!\001"

[romeo5k]

http://forum.egghelp.org/viewtopic.php?t=13585

[mindcry]

proc act:reply {nick uhost hand chan arg} {
global botnick
regsub -all -nocase $botnick $arg $nick arg
putserv "PRIVMSG $chan :\001ACTION $arg\001"
}

its better idea to make another procedure to stops action floodings on channel.

[Alchera]

its better idea to make another procedure to stops action floodings on channel.

It's a better idea to enclose code within

Code: Select all

tags.

Please edit your post accordingly.

[mindcry]

Code: Select all

bind CTCP - ACTION act:reply

proc act:reply {nick uhost hand dest key arg} {
  global botnick
  if {[validchan $dest]} {
  set chan [string tolower $dest]
  if {![string match -nocase *$botnick* $arg] || ![onchan $nick $chan]} {return 0}
  regsub -all -nocase $botnick $arg $nick arg
  putserv "PRIVMSG $chan :\001ACTION $arg\001"
}

this code will do action reverse if someone slapping (or anything) to your bot. adding anti flood procedure will make this code better.

ty for your opinion alchera.
im newbie in here