Checkflags script

Do you have script in mind but no ability to make it, type in what it should do, and you might be lucky.

Checkflags script

Postby boderox » Sun Jun 29, 2008 7:02 pm

one checkflags script for request botservice
ir very nice ..

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

Re: Checkflags script

Postby Dandy » Sun Jun 29, 2008 7:20 pm

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.
Dandy
 

Re: Checkflags script

Postby boderox » Sat Jul 05, 2008 2:47 am

what i need to change on script for work? :x
boderox
 

Re: Checkflags script

Postby fraguk » Sun Jul 06, 2008 9:44 pm

Dandy wrote: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 ??
fraguk
 

Re: Checkflags script

Postby Dandy » Sun Jul 06, 2008 10:24 pm

fraguk wrote:
Dandy wrote: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 ;)
Dandy
 

Re: Checkflags script

Postby fraguk » Sun Jul 06, 2008 11:18 pm

Hmm, np m8 ;) il ask lukemob to try and finish it for ppl 8-)
fraguk
 

Re: Checkflags script

Postby Lukemob » Mon Jul 07, 2008 10:10 am

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 ;-))
Lukemob
 

Re: Checkflags script

Postby fraguk » Mon Jul 07, 2008 10:16 am

Thanks lukemob m8, when you got time would be nice ;)
fraguk
 

Re: Checkflags script

Postby Cristian » Mon Jul 07, 2008 10:32 am

I always say when time is put into a script or project, the outcome will be outstanding. ;)
Cristian
proof of advance
proof of advance
 
Posts: 282
Joined: Sun Nov 04, 2007 3:02 pm
Location: Denmark
Authnick: Sumsar

Re: Checkflags script

Postby Lukemob » Thu Jul 10, 2008 9:07 am

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


Return to TCL Scripting Request

Who is online

Users browsing this forum: No registered users and 1 guest

cron