- Versiyon, Finger, Time ve Script Sorgusu
- mIRC Sunucu bağlanırken versiyon ve diğer sorgulara cevap vermesine yarayan kodlar Versiyon, Finger, Time ve Script Sorgusu
ctcp 1:version:*:{ 
ctcpreply $nick VERSION Türkçe Mirc 6. VERSION System [Giris Tanimlandi] 
} 
ctcp 1:finger:*:{ 
ctcpreply $nick FINGER Türkçe Mirc 6.2 FINGER System [Giris Tanimlandi] 
} 
ctcp 1:time:*:{ 
ctcpreply $nick TIME Türkçe Mirc 6.2 TIME System [Giris Tanimlandi] 
} 
CTCP 1:script:*: { 
ctcpreply $nick SCRIPT Türkçe Mirc 6.2 SCRIPT System [Giris Tanimlandi] 
}
----------------------------------------------------------------------
- Client exited Çykys Korumasy irc sunucunuza baglanan proxy/botnet vs. botlar genelde Client exited çyky? mesajy ile sunucuda dü?er bu koruma sayesinde bu tür botlary banlamanyz sa?lanacaktyr.
Kodu mircinizi remote kysmyna eklemeniz gerekmektedir kodun çaly?masy için en az IRcop yetkisine sahip olmanyz gerekmektedir.
on *:snotice:*[Client exited]*: { 
%ip = $+(*@,$remove($gettok($7,2,64),$chr(41))) 
.set %ips $deltok(%ip,1,64) 
.zline %ip +0 7 Proxy Bot Olarak Algylandynyz = $+ %ips 
} 
}
----------------------------------------------------------------------
- Aşagıdakı kodu mircinizin remote kısmına yapıştırın kaydedin çıkın
/spamekle kelime
artık spamekle şeklinde spam ekleyebilirsiniz
alias spamekle { 
spamfilter add cpNna gzline - $server $yildiztemizle($1-) 
} 
alias spamsil { 
spamfilter del cpNna gzline - $server $1- 
} 
alias yildiztemizle { 
var %y $+(.,?) , %yi 
if $numtok($1-,32) == 1 { 
var %1kelime 1 
} 
%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$chr(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr(164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$chr(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$chr(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr(34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr(45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y) 
if %1kelime { 
%yi = $+(^,%yi,$chr(36)) 
} 
return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- ) 
}
-----------------------------------------------------------------------
- mIRC Scriptinize ekleyebilece?iniz bir takym otomatik i?lemler.
Bu islemler sunucuya ba?landy?ynyzda otomatik olarak uygulanacaktyr.
on 1:CONNECT: { 
.oper nick varsaOpersifrenizburaya 
.nick nickiniz 
.timer 1 2 /ns identify nicksifreniziburayayazin 
.sethost Hostunuzuyazinburaya
.setident identyazinburaya
.setname fullnameyazınburaya
.join #kanal1,#kanal2,#kanal3,#kanal4
}
Alanlary kendiNize göre dolduruyoruz yanlyz .OPER .SETİDENT sadece admin yetkisi olan kullanycylar için geçerlidir admin yetkiniz yok ise o alanlari siliniz.
Kodu mirc alias kysmyna eklememiz gerekmektedir.
Kodu kendinize göre geli?tirebilirsiniz eklentilere açyk gayet basit bir koddur.
-------------------------------------------------------------------------
- öZELİNİZE GELENLERİ KARŞILAYAN BİR KOD
on *:open:?:*:{ 
msg $nick 2Selam4 $nick 
msg $nick 2Bugün4 $date 2ve Saat 4 $time(HH:nn.ss) 
msg $nick 2Konuşmadığım Süre 4 $duration($idle) 
msg $nick 2Toplam Açılan Özel Pencerem 4Sayısı %q! 
inc %q! 
msg $nick 2Şu an Özelimdeki4 $+($query(0),.) 2Kişisin Müsait Olduğumda Cevap Verilecektir 
msg $nick 2Lutfen 4Op2, 4Voice2, 4Oper 2istemeyiniz istemeniz Durumunda Direk Olarak ignore Edileceksiniz4.2IRC Servisler iLe iLgiLi Sorunlariniz için 4/join #help 2Yaziniz. 4Zline, Kline, Akill, Nick 2ve 4Kanal 2$ifre 2Sorunlariniz icin 4/join #OperHelp 2Yaziniz.. 
inc %q!
}
-------------------------------------------------------------------------
-öZELİNİZE VERSİON YADA PİNG GİBİ SALDIRILAR OLUYORSA BU GUZEL Bİ KOD
ctcp 1:*:*:{ 
inc -u5 %ctcp.flood 
if (%ctcp.flood > 3) { 
if ($nick == $me) { halt } 
ignore -tu30 $nick 
.echo -a $nick Özelinize flood yaptı. Otomatik ignore ettiniz. 
.msg $nick Özelime flood'dan dolayı , ignore edildiniz. } 
}
-------------------------------------------------------------------------
-SUPER KARİZMA YAZI
on 1:input:*:{ 
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end } 
if ($1- == isnum) { goto end } 
var %a 0, %b, %c, %d, %e, %f 
while (%a < $numtok($1-,32)) { 
inc %a 
%c = $gettok($1-,%a,32) 
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) } 
else { 
if (%a == $numtok($1-,32)) { 
%d = $+($right(%c,1),..) 
%f = $right(%d,2) 
} 
%e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),4)) 
%b = %b $+(%e,%f) 
} 
} 
if (!%b) { %b = $1- } 
else { say %b } 
halt 
:end 
}
-------------------------------------------------------------------------
-TÜM KANALLARDAN HOP/CYCLE/PARTALL YAPMAK İÇİN
alias hopall { if !$dde(mirc, channels) { !.echo -a >! else { set %channels $replace($dde(mirc, channels),$chr(32),$chr(44)) | !.part %channels | !.join -n %channels } 
}
-------------------------------------------------------------------------
-Spamfilter'e takılan kelimeleri kanaldan banlamak.
on *^:snotice:*: { 
if (*[Spamfilter]* iswm $1-) { 
if (*küfür* iswm $1-) { 
.mode $10 +b $gettok($4,2,64) 
} 
} 
}
-------------------------------------------------------------------------
- Helper'lar genelde Help kanalında voice verdikleri kullanıcılara yardım ederken hep nicklerini yazılarının başına yazarlarki yardım ettikleri kullanıcılar karışmasın diye. 
Bende pratik bir kodla biraz olsun Helper'lara kolaylık sağlamak istedim 
kod; 
Help kanalında bir kullanıcıya +v verdiğiniz zaman, direkt kullanıcıyı yazdığınız her kelimenin başına ekler 
Sentius : /cs set #kanal founder yenifounder 
gibi.
on me:*:voice:#help: { if !%nick { Set %nick $vnick } } 
on *:rawmode:#help:{ if $1 == -v && $2 == %nick || $1 == +b && $+(%nick,*) iswm $2- { unset %nick } } 
on me:*:devoice:#help: { if %nick { unset %nick } } 
on *:quit: { if $nick == %nick { unset %nick } } 
on *:part:#help: { if $nick == %nick { unset %nick } } 
on *:start:unset %nick 
on 1:input:#help: { if $ctrlenter || /* iswm $1- { return } 
if %nick || %nick ison $active { say $+(,%nick,:) $1- | halt }
-------------------------------------------------------------------------
-identinde küfür olan yada istemediğiniz identleri yazarak kanala girişlerini engelleyebilirsiniz.
on @*:JOIN:#:{ 
if (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress) || (*!*Orosp*@* iswm $fulladdress) { .ban $chan $nick 0 | .kick # $nick $+ # Badident kullanmak yasaktır. } 
}
-------------------------------------------------------------------------
-Farklı bir spanfilter ekleme silme komutu
nick/ident/fullname kısımlarında gördüğünüz farkllı bir yazıyı ekleyip girişleri engelleyebilirsiniz.
sekle { 
spamfilter add u gline - Reklam/TROJAN! $$?="Hangi username?" 
} 
ssil { 
spamfilter del u gline - Reklam/TROJAN! $$?="Hangi username?" 
}
/sekle kelime
/ssil kelime
-------------------------------------------------------------------------
-voice/devoice/op/deop oldugunuzda size haber verir.
on 1:voice:#: { 
if ($vnick != $me) { halt } 
else { /echo -a 11,1 - 15,1 Dikkat! 11,1 -  11,1 - 0,1 # 15Kanalında $nick tarafından 0voice 15oldunuz. 11,1 -  | halt } 
}
on 1:devoice:#: { 
if ($vnick != $me) { halt } 
else { /echo -a 11,1 - 15,1 Dikkat! 11,1 -  11,1 - 0,1 # 15Kanalında $nick tarafından 0devoice 15oldunuz. 11,1 -  | halt } 
}
on 1:op:#: { 
if ($opnick != $me) { halt } 
else { /echo -a 11,1 - 15,1 Dikkat! 11,1 -  11,1 - 0,1 # 15Kanalında $nick tarafından 0op 15oldunuz. 11,1 -  | halt } 
}
on 1:deop:#: { 
if ($opnick != $me) { halt } 
else { /echo -a 11,1 - 15,1 Dikkat! 11,1 -  11,1 - 0,1 # 15Kanalında $nick tarafından 0deop 15oldunuz. 11,1 -  | halt } 
}
------------------------------------------------------------------------
www.topluchat.com & https://mircarsivi.wordpress.com ARŞİV SONU
ALINTIDIR.