All Op Tcl (Need Help)

[WeiJie]

Hi guys,

I'm looking for this particular which ops all users in a particular channel BUT only current IP... Like...

*!*@.*.com.sg
*!*@.*.egghelp.org

And not op other users with another ISP/Domain hostmask...
Anyone have it? Or any solutions?

[user]

You're looking for the docs? .help +user & .help whois & .help chattr & .help +host (add a user with the autoop flag + the hosts you want autooped)

[awyeah]

Okay.... You can do either one of the stuff here I mentioned.

Code: Select all

#Set the IPS to match
set ipsmatch {
"*.com.sg"
"*.egghelp.org"
}

proc name {nick uhost ........} {
 global ipsmatch 
   foreach ipmatch [string tolower ipsmatch] {
    if {([string equal -nocase $ipmatch [lindex [split [maskhost $uhost] "@"] 1]])} {
    #do stuff here

#Or, alternatively you can make a list

set ipsmatch "com.sg egghelp.org elite.com"
#And do a list search, and check if the ip matches:

if {([lsearch -exact [split [string tolower $ipsmatch]] [string tolower [lindex [split [maskhost $uhost] "@"] 1]]] != -1)} { 

[WeiJie]

Hi
1) Is this a TCL coding?
2) If i place this coding in .tcl, will it works and auto-op *.com.sg and *.egghelp.org?

Sorry, i dunno anything about coding stuffs regarding tcl...

Okay.... You can do either one of the stuff here I mentioned.

Code: Select all

#Set the IPS to match
set ipsmatch {
"*.com.sg"
"*.egghelp.org"
}

proc name {nick uhost ........} {
 global ipsmatch 
   foreach ipmatch [string tolower ipsmatch] {
    if {([string equal -nocase $ipmatch [lindex [split [maskhost $uhost] "@"] 1]])} {
    #do stuff here

#Or, alternatively you can make a list

set ipsmatch "com.sg egghelp.org elite.com"
#And do a list search, and check if the ip matches:

if {([lsearch -exact [split [string tolower $ipsmatch]] [string tolower [lindex [split [maskhost $uhost] "@"] 1]]] != -1)} { 

[awyeah]

Na... this is the main piece of code you will be using for the script.
If I had time I would have completed it, though.

IN PARTYLINE:
Alternatively, how about adding *!*@*.com.sg with a +o flag.
Say make another user id, give it flag +o, and .+host (add hosts)
as many as you like.

This will use the bots internal autoop mechanism. The channels to
enable autoop on, set them to +autoop.

[WeiJie]

Oh ok, but what if i want the tcl to work only on some particular channels?

[awyeah]

For that, set a variable to a list of channels you would like the script to work on. Use lsearch to check if it matches any of the channels, if it does go ahead do your stuff, otherwise halt.

[arcane]

why do we always have to make it complicated...

[WeiJie]

why do we always have to make it complicated...

[WeiJie]

Tried the PARTYLINE method and it doesn't seems to work for me...
Wonder where does the problem lies at... This is what I did:

1) Add a user (.+user)
2) +o flag to that user
3) Add host (.+host *!*@*.com.sg)
4) Set the channel to autoop (.chanset # +autoop)

But when a *!*@*.com.sg user joined, it doesn't op them.
Why?

Na... this is the main piece of code you will be using for the script.
If I had time I would have completed it, though.

IN PARTYLINE:
Alternatively, how about adding *!*@*.com.sg with a +o flag.
Say make another user id, give it flag +o, and .+host (add hosts)
as many as you like.

This will use the bots internal autoop mechanism. The channels to
enable autoop on, set them to +autoop.

[Alchera]

There's a timed delay to allow ChanServ to perform the function first.

[awyeah]

You should check this.

# aop-delay (minimum:maximum)
# This is used for autoop, autohalfop, autovoice. If an op or voice joins a
# channel while another op or voice is pending, the bot will attempt to put
# both modes on one line.
# aop-delay 0 No delay is used.
# aop-delay X An X second delay is used.
# aop-delay X:Y A random delay between X and Y is used.

IN PARTYLINE (DCC with the bot): (you can try one of these)

Code: Select all

.chanset <#channel> aop-delay 0
.chanset <#channel> aop-delay 5
.chanset <#channel> aop-delay 5:10

[WeiJie]

Thanks alot!