[TCL] Auto Indentify with Change Nick

Hallo semua,, TCL ini terbuat kerena di AllNetwork yang mulai kemarin malam upgrade service jadi tidak bisa lagi memakai TCL Auto Indentify yang dulu, jika yang dulu bot tidak ganti nick alias nick sama di script itu hanya membuat perintah /msg NickServ Identify nick pass nah karena because selalu always :P di AllNet yang sekarang di upgrade servicenya, jadi tidak bisa lagi identify nick menggunakan perintah /ns id nick pass hmm cukup buat bingun sih (awalnya) ketika saya semalem online melihat bot saya incorrect parameter identify, akhirnya tanya ArDiaN ya begitulah,, kalau mau ident nick sekrang musti menggunakan nick yang mau di ident dan mengetik /ns id pass langsung aja sih,, hmmm,, akhirnya kepikiran bagaimana nasib nick²ku ea --"
Setelah guling guling dengan link karena googling ga nemu² akhirnya punya inisiatif buat sendiri saja lah.. wkwkw.. awalnya saya hany berfikir menambah line atau tugas lagi sebelum bot melakukan ident untuk mengganti nick terlebih dahulu, tapi jika dilihat dari tCL yang dulu, disitu ada [rand otomatis akan random nick dan belum tentu sama passwordnya, akhirnya punya inisiatif lagi untuk mencari tCL autonickchange yang mudah saja sih editnya, hanya tinggal menambah sedikit scripts saja, alhasil terciptalah taraaa....
TCL auto change nick + indent nick to nickserv (solusi bot auto id allnetwork 2014) :D
TCL ini akan mengganti nick bot lalu kemudian menjalankan identifikasi pada NickServ dengan password yang sudah di setting di konfigurasinya..

#################################################################################################################
# t(C)L Name : botidnick14.tcl
# Version  : 2.6.3.14 (Testing)
# Description : This TCL Allow Bot to Indentify Nick with change nick // This tcl is update to AllNetwork not support /ns id nick pass
# Author  : eggoez
# Email  : eggoez@about.me
# WebBlog  : eggoez.com
# Thanks for tRiNe :* and ArDiaN (AllNet)
#################################################################################################################
# konfigurasi
# waktu ganti nick (/nick)
set nchange(mins) 10
# daftar nick dan password
set nchange(nicks) {
nick1 pass1
nick2 pass2
nick3 pass3
}
# scripts mode --"
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 "Auto Indentify with Change Nick Loaded"
proc change:nick {nicks mins} {
global nick nchange
set nchange(length) [expr {$nchange(length)%[llength $nicks]}]
set nick [lindex $nicks $nchange(length)]
set nchange($nick) [lindex $nicks [incr nchange(length)]]
incr nchange(length)
timer $mins [list change:nick $nicks $mins]
}
putlog "Versi Beta1 uji coba"
bind nick - * identify:nick
putlog "Error bug ke eggoez.com"
proc identify:nick {n uhost hand chan nn} {
global nchange
if {[isbotnick $nn] && [info exists nchange($nn)]} {
putserv "NickServ :identify $nn $nchange($nn)"
unset nchange($nn)
}
}
putlog "#ciut irc.allnetwork.org"

TCL di atas adalah versi beta, alias uji coba, saya masih test untuk tCL yang ini.. Error bisa anda sampaikan ke eggoez.com/contact.php atau anda bisa ke sever irc.eggoez.com chan #ciut
Terimakasih...

Regards..
g0eZ egGo