mIRCbuL.Net Türkçe mIRC indir

1) Turk kültürü M.ö. 5000 yillarina kadar uzanmaktadir. Temelini ise Andronova Kültürü oluşturmuştur.
2) Turk kültürü Altay Dağlari, Tanri Daği, Aral Gölü, Baykal Gölü ve Bati Turkistan’daki Anav ve Namazgah çevrelerin de olgunlaşmiştir.
3) Turklerin oluşturduğu bu kültüre Atli Göçebe veya Bozkir Kültürü adi da verilmektedir.
4) Altay Dağlarindaki Pazirik Kurgani ve Isik Gölü çevresindeki Esik Kurganlari ise Turk Kültürünün gelişmişliğinin en önemli eserleridir. aKurgan : Eski Turklerde mezar.
bBu kurganlarda insan ve hayvan cesetleri yaninda çeşitli eşyalara rastlanmiştir.
cPazirik Kurganinda bulunan altin zirhta Turk Kültürünün gelişmişliğinin en önemli kaniti olarak kabul edilir.
5) Turklerin inanç olarak ölümden sonraki hayata inandiklari anlaşilmiştir.
6)Turklerin temel geçim kaynaklarinin hay vancilik ve tarim olduğu anlaşilmiştir. Ayrica dokumacilik ve madencilikte önemli bir yer tutmaktadir.
7) İpek yolu da Turkler açisindan önemli bir yer tutmaktadir. İpek yolunun denetimi elde tutulduğu sürece ticaret de Turkler için önemli bir geçim kaynaği olmuştur.
8) Dünyada demir ilk defa Turkler tarafin dan kullanilmiş ve at ilk defa Turkler tarafindan evcilleştirilmiştir.
9) At sütünden kimiz yaparak içmişler, hayvancilikla geçindikleri halde domuzu hiçbir zaman beslememiş ve etini yememişlerdir.
10) Savaşçi bir toplum olarak yaşamişlar, Kartal ve Kurdu kutsal hayvan olarak kabul etmişler ve sembol olarak kullanmişlardir

#sericlone on 

on *:snotice:*Client connecting on*:{ 

.timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] 

inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] 

if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 4 { 

.kline $+(*@,$gettok($gettok($10,2,64),1,41)) 3600 IRC Network Özel Koruma Sistemi ; 4Secure2 aynı IP’den 4′den fazla giris tespit etmistir. 

unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] 

} 

} 

#sericlone end 

YÜKLEME :

on *:TEXT:!infoban:?:{
  if !$hget($nick) {
    .msg $nick Siz Banlanmadiniz ! | halt
  }
  else {
    msg $nick ———-Ban Bilgi Başlangici———-
    msg $nick [Nickiniz: $+($hget($nick,nickiniz),])
    msg $nick [Kanal: $+($hget($nick,kanal),])
    msg $nick [Banlayan: $+($hget($nick,banlayan),])
    msg $nick [Sebep: $+($hget($nick,sebep),])
    msg $nick [Zaman: $+($hget($nick,zaman),])
    msg $nick ———-Ban Bilgi Sonucu———-
    halt
  }
}   

YÜKLEME :

on *:text:*:?:{

if $1 == yardim {

msg $nick Lütfen !yardım olarak kullanın.

}

elseif $1 == !yardım {

var %> = $+(%,yardım,$nick)

if !$(%>,2) {

.timer 0 6 /sajoin $nick #Help | msg $nick Yardım odasına yönlendiriliyorsunuz. | /timer 0 11 /timers off |

inc -u200 $(%>,1)

}

else {

msg $nick Daha önce yardım almışınız,3 dk. beklemeniz gerekli

}

}

YÜKLEME :

Bos Bir Txt Belgesi OlusTurun bu txt belgesinin adı !yard

ım.txt örnek olsun bu belgeyi Mirc Klasörünüzün iÇine Veya Mirc Klasörünüzün Çinde Bas ka bir Klasöre Ati n daha sonra mirci açip/ load-rs!yardım.txt yazip enterleyin bu sayede haberler taramasi mircinize hazır olarak yüklenmiş olacaktır. Bu İşlemden Sonra Yapmanız Gereken İşlem Çalıştırmanızı Saglıyacaktır.

CTCP *:version:*:{

ctcpreply $nick VERSION Sock Bot v2.0 Coded by EmRe ( KeMaNcI )

echo -a 10Size Version çekildi. 12Çeken Nick: 4 $+ $nick

inc -u10 %version. [ $+ [ $nick ] ]

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }

if ( %version. [ $+ [ $nick ] ] == 3 ) { kill $nick Özele Flood Yapmayiniz Lütfen! | .msg #Opers[BILGI][Nick: $nick ][Ozel Version Flood]

}

}

CTCP ^*:finger:*:{

ctcpreply $nick FINGER Sock Bot v2.0 Coded by EmRe ( KeMaNcI )

echo -a 10Size Finger çekildi. 12Çeken Nick: 4 $+ $nick

inc -u10 %finger [ $+ [ $nick ] ]

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }

if ( %finger [ $+ [ $nick ] ] == 3 ) { kill $nick Özele Flood Yapmayiniz Lütfen! | .msg #Opers[BILGI][Nick: $nick ][Ozel Finger Flood]

}

}

#version off

on *:ctcpreply:* {

if ($read(version.txt,w,$2-)) {

.veban $nick | .msg #Opers[BILGI][Nick : $nick ][Version : $2- ][Yasak Version Zline]

halt

}

if (version isin $1-) {

.sapart $nick #guvenlik

.unset %version [ $+ [ $address($nick,2) ] ]

.msg $nick 4Guvenlik Sistemini Gectiniz!1 Hos Sohbetler Dileriz. 4[Yonetim]

.remini version.ini $nick

.timer $+ $nick off

.whois $nick

}

}

on *:join:#: {

if ($chan == #guvenlik) {

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global|Network)/i)) { halt }

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

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

if ($nick !== %botnick) {

.ctcp $nick version

.set -u120 %version [ $+ [ $address($nick,2) ] ] $+($rand(0,9),$rand(a,z),$rand(0,9))

.msg $nick 4Merhaba $nick , Suan Bot Olarak Algilaniyorsunuz ;

.msg $nick 5Eger 1 Dakika Içinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklastirilacaksiniz!

.msg $nick 4Lutfen Bot/Reklamci Olmadiginizi Belirtmek Icin1 !nobot %version [ $+ [ $address($nick,2) ] ] 4Komutunu Özelime Yaziniz04! 

.userip $nick

}

}

if ($chan == #Opers) {

if ($nick == %botnick) {

sajoin $me #guvenlik | .mode #guvenlik +msi | set %vsifre Acik | topic #guvenlik 10,1 $server – Sunucu Güvenligi Acisindan 4#güvenlik 10,1 Kanalina Yönlendirildiniz. 4 %botnick 10,1 Botunun Size Vermis Oldugu Kodu 4( !nobot KOD ) 10,1 Bir Dakika Icerisinde 4 %botnick 10,1 Botun Özeline 4 !nobot KOD 10,1 Seklinde Tanitiniz, Aksi Taktirde Sunucudan Uzaklastirilacaksiniz..’ | halt

}

}

}

alias veban { gzline $$1 +3800 Lütfen %web Adresinden sunucumuzun Mirc/Script programini indirip tekrar giris yapiniz! $date $time $+([,%botnick,]) }

raw 340:*: {

.timer $+ $remove($gettok($2-,1,61),*) 1 60 /veban *@ [ $+ [ $gettok($2-,2,64) ] ]

}

on *:quit: {

.timer $+ $readini(version.ini,$nick,ip) off

.remini version.ini $nick

.timer $+ $nick off

.timer $+ $address($nick,2) off

.timer $+ $address($nick,3) off

.close -m $nick

}

raw 378:* {

ipsil $4

}

alias ipsil { if $1 { if !$read(xpips.txt,w,$1-) { halt } | else { write $+(-dl,$readn) xpips.txt } } }

on *:text:*:?: {

if ($1 == !nobot) {

if ( %version [ $+ [ $address($nick,2) ] ] == $null ) {

.msg $nick 4Sizin Guvenlik Sifreniz Bulunmamaktadir!1 #Guvenlik Kanalindan Cikabilirsiniz. 4[Yonetim] 

.timer $+ $address($nick,1) off

.unset %version [ $+ [ $address($nick,2) ] ]

.sapart $nick #guvenlik

halt

}

if ($2 == $null) { .msg $nick 4Kodu Yazmayi Unuttunuz!1 !nobot KODUNUZ Seklinde Yazicaksiniz4!  | halt }

if ( $2 == %version [ $+ [ $address($nick,2) ] ] ) {

.msg $nick 4Sifreyi Dogru Girdiniz #Guvenlik Kanalindan Cikarildiniz!1 Hos Sohbetler Dilerim. 4[Yonetim] 

.remini version.ini $nick

.timer $+ $nick off

.unset %version [ $+ [ $address($nick,2) ] ]

.sapart $nick #guvenlik

.whois $nick

.timer $+ $address($nick,2) off

halt

}

else {

.msg $nick 4Yanlis Kod Girdiniz!1 Lütfen Kodu Duzgun Giriniz!

.msg $nick 1Size Verilen Kod :4 %version [ $+ [ $address($nick,2) ] ] 

.msg $nick 1Ozelime Yazmaniz Gereken Komut :4 !nobot %version [ $+ [ $address($nick,2) ] ] 

.msg $nick 1Lütfen Kodu Düzgün Giriniz! 

.ctcp $nick version

}

}

}

#version end

YÜKLEME :

#joinpart on

on *:join:#kanall: {

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

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }

if $me !isop $chan { halt } | if $nick isop $chan { halt }

inc -u10 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]

if ( %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] == 4 ) {

unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]

banla # $nick

.msg # $+(“,$nick,”) Asiri Join/Part yapimi yasak!

}

}

#joinpart end

YÜKLEME :

Bos Bir Txt Belgesi OlusTurun bu txt belgesinin adı Join/part.txt örnek olsun bu belgeyi Mirc Klasörünüzün iÇine Veya Mirc Klasörünüzün Çinde Bas ka bir Klasöre Ati n daha sonra mirci açip/ load-rs Join/part.txtyazip enterleyin bu sayede haberler taramasi mircinize hazır olarak yüklenmiş olacaktır. Bu İşlemden Sonra Yapmanız Gereken İşlem Çalıştırmanızı Saglıyacaktır.

#uzunyazi off

on *:TEXT:*:%global:{

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }

if $nick isop $chan { halt }

if $nick ishop $chan { halt }

if ($len($strip($1-)) >= 190) {

.banla # $nick | .msg # $+(“,$nick,”) Fazla sayida uzun yazi kullandiginiz icin 5 dakika konusmaniz engellenmistir!

}

}

#uzunyazi end

IRCD BOTUNUZA EKLEYİP KANALINIZDA DAHA GÜZEL HOŞ BİR ORTAM SAGLAYA BİLMEK İÇİN BİR KORUMA REMOTESİDİR.

YÜKLEME :

Bos Bir Txt Belgesi OlusTurun bu txt belgesinin adı uzunyazi.txt örnek olsun bu belgeyi Mirc Klasörünüzün iÇine Veya Mirc Klasörünüzün Çinde Bas ka bir Klasöre Ati n daha sonra mirci açip/ load-rs uzunyazi.txtyazip enterleyin bu sayede haberler taramasi mircinize hazır olarak yüklenmiş olacaktır. Bu İşlemden Sonra Yapmanız Gereken İşlem Çalıştırmanızı Saglıyacaktır.

alias xline.data return $shortfn($+($mircdir,xline.data))

on *:snotice:*:{

if (*Z:line added* iswm $1-) {

if ($2 == Global) { write xline.data $6 $+ $chr(183) $+ $15 $+ $chr(183) $+ $left($25-,-1) $+ $chr(183) $+ $date $time }

else { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }

}

if (*K:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }

if (*G:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }

if (*Permanent Global Z:line* iswm $1-) { write xline.data $7 $+ $chr(183) $+ $remove($16,:) $+ $chr(183) $+ $left($17,-1) $date $time }

if (*Permanent Z:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }

if (*Permanent G:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }

if (*Permanent K:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }

if (*removed Global Z:line* iswm $1-) { if ($read($xline.data,w,$+(*,$5,*))) { write $+(-dl,$readn) $xline.data } }

if (*removed K:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data } }

if (*removed Z:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data } }

if (*removed G:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data } }

if *Expiring Global Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($5,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }

if *Expiring K:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }

if *Expiring G:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }

if *Expiring Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }

}

on *:text:*:#Opers:{

if $1 == .ip && $2 {

if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) }

if (!%xline.data) { msg # $qt($2) ipi için kayit bulunamadı! | halt }

else {

.msg # IP: $gettok(%xline.data,1,183)

.msg # Banlayan: $gettok(%xline.data,2,183)

.msg # Sebep: $gettok(%xline.data,3,183)

.msg # Ban Zamanı: $gettok(%xline.data,4,183)

}

}

}

alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }

alias randn2 {

if $1- isalpha && $1- islower {

if (($count($1,a,e,i,o,u) >= 4)) { return $false }

if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {

if ($regex($1,/^[^aeiou]{3}/)) { return $true }

elseif ($regex($1,/([a-z])\1{2}/)) { return $true }

elseif ($regex($1,/[aeiou]{3/)) { return $true }

elseif ($regex($1,q[^u])) { return $true }

elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }

else { return $false }

}

}

}

alias randn {

if $1- isalpha && $1- islower {

if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

if ($len($1) == 7) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

elseif ($len($1) == {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

elseif ($len($1) == 9) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

elseif ($len($1) == 10) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }

elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

else { return $true }

}

elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

else { return $true }

}

elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }

elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }

else { return $false }

}

}

on *:ban:#: {

if ($regex($banmask,/(Network|Server|Staff|helper|admin|ircop|services|dj.|tech|global)/i)) {

.mode # -b $banmask

.notice $nick Banlamaya Calistiginiz [Mask/Nick] Korumam Altindadir , Ban Atamazsiniz!

halt

}

if $read(admin.txt,w,$bnick) {

.mode $chan -b $banmask | .notice $nick Banlamaya Calistiginiz [Mask/Nick] Korumam Altindadir , Ban Atamazsiniz!

}

}