IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

emoteye atma bi metin belgesi aç bu codeyi icine at sonra onu mirc klasörünün icine at sonra mirc i acip su komutu yaz /load -rs metinbelsininiadı.txt Bu Koruma Sadece Belirledigin Kanallrda Calisior. Yardimci olmak Çok Güzel Bi Duyguymuş Bunu Hissettim ;)

sonra mirc e reset at

badnick eklemek için ise

/badnick *nick*

silmek için ise

/badnick -*nick*

Badnickleri Listemek için ise

/badnicklist

Kod:

 alias kapat dialog -x $dname $dname

alias lock did -b $dname $1-

alias mdx { return $dll(mdx.dll,$1,$2-) }

alias mdxinit { mdx SetMircVersion $version | mdx MarkDialog $dname }

alias badnick {

if -* iswm $1- {

        hdel badnick $hfind(badnick,$remove($1-,-),1,W).data

        hsave badnick badnick.data

        echo -a $remove($1-,-) Datası Kaldırıldı

}

elseif $1 == list {

        echo -a ----------BadNick Listeniz------------

        var %i = 1

        while %i <= $hget(badnick,0).item {

         echo -a %i $+ -) $hget(badnick,%i).data

         inc %i

        }

}

else {

        hadd badnick $r(0,999999) $1-

        hsave badnick badnick.data

        echo -a $1- Datası Eklendi...

}

}

on *:start: {

if !$findfile($mircdir,badnick.data,1) {

        hmake badnick 100

        hsave badnick badnick.data

        .set %ilkacilis 1

        dialog yukle yukle

}

else {

hmake badnick

hload badnick badnick.data

dialog -m yukle yukle

}

}

on 1:join:#: {

if $chan == #adana || $chan == #mersin || $chan == #izmir || $chan == #canavar || $chan == #ankara || $chan == #elma || $chan == #istanbul {

        if $me isop $chan {

         if $hfind(badnick,$nick,1,W).data {

                ban $chan $nick 2

                kick $chan $nick 4[Badnick Kullanıyorsunuz] 

         }

        }

}

}

alias _oynat {

var %i = 1

while %i <= 100 {

        if %i == 100 {

         .timer.degistir 1 2 did -a $dname 2 $iif(%ilkacilis != $null,Oluşturuldu!,Okundu!)

         .timer.ac 1 2 did -e $dname 2

         halt

        }

        else {

         .timer 1 2 did -a $dname 3 %i 0 100

         inc %i

        }

}

}

dialog yukle {

size -1 -1 325 113

title "Dialog"

text "Script Bilgileri Yükleniyor, Lütfen Bekleyin...",1,23 11 279 25

button "Yükleniyor...",2,22 68 281 30, flat

text "0 0 100",3,22 43 280 24

}

on *:dialog:yukle:*:*:{

if $devent == init {

        mdxinit

        mdx SetControlMDX $dname 3 ProgressBar > ctl_gen.mdx

        if %ilkacilis { did -ra $dname 1 BadNick Dataları Oluşturuluyor... | did -ra $dname 2 Oluşturuluyor... | unset %ilkacilis }

        else { did -ra $dname 1 BadNick Dataları Okunuyor | did -ra $dname 2 Okunuyor... }

        lock 2

        $_oynat

}

if $devent == sclick {

        kapat

}

}