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 Nickiniz kanaldan atıldıgında veya ban atıldıgında size direk Notice gönderilmesini saglicaktir.

on *:kick:*: {
  Notice $me $1- Channel: $chan Nick: $Knick
}
on *:ban:*: {
  Notice $me kick $1- Channel: $chan Nick: $nick

Bu kodun çalişma mantigi özelinize gelen kanal reklami site reklamlarinda kişiye ignore mesaji gidicektir. Gitme sebebi de yansıtıcaktir. Sizede @SpamList seklinde bi uyari cıkcaktir. Neden engellendigi hangi nick engellendigi isterseniz ignoreyi kaldirmaniz gibisinden mesaj vericektir.

on *:open:?:*:{
  if ((*.org* iswm $1-) || (*http:* iswm $1-) || (*.com* iswm $1-) || (*.net* iswm $1-) || ($chr(35) isin $1-)) {
    set %spamnick $nick
    set %add $fulladdress
    closemsg %spamnick
    ignore %add
    msg %spamnick Spam Mesaji Gönderdiniz. Kelimenizin Spam Düşme sebebi : 4( $+ $ifmatch $+ )
    window -e @SpamList
    echo @SpamList %sc Bu Nick Ignore Edildi14 %spamnick 12 $time(h:nn tt) Sebebi Size Bu mesaji yazdi :4 $1-
    echo @SpamList %sc Eğer Ignoresini kaldirmak için şu komutu yaziniz =>> /ignore -r %add
    echo @SpamList 0,0 absolut
  }
}

Bu kod ile kanala giren kullanicilarin toplam listesini  Hoşgeldin  mesaji ile gelen yeni kullaniciya gönderecektir.

on @*:JOIN:#:{
  inc %kziyaret 1
  if ($nick) == $me)
  .notice $nick Hoş Geldiniz. Kanali Ziyaret eden toplam %kziyaret $+ . Kişisiniz
  window -n @Ziyaret
  echo @Ziyaret 14,14 9 Kanali toplamda 8 %kziyaret 9kişi ziyaret etti. 11 En Son Nick 4 $nick 7 Tarih 11 $fulldate
}

Bu kod ile Operinizi Oper Şifrenizi Nick Şifrenizi Bir Kere girdikten sonra bir daha sunucuya baglanirken tekrar girmenize gerek kalmicaktir. Kisa ve öz bir koddur. Ev kullanicilari için idealdir.

Kullanimi : /opergir

alias opergir {
  set %opernick $?="Oper Nickinizi Giriniz"
  set  %operpass $?="Oper Şifrenizi Giriniz"
  set %nicksifre $?="Nick Şifreniz"
  oper %opernick %operpass | .nick %opernick | .identify %nicksifre | echo -a 14,14 11 Operiniz Nick Şifreniz Girilmiştir. 

}

on *:CoNNECT:{
  .msg nickserv ghost %opernick %nicksifre
  .oper %opernick %operpass
  .nick %opernick
  .msg nickserv identify %nicksifre
}

Admin Arkadaşlara güzel bir kod daha. Bu kodu kullanabilmeleri için RAW yetkileri olmak zorundadir. Kod ne işe yariyor ilk önce onu belirteLim. Servere baglaniyorsunuz operinizi, Nickinizi, Nick şifrenizi oto giriyorsunuz ve NickServ, HelperServ, OperServ, ChanServ Tüm kanallara Mesaj veriyor. Mesajida göstereLim.

<NickServ> Şifreniz kaßuL EdiLdi Efendim…
<MemoServ> Yeni Mesaj’ınız Yoktur..
<ChanServ> Hoş Geldiniz Sahip !
<HelpServ> IRC/Services Hakkinda Yardim aLabilmeniz için #Help Kanalina Giriniz.
<OperServ> Sunucu Owner Samet iS Online..

İşte Bu Sekilde Bir MEsaj Gönderiyor Tüm kanallara Maksat Havanız batsin

Remotelere En üste Yerleştiriniz. Kırmızı ve Mavi Renkte yazan yerleri de doldurmayi unutmayiniz.

Kode : absolut

Kod :

on *:CoNNECT:{
  .msg nickserv ghost Nickiniz NickŞifreniz
  .oper Nickiniz OperŞifreniz
  .nick Nickiniz
  .msg nickserv identify NickŞifreniz
  /absohaber

}

alias absohaber { if !$dde(mirc, channels) { !.echo -a Hiç Bi Kanalda Yoksunuz ! }
  else { set %channels $replace($dde(mirc, channels),$chr(32),$chr(44)) }
  !.os raw :nickserv privmsg %channels 4Şifreniz kaßuL EdiLdi Efendim...
  !.os raw :memoserv privmsg %channels 7Yeni Mesaj'ınız Yoktur..