Advertisement
Atomico1980

Listar canales

Jun 13th, 2020
601
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #Proceso publico para ver en que canales esta el bot Sentinela
  2. bind pub n|n !canales proc_canales
  3. set adminchans "#canal"
  4. proc proc_canales {nick uhost hand chan arg} {
  5. global adminchans
  6.     if {([lsearch -exact [string tolower $adminchans] [string tolower $chan]] != -1) || ($adminchans== "")} {
  7.  putquick "PRIVMSG $adminchans : Listando Canales: [cl_chanlist]"
  8. }
  9. }
  10. # Proceso dcc para ver en que canales esta el bot Sentinela
  11.  
  12. proc cl_chanlist { } {
  13. global botnick
  14. set chanlist ""
  15.     foreach c [channels] {
  16.         if {![onchan $botnick $c]} {
  17.             set chan "${c}(trying)"
  18.         } elseif {[isop $botnick $c]} {
  19.             set chan "@$c"
  20.         } elseif {(![isop $botnick $c]) && ([isvoice $botnick $c])} {
  21.             set chan "+${c}"
  22.         } elseif {![isop $botnick $c]} {
  23.             set chan "${c}"
  24.         } elseif {[isvoice $botnick $c]} {
  25.             set chan "+$c"
  26.         } else {
  27.             set chan $c
  28.         }
  29.         if {[isdynamic $c]} {
  30.             set chan "${chan}"
  31.         }
  32.         append chanlist "$chan "
  33.        
  34.     }
  35. return $chanlist
  36. }
Advertisement
RAW Paste Data Copied
Advertisement