mIRCbuL.Net Türkçe mIRC indir

mirc Proxy saldırları için güzel kulanışlı bir admin remotesi alt+r yapıp remoteye ekliyoruz gerekli yerlere ayarlamayı yaptıktan sonra kullabilirsiniz

on OpenProxy:join:#:{ if ($nick != $me) { .kline $nick Ban Sebebin } }
alias Proxyconf if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
dialog Proxylist {
title “Proxy ip Korumasi”
size -1 -1 200 280

button “Tamam”, 1, 110 200 70 20,ok, flat
list 2, 10 20 180 135, sort
box “ProxyListesi”, 3, 5 5 190 145
edit “*!*@”, 4, 10 165 180 20, autohs
box “Eklenecek İp”yi Girin”, 5, 5 150 190 45
button “İp Ekle”, 6, 20 200 70 20, flat
box “Not:”, 7, 5 225 190 45
text “İp”yi Kaldirmak icin İp”nin Uzerine Cift Tiklayin”, 8, 25 240 140 45
}
alias Proxysetup if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
on *:dialog:Proxylist:dclick:2:{ .ruser OpenProxy $did(2).seltext | did -d Proxylist 2 $did(2).sel }
on *:dialog:Proxylist:sclick:6:{ if ($did(4) != $null) { did -a Proxylist 2 $did(4) | .auser OpenProxy $did(4) | did -fr Proxylist 4 } }
on *:dialog:Proxylist:init:*:{
if ($ulist(*,OpenProxy,0) != $null) {
set %prx.Proxy 0
while (%prx.Proxy < $ulist(*,OpenProxy,0)) {
inc %prx.Proxy 1
did -a Proxylist 2 $ulist(*,OpenProxy,%prx.Proxy)
}
unset %prx.Proxy
}
}
on *:snotice:*client connect*:var %ip $remove($gettok($10,2,64),$chr(41)),%id = $remove($gettok($10,1,64),$chr(40)),%full = $+($9,!,%id,@,%ip) | if ($level(%full) == OpenProxy) { .kline $9 Ban Sebebin }

/cik /quit [bukısmadamesajınız]

alias kısmına eklemeniz yeterli olcaktır /cik komutunu uyugladığınızda kanaldan cıkar ve yetkiniz varsa yazmış olduğunuz çıkış mesajı görünür..

/alias /f1 /gzline $$1 2d Liderchat.Net Ircd Sunucusunda kurallara aykırı davranışınızdan dolayı uzaklaştırıldınız...

Bu alias ı scirptinizde herhangi acık bir pencereye kopyala yapıştır yapmanız yeterli olacaktır../gzline yazan yeri siz /zline /gline /kline vs gibi seceneklerle değiştirebilirsiniz
Ayrıca /f1 kısayol tuşu değilde orayı /f2 /f3 .. vs de yapabilirsiniz..ayrıca son kısımdaki sebeb kısımıda kendinize göre ayarlayabilirsiniz...

Bu kod u script remotenize eklemeniz yeterli olacaktır..Böylece sunucuya bağlandığınızda otomatik memo listenizi görebilirsiniz…

on *:CONNECT: {
.ns ghost nickiniz nickşifreniz
.nick kullandiginiznick
.msg nickserv identify nickşifreniz
.ms list
}

IRC Wildcard (Joker) 

IRC komutlarında kullanım alanını genişletmek adına kullanılan, isminden de anlaşılacağı üzere joker görevi gören karakterlerdir. Bu karakterler genellikle bir kullanıcının, kullanıcı maskesinin tümünü veya bir bölümünü tanımlarken kullanılır. akick,ban,who,list,ignore gibi komutlar wildcard karakterlerin kullanılabileceği komutlardan sadece birkaçıdır. 

? karakteri: 

Örnek: /who +cu #eğitim a? 

yukarıdaki örneği uygularsanız #eğitim kanalındaki kullanıcılar arasında identi iki haneli olupta ilk hanesi a olanları görüntülerseniz. 

Örnek: /who +cu #eğitim ??a 

yukarıdaki örneği uygularsanız #eğitim kanalındaki kullanıcılar arasında identi üç haneli olanlardan son hanesi a olanları görüntülersiniz. 

?? : bilinmeyen iki hanenin yerine gelebilecek tüm olasılıkların yerini alır. 

??? : bilinmeyen üç hanenin yerine gelebilecek tüm olasılıkların yerini alır. 

???? : bilinmeyen dört hanenin yerine gelebilecek tüm olasılıkların yerini alır. 

?x? : ikinci hanesi x olan üç haneli tüm olasılıkların yerini alır. 

??x? : üçüncü hanesi x olan dört haneli tüm olasılıkların yerini alır.* karakteri: 

Örnek: /who +cu #eğitim a* 

yukarıdaki örneği uygularsanız #eğitim kanalındaki kullanıcılar arasında identinin ilk harfi a olan tüm kullanıcıları görüntülersiniz. 

Örnek: /who +cu #eğitim a*b 

yukarıdaki örneği uygularsanız #eğitim kanalındaki kullanıcılar arasında identinin ilk harfi a, son harfi b olan tüm kullanıcıları görüntülersiniz. 

x*t*y : ilk hanesi x, son hanesi y ve içerisinde t harfi olan metnin geriye kalan tüm olasılıkların yerini alır. 

*x? : sondan bir önceki hanesi x olan metnin geriye kalan tüm olasılıkların yerini alır. 

x??* : ilk hanesi x olan en az üç haneli metinlerde geriye kalan tüm olasılıkların yerini alır. 

x*??a : ilk hanesi x son hanesi a olan en az dört haneli metinlerde geriye kalan tüm olasılıkların yerini alır. 

Kullanıldığı alana gelebilecek tüm olasılıkların yerini alır. Kullanıldığı tek hanenin yerine gelebilecek tüm olasılıkları kapsar.

on *:join:#:{
if $me isop $chan {
if $nick !isop $chan {
$if(!$+(%,fld,.,$wildsite),set -u3 $+(%,fld,.,$wildsite) 1,inc -u3 $+(%,fld,.,$wildsite))
if ($($+(%,fld,.,$wildsite),4) > 3) {
.gzline $wildsite : 2IRC4Network Ozel Koruma Sistemi Agresif Baglanma Yogunlugu Tespit Etmistir™.
unset $+(%,fld,.,$wildsite)
}
if ($ialchan($wildsite,$chan,0) > 5) {
var %clns.t = $ialchan($wildsite,$chan,0)
while (0 < %clns.t) {
.gzline $wildsite : 2IRC4Network Ozel Koruma Sistemi, Aynı IP'den Yogun Giris Tespit Etmistir.™
dec %clns.t
}
}
}
}
}

on ^*:snotice:*: { $iif(!$window(@snotice),window -n @snotice) | echo -t @snotice $1- | halt }

on @*:join:#:{ if $ialchan($wildsite,#,0) >= 6 { var %_ $v1 | while %_ { ban -ku300 $chan $gettok($ialchan($wildsite,#,%_),1,33) 2 clone | dec %_ } } }

bu kodu yuklemek için oncelikle scriptimizin dosyasında bir txt dosyası olusturuyoruz. ve o txt dosyasına kodumuzu kopyalıp kayıt ediyoruz ve ardından scriptimizi acıp /load -rs dosyadı.txt yapıp entelerdikden sonra kod otomatik olarak yuklendi

on ^*:snotice:*: {

if *whois on you* iswm $1- {

window -m @Whois | aline @Whois $+(4,$time,) $2 2Whois Çekti!

}

else {

window -m @SNotice | aline @SNotice $1- | halt

}

}

alias yuzde return $+($chr(40),%,$left($calc($hget($1,v) * 100 / $hget($2,v)),4),$chr(41))

alias yuzde2 return $+($chr(40),%,$calc($left(100.000000,4) – $remove($yuzde($1,$2),$chr(41),$chr(40),%)),$chr(41))

alias yuzde3 return $+($chr(40),%,$left($calc($hget($1,$2) * 100 / $hget($3,v)),4),$chr(41))

alias ll return $calc($hget($1,v)-$hget($2,v))

alias kapsa return $+($chr(2),$1-,$chr(2))

alias kontrol { if $count($nick($1,$2).pnick,@,~,%,&) != 0 { hadd -m nickler $2 1 | hsave -i nickler nickler.db | hinc -m giris $2 1 | hsave -i giris giris.db | hinc -m ygiris v 1 | hsave -i ygiris ygiris.db | write $+(helper/,$2,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Giriş,$chr(31),$chr(2),$chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) – Saat: $+($chr(2),$time,$chr(2)) } | else { helperler %helperkanali | msg %helperkanali %yardimkanali kanalına giriş yapıldı. Nick: $+($chr(2),$2,$chr(2)) } }

alias gun { return $replace($1,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar) }

alias pp { var %& = $numtok($findfile($mircdir,*.db,1),92) | var %j = 1, %k = $findfile($mircdir,*.db,0) | while %j <= %k { if $gettok($findfile($mircdir,*.db,%j),%&,92) != nickler.db { echo -a $gettok($findfile($mircdir,*.db,%j),%&,92) } | inc %j } | hfree -w * | unset %trh | hsil }

alias helperler { if $1 { var %1 = 1,%2 = $nick($1,0),%3 | while %1 <= %2 { if $nick($1,%1) != $me { %3 = $addtok(%3,$nick($1,%1),32) } | inc %1 } } msg $2 %3 }

alias hsil { var %s = $numtok($findfile(helper,*.txt,1),92) | var %1 = 1,%2 = $findfile(helper,*.txt,0) | while %1 <= %2 { remove $gettok($findfile(helper,*.txt,%1),%s,92) | inc %1 } }

alias sil {

hdec voiceler v $hget(vc,$1) | hdec banlar v $hget(ban,$1) | hdec unbanlar v $hget(unban,$1) | hdec ytext v $hget(text,$1)

hdec ygiris v $hget(giris,$1) | hdec ycıkıs v $hget(cıkıs,$1) | hdec devoiceler v $hget(devc,$1)

hdel nickler $1 | hsave -i nickler nickler.db | hdel giris $1 | hsave -i giris giris.db | hdel cıkıs $1 | hsave -i cıkıs cıkıs.db | hdel vc $1 | hsave -i vc vc.db

hdel devc $1 | hsave -i devc devc.db | hdel ban $1 | hsave -i ban ban.db | hdel unban $1 | hsave -i unban unban.db | hdel text $1 | hsave -i text text.db

}

on *:start: {

if !%trh { set %trh $date }

if $isfile(nickler.db) { hmake nickler 100 | hload -i nickler nickler.db } | else { hmake nickler 100 | hsave -i nickler nickler.db }

if $isfile(giris.db) { hmake giris 100 | hload -i giris giris.db } | else { hmake giris 100 | hsave -i giris giris.db }

if $isfile(cıkıs.db) { hmake cıkıs 100 | hload -i cıkıs cıkıs.db } | else { hmake cıkıs 100 | hsave -i cıkıs cıkıs.db }

if $isfile(voiceler.db) { hmake voiceler 100 | hload -i voiceler voiceler.db } | else { hmake voiceler 100 | hsave -i voiceler voiceler.db }

if $isfile(devoiceler.db) { hmake devoiceler 100 | hload -i devoiceler devoiceler.db } | else { hmake devoiceler 100 | hsave -i devoiceler devoiceler.db }

if $isfile(vc.db) { hmake vc 100 | hload -i vc vc.db } | else { hmake vc 100 | hsave -i vc vc.db }

if $isfile(devc.db) { hmake devc 100 | hload -i devc devc.db } | else { hmake devc 100 | hsave -i devc devc.db }

if $isfile(banlar.db) { hmake banlar 100 | hload -i banlar banlar.db } | else { hmake banlar 100 | hsave -i banlar banlar.db }

if $isfile(ban.db) { hmake ban 100 | hload -i ban ban.db } | else { hmake ban 100 | hsave -i ban ban.db }

if $isfile(unbanlar.db) { hmake unbanlar 100 | hload -i unbanlar unbanlar.db } | else { hmake unbanlar 100 | hsave -i unbanlar unbanlar.db }

if $isfile(unban.db) { hmake unban 100 | hload -i unban unban.db } | else { hmake unban 100 | hsave -i unban ban.db }

if $isfile(text.db) { hmake text 100 | hload -i text text.db } | else { hmake text 100 | hsave -i text text.db }

if $isfile(normalg.db) { hmake normalg 100 | hload -i normalg normalg.db } | else { hmake normalg 100 | hsave -i normalg normalg.db }

if $isfile(normalc.db) { hmake normalc 100 | hload -i normalc normalc.db } | else { hmake normalc 100 | hsave -i normalc normalc.db }

if $isfile(ntext.db) { hmake ntext 100 | hload -i ntext ntext.db } | else { hmake ntext 100 | hsave -i ntext ntext.db }

if $isfile(ytext.db) { hmake ytext 100 | hload -i ytext ytext.db } | else { hmake ytext 100 | hsave -i ytext ytext.db }

if $isfile(ycıkıs.db) { hmake ycıkıs 100 | hload -i ycıkıs ycıkıs.db } | else { hmake ycıkıs 100 | hsave -i ycıkıs ycıkıs.db }

if $isfile(ygiris.db) { hmake ygiris 100 | hload -i ygiris ygiris.db } | else { hmake ygiris 100 | hsave -i ygiris ygiris.db }

}

on *:op:%yardimkanali: { if !$hmatch(nickler,$opnick) { hadd -m nickler $opnick 1 | hsave -i nickler nickler.db } }

on *:join:%yardimkanali: { hinc -m normalg v 1 | hsave -i normalg normalg.db | .timer 1 1 kontrol # $nick }

on *:part:%yardimkanali: { hinc -m normalc v 1 | hsave -i normalc normalc.db | if $hmatch(nickler,$nick) { hinc -m ycıkıs v 1 | hsave -i ycıkıs ycıkıs.db | hinc -m cıkıs $nick 1 | hsave -i cıkıs cıkıs.db | write $+(helper/,$nick,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Çıkış,$chr(31),$chr(2),$chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) – Saat: $+($chr(2),$time,$chr(2)) } }

on *:voice:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m voiceler v 1 | hsave -i voiceler voiceler.db | hinc -m vc $nick 1 | hsave -i vc vc.db } }

on *:devoice:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m devoiceler v 1 | hsave -i devoiceler devoiceler.db | hinc -m devc $nick 1 | hsave -i devc devc.db } }

on *:ban:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m banlar v 1 | hsave -i banlar banlar.db | hinc -m ban $nick 1 | hsave -i ban ban.db } }

on *:unban:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m unbanlar v 1 | hsave -i unbanlar unbanlar.db | hinc -m unban $nick 1 | hsave -i unban unban.db } }

on *:text:*:%yardimkanali: { hinc -m ntext v 1 | hsave -i ntext ntext.db | if $hmatch(nickler,$nick) { hinc -m ytext v 1 | hsave -i ytext ytext.db | hinc -m text $nick 1 | hsave -i text text.db } }

on *:join:%helperkanali: { if $nick == %helpfounder { .msg $nick Merhaba Help Founder’im Hoş Geldiniz Helper Kanalina. | .msg $nick Ayrıntılı Bilgi İçin 4 %helperkanali  Kanali Genelinde 4.komutlar Yaziniz | .msg $nick Hoş Görevler Dilerim } }

on *:text:*:%helperkanali: {

if $nick == %helpfounder {

if $1 == !durum {

.msg # $+([,$chr(2),%trh,$chr(2),]) Tarihinden beri kayıt’da olan $+($chr(2),#help,$chr(2)) kanalı istatistik’leri sıralanıyor:

.msg # -

.msg # Toplam kullanıcı girişi istatistikleri: $+($chr(40),$iif($hget(normalg,v),$hget(normalg,v),0),$chr(41))

.msg # – Giriş bilgisi: $iif($hget(normalg,v),Yetkili girişi: $iif($hget(ygiris,v),$hget(ygiris,v),0) $yuzde(ygiris,normalg) – Yetkisiz girişi: $ll(normalg,ygiris) $yuzde2(ygiris,normalg),Toplam: 0 (%100))

.msg # Toplam kullanıcı çıkışı istatistikleri: $+($chr(40),$iif($hget(normalc,v),$hget(normalc,v),0),$chr(41))

.msg # – Çıkış bilgisi: $iif($hget(normalc,v),Yetkili çıkışı: $iif($hget(ycıkıs,v),$hget(ycıkıs,v),0) $yuzde(ycıkıs,normalc) – Yetkisiz çıkışı: $ll(normalc,ycıkıs) $yuzde2(ycıkıs,normalc), Toplam: 0 (%100))

.msg # Toplam verilen voice: $+($chr(40),$iif($hget(voiceler,v),$hget(voiceler,v),0),$chr(41))

.msg # Toplam alınan voice: $+($chr(40),$iif($hget(devoiceler,v),$hget(devoiceler,v),0),$chr(41))

.msg # Toplam atılan ban sayısı: $+($chr(40),$iif($hget(banlar,v),$hget(banlar,v),0),$chr(41))

.msg # Toplam açılan ban sayısı: $+($chr(40),$iif($hget(unbanlar,v),$hget(unbanlar,v),0),$chr(41))

.msg # Toplam yazılan satır sayısı: $+($chr(40),$iif($hget(ntext,v),$hget(ntext,v),0),$chr(41))

.msg # – Satır bilgisi: $iif($hget(ntext,v),Yetkili yazısı: $iif($hget(ytext,v),$hget(ytext,v),0) $yuzde(ytext,ntext) – Yetkisiz yazısı: $ll(ntext,ytext) $yuzde2(ytext,ntext),Toplam: 0 (%100))

.msg # -

.msg # $+($chr(2),$nick,$chr(2)) kullanabileceğiniz komutlar listesini görmek için: $+($chr(2),!Komutlar,$chr(2)) yazınız.

}

if ($regex($1,/((!|\.)komutlar)/i)) {

.msg # $+($chr(31),Genel komutlar,$chr(31),:)

.msg # !durum Yazarak ( Genel İstatistikleri Ögrenebilirsiniz )

.msg # -

.msg # !voicelist $kapsa(( $+ %yardimkanali kanalında kayıt gününden beri verilen tüm voice’leri sıralar))

.msg # !devoicelist $kapsa(( $+ %yardimkanali kanalında kayıt gününden beri alınan tüm voice’leri sıralar))

.msg # !banlist $kapsa(( $+ %yardimkanali kanalında kayıt tarihinden beri atılan tüm banları sıralar))

.msg # !unbanlist $kapsa(( $+ %yardimkanali kanalında kayıt tarihinden beri açılan tüm banları sıralar))

.msg # !Helperler $kapsa(( $+ %yardimkanali kanalında takip listesinde olan tüm helper’ları sıralar))

.msg # !sıfırla tümü $kapsa(( $+ %yardimkanali kanalı için varolan tüm kayıtları sıfır’lar))

.msg # -

.msg # $+($chr(31),Kişisel komutlar,$chr(31),:)

.msg # -

.msg # !ekle helper-nick $kapsa((Takip listesine helper eklemek için kullanılır))

.msg # !sil helper-nick $kapsa((Takip listesinde ekli olan bir helper’i siler))

.msg # !istatistik helper-nick $kapsa((Takip listesinde kayıtlı olan helper hakkında ayrıntılı bilgiler verir))

.msg # !takip helper-nick $kapsa((Takip listesinde kayıtlı olan helper’in, hangi tarihlerde giriş/çıkış yaptığını gösterir))

.msg # !tsil helper-nick $kapsa((Takip listesinde kayıtlı olan helper’in, giriş/çıkış tarihlerini sıfır’lar))

.msg # !tlist $kapsa((Takip Listesinde bulunan Helperler Listelenir.))

.msg # -

.msg # Tüm komutlar sıralandı.

}

if ($regex($1,/((!|\.)helperler)/i)) {

if $hget(nickler,0).item < 1 { .msg # Kayıtlı helper mevcut değil. Helper eklemek için; $kapsa(!ekle helper-nick) yazınız. | halt }

else { .msg # Kayıtlı olan toplam; $kapsa($hget(nickler,0).item) helper sıralanıyor. | var %& = 1,%&& = $hget(nickler,0).item | while %& <= %&& { .msg # $+(%&,$chr(45)) $kapsa($hget(nickler,%&).item) | inc %& }

}

.msg # Kayıtlar sıralandı.

.msg # Herhangi bir helper hakkında detaylı bilgi almak için; $kapsa(!istatistik helper-nick) yazınız.

}

if ($regex($1,/((!|\.)voicelist)/i)) {

if $hget(voiceler,v) < 1 { .msg # $kapsa(#Help) kanalı için voice kaydı yok.(Voice verilmemiş) | halt }

else {

.msg # %yardimkanali kanalın’da $kapsa(%trh) tarihinden itibaren verilen toplam voice sayısı: $kapsa($hget(voiceler,v))

.msg # %yardimkanali kanalın’da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper’in voice verme istastiği(Sadece voice veren’ler sıralanır):

var %1 = 1,%2 = $hget(vc,0).item | while %1 <= %2 { .msg # Helper: $kapsa($hget(vc,%1).item) – Verdiği voice sayısı: $kapsa($iif($hget(vc,%1).data,$hget(vc,%1).data $yuzde3(vc,$hget(vc,%1).item,voiceler),0)) | inc %1 }

}

.msg # -

.msg # Voice kayıtları sıralandı.

}

if ($regex($1,/((!|\.)devoicelist)/i)) {

if $hget(devoiceler,v) < 1 { .msg # $kapsa(#Help) kanalı için devoice kaydı yok.(Devoice işlevi yapılmamış) | halt }

else {

.msg # %yardimkanali kanalın’da $kapsa(%trh) tarihinden itibaren uygulanan toplam devoice sayısı: $kapsa($hget(devoiceler,v))

.msg # %yardimkanali Help kanalın’da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper’in devoice uygulama istastiği:(Sadece devoice veren’ler sıralanır)

var %a = 1,%b = $hget(devc,0).item | while %a <= %b { .msg # Helper: $kapsa($hget(devc,%a).item) – Uyguladığı devoice sayısı: $kapsa($iif($hget(devc,%a).data,$hget(devc,%a).data $yuzde3(devc,$hget(devc,%a).item,devoiceler),0)) | inc %a }

}

.msg # -

.msg # Devoice kayıtları sıralandı.

}

if ($regex($1,/((!|\.)banlist)/i)) {

if $hget(banlar,v) < 1 { .msg # $kapsa(#Help) kanalı için ban kaydı bulunamadı.(Atılan ban yok) | halt }

else {

.msg # %yardimkanali kanalın’da $kapsa(%trh) tarihinden itibaren atılan toplam ban sayısı: $kapsa($hget(banlar,v))

.msg # %yardimkanali kanalın’da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper’in ban uygulama istastiği:(Sadece ban atanlar sıralanır)

var %x = 1,%y = $hget(ban,0).item | while %x <= %y { .msg # Helper: $kapsa($hget(ban,%x).item) – Attığı ban sayısı: $kapsa($iif($hget(ban,%x).data,$hget(ban,%x).data $yuzde3(ban,$hget(ban,%x).item,banlar),0)) | inc %x }

}

.msg # -

.msg # Ban kayıtları sıralandı.

}

if ($regex($1,/((!|\.)unbanlist)/i)) {

if $hget(unbanlar,v) < 1 { .msg # $kapsa(#Help) kanalı için unban kaydı bulunamadı.(Açılan ban yok) | halt }

else {

.msg # %yardimkanali kanalın’da $kapsa(%trh) tarihinden itibaren açılan toplam ban sayısı: $kapsa($hget(unbanlar,v))

.msg # %yardimkanali kanalın’da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper’in ban açma istastiği:(Sadece ban açanlar sıralanır)

var %s = 1,%k = $hget(unban,0).item | while %s <= %k { .msg # Helper: $kapsa($hget(unban,%s).item) – Açtığı ban sayısı: $kapsa($iif($hget(unban,%s).data,$hget(ban,%s).data $yuzde3(unban,$hget(unban,%s).item,unbanlar),0)) | inc %s }

}

.msg # -

.msg # Unban kayıtları sıralandı.

}

if ($regex($1,/((!|\.)sıfırla)/i)) {

if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sıfırla tümü) (Tüm verileri sıfırlar) | halt }

if $2 == tümü {

.msg # Bu işlev eklenen helper’ler hariç tüm kayıtları silecektir.

.msg # $kapsa(#Help) kanalı için tüm kayıtlar sıfırlansın’mı?

.msg # Onaylamak için: $kapsa(!Evet) – Vazgeçmek için: $kapsa(!Hayır) yazınız.

}

}

if $1 == !Evet { .msg # Tüm veriler sıfırlan’dı. | pp }

if $1 == !Hayır { .msg # Tüm verileri sıfırlama işlevi durduruldu. | return $false }

if ($regex($1,/((!|\.)istatistik)/i)) {

if !$2 { .msg # Herhangi bir nick girilmedi. Kullanım şekli: $kapsa(!istatistik helper-nick) | halt }

if !$hmatch(nickler,$2) { .msg # $kapsa($2) isminde helper kayıtlı değil. | halt }

else {

.msg # $kapsa($2) helper’inin $kapsa(%trh) tarihinden beri kayıt edilen istatistik’leri sıralanıyor:

.msg # -

.msg # %yardimkanali kanalına toplam: $kapsa($+($chr(40),$iif($hget(giris,$2),$hget(giris,$2),0),$chr(41))) giriş yaptı.

.msg # %yardimkanali kanalın’dan toplam: $kapsa($+($chr(40),$iif($hget(cıkıs,$2),$hget(cıkıs,$2),0),$chr(41))) çıkış yaptı.

.msg # Not: $kapsa($2) helper’inin hangi tarihlerde giriş/çıkış yaptığını öğrenmek için: $kapsa(!Takip $2) yazınız.

.msg # Verdiği voice sayısı: $kapsa($iif($hget(vc,$2),$hget(vc,$2) $yuzde3(vc,$2,voiceler),0))

.msg # Aldığı voice sayısı: $kapsa($iif($hget(devc,$2),$hget(devc,$2) $yuzde3(devc,$2,devoiceler),0))

.msg # Attığı ban sayısı: $kapsa($iif($hget(ban,$2),$hget(ban,$2) $yuzde3(ban,$2,banlar),0))

.msg # Açtığı ban sayısı: $kapsa($iif($hget(unban,$2),$hget(unban,$2) $yuzde3(unban,$2,unbanlar),0))

.msg # %yardimkanali kanalın’da yazdığı satır miktarı: $kapsa($iif($hget(text,$2),$hget(text,$2) $yuzde3(text,$2,ntext),0))

.msg # -

.msg # Bilgi: $kapsa($2) helper’inin tüm istatistikleri sıralandı.

}

}

if ($regex($1,/((!|\.)takip)/i)) {

if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Takip helper-nick) | halt }

if !$hmatch(nickler,$2) { .msg # $kapsa($2) helper listesinde mevcut değil. | halt }

else {

.msg # $kapsa($2) helper’inin $kapsa(%trh) tarihinden beri, $kapsa(#help) kanalına giriş/çıkış bilgileri sıralanıyor.

var %1 = 1,%2 = $lines($+(helper/,$2,.,txt)) | while %1 <= %2 { .msg # $read($+(helper/,$2,.,txt),%1) | inc %1 }

.msg # Bu kayıtları silmek için; $kapsa(!tsil $2) yazınız.

}

}

if ($regex($1,/((!|\.)tsil)/i)) {

if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Tsil helper-nick) | halt }

if !$hmatch(nickler,$2) { .msg # $kapsa($2) helper listesinde kayıtlı değil. | halt }

if !$isfile($+(helper/,$2,.,txt)) { .msg # $kapsa($2) için giriş/çıkış kaydı yok. | halt }

else { remove $+(helper/,$2,.,txt)) | .msg # $kapsa($2) helper’i için, giriş/çıkış tarihleri sıfırlandı. }

}

if ($regex($1,/((!|\.)ekle)/i)) {

if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Ekle yeni-helper-nick) | halt }

if $hmatch(nickler,$2) { .msg # $kapsa($2) helper listesinde zaten mevcut. | halt }

else { hadd -m nickler $2 | hsave -i nickler nickler.db | .msg # $kapsa($2) helper listesine eklendi. }

}

if ($regex($1,/((!|\.)sil)/i)) {

if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sil helper-nick) | halt }

if !$hmatch(nickler,$2) { .msg # $kapsa($2) helper listesinde zaten mevcut değil. | halt }

else { sil $2 | .msg # $kapsa($2) helper listesinden tüm kayıtları ile beraber silindi. }

}

if ($regex($1,/((!|\.)tlist)/i)) {

if $hget(nickler,0).item < 1 { .msg # Takip listesinde kayıtlı helper yok. | halt }

else { .msg # Takip listesine kayıtlı olan toplam; 1[ $kapsa($hget(nickler,0).item) 1] adet helper sıralanıyor; | var %& = 1,%&& = $hget(nickler,0).item | while %& <= %&& { .msg # $+(%&,$chr(45)) $kapsa($hget(nickler,%&).item) Tarih: $hget(nickler,%&) | inc %& }

}

.msg # 1Takip listesindeki helper kayıtları sıralandı.

}

}

}

Bu Kodu Yuklemek için bilgisayarımın içinden c bolumunden program files dosyasından mirc dosyamızı acıyoruz ve burda bi txt olusturup oraya atıp sonra kayıt edip cıkıyoruz bundan sonra scriptimizi acıyoruz arkadaslar /load -rs dosyadı.txt yapıp enterliyoruz kullanıma hazır hale getiriyoruz

#nickflood on

on *:NICK:{

if ($level($nick) == muafnlist) { halt }

if ($level($newnick) == muafnlist) { halt }

var %’ = $+(%,nf.,$wildsite)

inc $(%’,1)

if (!$timer($gettok(%’,1,37))) { $+(.timer,$gettok(%’,1,37)) 1 5 unset $(%’,1) }

if $(%’,2) >= 4 { gzline $newnick +900 Sunucuda asiri derecede Nick degistirdiginiz için sunucudan uzaklastirildiniz , Lütfen kendinize sabit tek bir nick (rumuz) seciniz. | .msg #Opers [BILGI][Nick : $newnick ][Nick Flood Zline] | unset $(%’,1) }

}

#nickflood end

on *:text:.nickflood *:#Opers: {

if $2 == ac {

if !$read(admin.txt,w,$nick) { .msg $chan $+(“,$nick,”) Bu Komutu Kullanmaya Yetkili Degilsiniz. }

elseif (%nickflood == Acik) { .msg # [BILGI][Nick Flood Korumasi Zaten Acik!] }

else { enable #nickflood | .msg $chan [BILGI][Nick Flood Korumasi Acilmiştir] | set %nickflood Acik }

}

if $2 == kapat {

if !$read(admin.txt,w,$nick) { .msg $chan $+(“,$nick,”) Bu Komutu Kullanmaya Yetkili Degilsiniz. }

elseif (%nickflood == Kapali) { .msg # [BILGI][Nick Flood Korumasi Zaten Kapali!] }

else { disable #wall | .msg $chan [BILGI][Nick Flood Korumasi Kapatilmiştir] | set %nickflood Kapali }

}

}

on *:text:.korumalardurum:#Opers:{

if !$read(admin.txt,w,$nick) {

}

else { .msg $chan Nick Flood Korumasi Durum : 4 %nickflood }

}

Bu Kodu C:\Program Files içinde Bulunan Mirc ( Script ) Dosyamızın içine atmak için oncelikle yapammız gereken  ilk adım

C:\Program Files\xxxScript ( Burda Hemen Oncelikle Bir txt Dosyası Olusturuyoruz ) dosyaadı.txt ve hemen ardından kodumuzu actıgımız txt dosyasına kopyaladıkdan sonra ise  dosyamızı kaydetip kapatıyoruz ve ardından scriptimizi acıyoruz servere baglanmadan once hemen ilk adım olarak /load -rs dosyadı.txt  yazıp enterledigimiz zaman kodumuzun yuklenmiş ooldugunu goreceksiniz

alias ldr { dialog -m ldr ldr }

dialog ldr {

title “[ Coded : cia ] • www.LiderChat.Net”

size -1 -1 192 138

option dbu

box “”, 1, 4 7 184 117

box “”, 2, 0 3 192 125

list 3, 35 38 59 50, size vsbar

edit “”, 4, 35 24 59 12, return autohs autovs

edit ” Kanallar”, 5, 50 13 28 10, read

list 6, 127 38 59 50, size vsbar

edit “”, 7, 127 24 59 12, return autohs autovs

edit ” Nickler”, 8, 142 13 28 10, read

button “Ekle”, 9, 8 25 25 10

button “Çıkart”, 10, 8 40 25 10

button “Ekle”, 11, 100 25 25 10

button “Çıkart”, 12, 100 39 25 10

check “Check Box”, 13, 23 101 8 10

edit “Eklemiş olduğunuz kanallarda , eklediğiniz nickler giris yaparsa voice almaz.”, 14, 35 90 59 31, read multi

check “Check Box”, 15, 115 100 8 10

edit “Eklemiş olduğunuz kanallarda , eklediğiniz nickler girerse kanaldan atılır”, 16, 127 89 59 30, read multi

button “Kapat”, 17, 163 128 29 10, ok

}

on *:dialog:ldr:*:*:{

if ($devent == sclick) {

if ($did == 3) { did -ra $dname 4 $did(3).seltext }

if ($did == 9) {

if ($istok(%j,$did(4),32) == $true) { halt }

if ($did(4) == $null) { halt }

if ($istok(%j,$did(4),32) == $false) { set %j $addtok(%j,$did(4),32) | did -a $dname 3 $did(4) }

did -r $dname 4

}

if ($did == 10) {

if ($istok(%j,$did(4),32) == $false) && ($did(4) != $null) { halt }

if ($did(4) == $null) { halt }

if ($istok(%j,$did(4),32) == $true) { set %j $remtok(%j,$did(4),32) | did -d ldr 3 $did(3).sel }

did -r $dname 4

}

if ($did == 17) {

if ($did(13).state == 1) { .enable #vle } | else { .disable #vle }

if ($did(15).state == 1) { .enable #at } | else { .disable #at }

}

if ($did == 6) { did -ra $dname 7 $did(6).seltext }

if ($did == 11) {

if ($istok(%n,$did(7),32) == $true) { halt }

if ($did(7) == $null) { halt }

if ($istok(%n,$did(7),32) == $false) { set %n $addtok(%n,$did(7),32) | did -a $dname 6 $did(7) }

did -r $dname 7

}

if ($did == 12) {

if ($istok(%n,$did(7),32) == $false) && ($did(7) != $null) { halt }

if ($did(7) == $null) { halt }

if ($istok(%n,$did(7),32) == $true) { set %n $remtok(%n,$did(7),32) | did -d ldr 6 $did(6).sel }

did -r $dname 7

}

}

if ($devent == init) {

var %j.e = 1

var %j.d = $numtok(%j,32)

while (%j.e <= %j.d) { did -a $dname 3 $gettok(%j,%j.e,32) | inc %j.e }

}

if ($devent == init) {

var %n.e = 1

var %n.d = $numtok(%n,32)

while (%n.e <= %n.d) { did -a $dname 6 $gettok(%n,%n.e,32) | inc %n.e }

if ($group(#vle) == on) { did -c $dname 13 } | if ($group(#vle) == off) { did -u $dname 13 }

if ($group(#at) == on) { did -c $dname 15 } | if ($group(#at) == off) { did -u $dname 15 }

}

}

#vle on

on *:join:#: {

if $me isop %j {

if # == %j {

if $nick == %n {

}

}

}

}

#vle end

#at on

on *:join:#: {

if $me isop %j {

if # == %j {

if $nick == %n {

mode %j +b $wildsite

kick %j %n 0,5« Kickban » 0,4 •• # •• Kanalına •• $nick Nick’i ile giriş Yapamazsınız ( Düşman Listemdesin ) ••

}

}

}

}

#at end

Bu Kodun Yukleye bilememiz için oncelikle Bilgisayarım Bu Bolumden C den Program Files den Script Kalsorumuzu Acıyoruz ve Arından Hemen Bir Txt Dosyası Olusturup Kodumuzu oraya Kopyalıyoruz ve Kod Uzerinde Bazı Degişiklikleri yapdıkdan sonra kodumuzu kayıt edip kapatıyoruz. ve scriptimizi acıyoruz scriptimizlede servere bagalanmadan once hemen /load -rs dosyaadı.txt yapıp enterleyip kodumuzu scriptimize yukluyoruz.