TcL ini berfungsi untuk mengganti /nick bot anda dengan memanfaatkan (Time) dari idle bot yang sudah di konfigurasikan pada baris TCL set nchange(mins) "60" // adalah waktu yang di hitung per menit, anda bisa merubah sesuai keinginan anda, dan set nchange(nicks) "nick1 nick2 nick3" nick1 nick2 dan nick3 adalah daftar dari nama(nick) bot yang ingin anda pakai, anda bisa memasukkan lebih dari 3, pisahkan dengan <spasi>
############################################
# Name : aNC.tcl
# Desc : Just simple tCL to change $botnick / time
# Owner : computersvirus@hotmail.com
# Auth : eggoez
# Email : eggoez@about.me
# WebBlog : eggoez.com
# /irc.allnetwork.org -j:#ciut (g0eZ)
############################################
#Mulai Konfigurasi auto Nick Change
#waktu (menit) bot ganti nick
set nchange(mins) "60"
#daftar nick
set nchange(nicks) "nick1 nick2 nick3"
putlog "aNC Loaded"
foreach ntimer [timers] {
if {[string match -nocase "*change:nick*" "[lindex $ntimer 1]"]} {
killtimer [lindex $ntimer 2]
}
}
timer $nchange(mins) [list change:nick $nchange(nicks) $nchange(mins)]
set nchange(length) 0
putlog "http://eg-goez.blogspot.com"
proc change:nick {nicks mins} {
global nick nchange
incr nchange(length)
if {"$nchange(length)" > "[llength $nicks]"} { set nchange(length) 1 }
set nick "[lindex $nicks [expr {$nchange(length)-1}]]"
timer $mins [list change:nick $nicks $mins]
}
terimakasih,, semoga bermanfaat ;)
Regards
g0eZ AllNetwork
