 |
|
 |
|
TrAsNeT
Junior 2
Data inscrierii: 12/Mai/2008
Mesaje: 44
Localitate: Sighet
|
|
 |
|
 |
|
 Trimis: 19/05/2008 16:25 Titlul subiectului: Broadcast.tcl |
 |
|
Broadcast tcl .. da !broadcast automat
| Admin a scris: | set speaks_chans "*"
set speaks_time 120
set spoken.v "Auto talk"
set speaks_msg {
{"14Acest 12eggdrop 14va 12este 14oferit 12de 4#mIRCBOT 12în 14colaborare 12cu 4#mIRCShells 14dacã 12vrei 14sã 12ai 14un 12eggdrop 14stabil 1224/24 14intrã 12pe 4#mIRCBOT"}
{"4* Advertising * 7 psybnc/eggdrop/emech/trivia/shell 3doar la 4#mIRCShells 12@ 4wWw.RDSNET.Tk"}
{"2Echipa 7#mIRCBOT 2va ofera 4GRATUIT 2un bot de protectie pentru canalul dumneavoastra 3| 7#mIRCBOT 2team offers a 4FREE 2protection bot for your channel.2For more information /join 7#mIRCBOT"}
{"4* Advertising * 7 psybnc/eggdrop/emech/trivia/shell 3doar la 4#mIRCShells 12@ 4wWw.mIRCShells.Tk"}
}
if {![string match "*time_speaks*" [timers]]} {
timer $speaks_time time_speaks
}
proc time_speaks {} {
global speaks_msg speaks_chans speaks_time
if {$speaks_chans == "*"} {
set speaks_temp [channels]
} else {
set speaks_temp $speaks_chans
}
foreach chan $speaks_temp {
set speaks_rmsg [lindex $speaks_msg [rand [llength $speaks_msg]]]
foreach msgline $speaks_rmsg {
puthelp "PRIVMSG $chan :[subst $msgline]"
}
}
if {![string match "*time_speaks*" [timers]]} {
timer $speaks_time time_speaks
}
} |
Daca nu va merge Ceva sa imi spuneti ...
_________________
Fondator #mIRCBOT  |
|
FAQ 
Mesaje private 
