Slap Attacks

[romeo5k]

Here is the deal. I looked all over for this, and its yet to be found. I was gonna try to create it my self, but im still noobish, i can do lil basic things but not technical.
Well, for one, the way u tell the bot to slap someone, and it slaps that person, i like that. I dont know where they got the script from, or who made it, but i like it. Can someone make something like that please. Or if already made somewhere, can someone direct me there. I can add my own kick msgs.
Second, im yet to see this on an eggdrop and dont know if its possible, but i slapped this person, after that he slapped me back. Do we have a tcl for that?? Can it be created. I have the mrc the guy is using for himself, but i dont know how to convert mrc to tcl. The code below is the mrc that he is using I replaced his name with mine.... Is this all possible to make a tcl.?

Code: Select all

on *:action:*slaps*Romeo5k*:#: {
   describe $chan $read slap.txt | halt }
  }
}

[rosc2112]

Look in the archive, plenty of "action" scripts to use as examples.

[romeo5k]

ive looked everywhere, and ive tried everything, and out of the 16 items that came up in archieve none had what im looking for. They had somewhat something, but not quite. I tried editing ppls code to see if i can make it work , but no it doesnt.

http://forum.egghelp.org/viewtopic.php?p=73458#73458

i tried all i could and things wouldnt act right. Would someone, anyone be kind to write one for me?

[Sir_Fz]

I guess the slap-back request has been done here. So to complete it with a public command to slap:

Code: Select all

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

bind ctcp - ACTION slap:back
bind pub f|f !slap slap:nick

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"
 }
}

proc slap:nick {nick uhost hand chan arg} {
 global actReplies
 if {[isbotnick [set n [lindex [split $arg] 0]]]} {set n $nick}
 if {[onchan $n $chan]} {
  puthelp "privmsg $chan :\001ACTION slaps $n [lindex $actReplies [rand [llength $actReplies]]]\001"
 }
}

So +f users can use !slap <nick> public command which will slap <nick> with one of the $actReplies actions.

Edit: Bot will slap nick if he !slap botnick

[romeo5k]

Thank You.!!!
I love you very much!

[Sir_Fz]

Thank You.!!!
I love you very much!

Careful there, or Juliet5k will get jealous

[Domin]

Thank You.!!!
I love you very much!

Careful there, or Juliet5k will get jealous

lol

[romeo5k]

I guess the slap-back request has been done here. So to complete it with a public command to slap:

Code: Select all

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

bind ctcp - ACTION slap:back
bind pub f|f !slap slap:nick

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"
 }
}

proc slap:nick {nick uhost hand chan arg} {
 global actReplies
 set n [lindex [split $arg] 0]
 if {[onchan $n $chan]} {
  puthelp "privmsg $chan :\001ACTION slaps $n [lindex $actReplies [rand [llength $actReplies]]]\001"
 }
}

So +f users can use !slap <nick> public command which will slap <nick> with one of the $actReplies actions.

For some reason it slapped itself.... is there some quotation missing somewhere.. i addeded to quotes to "[lindex [split $arg] 0]"
But when i hit slap bot, bot stoopidly slaps itself..!!
whats wrong?
EDIT***
I just tried adding this to the bottom, for the bot to slap the individual if they do !slap BOTNICK

Code: Select all

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

[Sir_Fz]

I've edited the code above to make it slap the nick if he types !slap botnick.

[romeo5k]

PERFECT.... WOOT ur the best..... /me kisses u on the cheek for this...