Evet arkadaşlar, Bu mirc kod ile,Windows Kayıt Defterine girdi ekleyebilir, silebilir ve okuyabilirsiniz.  Regs Snippets (Windows Kayıt Defteri İşlemleri) için kullanılır.

Kodu Buradan Görebilirsiniz

Bu kod ile bir kullanıcı kanalda 8 çeşit ban atabilirsiniz. Remotelere kodu ekleyiniz. ( ALT+R )
F1 tuşuna bastıgınızda bu  çeşit ban atacaktir.

Gösterim :

• mirctr mode değiştirdi +b TELSiM__!mirç@1FCRV930.7UT3SN.9AD3MB.IP
• mirctr mode değiştirdi +b TELSiM__!*@1FCRV930.7UT3SN.9AD3MB.IP
• mirctr mode değiştirdi +b *!mirç@1FCRV930.7UT3SN.9AD3MB.IP
• mirctr mode değiştirdi +b TELSiM__!mirctr@*
• mirc mode değiştirdi +b *!*@1FCRV930.7UT3SN.9AD3MB.IP
• mirctr mode değiştirdi +b TELSiM__!*@*
• mirctr mode değiştirdi +b *!mirctr@*
• mirctr mode değiştirdi +b *!*@<IP>

Yazan : Difuzyon

alias F1 {
  if $regex($active,/#/A) && $sline($active,0) != $null { .enable #difiwho | who +cn $active $sline($active,1) }
}
#difiwho off
raw 352:*:haltdef | set %difi $2 $6 $3 $4
raw 315:*:haltdef | userip $token(%difi,2,32)
raw 340:*:{
  haltdef
  mode $token(%difi,1,32) +b $+($token(%difi,2,32),!,$token(%difi,3,32),@,$token(%difi,4,32))
  mode $token(%difi,1,32) +b $+($token(%difi,2,32),!,*,@,$token(%difi,4,32))
  mode $token(%difi,1,32) +b $+(*,!,$token(%difi,3,32),@,$token(%difi,4,32))
  mode $token(%difi,1,32) +b $+($token(%difi,2,32),!,$token(%difi,3,32),@,*)
  mode $token(%difi,1,32) +b $+(*,!,*,@,$token(%difi,4,32))
  mode $token(%difi,1,32) +b $+($token(%difi,2,32),!,*,@,*)
  mode $token(%difi,1,32) +b $+(*,!,$token(%difi,3,32),@,*)
  mode $token(%difi,1,32) +b $+(*,!,@,$token($2,2,64))
  kick $token(%difi,1,32) $token(%difi,2,32) Çok Pis Banlarım Nihahaha 
  unset %difi
  .disable #difiwho
}
#difiwho end

Buna benzer bir kod vermiştim. Bu kodda 8 çeşit ban atıyor. Op oldugun tüm kanallardan atmaya yarar. ALT+R basarak Remotelere giriniz. Aşagidaki kodu yerleştiriniz. F1 tuşuna bastiginizda çalişir.

Kodu yazan : mirctr

alias F1 {
if $regex($active,/#/A) && $sline($active,0) != $null { .enable #difiwho | who +cn $active $sline($active,1) }
}
#difiwho off
raw 352:*:haltdef | set %difi $2 $6 $3 $4
raw 315:*:haltdef | userip $token(%difi,2,32)
raw 340:*:{
haltdef
var %denisa 1 | while %denisa <= $chan(0) {
if $me isop $chan(%denisa) {
mode $chan(%denisa) +b $+($token(%difi,2,32),!,$token(%difi,3,32),@,$token(%difi,4,32))
mode $chan(%denisa) +b $+($token(%difi,2,32),!,*,@,$token(%difi,4,32))
mode $chan(%denisa) +b $+(*,!,$token(%difi,3,32),@,$token(%difi,4,32))
mode $chan(%denisa) +b $+($token(%difi,2,32),!,$token(%difi,3,32),@,*)
mode $chan(%denisa) +b $+(*,!,*,@,$token(%difi,4,32))
mode $chan(%denisa) +b $+($token(%difi,2,32),!,*,@,*)
mode $chan(%denisa) +b $+(*,!,$token(%difi,3,32),@,*)
mode $chan(%denisa) +b $+(*,!,@,$token($2,2,64))
if $token(%difi,2,32) ison $chan(%denisa) {
kick $chan(%denisa) $token(%difi,2,32) Sebebinizi buraya yazınız
}
}
inc %denisa
}
unset %difi
.disable #difiwho
}
#difiwho end

Bu kod ile google çeviri sayesinde birçok dil’i tercüme edebilirsiniz. Çok kullanişli bir kod.

Türkçeden ingilizceye çevirelim.

<~admin> !googlecevir tr|en Seni Seviyorum admin
Google Ceviri Admin : I love you admin

!cevir yazarak da hangi dillere cevirebiliceginizi göstericektir.

Buradaki Mantik Pembe renkle yazdıgım tr Türkiye anlamındadir. Yani ilk türkçe kelime sonra en yazdıgım kelimede english ( ingilizce ) cevabi alacaginiz kelimedir.

mIRCTR.Biz !

Google çevir addonu indirmek için tıkla

Bu kod ile mIRC’de yazarken her yazdiginin kelimenin baş harfini büyük yazmayi saglicaktir.

on *:input:*: { if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: | while %/ <= %= { var %: = $addtok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),32) | inc %/ | haltdef } | say %: } }