Explorando: ./tcl

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.

⬅️ Volver

Vista previa de: AutoTalk.tcl

####### Set your channel # su canal donde estara activa la tcl, puede usar muchos canales ejemplo #micanal1 #micanal2 set send_chans "#MP3PASSION #TRAFFIC" # Set Timer one line after X mins # tiempo de lanzamiento por lineas es por minutos defina por defecto esta cada 2 minutos set send_time "5" # Set Your Messages. You can insert more messages caz is every X min an random message from the list.. # coloque abajo los mensajes que lanzara el bot en tu canal set send_msg { "!new" "To see what I share type in the 4@Mp3xAriela channel and I'll send you my list!!" "EX: 4/say @locator Billy Esteban | Aparecer� o resultado em seu PVT voc� pegue e cole no canal..: Ex: 4!Mp3xAriela Billy Esteban - Fly With Me.mp3" "Is there a bad pack4? ... send a message to some (4@) Channel Operator." "Hi! Do you have something to offer? We are looking for routers, dedicated servers, minimum load servers of 50mbs. 4Interested? ...send a private to a channel operator." "Please Tell Your Friends About This Chan, And Tell Them To Join! More Users = 4More Servers." "Please Report Any 4Spam Or Invite Messages To A Channel OP." "Having problems opening rar files4? Use 7Zip or 4update your WinRar." "When searching for a tune try to include the album title, makes it easier to find." "Collect what you want - No limit in #Mp3Passion" "If your server doesn't work please turn it off!" "Please only copy/paste 4 or 5 mp3s at a time in to the channel so you dont flood our servers." } ######################################### #!!!!!!DO NOT EDIT AFTER THIS LINE!!!!!!# ######################################### if {![string match "*time_send*" [timers]]} { timer $send_time time_send } # set a global variable to track the next line to say # if {![info exists send_next]} { set send_next 0 } proc time_send {} { global send_msg send_chans send_time send_next # save the msg line to say now # set nextline [lindex $send_msg $send_next] # and advance the global var to the next msg line number # incr send_next if {$send_next >= [llength $send_msg]} { set send_next 0 } if {$send_chans == "*"} { set send_temp [channels] } else { set send_temp $send_chans } foreach chan $send_temp { puthelp "PRIVMSG $chan :$nextline" } # move the timer set and return to outside of the foreach loop # timer $send_time time_send return 1 }

👁️ 5 vistas • 📥 0 descargas

⬆ Subir