egghelp/eggheads community

How would I do this? [solved]

2010-08-19T13:18:22-04:00

@dj-zath,
You do know that "incr L 0" is a NoOp (No Operation)?

Statistics: Posted by nml375 — Thu Aug 19, 2010 1:18 pm

How would I do this? [solved]

2010-08-19T10:53:54-04:00

I'm planning a simular thing.. however I'm going to use a "stepped timer counter" idea..

Code:

set L "0"proc    counter {} {    if {$L < "2"}        do something        incr L        return 1     } else {        do something else        incr L "0"        return 0    }}

just something I threw together for this post hehe

-DjZ-

Statistics: Posted by dj-zath — Thu Aug 19, 2010 10:53 am

How would I do this? [solved]

2010-08-10T17:28:07-04:00

it wouldn't work for you as is. I use a custom proc in it that... I'm not exactly wanting to share, as it required tremendous work to get right... and I use a modified version of an alltools proc for the timer work, etc...

Statistics: Posted by Luminous — Tue Aug 10, 2010 5:28 pm

How would I do this? [solved]

2010-08-10T16:10:05-04:00

cool can u paste it for me please ?
10x

Statistics: Posted by Ashoq — Tue Aug 10, 2010 4:10 pm

How would I do this? [solved]

2010-08-10T14:40:59-04:00

Thanks, but I should have mentioned that I have long since solved this. I have it set now so that it kicks on second offense and on the third time it bans for 15 minutes, but it allows those 3 kicks only within an hour before resetting. I am using the comment field to store number of offenses though, rather than a counter like this one. I haven't had any luck running counters like that.

Statistics: Posted by Luminous — Tue Aug 10, 2010 2:40 pm

How would I do this? [solved]

2010-08-10T14:36:25-04:00

Code:

set slapreplies { "around a bit with a large trout. *SMACK SMACK*" "with a two by four upside the head. *KONK*" "with the mighty banhammer eventually :P" "with a slimy wet eel, or something similar :P" "then stares back. Don't expect an apology :P" "with the holy bible autographed by jesus himself. Repent now!" "with Chuck Norris' fist. *BOOM*" "right back twice as hard. 2x mode activated! Final battle, Fight!"}set maxactions "3"bind ctcp * ACTION slap:backproc slap:back {nick uhost hand chan kw arg} {   global slapped_us botnick slapreplies owner maxslaps   if {![validchan $chan]} {return 0}   if {[string match -nocase "*slap* $botnick*" $arg] || [string match -nocase "*slap* $owner*" $arg]} {      if {[info exists slapped_us($uhost)]} {         if {[incr slapped_us($uhost)] == $maxslaps} {            putserv "KICK $chan $nick :Please don't slap me!"            unset slapped_us($uhost)            return 0         }      } else {         set slapped_us($uhost) 1      }      putserv "PRIVMSG $chan :\001ACTION slaps $nick [lindex $slapreplies [rand [llength $slapreplies]]]\001"   }}

try this ( tested by me )

Statistics: Posted by Ashoq — Tue Aug 10, 2010 2:36 pm

How would I do this? [solved]

2010-03-15T22:25:24-04:00

Ah, okay... I had tried adding another incr line cause I figured that's what needed to happen...

I am not getting any errors with that script, but the bot is not slapping or kicking at all now.
I may just have to stick with slapping the person back.

Statistics: Posted by Luminous — Mon Mar 15, 2010 10:25 pm

How would I do this? [solved]

2010-03-15T21:39:43-04:00

Code:

 if {[incr slapped_us($uhost)] == $maxslaps]} {

My bad. See above, fixed it within that code block.

Statistics: Posted by speechles — Mon Mar 15, 2010 9:39 pm

How would I do this? [solved]

2010-03-15T20:47:28-04:00

Code:

 if {[incr slapped_us($uhost)] == $maxslaps]} {

causes error about an invalid ] . I assume its supposed to be

Code:

 if {[incr slapped_us($uhost) == $maxslaps]} {

But then that gives the error: Tcl error [slap:back]: wrong # args: should be "incr varName
?increment?"

Statistics: Posted by Luminous — Mon Mar 15, 2010 8:47 pm

How would I do this? [solved]

2010-03-15T22:35:53-04:00

Code:

set slapreplies { "around a bit with a large trout. *SMACK SMACK*" "with a two by four upside the head. *KONK*" "with the mighty banhammer eventually :P" "with a slimy wet eel, or something similar :P" "then stares back. Don't expect an apology :P" "with the holy bible autographed by jesus himself. Repent now!" "with Chuck Norris' fist. *BOOM*" "right back twice as hard. 2x mode activated! Final battle, Fight!"} set maxslaps "3"bind ctcp * ACTION slap:back proc slap:back {nick uhost hand chan kw arg} {   global slapped_us botnick slapreplies owner maxslaps   if {![validchan $chan]} {return 0}   if {[string match -nocase "*slap* $botnick*" $arg] || [string match -nocase "*slap* $owner*" $arg]} {      if {[info exists slapped_us($uhost)]} {         if {[incr slapped_us($uhost)] == $maxslaps} {            putserv "KICK $chan $nick :Its not polite to slap people D\:"            unset slapped_us($uhost)            return 0         }      } else {         set slapped_us($uhost) 1      }      putserv "PRIVMSG $chan :\001ACTION slaps $nick [lindex $actReplies [rand [llength $actReplies]]]\001"   }}

Edit: fixed problem mentioned below. Solved.

Statistics: Posted by speechles — Mon Mar 15, 2010 7:34 pm

How would I do this? [solved]

2010-03-15T19:28:28-04:00

I've been tinkering with this... it has a few bugs that I can't seem to work out.

I think it needs to be the other way around: as in, it will just slap unless maxactions == 3, then it will kick. Reason is that with it as is, it counts three actions in general as a kick, and so will kick after 3 actions. Not good. I've tried variations of this, but I can't get it to kick:

Code:

set actReplies { "with a board" "with his banhammer :P" "with a car" "with a leather book" "with Godzilla" "with Chuck Norris" "right back"}set maxactions "3"bind ctcp * ACTION slap:backproc slap:back {nick uhost hand chan kw arg} {  global acount botnick actReplies owner maxactions    if {![validchan $chan]} {return 0}    if {[string match -nocase "*slap* $botnick*" $arg] || [string match -nocase "*slap* $owner*" $arg]} {        putserv "PRIVMSG $chan :\001ACTION slaps $nick [lindex $actReplies [rand [llength $actReplies]]]\001"        set ::acount($uhost) [expr {$::acount($uhost) +1}]    } elseif {[info exists $::acount($uhost)] && [$::acount($uhost) == $::maxactions]} {         putserv "KICK $chan $nick :Its not polite to slap people D\:"         unset ::acount($uhost)    }}

Here's the error it gives: Tcl error [slap:back]: can't read
"::acount(webchat@1b533a89.189efabc.X)": no such variable

Statistics: Posted by Luminous — Mon Mar 15, 2010 7:28 pm

How would I do this? [solved]

2010-03-12T22:56:11-04:00

Nevermind... I had to make "maxactions" global. Thanks for showing me that, that should help me out later on.

Statistics: Posted by Luminous — Fri Mar 12, 2010 10:56 pm

How would I do this? [solved]

2010-03-12T11:41:46-04:00

Thanks for the reply! I get an error though... if I leave it with 3 closing braces, it complains that its missing one, but if I add one, the bot dies. He did slap a test nick back once, but nothing more after that.

All together:

Code:

set actReplies { "with a board" "with his banhammer :P" "with a car" "with a leather book" "with Godzilla" "with Chuck Norris" "right back"}set maxactions "3"bind ctcp * ACTION slap:backproc slap:back {nick uhost hand chan kw arg} {  global botnick actReplies owner    if {![validchan $chan]} {return 0}    if {[info exists ::acount($uhost)]} {    if {$::acount($uhost) >= $::maxactions} {        putserv "KICK $chan $nick :Please don't slap me!"  unset ::acount($uhost)    } else {  set ::acount($uhost) [expr {$::acount($uhost) +1}}    } else {  set ::acount($uhost) "1"}    if {[string match -nocase "*slap* $botnick*" $arg]} {        putserv "PRIVMSG $chan :\001ACTION slaps $nick [lindex $actReplies [rand [llength $actReplies]]]\001"    if {[string match -nocase "*slap* $owner*" $arg]} {        putserv "PRIVMSG $chan :\001ACTION slaps $nick in $owner's defense\001"    }  }}

Statistics: Posted by Luminous — Fri Mar 12, 2010 11:41 am

How would I do this? [solved]

2010-03-11T23:15:17-04:00

You can try using something like this,

Code:

if {[info exists ::acount($uhost)]} { if {$::acount($uhost) >= $::maxactions} {  # do somthing...  unset ::acount($uhost) } else {  set ::acount($uhost) [expr {$::acount($uhost) +1}] }} else { set ::acount($uhost) "1"}

Add it after

Code:

     if {![validchan $chan]} {return 0}

And add

Code:

set maxactions "3"

above

Code:

bind ctcp * ACTION slap:back

# do somthing...

Change to

Code:

putserv "KICK $chan $nick :Please don't slap me!"

Statistics: Posted by TCL_no_TK — Thu Mar 11, 2010 11:15 pm

How would I do this? [solved]

2010-08-13T13:34:44-04:00

I am wanting my bot to kick users if they do something an x number of times. Like an action, slapping the bot, etc. I already have a script that will make the bot slap the user back if they slap it or me, but I want it to kick if they slap the bot(or me) three times. How would a counter like this be added?

Code:

set actReplies { "with a board" "with his banhammer :P" "with a car" "with a leather book" "with Godzilla" "with Chuck Norris" "right back"}bind ctcp * ACTION slap:back proc slap:back {nick host hand chan kw arg} {  global botnick actReplies owner     if {![validchan $chan]} {return 0}     if {[string match -nocase "*slap* $botnick*" $arg]} {        putserv "PRIVMSG $chan :\001ACTION slaps $nick [lindex $actReplies [rand [llength $actReplies]]]\001"     if {[string match -nocase "*slap* $owner*" $arg]} {        putserv "PRIVMSG $chan :\001ACTION slaps $nick in $owner's defense\001"     }  }}

I am guessing I would need to write that action slap data to a file... then make an if statement to check it for the count number?

Statistics: Posted by Luminous — Thu Mar 11, 2010 12:10 am