Services Bot TCL

[Anti]

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"

» !Bot nick #kanal şeklinde opers kanalında yazdığında botu oluşturup kanallara sokar.

» Botun nicki kayıtlı, admin listte ve en az services admin olması gerekir.

» Kodun içerisindeki Identiniz, Fullnameniz ve services.site.com bölümlerini kendine göre editlersin.