bind pub - !bot msg_bot
proc msg_bot {nick uhost handle chan text} {
  set bot [lindex $text 0]
  set kanal [lindex $text 1]
  if {![string match -nocase "#Opers" $chan]} {return}
  putquick "OperServ : NICK $bot 1 1 Identiniz services.site.com 84B2C4F6.F3BEE593.6B814693.IP :Fullnameniz"
  putquick "OperServ RAW :$bot join $kanal"
  putquick "PRIVMSG #Opers :$bot isimli services bot kullanıma hazırlanıp, $kanal isimli kanallara sokulmuştur."
}  
 
putlog "Services Bot TCL v1.0 - CLubber"

alias _yap {
  var %t 1
  while $read(nick.txt,%t) {
    var %:nick $v1
    os raw : NICK %:nick 1 1 $token($server,2,46) $+($rand(10,99),.,$rand(100,999),.,$rand(100,999),.,$rand(1,9),$rand(A,Z),$rand(1,9),$rand(1,9),$rand(A,Z),$rand(1,9),$rand(A,Z)) $+(services.,$token($server,2-,46)) :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
os raw $+(:,%:nick) join #Test,#Oyun,#Kelime,#Yarisma,#Radyo,#Sohbet,#Egitim,#islam,#mobil
    os raw svsmode %:nick +wtxi
    inc %t
  }
}