Report

[fraguk]

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]

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

[Lukemob]

I see it has a CZ names of variables... heh, nice