X kick

Post by **caesar** » Mon Dec 03, 2001 1:56 pm

Hi, Any sugestions for how to extract the registred username ("this_user") from a kick made thru X ? Btw .. this is for Undernet's server's.

- kick -
[10:42] *** SomeOne was kicked by X((this_user) something)
- kick -

Thx!

ppslim · Post by **ppslim** » Mon Dec 03, 2001 4:23 pm

bind kick - "*" kick:extract
proc kick:extract {nick uh hand chan vict reas} {
if {$nick != "X"} { return }
set person_kicked [string trim [lindex [split $reas] 0] {()}]

Post by **caesar** » Mon Dec 03, 2001 7:15 pm

Thx ppslim! I did want this only when the eggy gets kicked, not for all.

Well, now I guess I got to read myself about kick bind's.

Post by **caesar** » Mon Dec 03, 2001 8:19 pm

As I read in the tcl-commands.doc the bind for kick sounds like: "bind kick <flags> <mask> <proc>". I want to bind this for "o" user's and I tyed "bind kick o "*" kick:extract" and other flags and nothing. I don't see where is my mistake. Any sugestions ? Thx!

ppslim · Post by **ppslim** » Mon Dec 03, 2001 8:23 pm

I don't even see what you think the mistake is.

You will have to issue a ".restart" to get it working properly, as the original bind will still be in memory.

Post by **caesar** » Mon Dec 03, 2001 8:51 pm

Well .. I did try an .restart but .. hmm .. I don't know what is hapening with this eggy now I can see a thing. I use this code:

- Code -
bind kick - "*" kick:extract

proc kick:extract {nick uh hand chan vict reas} {
if {$nick != "X"} { return }
set person_kicked [string trim [lindex [split $reas] 0] {()}]
putserv "PRIVMSG $chan :Hey person_kicked .. why are you kicking my friend $vict ?"
}
- Code -

Now is not working. Uff .. stupid windrop .. I got to test this with a linux eggdrop coz this dive me nuts. Now it's working .. now he don't ..
The code listed up he react's to all kicks and if change in there from "-" to an "o" this should react only to "o" user's. Right ?

ppslim · Post by **ppslim** » Mon Dec 03, 2001 9:21 pm

This infact should be

Code: Select all

bind kick - "*" kick:extract 

proc kick:extract {nick uh hand chan vict reas} { 
  if {$nick != "X"} { return } 
  set person_kicked [string trim [lindex [split $reas] 0] {()}] 
  putserv "PRIVMSG $chan :Hey $vict .. why are you kicking my friend ${person_kicked}?"
}

Post by **caesar** » Tue Dec 04, 2001 12:13 pm

As I can see the "person_kicked" is in fact the username of the kicker and the "vict" is the real victim. Maybe I'm wrong but with my previous code this was happening like this. I don't know what is wrong with my windrop, I guess I have to test from now tcl's on a real eggdrop, a linux one. I guess my problems that I had is from this and other tcl's where not from the code. Hmm .. This is driving me nuts. That's it .. I'm moving to a linux eggdrop. Thx for help ppslim!