mIRC yazışmalarınızdaki nickinizin görünümü normalde büyük/küçük (< >) işaretleri içindedir. Aşağıda vermiş olduğumuz Hazır kod ile mirc yazışmalarınızda nickinizin görünümü “«nickiniz»” şeklinde olacaktır.

Farklı karekterler belirtirek istediğiniz görünüme getirebilirsiniz. Aşağıda ki hazır kodu mirc remote bölümüne kopyalamanız yeterlidir.

Kodun eklenmiş hali ile mirc nick görüntünüz:
“«mircarsivi» selam sayın mIRC sohbet severler” şeklinde olacaktır. siz genede kirmizi ile gosterilen kismi istediginiw gibi degisebilirsiniz.

ON *:INPUT:#: {
  if (!$inpaste) && ($left($1,1) != $readini(mirc.ini, text, commandchar)) {
    echo -t # $+(«14,$me,») $iif((c isincs $gettok($chan(#).mode,1,32)),$strip($1-),$1-)
    .MSG # $1-
    HALT
  }
}

ON *:INPUT:#: {
  echo –t # $+(«,$me,») $1-
  .MSG # $1-
  HALT
}

Bu Kod ile Sunucuda yanliş Oper giren kişi oldugunda direk size uyari gelecektir. Operi yanliş giren kişiye uyari mesaji gidicektir. Eğer 2.kez tekrarlarsa kill yiyecektir. 3. kez tekrarlar ise sunucudan ban yicektir. Güzel bir kod.

on *:SNOTICE:*Failed OPER attempt by*: {
  .notice $me Failed Oper Attempt
  .notice $me $2-
  inc -u240 %op.att.fail.[$+[$8-]] 1
  if ( %op.att.fail.[$+[$8-]] &lt;= 1 ) {
    .msg $8 4Oper Girişiniz hatali. Tekrar yanliş girersen kill yiyeceksin.
  }
  elseif ( %op.att.fail.[$+[$8-]] == 2 ) {
    .kill $8 $8 $+ $9 3Failed in attempt to Oper 7( Oper Yanliş Girdiniz. )
  }
  elseif ( %op.att.fail.[$+[$8-]] &gt;= 3 ) {
    .gline $8- 30d 4Failed Oper attempt 12( Oper Girişi Tekrarlama ! )
  }
}

alias xline.data return $shortfn($+($mircdir,xline.data))
on *:snotice:*:{
  if (*Z:line added* iswm $1-) {
    if ($2 == Global) { write xline.data $6 $+ $chr(183) $+ $15 $+ $chr(183) $+ $left($25-,-1) $+ $chr(183) $+ $date $time }
    else { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  }
  if (*K:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  if (*G:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent Global Z:line* iswm $1-) { write xline.data $7 $+ $chr(183) $+ $remove($16,:) $+ $chr(183) $+ $left($17,-1) $date $time }
  if (*Permanent Z:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent G:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent K:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*removed Global Z:line* iswm $1-) { if ($read($xline.data,w,$+(*,$5,*))) { write $+(-dl,$readn) $xline.data  } }
  if (*removed K:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) {  write $+(-dl,$readn) $xline.data  } }
  if (*removed Z:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data  } }
  if (*removed G:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring Global Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($5,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring K:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring G:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
}
on *:text:*:#admin:{
  if $1 == !ip &amp;&amp; $2 {
    if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) }
    if (!%xline.data) { msg # $qt($2) ipi için kay?t bulunamad?! | halt }
    else {
      msg # IP: $gettok(%xline.data,1,183)
      msg # Banlayan: $gettok(%xline.data,2,183)
      msg # Sebep: $gettok(%xline.data,3,183)
      msg # Ban Zaman?: $gettok(%xline.data,4,183)
    }
  }
}
on *:start:write -c $xline.data
on *:disconnect:write -c $xline.data
__________________________

Remoteye ekliyorsunuz #admin kanalında
!ip ipadresi şeklinde kullanıp atılan kişinin neden atıldığını kimi attığını ne zaman atıldığını hangi sebeple attıldığını gösterir.

Orjinal Unreal3.2.5\\\’de kodlandı ve test edildi oper arkadaşlar yada sunucusunda botuna eklemek isteyenler kullanabilir
amaç : kimin neden banlandığını, banı açmadan önce tespit etmek.

mIRC FTP Transfer kodu
mIRC üzerinden FTP’lerinize dosya transfer etmek için basit bir kod

; FTP Transfer, http://www.mircindir.org
; CipriX

; Kullanimi /gonder Dosya

; FTP Hostu
alias ftp-host return ftp.mircindir.org
;;;;;;;;;;
; FTP Kullanici Adi
alias ftp-k.adi return mIRCindir
;;;;;;;;;;
; FTP Sifresi

alias ftp-sifre return 123456

;;;;;;;;;;
; FTP Web Klasörü

alias ftp-klasor return public_html

;;;;;;;;;;

alias gonder {
.remove mircindir.ftp
write mircindir.ftp open $ftp-host
write mircindir.ftp $ftp-k.adi
write mircindir.ftp $ftp-sifre
write mircindir.ftp cd $ftp-klasor
write mircindir.ftp send $shortfn($1-)
write mircindir.ftp bye
run ftp -s:mircindir.ftp
}

OZELE GIRIS REMOTESI,OZELINIZE GELENLERI OTO KARSILAR
ALT+R YAPTIKTAN SONRA REMOTELERE EKLEYINIZ.
on 1pen:?:*: {
msg $nick 0,7Lütfen Muhabbet Amaçlı Gelmeyiniz..FarkLı Bi istek Söz konusu ise; Lutfen Lafı uzatmadan Konuya Giriniz..anLayı$ınız için te$ekkürLer..
msg $nick 4,15MesquL DegiLsem Size Cevap Verecegim..
msg $nick 11,1Hakkımda ßilgi Almak İcin !hakkımda11,1 YazabiLirsiniz..
msg $nick 2Konuşmadığım Süre 4 $duration($idle)
who $nick
}
on 1:text:!hakkımda:?: {
if (!%!hakkımda. [ $+ [ $$1 ] ]) set -u120 %!hakkımda. [ $+ [ $$1 ] ] 0
inc %!hakkımda. [ $+ [ $1 ] ]
if (%!hakkımda. [ $+ [ $$1 ] ] == 1) {
msg $nick 4,15ÖzeLLikLeri: $me is 0,4C* 4,15Aop+4,15Helper0,4C* 
msg $nick 0,6Irc HakkInda YardIm EdebiLir..
msg $nick 7,1Muhabbeti Sevmez..
msg $nick 0,4Ns,Cs,Ms KomutLarI HakkInda Destek aLmak İçin #yardim KanaLInI kuLLanabiLirsiniz..(/join yardim)
}
}

Bulunduğunuz kanalda istediğiniz identi tarayarak kullanıcıları bulabilir üzerinde işlem yapabilirsiniz.

• Kullanım: /identler

alias identler { set %idac 1 | if ($active != $chan) { echo -at Lütfen bu işlemi bir kanalda gerçekleştirin! | halt } else { set %ident $$?=”Lütfen aranacak ident`i giriniz!” | who $active } }
raw 352:*: { if (%idac == 1) && (%ident == $3) { echo -at 4 Nick: $6  İdent: $3  | islem ($3) | set %idac 0 } }
 

• Not: islem ($3) yazan yeri kendinize göre ayarlamanız gerekmektedir.

• Örn: !kick $2 $3 sebep gibi

Mircinizde Yazmak İstediğiniz Arkadaşın Özeline Yada Kanal Geneline Kalp Yazınca Otomatikmen Kalp Şeklinde Gönderilir..

alias kalp {
.say 0,0+++++++++++++++++++++++++++++++++++++++
.say 0,0++++++++4,4 ++ ++ 0,0 +++++++++++ 4,4 ++ ++
.say 0,0++++++4,4 ++++++++++ 0,0 +++++ 4,4+++++++++
.say 0,0+++++4,4 +++++++++++++ 0,0 + 4,4++++++++++++
.say 0,0++++4,4 +++++++++++++++++++++++++++++ 0,0 +++++
.say 0,0++++4,4 +++++++++++++++++++++++++++++ 0,0 +++
.say 0,0++++4,4 +++++++++++++++++++++++++++++ 0,0 +
.say 0,0+++++4,4 +++++++++++++++++++++++++++ 0,0 +++++
.say 0,0++++++4,4 +++++++++++++++++++++++++ 0,0 ++++++
.say 0,0++++++++4,4 +++++++++++++++++++++ 0,0 ++++++++
.say 0,0++++++++++4,4 +++++++++++++++++ 0,0 ++++++++++
.say 0,0++++++++++++4,4 +++++++++++++ 0,0 ++++++++++++
.say 0,0+++++++++++++++4,4 +++++++ 0,0 +++++++++++++++
.say 0,0+++++++++++++++++4,4 +++ 0,0 +++++++++++++++
}

alias badnick {
if ($1 == ekle) {
hadd badnick $2
secho $2 veritabanina başarıyla eklendi
}
elseif ($1 == sil) {
if ($hfind(badnick,$2)) {
hdel badnick $2
secho $2 veritabanindan başarıyla silindi
}
else { secho $2 veritabaninda bulunamadi }
}
elseif ($1 == list) {
var %x = 1
while (%x = 7) { secho $replace(%hbadnick,$chr(1),$+($chr(32),-,$chr(32))) | unset %hbadnick }
inc %x
}
if ($numtok(%hbadnick,32) >= 1) { secho $replace(%hbadnick,$chr(1),$+($chr(32),-,$chr(32))) | unset %hbadnick }
}
else { secho hatali islem }
}
alias tara {
if ($hfind(badnick,$1)) {
mode # +b $ifmatch
}
}
alias secho {
if (!$window(@badnick)) { window -e @badnick }
echo @badnick $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o badnick badnick.htb
on *:start: {
hmake badnick 1000
if ($exists(badnick.htb)) { hsave -o badnick badnick.htb }
hload badnick badnick.htb
}

/badnick ekle nick <<< nick ekler
/badnick sil nick <<< nick siler
/badnick list <<< badnick listesine gozatar

/tara nick <<< aktif kanalda uygulandiginda o kanalda girilen nick mevcutsa atar.

Arkadaşlar Bad nick Koruması Kanallarınıza Girmesini istemediğiniz Cinsel İçerikli/Msn/Cam/Tel no Nicklerin Banlanmasını Sağlar..

Kod:

on *:mode:#:{
  if $regex($1,/(i|k|p|s)) && $nick($chan,0) >= 30 {
    if !$window(@Uyari) { window -ne @Uyari }
    echo 4 -t @Uyari *** $nick $chan kanalının modunu $1- olarak değiştirdi
  }
}

30 kişiden büyük kanallarda kanal +i,p,k,s modlarından birine alındığında @uyari penceresinden bilgilendirilebilirsiniz.

menu menubar,channel {
Left ALL Korumasi
.AÇ:.enable #leftall | echo -a 7Tamam açtim.
.Kapat:.disable #leftall | echo -a 12Tamam kapadim.
}
#leftall off
on !*:PART:#:if (*Left all channels* iswm $1-) { gzline $nick 2aBsoLut 7technology. }
#leftall end
Bu koruma bir çok yerde işinize yarayabilir.Egerki adminseniz bence bu kodu kullanın çok işinize yarayacaktir.Sunucuya saldırı yapmak isteyenler önce botları tum kanallardan cıkarırlar

işte size guzel bir kod ,tum kanallardan part yapanlara gzline.