egghelp/eggheads community

catching binds

2003-09-02T10:21:34-04:00

hm, I don't even really understand what it is doing exactly. lol ...

I will look at the mans

thx for your help ((:

Statistics: Posted by Guest — Tue Sep 02, 2003 10:21 am

catching binds

2003-09-02T09:50:56-04:00

I got this and more from the Tcl manual (search for "tcl/tk man" on google, and hit "Am I feeling lucky")

There probably is a way. You following would need some major adaption, but could work

Code:

if {![info exists _bindgone]} {  set _bindgone 1  rename bind _bindproc bind {args} {  set cmd [lindex $args [expr [llength $args] - 1]]  set body "record_stack; "  if {[string range [info body $cmd] 0 [expr [string length $body] - 1]] != $body} {    append body [info body $cmd]    proc $cmd [info args $cmd] $body  }  eval _[info level 0]}}proc record_stack {} {   lappend ::_stack [info level -1] }

That should be loaded as you first script (ie, just before all others).

It likely won't work or I have misunderstood somthign around the eval code, but the idea is sound.

It replaces the bind command with a custom version. When it is called, it makes sure that the new code includes the "record_stack" command (making sure it isn't duplicate).

It would have been easier to use the redo the proc command, however, that would mean every command is stacked, and not just binds.

Statistics: Posted by ppslim — Tue Sep 02, 2003 9:50 am

catching binds

2003-09-02T09:12:12-04:00

The stack is a list stored in the global variable $_stack. It is recorded in a fasion of last oldest item at the start, newest at the end.

thx I will play with this tonight. (i'm from germany (GMT+1)) ;o)

but, ppslim, where did you learn that? )
and, what is "info level -1" for? (o:

and, that means I have to add record_stack to all procs I want to have
recorded?
well, is there a way to have this beeing done automatically? so, if
someone loads the script, it records all procs executed, no matter in
which script, without having to add record_stack to every proc which might
cause a "channel :you don't have operator rights" error?

thx for help ;DD

Statistics: Posted by Guest — Tue Sep 02, 2003 9:12 am

catching binds

2003-09-02T05:33:10-04:00

Code:

proc record_stack {} {  lappend ::_stack [info level -1]}

This will help record a stack of previous binds.

You will have to call record_stack at the begining of each bind, so that recording takes place.

You will also have to take care of cleaning the stack, so it doesn't grow too large. Presently, it will grow forever.

The stack is a list stored in the global variable $_stack. It is recorded in a fasion of last oldest item at the start, newest at the end.

Statistics: Posted by ppslim — Tue Sep 02, 2003 5:33 am

catching binds

2003-09-02T04:59:40-04:00

way a) you would have to add it manual to each proc

Code:

proc myproc { arg1 arg2 arg3 } {global lastprocset lastproc "myproc $arg1 $arg2 $arg3"....}proc repeat_last { } {eval [$::lastproc]}

way b) include this:

Code:

proc opme { nick hand uhost chan text } {if {![isop $::botnick $chan]} {  ; utimer 5 "opme $nick $hand $uhost $chan $text" ; return 0 } else {}}

not tested, but it should work (at least with some small adjustments)

Statistics: Posted by GodOfSuicide — Tue Sep 02, 2003 4:59 am

catching binds

2003-09-01T20:27:09-04:00

Hi all. I was wondering if it is possible (without patching eggdrop)
to have the last bind used stored in a variable.
I'd need not only the lastbind variable, but also the parameters the proc,
which the bind triggered, got triggered with. (n uh h c text f.e.)

So, if f.e. the bot wants to voice someone, and gets the RAW-error that it
doesn't have op in 'channel', it ops itself via chanserv or some other
network channel-service, and triggers the last bind (which is probably
responsible for the RAW-error) again.

Thanks for helping ;DD

~freaky

Statistics: Posted by Guest — Mon Sep 01, 2003 8:27 pm