egghelp/eggheads community

Re: AutoReop

2025-05-01T20:48:36-04:00

It works very well for me this way.

Code:

# delay time (in minutes) to REOP Bot. set autoopchan 4 bind mode - "*+o*" Re-OP:Me bind mode - "*-o*" Re-OP:Meproc Re-OP:Me {nick uhost hand chan mode target} {global botnick  autoopchan  if {$mode eq "-o" && [isbotnick $target]} { puthelp "chanserv deop $chan $nick" -next  puthelp "PRIVMSG $chan :$nick don't take away my access to -@-" if {[info exists TimeDReop($chan)]} {after cancel $TimeDReop($chan)  unset TimeDReop($chan) }  set TimeDReop($chan) [list [after [expr {$autoopchan*1000*60}] [list AUTO:OP $botnick $chan]]]}if {$mode eq "+o" && [isbotnick $target]} {  if {[info exists TimeDReop($chan)]} { after cancel $TimeDReop($chan)  unset TimeDReop($chan)  } }}proc AUTO:OP {nick chan} {  if {[isbotnick $nick] && ![botisop $chan] && [onchan $nick $chan]} { putserv "chanserv op $chan $nick"}}

Very good work simo thanks... Thank you very much CrazyCat for also helping with the corrections

Statistics: Posted by Arnold_X-P — Thu May 01, 2025 8:48 pm

Re: AutoReop

2025-05-01T17:34:30-04:00

i wasnt sure on what network he will use this and if it has cmode +O in use for users thats why i made sure its lowercase but perhaps its not really needed im not sure.

Whatever the network is or does, it wont change the bind which is internal to the eggdrop. If you bind the mode +o, eggdrop will react to mode +o. If the server uses +O, eggdrop won't react.

In party-lie, do:

Code:

.tcl bind mode - "#% +[string tolower [string tolower [string toupper [string tolower o]]]]" Re-OP:Me.binds mode

After, do:

Code:

.tcl bind mode - "#% +o" Re-OP:Me.binds mode

The results of the 2 .binds mode are the same, the collection of string tolower/toupper is interpreted when the bind is declared.

Statistics: Posted by CrazyCat — Thu May 01, 2025 5:34 pm

Re: AutoReop

2025-05-01T12:52:33-04:00

i wasnt sure on what network he will use this and if it has cmode +O in use for users thats why i made sure its lowercase but perhaps its not really needed im not sure.

else he can use :

Code:

bind mode - "#% +o" Re-OP:Mebind mode - "#% -o" Re-OP:Me

Statistics: Posted by simo — Thu May 01, 2025 12:52 pm

Re: AutoReop

2025-05-01T10:59:45-04:00

WTF ? script script

bind mode - "#% +[string tolower [string tolower [string toupper [string tolower o]]]]" Re-OP:Mebind mode - "#% -[string tolower [string tolower [string toupper [string tolower o]]]]" Re-OP:Me

script Are you sure you want to lower + upper + double-lower a hard coded char ?

Statistics: Posted by CrazyCat — Thu May 01, 2025 10:59 am

Re: AutoReop

2025-05-01T09:04:18-04:00

try this :

Code:

# delay time (in minutes) to REOP Bot. set autoopchan 4bind mode - "#% +[string tolower [string tolower [string toupper [string tolower o]]]]" Re-OP:Mebind mode - "#% -[string tolower [string tolower [string toupper [string tolower o]]]]" Re-OP:Me  proc Re-OP:Me {nick uhost hand chan mode target} {    global botnick  autoopchan     if {$mode eq "-o" && [isbotnick $target]} {   if {[info exists TimeDReop($chan)]} {    after cancel $TimeDReop($chan)    unset TimeDReop($chan)  }    set TimeDReop($chan) [list [after [expr {$autoopchan*1000*60}] [list AUTO:OP $botnick $chan]]]  }  if {$mode eq "+o" && [isbotnick $target]} {  if {[info exists TimeDReop($chan)]} {    after cancel $TimeDReop($chan)    unset TimeDReop($chan)  }}}    proc AUTO:OP {nick chan} {   if {[isbotnick $nick] && ![botisop $chan] && [onchan $nick $chan]} {  putserv "chanserv op $chan $nick"}}

I tested it and it seems to work fine it sets OP after 4 minutes.

Statistics: Posted by simo — Thu May 01, 2025 9:04 am

Re: AutoReop

2025-04-30T20:54:23-04:00

thanks simo I will try the TCL

I tested it and the TCL doesn't work.
When I remove the OP, the timeout passes and the auto-op doesn't work.

Code:

 bind mode - * Re-OP:Meset autoopchan 4proc Re-OP:Me {nick uhost hand chan mode target} {  global botnick  autoopchan     if {$mode eq "-o" && [isbotnick $target]} {  if {[string match -nocase "chanserv" $nick] || [matchattr $hand omn|omn $chan] || [string match -nocase "$botnick" $nick]} { return 0 }   if {[info exists TimeDReop($chan)]} {    after cancel $TimeDReop($chan)    unset TimeDReop($chan)  }    set TimeDReop($chan) [list [after [expr {$autoopchan*1000*60}] [list AUTO:OP $botnick $chan]]]  }  if {$mode eq "+o" && [isbotnick $target]} {  if {[info exists TimeDReop($chan)]} {    after cancel $TimeDReop($chan)    unset TimeDReop($chan)   } }} proc AUTO:OP {nick chan} {   if {[isbotnick $nick] && ![botisop $chan] && [onchan $nick $chan]} {  putserv "chanserv op $chan $nick"}}

Statistics: Posted by Arnold_X-P — Wed Apr 30, 2025 8:54 pm

Re: AutoReop

2025-04-30T10:23:41-04:00

try this :

Code:

bind mode - * Re-OP:Meset autoopchan 4proc Re-OP:Me {nick uhost hand chan mode target} {    global botnick  autoopchan     if {$mode eq "-o" && [isbotnick $target]} {  if {[string match -nocase "chanserv" $nick] || [matchattr $hand omn|omn $chan] || [string match -nocase "$botnick" $nick]} { return 0 }   if {[info exists TimeDReop($chan)]} {    after cancel $TimeDReop($chan)    unset TimeDReop($chan)  }    set TimeDReop($chan) [list [after [expr {$autoopchan*1000*60}] [list AUTO:OP $botnick $chan]]]  }  if {$mode eq "+o" && [isbotnick $target]} {  if {[info exists TimeDReop($chan)]} {    after cancel $TimeDReop($chan)    unset TimeDReop($chan)  }}}    proc AUTO:OP {nick chan} {   if {[isbotnick $nick] && ![botisop $chan] && [onchan $nick $chan]} {  putserv "chanserv op $chan $nick"}}

Statistics: Posted by simo — Wed Apr 30, 2025 10:23 am

Re: AutoReop

2025-04-30T00:40:09-04:00

I implemented a killtimer, but I don't know if it will work so that it only asks for auto-reop once and then not again.
This is to prevent auto-reop @ abuse in services. Can you please help me?

Code:

 bind mode - "*-o*" prot_deopset autoopchan 4proc prot_deop {nick uhost hand chan mc argv} { global botnick  autoopchanif {[isbotnick $argv] && ![matchattr $hand mn|mn $chan]} {killtimer [lindex [split $autoopchan] end] } putnow "chanserv deop $chan $nick"puthelp "PRIVMSG $chan :$nick don't take my away @"timer $autoopchan [list puthelp "cs op $chan $botnick"]   }

I'm not sure if it will work.

Statistics: Posted by Arnold_X-P — Wed Apr 30, 2025 12:40 am

Re: AutoReop

2025-04-30T00:51:37-04:00

The detail for me is this...

Code:

 [22:18] * JulieTh sets mode: -o Kantuta[22:18] * ChanServ sets mode: +o Kantuta[22:18] * JulieTh sets mode: -o Kantuta[22:18] -ChanServ:#beni2- Kantuta has deopped JulieTh[22:18] * ChanServ sets mode: +o Kantuta[22:18] * JulieTh sets mode: -o Kantuta[22:18] -ChanServ:#beni2- Kantuta has deopped JulieTh[22:18] * ChanServ sets mode: +o Kantuta[22:18] * JulieTh sets mode: -o Kantuta[22:18] * ChanServ sets mode: -o JulieTh[22:18] * ChanServ sets mode: +o Kantuta[22:18] -ChanServ:#beni2- Kantuta has deopped JulieTh[22:19] <@Kantuta> JulieTh don't take my away @[22:19] <@Kantuta> JulieTh don't take my away @[22:19] <@Kantuta> JulieTh don't take my away @[22:19] <@Kantuta> JulieTh don't take my away @

causing abuse in services...
The solution for me is to add a killtimer to kill the time sequence and prevent it from abusing auto reop in services.

Statistics: Posted by Arnold_X-P — Wed Apr 30, 2025 12:31 am

AutoReop

2025-04-30T00:30:11-04:00

I have this TCL and when temporary operator access is removed, the TCL uses a recovery time of 4 minutes.

Code:

 bind mode - "*-o*" prot_deopproc prot_deop {nick uhost hand chan mc argv} { global botnick if {[isbotnick $argv] && ![matchattr $hand mn|mn $chan]} {  putnow "chanserv deop $chan $nick"putserv "PRIVMSG $chan :$nick don't take my away @"  timer 4 [list puthelp "cs op $chan $botnick"]  }}

Statistics: Posted by Arnold_X-P — Wed Apr 30, 2025 12:30 am