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.2­IRC­ 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!

[size=10pt]on *:snotice:*Client connecting on*:{
inc -eu6 $+(%,agr,.,$gettok($gettok($10,2,64),1,41))
if $($+(%,agr,.,$gettok($gettok($10,2,64),1,41)),3) > 4 {
.gzline $+(*@,$gettok($gettok($10,2,64),1,41)) – Agresif giris yogunlugu tespit edilmistir. Saglikli sohbet edebilmek icin bilgisayar(lar)inizdaki botlari kaldiriniz. [Erhan]
unset $+(%,agr,.,$gettok($gettok($10,2,64),1,41))
}
} [/size]

Bu hazır kod sayesinde server’ınıza yapılan Join/Part saldırılarına ve Agresif girişlere kesin çözüm getirebilirsiniz. Tek yapmanız gereken kodu Remote kısmına eklemek ve kod üzerinde belirtilen Koyu renkli kısımları kendinize göre editlemenizdir.

on *:join:#Kanal:{ /timer 1 5 /chghost $nick Globalop.mIRC34.Org }

Bu kodun amacı sunucuda oper girdikten sonra belirlediğiniz bir kanala giriş yaptığınız zaman otomatik host almanızı sağlamaktır. Kod bölümünde yer alan koyu kısımları kendinize göre editlemeniz gerekmektedir.

on !*:NICK:{
if (away isin $newnick) || (yok isin $newnick) || (gelcek isin $newnick) {
deopall
}
}
alias deopall {
var %wy $chan(0)
while %wy {
if $me isop $chan(%wy) && $newnick isop $chan(%wy) {
mode $chan(%wy) -o $newnick
}
dec %wy
}
}

Bu hazır kod sayesinde sunucuda away/yok/gelcek gibi takılar alan yetkilileri sizin tarafınızdan otomatik olarak deop edilmesini sağlar. Kanal üst yöneticileri için tavsiye edilebilecek bir hazır koddur.

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,$ch r(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr (164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$ch r(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$ch r(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- )
}
on *:open:?:{
set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
if (!$window(@Spams)) window -ne @Spams
spamekle $yildiztemizle($2-)
echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
if (!%nickw. [ $+ [ $nick ] ]) { halt }
if (%nickw. [ $+ [ $nick ] ] == warn) && (*_* iswm $1-) && ($right($1,1) isnum) && ($2 == $null) { spch $nick $1 }
var %t = 1 , %kelime = $gettok($strip($1-),0,32)
var %cümle = $strip($1-)
if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $1- }
while (%t <= %kelime) {
set %ara $gettok($strip($1-),%t,32)
if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara }
if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara }
if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara }
if (%nickw. [ $+ [ $nick ] ] == warn) && (%ara == @) { spch $nick $gettok($strip($1-),$calc(%t – 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) }
if (*@h?* iswm %ara) { spch $nick %ara }
if ($right($gettok($strip($1-),$calc(%t – 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t – 1),32) %ara }
inc %t 1
}
}
alias spamekle {
spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
spamfilter del cNnpa gzline +7200 Spam! $1-
}

Büyük Harf İle Başlayıp Yazma

on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) && ($active != status window) {
msg $active $cumlekur($1-)
halt
}
}
alias cumlekur {
if $isid {
var %x , %i = $regsub(cumlekur,$1-,/((\.|;|\:)+([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/g,\1,%x), %i = 1, %retval = $1-
while %i <= $regml(cumlekur,0) {
if $regex(ifcumlekur,$regml(cumlekur,%i),((\.|;|\:).|..)) {
%setvar = $remove($regml(cumlekur,%i),.,:,;,$chr(32))
%setvar = $+($left($regml(ifcumlekur,1),1),$chr(32),$upper($replacecs($left(%setvar,1),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)),$mid(%setvar,2,2))
var %x , %l = $regsub(%retval,$+(/,$regml(cumlekur,%i),/g),%setvar,%x), %retval = %x
}
inc %i 1
}
return $replace($upper($left(%x,1)),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)) $+ $right(%x,-1)
}
}

Bu hazır kodun amacı mIRC açıkken yazmış olduğunuz tüm yazıların ilk harfinin büyük olmasıdır. Genelde Helper, Admin ve yöneticiler tarafından tercih edilen bir hazır koddur.

alias kick { kick $1- %kicksayac | kicksayac }

alias kicksayac {
if (%kicksayac == $null) {
set %kicksayac 1
}
%kicksayac = %kicksayac + 1
halt
}

Kline Sayacı:

alias kline { kline $1- %klinesayac | klinesayac }

alias klinesayac {
if (%klinesayac == $null) {
set %klinesayac 1
}
%klinesayac = %klinesayac + 1
halt
}

Bu Hazır Kod sayesinde Kick ve attığınız K-Lineleri sayabilirsiniz. Kullanımı basit ve kolaydır. Tek yapmanız gereken remoteye eklemek ve aliases ayarlarınıza kick, kline menülerini yerleştirmektir.