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))
}
}
}

Bu kod ile sajoin korumasi saglicaksinizdir. Sajoin’den nefret edenler için çok güzel birşey : )

Bu Altdaki Kod ile ilk kanala Sajoin Edilirsiniz. Ondan sonraki kanallara 30 saniye boyunca sajoin edilemezsiniz. mIRC Version 6.3 ve üzeri Versionlarda Baloncuk devreye giricektir.

on *:SNOTICE:*You were forced to join*: {
  if (%sajoin.part) { part $7 }
  else { noop $tip(Sajoin,Sajoin Bilgisi, $7 Kanalina Sajoin Edildiniz. 30 Saniye Sajoin Korumasi Aktifdir. $+ $crlf $+ 4Kapamak için Çift Tıkla,30,,,unset %sajoin.part) }
  set -u30 %sajoin.part 1
}

}

Diğer bir kod ise Sajoin Edildiginiz Gibi Otomatik kanaldan cıkarsiniz. Sajoin Kesinlikle edilmezsiniz.

on *:SNOTICE:*You were forced to join*: {
  part $7 

}

Bu kodlari Remotelerde En üst bir yere ekleyiniz. Sajoin Korumasi.

Bu Kod ile kanaldan ayrılan kişilere ( part ) edenler yani mesaj gönderebilirsiniz.

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

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 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
  }
}

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

alias ajoin {
  if ($1 == $null) || ($2 == $null) {
    >     echo 6 * Usage : /ajoin #Dolu_Kanal #Dolacak_Kanal Kac_Kisi
    echo 6 * Exam   : /ajoin #diyalog #sohbet 50
  echo 6 * AbArTH Oper mIRC %showlogo   }
  else {
    echo 6 * Userlar Aliniyor... $1 to $2
    set %i 1
    set %nick $nick($1,%i)
    While %nick != $null {
      %nick = $nick($1,%i)
      fjoin $2 %nick
      echo 12 * %i %nick moved to $2
      if (%i == $3) { break }
      inc %i
    }
    echo 6 * Toplam %i User Ajoin Edildi to $2.
  }
}

Bu kod ile sitenizde tüm spamfiltere ekli spamlari silmenizi saglicaktir.

Kullanimi /spamfilter

raw 229:*:/spamfilter del $3 $4 $7 $8 $10-

Bu kod ile kanaldaki kişilerin idle sürelerini gösterrebilirsiniz. Kullanimi : !idle #kanal

on *:text:!idle*:#: {
set %asilkanal $chan
/idle $2
}
raw 317:*:{
if %kanal != $null {
msg %asilkanal  $2 : idle suresi: $int($calc($3 / 60)) dakika, $calc( $3 - $calc($int($calc($3 / 60)) * 60 )) saniye.
}
if $2 == $nick(%kanal,%kacuser) {
msg %asilkanal  -- Liste sonu --
unset %kanal
}
}
alias idle {
set %kanal $1
msg %asilkanal -- %kanal kanalinda bulunan kisilerin idle sureleri listeleniyor --
if $me ison %kanal {
set %kacuser $nick(%kanal,0)
var %i 1
while %i <= %kacuser {
set %userx $nick(%kanal,%i)
whois %userx
inc %i
}
}
}

Kod; Her kick mesajınıza, gulum.net’den random(karışık) atasözü atamaktadır.
/kick #kanal nick sebeb (Eğer sebeb girerseniz, girdiğiniz sebeb ile kanal’dan kicklenir)
Eğer sebeb girmezseniz(/kick #kanal nick) random(karışık) atasözü atıyacaktır kick mesajına.

Kod sahibi : L4roXyL

on *:start:atasozu | .timerslct 0 5 slct
alias atasozu $iif($sock(atsz),sockclose atsz,sockopen atsz www.gulum.net 80)
on *:sockopen:atsz: {
var %n = $sockname | sockwrite -n %n GET $+(/sozleri-mesajlari/atasozleri-,$r(1,14),.php) HTTP/1.1
sockwrite -n %n Host: gulum.net | sockwrite -n %n $crlf
}
on *:sockread:atsz: {
$iif($hget(atsz),hfree atsz) | var %s | sockread %s
if ($regex($gettok(%s,1,32),^ $) && !$regex(%s,http) && $gettok(%s,3,32)) {
hinc -m atsz $replacecs(%s, ,•,♥,•,$chr(32),½) 1
if ($hget(atsz,0).item == $r(1,10)) sockclose atsz
}
}
alias slct var %u = $hget(atsz,0).item,%uu = $r(1,%u) | set %& $replacecs($hget(atsz,%uu).item,½,$chr(32))
alias kick kick $1 $2 $iif($3,$3-,%&) | atasozu