Guestlerin nickini oto değiştiren tcl

[Root]

Guestlerin nickini oto değiştiren tcl
guestnickleri oto degişir tcl icindeki nickleri siz belirliyebilirsiniz .

## Nick Değiştirme
set Gnick {
"Guest"
}


set arg.v "Guest Nicki Değiştirme"

bind join - * Detected_Gnick

proc Detected_Gnick {nick uhost hand chan} {
global Gnick botnick ynick
if {(![matchattr $hand b]) && ($nick != $botnick)} {
foreach guestnick [string tolower $Gnick] {
if {[string match *$guestnick* [string tolower $nick]]} {
set rnick [lindex $ynick [rand [llength $ynick]]]
putserv "privmsg Operserv raw :Nickserv svsnick $nick $rnick :0"
return 0
}
}
}
}

set ynick {
"bulent^^"
"memocan"
"ayse"
"sindirella"
"coskunn"
"amett"
"cansun"
"zavazingo"
"nergiZ"
"tUtkU"
"morcivert"
"limonii"
"ebruLi^^"
"_predator_"
"^^parkie^^"
"apollon12"
"firuzeee"
"leyla__"
"sibellam"
"b0mb3r"
"mUnCuXxX"
"merzifonLu"
"fiat`diabLo"
"zUhTum"
"abuzuttunn"
"`aLpEr"
"0xx0"
"eCeLss"
"bangi"
"X-files"
"{ali}"
"mutsuz``"
"katilbalina"
"dostclup1"
"dostclup2"
"kimimcom1"
"Ssibel"
"Kevin21"
"Cehennemm"
"AYDINn"
"araniyor"
"Sohbetci"
"BatmanLı"
"Alemci"
"efe"
"Zerfer"
"Queenn"
"questx"
"AmedLi"
"GoSde"
"Ceydaaist"
"sessizGEce"
"sessizGEce^^"
"sessizGEce1"
}

## -----------------------------------------------------------------------
putlog "-=-= GuestNick Değiştirme =-=-=-=-=-"
putlog "GuestNick Değiştirme Scripti 1.1:"
putlog "${arg.v} Başarı ile yüklendi..."
putlog "diE (coder@ircforumlar.comt)"
##------------------------------------------------------------------------
## *** Guestnick.TCL ***
## -----------------------------------------------------------------------