Bu kod ile kanalda uzun yazi yazan kullaniciyi ilk olarak uyarir. Tekrarında kanaldan atar. Remotelere ekleyiniz. ( ALT+R )

Mirc Uzun Yazı Korumasi Uyarili Kod ;

on @*:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/gi) >= 10) {
hinc -mu20 uzunharf $+($chan,.,$nick) 1
if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
.msg # $nick :4UYARI! 4Lütfen 4UzuN 4Yazı 4Yazmayınız 4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız.
}
if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
.ban # $nick 5
.kick # $nick Harfleri uzattınız ve(Tekrar ettiniz)
.hdel -s uzunharf $+($chan,.,$nick))
}
}
}

Random Nick Girişlerini bu kod ile engelleyebilirsiniz.

Örnek : klasdsd, sdfdfd, kxnbl gibi nickler..

Yazanı XcLusive diye hatırlıyorum yanlışda olabilir.
Random Nick Korumasi kodu için
VN:F [1.3.2_665]
Bekleyiniz…
Rating: 0.0/10 (0 votes cast)

alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha && $1- islower {
if (($count($1,a,e,i,o,u) >= 4)) { return $false }
if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
if ($regex($1,/^[^aeiou]{3}/)) { return $true }
elseif ($regex($1,/([a-z])\1{2}/)) { return $true }
elseif ($regex($1,/[aeiou]{3/)) { return $true }
elseif ($regex($1,q[^u])) { return $true }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
else { return $false }
}
}
}
alias randn {
if $1- isalpha && $1- islower {
if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
if ($len($1) == 7) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 9) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 10) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }
else { return $false }
}
}
menu channel,status {
Random Nick Koruması
Aç :.enable #random | echo -at Random Nick Koruması Acılmışdır.
kapat:.disable #random | echo -at Random Nick Koruması Kapatılmışdır.
}

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 kanaldan ayrılan kişilere ( part ) edenler yani mesaj gönderebilirsiniz.

on *:PART:*:#: { .notice $nick Bye $nick $+ ! Görüşürüz.. }

on *:RAWMODE:#: {

  if (- isin $1) && ( $nick != $me ) { /mode $chan $+(+,$remove($1,-)) }

  elseif (+ isin $1) && ( $nick != $me ) { /mode $chan $+(-,$remove($1,+)) }

}

#lock end

/

Bu kod ile kanalda yetkiniz oldugunda hiç kimse kanal modlarini
değiştiremez. Örnek birisi kanaldaki modu +s etti. Siz otomatik olarak
-s ediyorsunuz.  Kanal da uyari mesaji göndericektir.

Bu kod ile kanalda nickiniz -e falan edildiginde otomatik olarak +e edecektir. -e eden nickini kickleyip ve banlicaktir. +e Korumasi.

menu channel {
  +e Koruma Kipi
  .KApa/Aç:.elock
}
alias elock { if ($group(#elock) == off) { .enable #elock | echo -a EELock Kilidi Aktif. }
  else { .disable #elock | echo -a Elock Kilidi Pasif. }
}
#elock on
on *:RAWMODE:*: { if ($nick == $me) { HALT }
  if ($1 == -e) && ($remove($2,!*@*) == $me) { kick $chan $nick | mode $chan +b $nick | /mode $chan +e $me }
  elseif ($1 == -e) && ($remove($2,!*@*) == $address($me,2)) { kick $chan $nick | /mode $chan +e $address($me,2) }
}
#elock end
alias except { mode $chan +ee $me $address($me,2) }

Bu Kod ile belirlediginiz kanallara ame mesajlari ve amsg yazdiginiz mesajlar o kanallara iletilmicektir. Kodu Remotelere koyunuz.

alias ame { if $1 { var %º = 1 | while $chan(%º) { if !$istok(#help #Operhelp #System #irccontrol #root #Opers ,$v1,32) { !describe $chan(%º) $1- } | inc %º } } }

alias amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if !$ist

Bu kod ile Kanalda !degis nick yazarsaniz Nickiniz değişcektir. Başka yerlerde de verilmiştir. Text komutu ile text komutlarini kendiniz yazarsanız uygulamaz. Onun için input komutu gereklidir. Remotelere ekleyiniz.

On 1:input:*:{
  if ($1 == !degis) {
    msg $chan Hemen değişiyorum abi.
    .nick absolut
    halt
  }
}

VN:F [1.1.8_518]

Bu mIRC Kodu ile belirli kanaldaki tüm userleri veya istediginiz kadar kişiyi istediginiz kanala çekebilirsiniz. Sajoin etmektedir. Yetkiniz olmak zorundadir.

Kullanimi : /yolla Selam

alias yolla {
  var %i 1
  while %i <= $nick(#,0) {
    .timer 1 $calc(%i * 5) .msg $nick(#,%i) $1-
    inc %i
  }
}