Report

Paste Your code(s) here, for easier sharing

Report

Postby fraguk » Wed Jul 02, 2008 4:50 am

Code: Select all
proc pub:report {nick host hand chan text} {
set pocetOP 0
set pocetVOICE 0
set pocetREG 0
set kanaly 0
set pocet 0
set pocetKANALU [expr [llength [channels]]-1]
  while {$pocetKANALU != "-1"} {
    if {[botonchan [lindex [channels] $pocetKANALU]]} {
      incr kanaly
      if {[botisop [lindex [channels] $pocetKANALU]]} {
        incr pocetOP
      } elseif {[botisvoice [lindex [channels] $pocetKANALU]]} {
        incr pocetVOICE
      } else {
        incr pocetREG
      }
    set pocet [expr $pocet +[llength [chanlist [lindex [channels] $pocetKANALU]]]]
    incr pocetKANALU -1
    } else {
      incr pocetKANALU -1
    }
  }
putserv "PRIVMSG $chan :I am currently on \0034\002$kanaly\002\003 channel(s) with a total of \0034\002$pocet\002\003 users. I am opped on \0039\002$pocetOP\002\003, voiced on \0039\002$pocetVOICE\002\003 and regular on \0039\002$pocetREG\002\003 channel(s)."
}
   bind pub - !report pub:report
fraguk
 

Re: Report

Postby fraguk » Wed Jul 02, 2008 4:57 am

channel output from bot..

!report
Treshold I am currently on 5 channel(s) with a total of 109 users. I am opped on 3, voiced on 2 and regular on 0 channel(s).
fraguk
 

Re: Report

Postby Lukemob » Wed Jul 02, 2008 7:53 pm

I see it has a CZ names of variables... heh, nice :-)
Lukemob
 


Return to TCL Scripting Paste

Who is online

Users browsing this forum: No registered users and 2 guests

cron