egghelp/eggheads community

Op Limit

2004-07-09T23:58:54-04:00

If you still want to deop, the last nick.

You can replace this code:

Code:

  putserv "MODE $chan -oooooo [join $deopnicks]"

With this code:

Code:

  putserv "MODE $chan -o $target"

But then I don't know how this script will react if there
are many +ooo modes triggered.

You can try it to test it out. If you specifically want to
deop the last person opped (if he is an extra op).

If you can't even replace it, use this then:

Code:

set checkchans "#yourchannel" set maxops "8" bind mode - "*+o*" check:ops proc check:ops {nick uhost hand chan mode target} {  global botnick checkchans maxops; set totalops 0  if {($mode == "+o")} {   if {(([lsearch -exact [string tolower $checkchans] [string tolower $chan]] != -1) || ($checkchans == "*"))} {   foreach user [chanlist $chan] {     if {[isop $user $chan]} {      incr totalops       }      }      if {($totalops > $maxops)} {        if {([botisop $chan]) && ([onchan $target $chan])} {         putserv "MODE $chan -o $target"         putserv "PRIVMSG $chan :$target O Limit de Operadores no Canal e $maxops"        return 0        }       }     }   } } putlog "OpLimit by awyeah - LOADED"

Statistics: Posted by awyeah — Fri Jul 09, 2004 11:58 pm

Op Limit

2004-07-09T20:41:57-04:00

yeah i think am with badluck .. this tcl is ugly.. the bot deop the other users.. not who get the last op ... any way!! he make the channel with 8 ops its a step thx anyway

Statistics: Posted by AbuAli — Fri Jul 09, 2004 8:41 pm

Op Limit

2004-07-09T02:58:58-04:00

The thing is the bot checks the channel list for ops. It does it in an alphabetical manner so if there is an extra op, it would be in the end of the channel lists, with alphabets near to the ending of the abc. And that person will be deoped.

It will be hard to deop the same target, because some times +o is used and some times +oooooo is used! Then we would individually have to check for each list index if +ooo, or a greater one is used. If they exist and not are "" then the bot can deop them. But then we would have to recheck the channel list, if it is still greater, then deop more people, other
wise halt.

I modified it a little bit. Try this code. If still it seems to deop wrong people then, I guess that's your badluck, heh. It will make sure only 8 people are opped on the channel, and the ones coming in the channel even if they are extra ops doesnt mean they will be specifically deoped, the bot can deop any op, to make the channel it under the op limit.

Code:

set checkchans "#yourchannel" set maxops "8" bind mode - "*+o*" check:ops proc check:ops {nick uhost hand chan mode target} {  global botnick checkchans maxops   set totalops 0; set list [list]   if {($mode == "+o")} {   if {(([lsearch -exact [string tolower $checkchans] [string tolower $chan]] != -1) || ($checkchans == "*"))} {   foreach user [chanlist $chan] {     if {[isop $user $chan]} {      incr totalops; lappend list $user        }      }      if {($totalops > $maxops)} {       set deopnicks [lrange $list $maxops end]        if {([botisop $chan]) && ($deopnicks != "")} {         putserv "MODE $chan -oooooo [join $deopnicks]"        putserv "PRIVMSG $chan :$deopnick O Limit de Operadores no Canal e $maxops "; return 0        }      }     }   } } putlog "OpLimit by awyeah - LOADED"

Statistics: Posted by awyeah — Fri Jul 09, 2004 2:58 am

Op Limit

2004-07-09T02:06:49-04:00

hello, i dont know what the problem..
but some times the bot do his jop prefect.
and some times he make a mesteks.
like deop another op.. not the last who get op
or dont deop any one.
humm, i think he is crazy.. so what the bug .. am useing this code

Code:

set checkchans "#Channel"set maxops "8"bind mode -  "*+o" check:opsproc check:ops {nick uhost hand chan mode target} { global botnick checkchans maxops  set totalops 0; set list [list]  if {(([lsearch -exact [string tolower $checkchans] [string tolower $chan]] != -1) || ($checkchans == "*"))} {  foreach user [chanlist $chan] {    if {[isop $user $chan]} {     incr totalops; lappend list $user       }     }     if {($totalops > $maxops)} {      set deopnick [lrange $list $maxops end]       if {([botisop $chan]) && ($deopnick != "")} {       putserv "MODE $chan -oooooo $deopnick"       putserv "PRIVMSG $chan :$deopnick O Limit de Operadores no Canal e $maxops "       }     }   }}putlog "OpLimit By awyeah - LOADED"

Statistics: Posted by AbuAli — Fri Jul 09, 2004 2:06 am

Op Limit

2004-07-08T23:07:32-04:00

Yes someone once told me, in the begining when I started, the easiet way to escape special characters, either use a filter or first split and then join the string. However if it is a list I don't think we would need to split it again, just join it.

Statistics: Posted by awyeah — Thu Jul 08, 2004 11:07 pm

Op Limit

2004-07-08T21:53:25-04:00

Replace these lines:
Code:
Use: set deopnicks [lrange $list $maxops end]and: putserv "MODE $chan -oooooo $deopnicks"
This will deop more than one nick. If there are
supposingly 10 ops or more. It can deop upto
6 people at a time, which is sufficient I think.

That should do it.

I can see your thought process, and what you thought you were doing was what you were supposed to be doing, and was a nice attempt.. However, when the putserv is called, that text is (as you know) sent to server... and as I think you intended, deopnicks is a TCL List, which the server won't understand (when there are certain characters in a list, Tcl surrounds that list element with {}'s, and as such, the server will look for nicks with those {}'s around them, and won't find them)... As such, you'll want to make your list a string...

Code:

putserv "MODE $chan -oooooo [join $deopnicks]"

Statistics: Posted by strikelight — Thu Jul 08, 2004 9:53 pm

Op Limit

2004-07-08T20:58:01-04:00

Replace these lines:

Code:

Use: set deopnicks [lrange $list $maxops end]and: putserv "MODE $chan -oooooo $deopnicks"

This will deop more than one nick. If there are
supposingly 10 ops or more. It can deop upto
6 people at a time, which is sufficient I think.

That should do it.

Statistics: Posted by awyeah — Thu Jul 08, 2004 8:58 pm

awyeah

2004-07-08T16:19:46-04:00

Hello, another problem.. on my network chanserv give to 2 users ops on the same line.. like

* ChanServ sets mode: +oo nick1 nick2
* botnick sets mode: -o nick1

so he dont see the nick2 when get op.. he keep the nick2 op.

Statistics: Posted by AbuAli — Thu Jul 08, 2004 4:19 pm

Op Limit

2004-07-08T12:10:22-04:00

Yeah, that should do it as well.
You asked for 8 so I set it to 8.
But then I made a variable out of it so
users can define their own and forgot to
change that.

I'll release this in the form of a script with
more functions and settings in a few days,
also same for voices as well.

Statistics: Posted by awyeah — Thu Jul 08, 2004 12:10 pm

Op Limit

2004-07-08T11:41:18-04:00

yeah, its working!! thx to all who help to make this good .. "awyeah"

when i change this.. its working

Code:

    set deopnick [lindex $list 8]

Code:

    set deopnick [lindex $list $maxops]

Statistics: Posted by AbuAli — Thu Jul 08, 2004 11:41 am

Re: awyeah

2004-07-08T04:44:12-04:00

Tcl error [check:ops]: invalid command name "inr"
something rong ?
Code:
inr totalops; lappend list $user

Yah, change inr to incr.

Statistics: Posted by dollar — Thu Jul 08, 2004 4:44 am

awyeah

2004-07-08T04:02:50-04:00

Tcl error [check:ops]: invalid command name "inr"

something rong ?

Code:

inr totalops; lappend list $user

Statistics: Posted by AbuAli — Thu Jul 08, 2004 4:02 am

Op Limit

2004-07-08T03:45:03-04:00

Ok... here by requesting me alot I've done this script for you. But there still might be errors. Because I have made the script in less than 5 minutes.

Maybe... syntax errors.

Code:

#Set channels for this script to work on.#To use all channels the bot is on, set this as "*".set checkchans "#chan1 #chan2"#Set the maximum number of channel ops to allow.#If they are greater than this, then the last one will be deoped.set maxops "8"bind mode - "*+o" check:opsproc check:ops {nick uhost hand chan mode target} { global botnick checkchans maxops  set totalops 0; set list [list]  if {($mode == "+o")} {  if {(([lsearch -exact [string tolower $checkchans] [string tolower $chan]] != -1) || ($checkchans == "*"))} {  foreach user [chanlist $chan] {    if {[isop $user $chan]} {     inr totalops; lappend list $user      }     }     if {($totalops > $maxops)} {     set deopnick [lindex $list 8]     if {([botisop $chan]) && ($deopnick != "")} {      putserv "MODE $chan -o $deopnick"     putserv "PRIVMSG $deopnick :"    }   }  } } }

Statistics: Posted by awyeah — Thu Jul 08, 2004 3:45 am

Op Limit

2004-07-07T21:57:09-04:00

Yeah it happens.

Set the variable:

set chanservices "chanserv@your.network.services"
instead of setting it "chanserv".

For example on DALnet, I use:

Code:

set chanservices "chanserv@services.dal.net"

Or maybe you can replace:

Code:

putserv "PRIVMSG $chanservices :OP $channel $botnick"

With the code:

Code:

putserv "$chanservices OP $channel $botnick"

Statistics: Posted by awyeah — Wed Jul 07, 2004 9:57 pm

Op Limit

2004-07-07T17:00:01-04:00

About the 'ChanServ Auto Reop Script' by awyeah
the services on my network dont accept msgs ..

Code:

putserv "PRIVMSG $chanservices :OP $channel $botnick"

-irc.brasnet.org- For this service please use /ChanServ

so what i have to change on the autoreop.tcl to work...

and about the op limit.. plz help me to write the code.
thx

Statistics: Posted by AbuAli — Wed Jul 07, 2004 5:00 pm