mIRCbuL.Net Türkçe mIRC indir

on *:snotice:*did*whois*: {
var %> = $+(%,op:,$2)
inc -eu60 $(%>,1)
if ($(%>,2) == 1) {
.msg $gettok(%>,2,58) 4Uzakta2 dağların ardındann ufuk görünüyor..
halt }
elseif ($(%>,2) == 2) {
.msg $gettok(%>,2,58) 2X gittikçe yaklaşıyor,4Farkındamısın2?
}
elseif ($(%>,2) == 3) {
.msg $gettok(%>,2,58) 2X sunucudan uzaklaştırılmak üzere.
}
elseif ($(%>,2) == 4) {
.kill $gettok(%>,2,58) Whois Flood yapmaman konusunda uyarılmıştın. 4[10 $me 4] )
}
}
‘ Alt + R ‘ tus kombinasyonları ile karsınıza gelecek olan pencereye kodu aynı sekilde yapıştırınız.

on ^*:SNOTICE:*did a /whois on you*:{
  window -e @Whois
  echo @Whois 12*** $time 5 $1-
  halt
}

Whois Çekenleri IP adresleriyle birlikte @Whois Penceresinde Göstericek Bir Kod Umarım işinize yarar.

on *:input:*: {
if $regex($1-,(^\/{2})|(\| .)|(\| \/)) {
if $input(Size zararlı olabilme ihtimali olan bir kodu girdiniz $crlf $+ Kod: $eval($1-,2) $crlf $+ komutu çalıştırmak istiyormusunuz?,y ,Uyarı!) { $eval($1-,2) }
haltdef
}
if $regex($1-,(\.|\/)+timer* (-m|[0-9])) {
if $input(Timer içeren komut girdiniz çalıştırmak istiyormusunuz?,y ,Uyarı!) { $eval($1-,2) }
haltdef
}
if $server && $regex($1-,(^\/server$)|(^\/server [^(\-n|\-m)])) {
if $input(Servere bağlı iken server komutunu girdiniz devam etmek istiyorsanız server ile bağlantınız kesilecektir?,y,Uyarı!) { $eval($1-,2) }
haltdef
}
}

;buda cümle kurma
on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) && !$window(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)
}
}

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

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

alias cs {
hmake clones 500
var %x = 1, %c = $iif($1 ischan,$1,$active),%ticks = $ticks,%clones
if ($window(@clones)) window -c @clones
window @clones
if (%c ischan) && ($ialchan(*,%c,0) != $nick(%c,0)) { .enable #clones | aline @clones Updating IAL.. | .ial on | who %c }
while ($nick(%c,%x)) {
var %i = $ifmatch
if ($hget(clones,$address(%i,2)) == $null) && ($ialchan($address(%i,2),%c,0) > 1) {
inc %clones $ialchan($address(%i,2),%c,0)
hadd clones $address(%i,2) $address(%i,2)
var %temp,%a = 1
while ($ialchan($address(%i,2),%c,%a)) {
set %temp %temp $+ $chr(44) $ialchan($address(%i,2),%c,%a).nick
inc %a
}
aline @clones $ialchan($address(%i,2),%c,0) clones from $address(%i,2) $+ : $mid(%temp,2,$calc($len(%temp) – 1))
}
inc %x
}
aline @clones -
aline @clones Group(s) of clones found: $hmatch(clones,*,0) (Total: %clones $+ )
aline @clones Synsched in $duration($calc(($ticks – %ticks) / 1000)) $gettok($calc(($ticks – %ticks) / 1000),2,46) $+ millisecs
hfree clones
}
#clones off
raw 315:*: cs $2 | .disable #clones
#clones end

on *:connect: .disable #clones

Arkadaslar bu da ufak bi ekleme, surekli tek bir renkle yazmak istiyenler icin.

on *:input:#: {
if !$regex($1,\/) {
msg $active X $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
on *:input:?: {
if !$regex($1,\/) {
msg $active X $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}

X Burada X yerine istediginiz rengin sayisini yazarsiniz arkadaslar
Renkleri ctrl + k yaptiginizda gorebilirsiniz, kalin bold yazmak istiyorsaniz burada CTRL + B yaparsunuz, birde alt cizgili underscore lu yazmak istiyorsaniz CTRL + U yapmaniz yeterli

on *:op:#: { if $opnick == $me { msg # $read(op.txt) } }
on *:voice:#: { if $voicenick == $me { msg # $read(voice.txt) } }
on *:halfop:#: { if $halfop == $me { msg # $read(halfop.txt) } }

mIRC klasörüne op.txt, voice.txt, halfop.txt dosyalarını açmayı unutmayın içinede birşeyler yazın teşekkürler için

on 1:join:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
inc -u60 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < 3 halt
unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
Mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13Join/Part interdit2 [14!2] 7¤
}

on *:open:?:*:{
msg $nick Merhaba $nick
msg $nick Bugün $date ve saat $time(HH:nn.ss)
msg $nick $duration($idle) süredir kimseyle konuşmadım.
msg $nick Şu an $+($query(0),.) özelsin ve toplamda %q! kişi pencere açtı Sana nasıL yardımcı oLabilirim $nick ?
msg $nick
msg $nick Eger ÖzeLimden komut yardımı için qeLdiySen ;
msg $nick Chanserv(Cs) için .chan
msg $nick Nickserv(ns) için .nick
msg $nick Memoserv(ms) için .memo yazman yeterLi oLucak..! ßu ŞekiL Örneğin: .chan .nick .memo
inc %q!
}
Not Def. PasteLeyin . karşılama.txt oLArak kayd edin. /Load -rs karşılama.txt oLarak yazın çalışacaktır.

on *:connect: {
.join #İstanbuL
.ns identify HelpBotSifresi
.remote on
}
on *:text:*:?: {
if .n?ck iswm $1- {
/timer 1 0 msg $nick | Nickserv Hakkında Komutlar Sıralanıyor |
/timer 1 1 msg $nick
/timer 1 2 msg $nick 1- Nick Kaydetmek icin 4.nreg0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 3 msg $nick 2- Nick Droplamak icin 4.ndrop 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 4 msg $nick 3- Nick E-mail Değişmek icin 4.nmail0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 5 msg $nick 4- Nick UrL Değişmek icin 4.nurl 0,1yazarak komutu öğrenebilirsiniz…
/timer 1 6 msg $nick 5- Nick İnfosunu Görmek icin 4.ninfo 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 7 msg $nick 6- Nick Sifrenizi E-mail’e Yollamak icin 4.nsend 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 8 msg $nick 7- Nick Sifrenizi Değiştirmek icin 4.nsifre 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 9 msg $nick 8- Askıda Kalan Nickinizi Düşürmek icin 4.nghost 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 10 msg $nick 9- Nickinize Memo Gelmesin İstiyorsanız 4.nnmemo0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 11 msg $nick 10- Nickinizin Baskası Tarafından Kullanılmasını İstemiyorsanız 4.nkill0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 12 msg $nick 11- Nick E-mail adresinizin Herkez Tarafından Görülmesini istiyorsanız 4.nshow0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 12 msg $nick
/timer 1 14 msg $nick Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz.
}
if .nreg isin $1- {
msg $nick Nickinizi Kaydetmek ( Sifrelemek ) icin /ns register sifre e-mailadress Örnek : /ns register 123456 e-mailadres
}
if .ndrop isin $1- {
msg $nick Nickinizi Droplamak ( Kayıtları Silmek ) icin /ns drop nick Örnek : /ns drop GuRhaN
}
if .nma?l iswm $1- {
msg $nick Nickinizin E-mailini Değiştirmek icin /ns set email yenie-mail Örnek : /ns set user@adres user@adres komutunu kullandıktan sonra yeni e-mail adresinize gelen onay kodunu giriniz.
}
if .nurl isin $1- {
msg $nick Nickinizin URL ( Webadres ) Değiştirmek icin /ns set url yeni url Örnek : /ns set url adres
}
if .n?nfo iswm $1- {
msg $nick Nickinizin İnfosunu Yada Herhangi Bir Nick’in İnfosunu Görmek icin /ns info nick Örnek : /ns info GuRhaN
}
if .nsend isin $1- {
msg $nick Nickinizin Sifresini E-mailinize Göndermek İstiyorsanız.. /ns sendpass nick Örnek : /ns sendpass GuRhaN
}
if .ns?fre iswm $1- {
msg $nick Nickinizin Sifresini Değiştirmek icin /ns set password Yenisifreniz Örnek : /ns set password 321654
}
if .nghost isin $1- {
msg $nick Nickiniz askıda Kaldı ve Düşürmek istiyorsunuz Su Komutu Uygulayınız.. /ns ghost nick sifreniz Örnek : /ns ghost GuRhaN 123456
}
if .nnmemo isin $1- {
msg $nick Nickinize Memo Gelmesini İstemiyor iseniz Su Komutu Uygulayınız.. /ns SET nomemo ON
}
if .nk?ll iswm $1- {
msg $nick Nickinizin Baskası Tarafından Kullanılmasını İstemiyorsanız Su Komutu Uygulayınız.. /ns set KILL on
}
if .nshow isin $1- {
msg $nick Nickinizdeki E-mail Adresini Herkezin Görmesini İstiyorsanız Su Komutu Uygulayınız.. /ns set showemail off
}
if .chan isin $1- {
/timer 1 0 msg $nick | Chanserv Hakkındaki Komutlar Sıralanıyor |
/timer 1 1 msg $nick
/timer 1 4 msg $nick 1- Kanal Kaydetmek icin .creg yazarak komutu öğrenebilirsiniz..
/timer 1 5 msg $nick 2- Kanal Droplamak icin .cdrop yazarak komutu öğrenebilirsiniz..
/timer 1 6 msg $nick 3- Kanal Founderi Değiştirmek icin .cfon yazarak komutu öğrenebilirsiniz..
/timer 1 7 msg $nick 4- Kanal Sifresi Değiştirmek icin .csifre yazarak komutu öğrenebilirsiniz..
/timer 1 8 msg $nick 5- Kanal E-mail Değiştirmek icin .cmail yazarak komutu öğrenebilirsiniz..
/timer 1 9 msg $nick 6- Kanalınıza gönderilen memoları kapatmak yada okuyabilme yetki düzeyini ayarlamak icin .cmemo yazarak komutu öğrenebilirsiniz..
/timer 1 10 msg $nick 7- Kanalınıza giremiyorsanız INVITE modunda yada BANLI iseniz .invite yazarak komutu öğrenebilirsiniz..
/timer 1 11 msg $nick 8- Kanalınıza SOP eklemek,silmek istiyorsanız .csop yazarak komutu öğrenebilirsiniz..
/timer 1 12 msg $nick 9- Kanalınıza AOP eklemek,silmek istiyorsanız .caop yazarak komutu öğrenebilirsiniz..
/timer 1 13 msg $nick 10- Kanalınıza VOP(voice(+)) eklemek istiyorsanız .cvop yazarak komutu öğrenebilirsiniz..
/timer 1 14 msg $nick 11- Kanalınıza akick atmak icin .cakick yazarak komutu öğrenebilirsiniz..
/timer 1 15 msg $nick 12- Kanalınıza accesslilerin ( SOP,AOP,VOP ve UOP ) dışında kimsenin girememesi için .crest yazarak komutu öğrenebilirsiniz..
/timer 1 16 msg $nick 13- Kanalınıza OP olan birinin hangi nicki identify ederek bu seviyeye geldiğini vede access’inin,ne olup olmadığını görmek için .why yazarak komutu öğrenebilirsiniz..
/timer 1 17 msg $nick 15- Kanalınıza bir başka kanala linklemek(yönlendirmek) istiyorsanız .link yazarak komutu öğrenebilirsiniz…
/timer 1 18 msg $nick 16- Kanalınıza Giris Mesajı atmak icin .cent yazarak komutu öğrenebilirsiniz..
/timer 1 19 msg $nick 17- Kanalınızda op olan tüm kullanıcıları bir seferde deop edebilmek için .mdeop yazarak komutu öğrenebilirsiniz..
/timer 1 20 msg $nick 18- Kanalınızdaki herkesi atmak için .mkick yazarak komutu öğrenebilirsiniz..
/timer 1 21 msg $nick 19- Yetkili oldugunuz bi kanaldan size atılan banı kaldırmak için .cunban yazarak komutu öğrenebilirsiniz..
/timer 1 22 msg $nick
/timer 1 25 msg $nick Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz.
}
if .caop isin $1- {
msg $nick : AOP eklemek için ( Founder,Sop iseniz ), 4/chanserv aop #kanal add Nick
msg $nick : AOP silmek için ( Founder,Sop iseniz ), 4/chanserv aop #kanal del Nick
}
if .csop isin $1- {
msg $nick : SOP eklemek için ( Founder iseniz ), 4/chanserv sop #kanal add Nick
msg $nick : SOP silmek için ( Founder iseniz ), 4/chanserv sop #kanal del Nick
}
if .cvop isin $1- {
msg $nick : VOP eklemek için, ( kanalda en az sop accessiniz olmalı ) 4/chanserv vop #kanal add nick
msg $nick : VOP silmek için, ( kanalda en az sop accessiniz olmalı ) 4/chanserv vop #kanal del nick
}
if .mkick isin $1- {
msg $nick Kanaldaki herkesi atmak için SOP veya FOUNDER olmak gerekiyor, 4/chanserv mkick #kanal
}
if .mdeop isin $1- {
msg $nick Kanaldaki herkesi deop etmek için SOP veya FOUNDER olmak gerekiyor, 4/chanserv mdeop #kanal
}
if .link isin $1- {
msg $nick Kanal Yönlendirmek için, /mode #1.kanal +lL 1 #2.Kanal
}
if .why isin $1- {
msg $nick : Kanalda OP olan birinin hangi nicki identify ederek bu seviyeye geldiğini vede access in,nolup olmadığını görmek için, 4/chanserv why #kanal nick
}
if .crest isin $1- {
msg $nick : Kanala accesslilerin ( SOP,AOP,VOP ve UOP ) dışında kimsenin girememesi için, 4/chanserv set #kanal restrict ON Kaldırmak için 4/chanserv set #kanal restrict OFF
}
if .cunban isin $1- {
msg $nick : Chanserv i kullanarak size atılan ban’ı kaldırmak için, 4/chanserv unban #kanal me
}
if .creg isin $1- {
msg $nick Kanalınızı Kaydetmek İstiyorsanız Su Komutu Uygulayınız /cs register #kanal sifre acıklama Örnek : /cs register #sohbet 123456 Hoşgeldiniz
}
if .cdrop isin $1- {
msg $nick Kanalınızı Droplamak ( Kayıtları Silmek ) icin Su Komutu Uygulayınız /cs identify #kanalınız sifreniz /cs drop #kanalınız Örnek : /cs identify #sohbet 123456 /cs drop #sohbet
}
if .cfon isin $1- {
msg $nick Kanalınızın Founderini Değiştirmek icin Su Komutu Uygulayınız /cs identify #kanalınız sifreniz /cs set #kanalınız founder yenifounder Örnek : /cs identify #sohbet 123456 /cs set #sohbet founder GuRhaN
}
if .cs?fre iswm $1- {
msg $nick Kanalınızın Sifresini Değiştirmek icin Su Komutu Uygulayınız /cs set #kanaliniz password yenisifre Örnek : /cs set #sohbet password 321654
}
if .cma?l iswm $1- {
msg $nick Kanalınızın E-mail adresini Değiştirmek icin Su Komutu Uygulayınız /cs set #kanalınız email yenie-mail Örnek : /cs set #sohbet email adres
}
if .cmemo iswm $1- {
msg $nick Kanala memo yolladığınız zaman alacak alt düzeyi belirlemek için, 4/chanserv set #kanal memo none|aop|sop|founder
}
if .invite isin $1- {
msg $nick Kanal +i modunda ise vede kanalda en az AOP access iniz var ise kanala girmek için, 4/chanserv invite #kanal nick
}
if .cent isin $1- {
msg $nick Kanalınıza Giriş Mesajı atmak icin /cs set #kanal entrymsg mesajınız Örnek : /cs set #sohbet entrymsg  Hoşgeldiniz.
}
if .cak?ck iswm $1- {
msg $nick Kanalınızda akick almak icin Su Komutu Uygulayınız /cs akick #kanal add nick!*@* sebeb Örnek : /cs akick #sohbet add GuRhaN!*@* Rahatsızlık
}
if .memo iswm $1- {
/timer 1 0 msg $nick | Memoserv Hakkındaki Komutlar Sıralanıyor |
/timer 1 1 msg $nick
/timer 1 3 msg $nick 1- Memo Göndermek icin .msend yazarak komutu öğrenebilirsiniz..
/timer 1 4 msg $nick 2- Memo Okumak icin .mread yazarak komutu öğrenebilirsiniz..
/timer 1 5 msg $nick 3- Memo Listesini Görmek icin .mlist yazarak komutu öğrenebilirsiniz..
/timer 1 6 msg $nick 4- Memolarınızı E-mail adresinize Göndermek icin .mfor yazarak komutu öğrenebilirsiniz..
/timer 1 7 msg $nick 5- Memolarınızı Silmek icin .mdel yazarak komutu öğrenebilirsiniz..
/timer 1 8 msg $nick 6- Memolarınıza Limit k****k icin .mlim yazarak komutu öğrenebilirsiniz..
/timer 1 9 msg $nick 7- Memolarınız Hakkındaki Bilgileri Görmek icin .minfo yazarak komutu öğrenebilirsiniz..
/timer 1 10 msg $nick 8- Herhangi Bir Kullanıcının Size Memo Göndermesini İstemiyorsanız .mig yazarak komutu öğrenebilirsiniz..
/timer 1 10 msg $nick
/timer 1 12 msg $nick Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz.
}
if .msend isin $1- {
msg $nick Memo Göndermek icin Su Komutu Uygulayınız.. /ms send nick mesajınız Örnek : /ms send heLLWeapOn Selam
}
if .mread isin $1- {
msg $nick Memo Okumak icin Su Komutu yazarak komutu öğrenebilirsiniz.. /ms read memonumarası Örnek : /ms send 1
}
if .ml?st iswm $1- {
msg $nick Memo Listenizi Görmek icin Su Komutu Uygulayınız /ms list
}
if .mfor isin $1- {
msg $nick Memolarınızı E-mail adresinize Göndermek icin Su komutu Uygulayınız /ms forward all
}
if .mdel isin $1- {
msg $nick Memolarınızı Silmek icin Su Komutu Uygulayınız /ms del memonumarası Örnek : /ms del 1
}
if .ml?m iswm $1- {
msg $nick Memolarınıza Limit k****k icin Su Komutu Uygulayınız /ms set limit LIMITSAYISI Örnek : /ms set limit 10
}
if .m?nfo iswm $1- {
msg $nick Memolarınız Hakkındaki Bilgileri Görmek icin Su Komutu Uygulayınız /ms info
}
if .m?g iswm $1- {
msg $nick Herhangi Bir Kullanıcının Size Memo Göndermesini Engellemek icin Su Komutu Uygulayınız /ms ignore add nick Örnek : /ms ignore add heLLWeapOn
}
}