mIRCbuL.Net Türkçe mIRC indir

on *:text:*:?:{

if !reklam isin $1 {

.msg #opers $nick $+ : Reklam raporu verdi.. Reklam Yapan Nick $2 , Reklamı $3-

.msg $nick Teşekkürler Raporunuz Alındı 12 $nick

}

}

Bu Kodu Kullanımı Bilgisayarımızın içinde bulunan script dosyamızı acıyoruz dosyamızı actıkdan sonra dosyamızın içine bir txt dosyası olusuturup bu kodu kopyalıyoruz kaydetip kapatıyoruz ve scriptimizi acıyoruz scriptimizi acıkdan sonra ise /load -rs  dosyadı.txt yazıp enterliyoruz.

* Loaded script ‘C:\Documents and Settings\Pc Adı\Desktop\xXx Script\dosyaadı.txt’

Boyle Bir Uyarı Cıktıkdan Sonra Kodunuz Yuklenmiş Olucaktır.

#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 :

;Günlük Fal addonı, Editleyen: ‘KeMaNcI’

;Günlük falınıza bakmak için “/günlükfal” yazınız, ya da popupslardaki Günlük Fal’a tıklayınız.

on *:LOAD:echo 12 -st > Günlük Fal addonını yüklediniz. “/günlükfal” yazarak yada popupslardaki Günlük Fal’a tıklayarak falınıza bakabilirsiniz.

menu status,menubar,channel {

-

Günlük Fal:günlükfal

}

alias günlükfal { if !$sock(muneccim) { if $dialog(sa_gunlukfal) { dialog -x sa_gunlukfal } | dialog -ma sa_gunlukfal sa_gunlukfal } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }

alias -l falgoster { if !$window(GünlükFal) { window -k0 @GünlükFal } | aline -p @GünlükFal $1- }

on *:sockopen:muneccim:{

if %burç {

sockwrite -n $sockname GET $+(/gunluk_fal/bugun.asp?burc=,%burç) HTTP/1.1

sockwrite -n $sockname Host: muneccim.com $+ $crlf $+ $crlf

}

else { echo 12 -st > Hata: Burç seçmelisiniz.. }

}

on *:sockread:muneccim:{

if ($sockerr) {

echo 12 -st > Hata: Bağlantı hatası, lütfen tekrar deneyiniz.

halt

}

else {

var %temptext

sockread %temptext

if (*<td><p align=”center”><img src=”../images/*”></td>* iswm %temptext) && $istok(koc.boga.ikizler.yengec.aslan.basak.terazi.akrep.yay.oglak.kova.balik,$gettok($gettok($gettok(%temptext,3,47),1,34),1,46),46) { falgoster $+(04,$upper($gettok($gettok($gettok(%temptext,3,47),1,34),1,46))) }

if (*<p align=”center”><big><big><font face=”Arial Black”>*</font></big></big></p>* iswm %temptext) { falgoster $+(14,$htmlfree(%temptext)) }

if (<p><font color=”#000000″ face=”Arial Narrow”><strong><big>* iswm %temptext) { falgoster $+(10,$htmlfree(%temptext)) | falgoster  | if $sock(muneccim) { sockclose muneccim } }

}

unset %burç

}

alias -l htmlfree {

var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

return %x

}

dialog sa_gunlukfal {

title “Günlük Fal”

size -1 -1 59 35

option dbu

combo 1, 3 8 53 55, size drop

box “Burç:”, 2, 1 0 57 21

button “Oku”, 3, 3 22 25 10

box “”, 4, 1 17 29 17

button “Kapat”, 5, 31 22 25 10, ok

box “”, 6, 29 17 29 17

}

on *:dialog:sa_gunlukfal:*:*:{

if $devent = INIT {

didtok $dname 1 44 koç,boğa,ikizler,yengeç,aslan,başak,terazi,akrep,yay,oğlak,kova,balık

did -c $dname 1 1

}

if $devent = SCLICK {

if $did = 3 { if !$sock(muneccim) { set %burç $did($dname,1).sel | sockopen muneccim muneccim.com 80 } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }

}

}

Bu Kodu Yuklemek için ONcelikle Arkadaslar İlk Yapacagımız Şey C:\Program Files  içinde bulunan C:\Program Files\xx-Script Dosyamızın içine bir tane txt dosyası acıyoruz ornek olarak veriyorum gunlukfal.txt yukardaki addonumuzu bu koda yerleştirdikden sonra dosyamıza kayıt ediyoruz ve  scriptimizi acıyoruz oraya yazmamız gereken acıldıkdan sonra ise /load -rs gunlukfal.txt kodunu yazıp enterledikden sonra gunluk fal addonumuz kullanıma hazır haldedir.

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 :

#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.

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!

}

}

on *:snotice:*whois*: {

inc -u120 %whois [ $+ [ $2 ] ]

if ( %whois [ $+ [ $2 ] ] == 1) {

.msg $2 4Merhaba $+(“,,$2,,”) , Lutfen Mesaj Atmayiniz!

.msg $2 4Ben Sunucu sorunlaarınızı #Operhelp Belirtiniz

.msg $2 4IRCD / services için #Help.

}

}

menu menubar,status,channel {
  . 1 $chr(11) Proxy Koruması
  ..Açık:.enable #MKSProxy | echo -a %mksLogo 11,2 Proxy Koruması Devrede.. 
  ..Kapalı:.disable #MKSProxy | echo -a %mksLogo 11,2 Proxy Koruması Devredışı.. 
}
#MKSProxy off

on ^*:snotice:*: {
  if client connecting* iswm $4- {
    var %:ip $remove($gettok($10,2,64),$chr(41))
    kontrol %:ip
    hadd -m ckontrol %:ip $9
    halt
  }
}
alias kontrol {
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128
  sockopen $+(kontrol,$r(1,999999999)) $1- 9050
  sockopen $+(kontrol,$r(1,999999999)) $1- 50050
}
on *:sockopen:kontrol*: {
  if !$sockerr {
    .raw gline *@ $+ $sock($sockname).ip +0 14Proxy Girişi Yasaktır %mksLogo 
    echo -a 2Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port,) – Nicki bu:4 $ip2nick($sock($sockname).ip)
    hdel ckontrol $sock($sockname).ip
    sockclose $sockname
  }
}
on *:sockclose:kontrol*: {
  hdel ckontrol $sock($sockname).ip
}
alias ip2nick {
  var %i 1
  while %i <= $hget(ckontrol,0).item {
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt }
    inc %i
  }
}

#MKSProxy end

menu menubar,channel {
Left ALL Korumasi
.AÇ:.enable #leftall | echo -a 7Tamam açtim.
.Kapat:.disable #leftall | echo -a 12Tamam kapadim.
}
#leftall off
on !*:PART:#:if (*Left all channels* iswm $1-) { kill $nick 2KeMaNcI 7technology. }
#leftall end

on @*:join:#:if *azgin* iswm $nick || *ateşli* iswm $nick || *sex* iswm $nick || *vajina* iswm $nick || *ağzına* iswm $nick || *yaraq* iswm $nick || *qöt* iswm $nick || *kafasını* iswm $nick || *amuş* iswm $nick || * gay iswm $nick || *sperm* iswm $nick || *döl* iswm $nick || *kancık* iswm $nick || *sokucu* iswm $nick || *vurucu* iswm $nick || *arkadan* iswm $nick || *skrm* iswm $nick || skerim* iswm $nick || *zkerim* iswm $nick || *zikerim* iswm $nick || *Siber* iswm $nick || *TRKelebek* iswm $nick || *beceren* iswm $nick || *tanga* iswm $nick || *Lez* iswm $nick { mode # +b $+($v1,!*@*) | kick # $nick 2IRC Network’u üzerinde kullandığınız nick uygun bulunmamıştır. }