Kod : Kodu kopyalamak için üzerine çift tıklayın!

**RahmetLi** · 03 Nisan 2023, 06:31

'CR üzerinde renkli nick kullanıyorlar bende kullanmak istiyorum!!' diyorsanız dikkatlice okuyunuz, yazılanları harfien uyguladıgınızda amacınıza ulaşmış olacaksınız

Öncelikle bu işin başka bir yolu varmı bilmiyorum fakat bizim kullanacagımız yolun mantığını anlatmak istiyorum, şayet anlamadığımız bir olayı kullanmak istemeyiz değilmi.
Mantık; Biz servere linklenerek, bu link üzerinden gönderdigimiz komutalar ile nicklerimizi server üzerinde zorunlu olarak degiştirmeyi sağlıyoruz. Bir nevi servere var olmayan bir sunucu linkleyerek serveri aldatıyoruz.

Ee peki nasıl linklenecegiz? Basit bir sock uygulaması ile (bu herhagi bir programlama dili ile yazılmış olabilir) biz burada mIRC Scripting dilini kullanacagız çünki hem basit, hem konumuza uygun.

Öncelik ile baglanacagımız LINK ile ilgili hesabı oluşturmalıyız.

ben sercan isminde bir server oluşturacağım ve şifreside sercan olacak

/as server sercan add
/as server sercan set inpass sercan
/as server sercan set outpass sercan
Buraya dikkat buradaki link ismini ve şifresini aşagıdaki verdigimiz kod içersinede girecegiz.
/as server sercan set name sercan.ConferenceRoom.com
/as server sercan set ping 240
/as server sercan enable

Ve asıl linklenecegimiz server HUB olmalı
/as general set hub

şimdi mIRC'e aşagıdaki kodu koyalım.

Kod : Kodu kopyalamak için üzerine çift tıklayın!


         ;### 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(@socketServ) { window -k0 @socketServ } | aline -p @socketServ $timestamp < %data
}