| View previous topic :: View next topic |
| Author |
Message |
KONTOL
Voice
Joined: 20 Mar 2007
Posts: 3
|
 Posted: Tue Mar 20, 2007 1:12 am Post subject: auto deop & devoice |
 |
|
Does any one can help us to write a standalone tcl script that can read:
*** HG`Net`Berau is away: O....F.......F.....................
*** pletok- has been idle 8hrs 11mins 31secs, signed on Tue Mar 20 02:10:46
that will be show when we WHOIS some one on dalnet irc.
The bot will be check all of the nick on some channel every xxx minutes like we want and then if match, then bot will be deop or devoice that nick. I hope some one can help us! I just need standalone script not all-in-one like AllProtection. And I've been searching all around of Tcl Archive but doesn't finded the good one! 
Thank you very much for your attention and I appriciated... 
_________________
[ I'm not ready yet! ] |
|
| Back to top |
|
 |
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Tue Mar 20, 2007 2:25 am Post subject: |
|
|
Tcl Archive
Using "autovoice" or "autoop" you should find a number of scripts that need little or no editing.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
awyeah
Revered One
Joined: 26 Apr 2004
Posts: 1580
Location: Switzerland
|
| Posted: Tue May 08, 2007 9:36 pm Post subject: |
|
|
Heres a similar script I coded, it uses chanserv why replies to find out. You can check it out, though you need to modify the active channels and upto which chanserv access level the bot can deop the user.
It runs every 15mins and checks all idle ops and deops if they are idle for an hour or more and voices them instead.
| Code: |
bind time - "*" idle:ops
bind notc - "*" idle:ops:chanserv:why
proc idle:ops {m h d mo y} {
global botnick chanserv idledeop
if {$m} {set m [string trimleft $m 0]}
if {$m % 15 == 0} {
foreach chan "#klsex #miri" {
foreach user [chanlist $chan] {
if {[isop $user $chan] && ![isbotnick $user] && ![string equal "awyeah" $user] && ![string equal "enforcing" $user] && ([getchanidle $user $chan] > 60)} {
putserv "PRIVMSG $chanserv :WHY $chan $user"
if {[info exists idledeop]} { unset idledeop }
set idledeop 1
}
}
}
}
}
proc idle:ops:chanserv:why {nick uhost hand text {dest ""}} {
global botnick idledeop
if {[info exists idledeop]} {
set text [stripcodes bcruag $text]
if {[isbotnick $dest] && [string equal "ChanServ" $nick] && [string match "*has * access to #* *Reason:*" $text] && [string equal -nocase "#klsex" [string trimright [lindex $text 5] .]] || [string equal -nocase "#miri" [string trimright [lindex $text 5] .]]} {
if {[string equal "AOp" [lindex $text 2]] || [string equal "NO" [lindex $text 2]]} {
utimer [rand 60] [list putquick "MODE [string trimright [lindex $text 5] .] -o+v-k [lindex $text 0] [lindex $text 0] 2Idle.op.12deoped.and.2voiced" -next]
if {[info exists idledeop]} { unset idledeop }
}
}
}
}
|
Note: edited as there was a small bug
_________________
·awyeah·
==================================
Facebook: jawad@idsia.ch (Jay Dee)
PS: Guys, I don't accept script helps or requests personally anymore.
==================================
Last edited by awyeah on Fri May 11, 2007 8:57 am; edited 3 times in total |
|
| Back to top |
|
|
ZEXEL
Halfop
Joined: 27 Jun 2006
Posts: 45
|
| Posted: Wed May 09, 2007 12:18 am Post subject: yeah.. |
|
|
thanks @awyeah & nice job! 
_________________
.:[ Knowledge Is The Power ]:. |
|
| Back to top |
|
|
ircguru
Voice
Joined: 21 Jul 2007
Posts: 5
|
| Posted: Sat Aug 04, 2007 4:37 pm Post subject: ayeah sir |
|
|
| if we already have more bots the bot will aslo deop the other bot ? if they are idle???? |
|
| Back to top |
|
|
awyeah
Revered One
Joined: 26 Apr 2004
Posts: 1580
Location: Switzerland
|
| Posted: Sun Aug 05, 2007 8:25 pm Post subject: Re: ayeah sir |
|
|
| ircguru wrote: | | if we already have more bots the bot will aslo deop the other bot ? if they are idle???? |
Yes indeed..
_________________
·awyeah·
==================================
Facebook: jawad@idsia.ch (Jay Dee)
PS: Guys, I don't accept script helps or requests personally anymore.
================================== |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
