| View previous topic :: View next topic |
| Author |
Message |
romeo5k
Halfop
Joined: 28 Jul 2006
Posts: 46
|
 Posted: Sun Jun 10, 2007 3:43 pm Post subject: Slap Attacks |
 |
|
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: | on *:action:*slaps*Romeo5k*:#: {
describe $chan $read slap.txt | halt }
}
}
|
|
|
| Back to top |
|
 |
rosc2112
Revered One
Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania
|
| Posted: Sun Jun 10, 2007 8:49 pm Post subject: |
|
|
| Look in the archive, plenty of "action" scripts to use as examples. |
|
| Back to top |
|
|
romeo5k
Halfop
Joined: 28 Jul 2006
Posts: 46
|
| Posted: Wed Jun 13, 2007 2:54 pm Post subject: |
|
|
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? |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Fri Jun 15, 2007 11:31 am Post subject: |
|
|
I guess the slap-back request has been done here. So to complete it with a public command to slap:
| Code: | 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
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts
Last edited by Sir_Fz on Wed Jun 20, 2007 10:06 am; edited 2 times in total |
|
| Back to top |
|
|
romeo5k
Halfop
Joined: 28 Jul 2006
Posts: 46
|
| Posted: Fri Jun 15, 2007 5:59 pm Post subject: |
|
|
Thank You.!!!
I love you very much! |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Fri Jun 15, 2007 7:16 pm Post subject: |
|
|
| romeo5k wrote: | Thank You.!!!
I love you very much! |
Careful there, or Juliet5k will get jealous 
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
Domin
Halfop
Joined: 10 Jun 2006
Posts: 72
|
| Posted: Sat Jun 16, 2007 5:42 am Post subject: |
|
|
| Sir_Fz wrote: | | romeo5k wrote: | Thank You.!!!
I love you very much! |
Careful there, or Juliet5k will get jealous |
lol
_________________
Regards
Domin @ efnet |
|
| Back to top |
|
|
romeo5k
Halfop
Joined: 28 Jul 2006
Posts: 46
|
| Posted: Sat Jun 16, 2007 1:50 pm Post subject: |
|
|
| Sir_Fz wrote: | I guess the slap-back request has been done here. So to complete it with a public command to slap:
| Code: | 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: | 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"
}
}
|
|
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Mon Jun 18, 2007 9:56 pm Post subject: |
|
|
I've edited the code above to make it slap the nick if he types !slap botnick.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
romeo5k
Halfop
Joined: 28 Jul 2006
Posts: 46
|
| Posted: Mon Jun 18, 2007 10:48 pm Post subject: |
|
|
| PERFECT.... WOOT ur the best..... /me kisses u on the cheek for this... |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
