auto deop & devoice

[KONTOL]

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

[Alchera]

Tcl Archive

Using "autovoice" or "autoop" you should find a number of scripts that need little or no editing.

[awyeah]

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: Select all

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

[ZEXEL]

thanks @awyeah & nice job!

[ircguru]

if we already have more bots the bot will aslo deop the other bot ? if they are idle????

[awyeah]

if we already have more bots the bot will aslo deop the other bot ? if they are idle????

Yes indeed..