mIRCbuL.Net Türkçe mIRC indir

Değerli mirc kullanıcıları. Şimdi sizlerle özel bir mirc kodu sunacağım.

Badnick Renklendirme mIRC Addonu – Kodu

Bu mirc kodu sayesinde siteye giren badnickleri renkli olarak görebilirsiniz. Kodu aktif etmek için /bad yazıyorsunuz ve bad nick varsa /badat yazmanız yeterlidir. Belirlediği tüm badnickleri otomatik kendi atıcaktır.

alias mdxinit {
dll $mdx_fullpath SetMircVersion $version
dll $mdx_fullpath MarkDialog $dname
}
alias badat { mode # +b %bdnck | kick # %bdnck Badnick ! }
dialog renq {
title “Renk Ayarları”
size -1 -1 212 83
option dbu
icon 1, 0 2 208 15, he.PNG, 0
edit “”, 2, 4 16 19 10
edit “”, 3, 33 16 18 10
edit “”, 4, 93 16 93 10
edit “”, 5, 57 16 20 10
text “Lütfen Sadece Renk Karakteri Ve Sayı Giriniz.. “, 6, 4 36 205 8, center
text “Not ;”, 7, 5 47 205 8, center
text “Resim İçin Tuğçe Arkadaşımıza Teşekkür Ederim ”, 8, 4 57 206 8, center
button “Kapat.”, 9, 83 67 37 12, ok cancel
}
on *:dialog:renq:*:*:{
if ($devent == init) {
did -a renq 2 %saat
did -a renq 3 %giris
did -a renq 5 %nick
did -a renq 4 %adres
}
}
if ($devent == edit) {
set %saat $did(2)
set %giris $did(3)
set %nick $did(5)
set %adres $did(4)
}
alias bad { dialog -md bad bad }
alias mdx_fullpath { return $+(“,mdx.dll,”) }
alias mdx { dll $mdx_fullpath $1- }
dialog bad {
title “Gorhele.Com – Kötü Nick Koruması”
size -1 -1 223 145
option dbu
list 3, 8 17 91 85, size extsel
box “Ayarlar”, 4, 104 5 110 95
button “&Ekle !”, 8, 110 15 29 56, flat
button “Uygula – Kapat “, 11, 110 75 99 22, flat ok cancel
edit “.:: -;Ayaz- wWw.mIRCbuL.Net ::.”, 12, 3 119 215 10, read center
text “Şuanda Ekli Nickler ;”, 15, 8 6 90 8, center
list 1, 0 132 222 10, size
button “&Kaldır !”, 2, 146 15 30 56, flat
button “&Ayarlar”, 5, 182 15 28 56, flat
text “Atmak İçin Nick’e Sağ Tıklayın `Atmak İstiyorum` u Clickleyin ”, 6, 8 107 205 8, center
}

on *:dialog:bad:*:*:{
if ($devent == init) {
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
mdxinit
mdx SetControlMDX $dname 1 StatusBar sizeGrip > bars.mdx
mdx SetControlMDX $dname 3 listview flatsb header grid report > views.mdx
did -i $dname 3 1 headerdims 159:1
did -i $dname 3 1 headertext + 0 Nickler $+ $chr(9)
mdx SetBorderStyle $dname 1 windowedge
dll mdx.dll SetFont 1,2,3,4,5,8,11,12,15 14 800 Arial
dll mdx.dll SetColor $dname   18  text $rgb(255,255,255)
dll mdx.dll SetColor $dname 3,12,15 text $rgb(138,43,226)
var %i 1
while (%i <= $lines(badnickler.txt)) {
did -a bad 3 $read(badnickler.txt,%i)
inc %i
}
}
if ($devent == sclick) {
if ($did == {
var %i $?”Eklenecek Nick”
write badnickler.txt %i
did -a bad 3 %i
}
}
if ($did == 2) {
if ($did(3).sel != $null) {
write $+(-ds,$did(3).seltext) badnickler.txt
did -d $dname 3 $did(3).sel
}
}
if ($did == 5) {
dialog -m renq renq
}
}
on *:JOIN:#: {
var %i 1
while (%i <= $lines(badnickler.txt)) {
if ($read(badnickk.txt,%i) iswm $nick) { echo $chan %saat $+ $timestamp * %join $+ Giriş: %nick $+ $nick %adres $+ ( $+ $address $+ ) | halt | set %bdnck $nick  }
inc %i
}
}
on *:load: {
echo -a $timestamp Badnick Renklendirici Yüklendi.
echo -a $timestamp Açmak için 4 /bad yazınız. ~Coder By Ayaz~
set %saat 10
set %giris 10
set %nick 4
set %adres 10
}
menu menubar,status,nicklist,query {
Badnick Renklendirme:/bad
}
menu nicklist {
Atmak İstiyorum:/badat
}
on *:unload: {
unset %bdnck | unset %saat | unset %giris | unset %adres | unset %nick | echo -a $timestamp *** Badnick Renklendirme Kaldırıldı.
}

Not: mIRC’inizin bulunduğu klasörün içersine badnickler.txt isimli bir badnicklerden oluşan metin belgesi oluşturmalısınız.

Yazan ve Editleyen: Ayaz