tCL pintar ini di buat oleh primo (#mojok AllNetwork)
Oke langsung saja.. begini scriptnya:
set nickpass "password nick kamu" set siaran "#ciut" set idtime 15 set idnicks { "nick01" "nick02" "nick03" "nick04" } bind notc f * report if {[string compare [string index $idtime 0] "!"] == 0} { set timer [string range $idtime 1 end] } { set timer [expr $idtime * 60] } if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go } proc go {} { global idtime idnicks timer nickpass putquick "ns identify [lindex $idnicks [rand [llength $idnicks]]] $nickpass" if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go } } proc report { nick uhost hand args botnick } { global siaran putquick "PRIVMSG $siaran :$nick- $args" }Nah tcl di atas adalah tcl yang buat identify nick anda ke NickServ dengan banyak nick dan password sama Lalu bagaimana jika setiap nick mempunyai password yang berbeda, ini lah tcL nya:
set siaran "#ciut" set idtime 15 set idnickpasswds { "nick01 passnick01" "nick02 passnick02" "nick03 passnick03" "nick04 passnick04" } bind notc f * report if {[string compare [string index $idtime 0] "!"] == 0} { set timer [string range $idtime 1 end] } { set timer [expr $idtime * 60] } if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go } proc go {} { global idtime idnickpasswds timer putquick "ns identify [lindex $idnickpasswds [rand [llength $idnickpasswds]]]" if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go } } proc report { nick uhost hand args botnick } { global siaran putquick "PRIVMSG $siaran :$nick- $args" }Oke jadi seperti itulah scripts nya :D
Informasi untuk idtime adalah waktu yang digunakan untuk konfigurasi bot mengidentifikasi nick anda, sedangkan siaran adalah channel yang digunakan bot untuk menginformasikan dia teridentifikasi sebagai nick yang mana, catatan... bot akan menginformasikan apabila nick NickServ sudah menjadi teman bot, maka dari itu jangan lupa addfriend NickServ ya di userlist nya,,,
semoga bermanfaat ;)