egghelp/eggheads community

somebody can help me please ?

2010-01-19T19:09:18-04:00

yup :p thank you

Statistics: Posted by KiMoW — Tue Jan 19, 2010 7:09 pm

somebody can help me please ?

2010-01-19T19:00:20-04:00

First off, there's no command named 'else'. That added with tcl's behavior to terminate commands on newline makes the following break:

Code:

  if {$nick == Lea} {return}  else {

'Else' should be another parameter for 'if', so it needs to be on the same line:

Code:

if {$nick == Lea} {  return} else {

Next, try adding some putlog's in there for debugging:

Code:

proc mode:force_unban {nick uhost hand chan mode {target ""}} { global botnick putlog "Ban detected: Nick: $nick ($uhost) Handle: $hand Channel: $chan Mode: $mode ($target)" if {$nick == Lea} {  putlog "nickname is Lea, aborting"  return } else {  if {$target == ""} {   set target "$botnick"  }  putlog "Running regular expression..."  if {![regexp {^~(c|r)} $target]} {   putlog "No match!, starting timer..."   set timer [timer 30 [list pushmode $chan -b $target]]   putlog "Timer $timer started!"   return  } } putlog "end of proc"} bind mode -|- "*+b*" mode:force_unban

That should let you see what is going on behind the scenes..

Statistics: Posted by nml375 — Tue Jan 19, 2010 7:00 pm

somebody can help me please ?

2010-01-19T18:31:28-04:00

Code:

proc mode:force_unban {nick uhost hand chan mode {target ""}} {  global botnick  if {$nick == Lea} {return}  else {   if {$target == ""} {    set target "$botnick"   }    if {![regexp {^~(c|r)} $target]} {     timer 30 [list pushmode $chan -b $target]     return    } }} bind mode -|- "*+b*" mode:force_unban

why doesn't it work ?[/code]

Statistics: Posted by KiMoW — Tue Jan 19, 2010 6:31 pm

somebody can help me please ?

2010-01-19T03:10:46-04:00

*sign*

Code:

# forces any ban set on the channel to be removed in 30mins regardless of any channel settings proc mode:force_unban {nick uhost hand chan mode {target ""}} {  global botnick   if {$target == ""} {    set target "$botnick"   }    # ignore unrealircd's "channel" and "GEOS (realname)" bans    if {![regexp {^~(c|r)} $target]} {     timer 30 [list pushmode $chan -b $target]     return    } } bind mode -|- "*+b*" mode:force_unban

Statistics: Posted by TCL_no_TK — Tue Jan 19, 2010 3:10 am

somebody can help me please ?

2010-01-18T20:38:01-04:00

when i do the chan info i have that the ban time is setted to 30 min but when i ban it doesn't remove it.

Blake i don't wanna put the +b i wanna remove it

Statistics: Posted by KiMoW — Mon Jan 18, 2010 8:38 pm

somebody can help me please ?

2010-01-18T17:26:41-04:00

TCL_no_TK wrote this a few weeks back for me allows for the bot to set +b usernick and kick will remove ban after set amount of minutes

Code:

bind msg ho|ho bankick cmd:bankickproc cmd:bankick {nick host hand text} {  set chan [lindex [split $text] 0]  set user [lindex [split $text] 1]  set why [join [lrange [split $text] 2 end-1]]  set chk [join [lrange [split $text] end end]]  if {![regexp -- {^[0-9]} $chk]} {set why [join [lrange [split $text] 2 end]]} else {set bantime [join [lrange [split $text] end end]]}   if {[info exists bantime]} {    putserv "MODE $chan +b $user"    putserv "PRIVMSG ChanServ KICK $chan $user $why) (Issued By $nick"    timer $bantime [list putserv "MODE $chan -b $user"]    return 1   } else {    putserv "MODE $chan +b $user"    putserv "PRIVMSG ChanServ KICK $chan $user $why) (Issued By $nick"    return 1   } }

works via private msg /msg botnick bankick chan nick reason time

Statistics: Posted by blake — Mon Jan 18, 2010 5:26 pm

somebody can help me please ?

2010-01-18T15:39:24-04:00

and...

Code:

global-ban-time 30

or put:

Code:

.chaninfo #yourchan

and paste here your results.

Statistics: Posted by Nor7on — Mon Jan 18, 2010 3:39 pm

somebody can help me please ?

2010-01-18T15:27:18-04:00

yup i know but no results

Statistics: Posted by KiMoW — Mon Jan 18, 2010 3:27 pm

somebody can help me please ?

2010-01-18T15:26:03-04:00

Maybe try:

Code:

.chanset #test -enforcebans +dynamicbans.chanset #test ban-time 30

Statistics: Posted by Nor7on — Mon Jan 18, 2010 3:26 pm

somebody can help me please ?

2010-01-18T15:02:58-04:00

i know i already tried but without results so i'm triying to do it at a tcl code that i will put at the eggdrop

Statistics: Posted by KiMoW — Mon Jan 18, 2010 3:02 pm

somebody can help me please ?

2010-01-18T08:36:36-04:00

Code:

 { nick host hand chan mode target }

$nick = The Operator that done the mode change (in this case the ban).

I should mention that eggdrop already has a alot settings that control when it removes bans and how long they last on the channel. You can change/set this via the config file (global) or via DCC/Telnet command chanset

Example: (setting all channel bans to be removed after 30mins on my channel #test, i would issue the following command in DCC/Telnet)

.chanset #test ban-time 30

Statistics: Posted by TCL_no_TK — Mon Jan 18, 2010 8:36 am

somebody can help me please ?

2010-01-18T04:26:18-04:00

bind mode - "*+b" Rem_ban

proc Rem_Ban { nick host hand chan mode target } {
if {$nick != Lea} {
set banmask $target
timer 30 [list putquick "MODE $chan -b $target" ]
}
}

the base is that if one user ban someone the eggdrop will remove the ban after 30 min

Statistics: Posted by KiMoW — Mon Jan 18, 2010 4:26 am