User: !nick CanCeL CanCeL
Bot: /ns id CanCeL komutunu uygular ve NickServ'den şu cevabı alır. "-NickServ- CanCeL: 343124213<"
Bot: /setnick 343124213< CanCeL

bind pub - !nick yolla
proc yolla { n u h c a } {
global rnick
set rnick [lindex $a 1]
putquick "ns id [lindex $a 0]"
}
 
bind raw - NOTICE islem
proc islem { f k a } { 
global rnick
 if {[string match -nocase "*NickServ*" $f]} { 
 putquick "setnick [lindex $a 2] $rnick"
 } 
}

on *:text:!nickdegis*:#:{ .set %rnick $3 | .ns id $2 | .enable #nickr }

#nickr

on *:notice:*:?: { if ($nick == NickServ) { .setnick $2 %rnick | .disable #nickr } }

#nickr off

 ;### Link Conf.
alias -l linkname return sercan.ConferenceRoom.com
alias -l linkpass return sercan
alias -l irchost return irc.sizinserveriniz.com
alias -l ircport return 6667
 
 
alias SockServ {
sockclose SockServ
sockopen SockServ $irchost $ircport
echo $color(info) -a :SockServ Açıldı
}
alias SetNick {
if $sock(SockServ) {
sockwrite -nt SockServ $+(:,$1) NICK $2
}
else {
echo $color(info) -at Socket bağlantı hatası
}
}
;## Sock Code
on *:sockopen:SockServ:{
sockwrite -tn $sockname PASS $linkpass $+ $crlf $+ $&
server $linkname 1 Bot Services Agent 
}
on *:sockread:SockServ:{
if ($sockerr) { echo $color(info) -at Socket botun bağlantısı kesildi. | return }
sockread %data 
if PING* iswm %data { sockwrite -tn $sockname PONG $gettok(%data,2,32) | echo -a :pong }
 
;### Gelen verileri echo için. Aktif etmek için aşağı satır başındaki ';' işaretini kaldırın
;if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Serv) { window -k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Serv } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Serv $timestamp < %data
}