TCL - Random Nick Identify

Last Updated on Wednesday, 05 September 2012 16:36 Written by Admin Wednesday, 13 August 2008 06:33

Attention: open in a new window. PDFPrintE-mail

 

Punya banyak nick n repot identify nicknya satu² biar ga drop???
Nih solusinya biar gampang n ga repot, masukin aja nick kamu ke tcl berikut ini, biar botnya yg identify ke NickServ :-)

Kalo password nicknya sama semua pake yang ini:

set nickpass "password nick kamu"
set siaran "#Mojok"
set idtime 5
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"
}

Trus kalo password nicknya beda² pake yang ini:

set siaran "#Mojok"
set idtime 5
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"
}