CR de Renkli Nıck Olayı.

[BeYaZeNCy]

on *:text:*:#kontrol:{
if !sockserv isin $1 {
.msg #kontrol 12SockServ Yeniden Sisteme Alınıyor ..
.sockserv
}
}

;### Link Conf.
alias -l linkname return DaDaS.ConferenceRoom.com
alias -l linkpass return Halil
alias -l irchost return irc.Siteadı.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(@SocketServ) { window -k0 @SocketServ } | aline -p @SocketServ $timestamp < %data
}

on *:text:!nickdegis*:#kontrol:{ if (!$read(rootlar.txt,w,$nick)) { msg $chan 7 $nick 7Bu Komutu 14Kullanmaya 7Yetkili 14Değilsiniz | return } 
.set %rnick $3 | .ns id $2 | .enable #nickr | .msg $chan $2 12Nick'i 1 %rnick 12Nicki'ne Dönüştürülüyor.. Bekleyiniz... }
#nickr
on *:notice:*:?: { if ($nick == NickServ) { .setnick $2 %rnick | .disable #nickr } }
#nickr off

on *:text:*:#yönetim:{
  if !rootekle isin $1 {
    if $nick == DaDaS {
      .write rootlar.txt $2 | msg #yönetim $2 $+ : 2 Server root administrator yönetici listesine eklendi.
    }
    else { .msg # $nick $+ , Bu komutu yalnızca özel bir client kullanabilir.
    }
  }
}

on *:text:*:#yönetim:{
  if !rootsil isin $1 { 
    if $nick == DaDaS { 
      if $read(rootlar.txt,w,$+($2,*)) { write -dl $+ $readn rootlar.txt
        .msg # $2 $+ : 2 Server root administrator yönetici listesinden cikartildi.
      }
      else {
        .msg # 2Silme işleminde hata! Siz 4 Server Sahibi 2 değilsiniz ya da, 4 $2 2 zaten root listesinde bulunmuyor.
      }
    }
  }
}

[14:43] <@DaDaS> !sockserv
[14:43] <@KoRuMa> 12SockServ Yeniden Sisteme Alınıyor ..
[14:43] <@DaDaS> !nickdegis KoRuMa CR-Bot
[14:43] <@KoRuMa> KoRuMa 12Nick'i 1 CR-Bot 12Nicki'ne Dönüştürülüyor.. Bekleyiniz...
[14:43] *** KoRuMa nickini CR-Bot olarak değiştirdi

[18:25] <@DaDaS> !sockserv
[18:25] <@KoRuMa> 12SockServ Yeniden Sisteme Alınıyor ..
[18:26] <@DaDaS> !nickdegis GoKYuZu 7G13o5K14Y1u3Z2u
[18:26] <@KoRuMa> GoKYuZu 12nicki 1 7G13o5K14Y1u3Z2u 12Nicki'ne dönüştürülüyor.. Bekleyiniz...
[18:26] *** GoKYuZu nickini 7G13o5K14Y1u3Z2u olarak değiştirdi
!nickdegis DaDaS 10•1D10â1D10â1Ş10•1™
gibi

Bunu Korumada Kullanıyorum Yanı Mırc Bot da

[Mary_Jane]

payLaşım iÇin t$kLer.