Checkflags script

[boderox]

one checkflags script for request botservice
ir very nice ..

Checkflags if dont have +ao on channel
Channel removed by bot Reason : no Flags
...
;D

[Dandy]

I'll give it a try and come up with some code that will inspire you.

Code: Select all

proc checkaccess {chan} { puthelp "PRIVMSG Q :chanlev $chan $::botnick" }
bind msgm Q * q:accessreturn;
proc q:accessreturn {nick uhost handle arg} {
if {[string match -nocase [lrange $arg 0 6] "You do not have sufficient access on"] && [string match -nocase [lrange $arg 8 end] "to use chanlev."]} {
putquick "PART [lindex $arg 7] :No channel flags in Q."
channel remove [lindex $arg 7]
}
if {} { // check if equal to: Flags for Botnick on #channel: flags
if {} { // check if the bot has sufficient flags
// fine the bot has the flags.
} else {
putquick "PART [lindex $arg 4] :No channel flags in Q."
channel remove [lindex $arg 4]
}
}
}

You would add Q to your userlist and give it global +Q, but there are a few missing things in the script that you would have to solve.

[boderox]

what i need to change on script for work?

[fraguk]

I'll give it a try and come up with some code that will inspire you.

Code: Select all

proc checkaccess {chan} { puthelp "PRIVMSG Q :chanlev $chan $::botnick" }
bind msgm Q * q:accessreturn;
proc q:accessreturn {nick uhost handle arg} {
if {[string match -nocase [lrange $arg 0 6] "You do not have sufficient access on"] && [string match -nocase [lrange $arg 8 end] "to use chanlev."]} {
putquick "PART [lindex $arg 7] :No channel flags in Q."
channel remove [lindex $arg 7]
}
if {} { // check if equal to: Flags for Botnick on #channel: flags
if {} { // check if the bot has sufficient flags
// fine the bot has the flags.
} else {
putquick "PART [lindex $arg 4] :No channel flags in Q."
channel remove [lindex $arg 4]
}
}
}

You would add Q to your userlist and give it global +Q, but there are a few missing things in the script that you would have to solve.

It would be nice if you could post the the finished script that works, maybe with a timer to check flags every 60 minutes ??

[Dandy]

I'll give it a try and come up with some code that will inspire you.

Code: Select all

proc checkaccess {chan} { puthelp "PRIVMSG Q :chanlev $chan $::botnick" }
bind msgm Q * q:accessreturn;
proc q:accessreturn {nick uhost handle arg} {
if {[string match -nocase [lrange $arg 0 6] "You do not have sufficient access on"] && [string match -nocase [lrange $arg 8 end] "to use chanlev."]} {
putquick "PART [lindex $arg 7] :No channel flags in Q."
channel remove [lindex $arg 7]
}
if {} { // check if equal to: Flags for Botnick on #channel: flags
if {} { // check if the bot has sufficient flags
// fine the bot has the flags.
} else {
putquick "PART [lindex $arg 4] :No channel flags in Q."
channel remove [lindex $arg 4]
}
}
}

You would add Q to your userlist and give it global +Q, but there are a few missing things in the script that you would have to solve.

It would be nice if you could post the the finished script that works, maybe with a timer to check flags every 60 minutes ??

Sorry im not the best at tcl, else i would have made the rest of the script

[fraguk]

Hmm, np m8 il ask lukemob to try and finish it for ppl

[Lukemob]

Well, as you're m8 and many people already asked me for that... I'll make it. Just give me a time, I'm very busy with a coding... so, when I find a free time, I'll do it. (Can't say exactly when it could be done, sorry )

[fraguk]

Thanks lukemob m8, when you got time would be nice

[Cristian]

I always say when time is put into a script or project, the outcome will be outstanding. ;)

[Lukemob]

As I code, I'm sure about that.. you're right.