Paste Your code(s) here, for easier sharing
by 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
-
by 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
-
by 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