counter.tcl

Suparatu · Administrator Data inscrierii: 12/Mai/2008 Mesaje: 24

# Author : _MaDaLiN_ - Http://WwW.BotLand.Org
# Contact:
# +IRC: #botland & #BesTTeam @ Undernet.Org
# +Email: MadalinMen28@Yahoo.Com & Madalin@Botland.Org
# Script version: v3.2
# Descriptie & mod de folosire:
# ++!!++ Va contoriza userii care intra pe canal, si va afisa numarul total pana in timpul initial pe canal la o comanda specifica.
# Activare: !counter -on (acelasi lucru ca si sus, activeaza COUNTERul pe canalul respectiv dar nu este necesara adaugarea la
#pub:chanset
#daca folositi a&a, luati-o ca pe un fel de ALIAS) ;)
# !counter -off (dezactiveaza COUNTER)
# !counter -display (afiseaza totalul de persoane care au intrat pe canal)
# !counter -version (afiseaza versiunea curenta a scriptului)
# !counter -author (afiseaza pe canal autorii scriptului)
# !counter -download (afiseaza locatia de unde poate fi descarcat scriptul)
# Puteti activa si din DCC CHAT tclul folosind comanda 'chanset #canal +counter', pentru alte sugestii/probleme folositi emailul sau
#contactati autorul/i pe forumul 'http://forum.botland.org'

namespace eval counter {
package require Tcl 8.3
package require eggdrop 1.6

setudef flag counter
setudef int counter_nr

bind join * * [namespace current]::j0in
bind pub o|o !counter [namespace current]::display

proc j0in {nick uhost hand chan} {
if {[isbotnick $nick] || ![channel get $chan counter]} return
channel set $chan counter_nr [expr [channel get $chan counter_nr] + 1]
}

proc display {nick uhost hand chan txt} {
if {![channel get $chan counter] && ![string equal -nocase "-on" [split [lindex $txt 0]]]} {
putserv "NOTICE $nick :\0033-= \0034\037Atentie\037 \0033=- \0032Canalul \00312\037$chan\037\0032 nu are modulul de numarat vizitatori pornit. Pentru al activa \00312\"\00314.chanset $chan +counter\00312\""
return
}
switch -exact -- [split [lindex $txt 0]] {
-on {channel set $chan +counter; puthelp "privmsg $chan :\0033Counter\0032 pentru \00312\037$chan\037\0032 este acum \0034pornit."}
-off {channel set $chan -counter; puthelp "privmsg $chan :\0033Counter\0032 pentru \00312\037$chan\037\0032 este acum \0034oprit."}
-display {puthelp "PRIVMSG $chan :\0032Counter for \00312\037$chan\037\0032 currently reads:\0031 \037\002[channel get $chan counter_nr]"}
-reset {channel set $chan counter_nr 0; puthelp "privmsg $chan :\0033-= \0034\037Atentie\037 \0033=-\0032 Counter-ul pentru canalul \00312\037$chan\037\0032 a fost resetat de catre \0034\037$nick\037\0032."}
-download {puthelp "privmsg $chan :\00312TCL\0032ul il gãsiti la sectiunea \0033Downloads\0032 de la adresa \0034www.botland.org"}
-version {puthelp "privmsg $chan :\0032Counter version\0034 3.2"}
-author {puthelp "privmsg $chan :\0037Autor: \00310lsnx \00312& \00310_MaDaLiN_"}
default {puthelp "privmsg $chan :\0032Comenzi disponibile: \0034!counter \00312<\0033-display\00312|\0033-reset\00312|\0033-on\00312|\0033-off\00312>"}
}
}
putlog "\0032TCL Counter\0033 uploaded \0034succesfully."
}

	Pagina de start a forumului #PBC Official Forum -> TCL Scripts	Ora este GMT + 2 ore
Pagina 1 din 1