egghelp/eggheads community

on 3r kick = remuser.

2008-06-28T13:53:43-04:00

it work, but dont change flag when an user kick to other user with different name . ex:

Code:

^Modo^ is nor7on@Colmillo.users.undernet.orgNombre : Visita: ------------Canales : @#chan1 @#chan2 @#chan3Servidor : *.undernet.org - The Undernet UnderworldModo is Logged how: Colmillo .whois Modo HANDLE    PASS NOTES FLAGS           LAST Modo      no       0 bflo            17:28 (#Madrid)   HOSTS: *!*@Colmillo.users.undernet.org   ADDRESS: xx.xxx.xxx.x      users: xxxx, bots: xxxx

when ^Modo^(Colmillo) kick via X to me, Chasse can't change flag to Colmillo or ^Modo^.'cause don't find Colmillo or ^Modo^ in userlist.

so there is some way to instert a database for:

$username = $hand

example:

Colmillo = Modo
Alask = Alaska
Ligre = Felino

if it finds "Colmillo" in the kick message, it read the database for change flag to Modo.
if it finds "Ligre" in the kick message, it read the database for change flag to Felino.
etc...

some suggestion? it's possible?

Statistics: Posted by Nor7on — Sat Jun 28, 2008 1:53 pm

on 3r kick = remuser.

2008-06-28T11:49:45-04:00

i have windrop 1.6.18 i paste this code exactly

Code:

variable adminlist "Nor7on^"bind kick - * xstuff:kickproc xstuff:kick {nick host hand chan target reason} {   if {[matchattr [nick2hand $target $chan] b|b $chan] || [matchattr [nick2hand $target $chan] o|o $chan]} {      set kicker [string trim [lindex [split $reason] 0] {()}]      set hand [nick2hand $kicker $chan]      if {[string match -nocase "\*" [lindex [split $hand] 0] } {         xstuff:admin "X ha utilizado para patada $target. No puedo suspender $kicker. Este usuario no tiene asa."         return 0      } elseif {[lindex [split $hand] 0] == ""} {         xstuff:admin "X ha utilizado para patada $target. No puedo suspender $kicker. No se puede encontrar este apodo en irc por más tiempo.."         return 0      }      if {[matchattr $hand E]} {         deluser $hand         putserv "PRIVMSG X :REMUSER $chan $kicker"         return 1      } elseif {[matchattr $hand Y]} {         chattr $hand -Y+E         putserv "PRIVMSG X :SUSPEND $chan $kicker 3d"         return 1      } else {         chattr $hand +Y         putserv "PRIVMSG X :SUSPEND $chan $kicker 2d"         putlog "Suspendiendo el username $kicker y cambiando flag a $hand"         return 1      }   } else {      return 0   }}proc xstuff:admin {text} {   foreach admin $::adminlist {      putserv "privmsg $admin :$text"   }}putlog "Suspend and remuser"

when some1 kickme get this error in partyline.

Code:

 [15:45] Tcl error [xstuff:kick]: missing close-bracket

I fixed it, see the code above where I originally posted it with adminlist config setting. There was indeed a missing closing bracket on the string match that has since been addressed. It will now work as intended for you, and when it doesn't will message one of your admin's why it isn't doing what is expected.

Code:

      if {[string match -nocase "\*" [lindex [split $hand] 0] } {

Code:

      if {[string match -nocase "\*" [lindex [split $hand] 0]] } {

Top is incorrect, missing bracket. Bottom is correct, brackets align. This is the error you see.

Statistics: Posted by speechles — Sat Jun 28, 2008 11:49 am

on 3r kick = remuser.

2008-06-28T11:47:19-04:00

i have windrop 1.6.18 i paste this code exactly

Code:

variable adminlist "Nor7on^"bind kick - * xstuff:kickproc xstuff:kick {nick host hand chan target reason} {   if {[matchattr [nick2hand $target $chan] b|b $chan] || [matchattr [nick2hand $target $chan] o|o $chan]} {      set kicker [string trim [lindex [split $reason] 0] {()}]      set hand [nick2hand $kicker $chan]      if {[string match -nocase "\*" [lindex [split $hand] 0] } {         xstuff:admin "X ha utilizado para patada $target. No puedo suspender $kicker. Este usuario no tiene asa."         return 0      } elseif {[lindex [split $hand] 0] == ""} {         xstuff:admin "X ha utilizado para patada $target. No puedo suspender $kicker. No se puede encontrar este apodo en irc por más tiempo.."         return 0      }      if {[matchattr $hand E]} {         deluser $hand         putserv "PRIVMSG X :REMUSER $chan $kicker"         return 1      } elseif {[matchattr $hand Y]} {         chattr $hand -Y+E         putserv "PRIVMSG X :SUSPEND $chan $kicker 3d"         return 1      } else {         chattr $hand +Y         putserv "PRIVMSG X :SUSPEND $chan $kicker 2d"         putlog "Suspendiendo el username $kicker y cambiando flag a $hand"         return 1      }   } else {      return 0   }}proc xstuff:admin {text} {   foreach admin $::adminlist {      putserv "privmsg $admin :$text"   }}putlog "Suspend and remuser"

when some1 kickme get this error in partyline.

Code:

 [15:45] Tcl error [xstuff:kick]: missing close-bracket

Statistics: Posted by Nor7on — Sat Jun 28, 2008 11:47 am

on 3r kick = remuser.

2008-06-28T11:41:31-04:00

Use the edited script above, forgot a simple bracket on the string match.. DOH! Humans being human, this is what we do, we make mistakes.

Statistics: Posted by speechles — Sat Jun 28, 2008 11:41 am

on 3r kick = remuser.

2008-06-28T11:29:12-04:00

Code:

 [15:28] #Nor7on# set errorInfo Currently: missing close-bracket Currently:     ("if" test expression) Currently:     while compiling Currently: "if {[string match -nocase "\*" [lindex [split $hand] 0] } { Currently:          xstuff:admin "$kicker has used X to kick $target. I cannot suspend $kicker. This ..." Currently:     ("if" then script line 4) Currently:     while compiling Currently: "if {[matchattr [nick2hand $target $chan] b|b $chan] || [matchattr [nick2hand $target $chan] o|o $chan]} { Currently:       set kicker [string trim [lindex [split..." Currently:     (compiling body of proc "xstuff:kick", line 2) Currently:     invoked from within Currently: "xstuff:kick $_kick1 $_kick2 $_kick3 $_kick4 $_kick5 $_kick6"

Statistics: Posted by Nor7on — Sat Jun 28, 2008 11:29 am

on 3r kick = remuser.

2008-06-28T11:45:13-04:00

Code:

variable adminlist "nick1 nick2 nick3"bind kick - * xstuff:kickproc xstuff:kick {nick host hand chan target reason} {   if {[matchattr [nick2hand $target $chan] b|b $chan] || [matchattr [nick2hand $target $chan] o|o $chan]} {      set kicker [string trim [lindex [split $reason] 0] {()}]      set hand [nick2hand $kicker $chan]      if {[string match -nocase "\*" [lindex [split $hand] 0]] } {         xstuff:admin "X ha utilizado para patada $target. No puedo suspender $kicker. Este usuario no tiene asa."         return 0      } elseif {[lindex [split $hand] 0] == ""} {         xstuff:admin "X ha utilizado para patada $target. No puedo suspender $kicker. No se puede encontrar este apodo en irc por más tiempo.."         return 0      }      if {[matchattr $hand E]} {         deluser $hand         putserv "PRIVMSG X :REMUSER $chan $kicker"         return 1      } elseif {[matchattr $hand Y]} {         chattr $hand -Y+E         putserv "PRIVMSG X :SUSPEND $chan $kicker 3d"         return 1      } else {         chattr $hand +Y         putserv "PRIVMSG X :SUSPEND $chan $kicker 2d"         putlog "Suspendiendo el username $kicker y cambiando flag a $hand"         return 1      }   } else {      return 0   }}proc xstuff:admin {text} {   foreach admin $::adminlist {      putserv "privmsg $admin :$text"   }}putlog "Suspend and remuser"

There are two instances where admins will be needed. Fill the admin list at top with a list of nicks you want alerted when the suspend script cannot: a) find the nickname on irc b) cannot find the handle record for nick

Edit: corrected missing bracket according to post below, all is well now.

Statistics: Posted by speechles — Sat Jun 28, 2008 11:11 am

on 3r kick = remuser.

2008-06-28T10:43:36-04:00

hi metroid.

the script only recognizes the $kicker but not the $hand
yeah suspend the username, but no recognizes $hand.

what happend ;/.

Statistics: Posted by Nor7on — Sat Jun 28, 2008 10:43 am

on 3r kick = remuser.

2008-06-28T09:17:22-04:00

Code:

bind kick - * xstuff:kickproc xstuff:kick {nick host hand chan target reason} {   if {[matchattr [nick2hand $target $chan] b|b $chan] || [matchattr [nick2hand $target $chan] o|o $chan]} {      set kicker [string trim [lindex [split $reason] 0] {()}]      set hand [nick2hand $kicker]      if {[matchattr $hand E]} {         deluser $hand         putserv "PRIVMSG X :REMUSER $chan $kicker"         return 1      } elseif {[matchattr $hand Y]} {         chattr $hand -Y+E         putserv "PRIVMSG X :SUSPEND $chan $kicker 3d"         return 1      } else {         chattr $hand +Y         putserv "PRIVMSG X :SUSPEND $chan $kicker 2d"         putlog "Suspendiendo el username $kicker y cambiando flag a $hand"         return 1      }   }}

Statistics: Posted by metroid — Sat Jun 28, 2008 9:17 am

on 3r kick = remuser.

2008-06-17T09:15:55-04:00

buff i try but can't fix this

Statistics: Posted by Nor7on — Tue Jun 17, 2008 9:15 am

on 3r kick = remuser.

2008-06-16T17:53:27-04:00

try the edited code above, fixes that problem.

Statistics: Posted by speechles — Mon Jun 16, 2008 5:53 pm

on 3r kick = remuser.

2008-06-16T15:47:09-04:00

thanks speechles, its work...

but have a little problem... don't find the user.

i have an user at userlist of my eggdrop: XCarlos
urs nickname in IRC is: Carlos

so, the $hand don't change flag to XCarlos, it do this: chattr Carlos +Y
but Carlos is not an user in the userlist.

someting wrong?

Statistics: Posted by Nor7on — Mon Jun 16, 2008 3:47 pm

on 3r kick = remuser.

2008-06-16T15:24:32-04:00

ok i try.

one momet.

Statistics: Posted by Nor7on — Mon Jun 16, 2008 3:24 pm

on 3r kick = remuser.

2008-06-16T17:52:57-04:00

Code:

bind kick - * xstuff:kickproc xstuff:kick {nick host hand chan target reason} {if {[matchattr [nick2hand $target $chan] b|b $chan] || [matchattr [nick2hand $target $chan] o|o $chan]} {set kicker [string trim [lindex [split $reason] 0] {()}]if {[string match -nocase "\*" [lindex [split $hand] 0] } {set hand [nick2hand $kicker]}if {[matchattr $hand E]} {deluser $handputserv "PRIVMSG X :REMUSER $chan $kicker"return 1} elseif {[matchattr $hand Y]} {chattr $hand -Y+Eputserv "PRIVMSG X :SUSPEND $chan $kicker 3d"return 1} else {chattr $hand +Yputserv "PRIVMSG X :SUSPEND $chan $kicker 2d"putlog "Suspendiendo el username $kicker y cambiando flag a $hand"return 1}} else {return 0}}putlog "Suspend and remuser"

You misplaced a curly brace, and forgot to construct your if statements in the correct conditional order. You realize, since everything is handled within the procedure (invoked by a public kick bind), using 'return' statements isn't really necessary at all, right?

Edit: try again.. works

Statistics: Posted by speechles — Mon Jun 16, 2008 3:18 pm

on 3r kick = remuser.

2008-06-16T08:34:24-04:00

Hi.

I have this code, it suspend when a Op kicked other Op via X.

So i want add when is first kick, suspend only 3Days. if kick again, suspend for 5 days, and if continue one kick more, my eggdrop run this comand:
.-user $kicker(user)
.msg x remuser #mychan username of kicker.

but the code only put chattr +Y, if continue, don't put -Y+E

something wrong?

code:

Code:

bind kick - * xstuff:kickproc xstuff:kick {nick host hand chan target reason} {global knick    if {[matchattr [nick2hand $target $chan] b|b $chan] || [matchattr [nick2hand $target $chan] o|o $chan]} {    set kicker [string trim [lindex [split $reason] 0] {()}]set knick [nick2hand $kicker]if {$hand == "*"} {set hand $kicker}           chattr $hand +Y      putserv "PRIVMSG X :SUSPEND $chan $kicker 2d"putlog "Suspendiendo el username $kicker y cambiando flag a $hand"          return 0} elseif {([matchattr $hand Y])} {  chattr $hand -Y+E      putserv "PRIVMSG X :SUSPEND $chan $kicker 3d"          return 1} elseif {([matchattr $hand E])} {  deluser $hand      putserv "PRIVMSG X :REMUSER $chan $kicker"          return 1} }putlog "Suspend and remuser"

some1 can helpme?

Thanks.

Statistics: Posted by Nor7on — Mon Jun 16, 2008 8:34 am