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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Code Yardimi Pleaze (https://www.ircforumlari.net/mirc-scripting-sorunlari/6892-code-yardimi-pleaze.html)

LaGoodLife 24 Ağustos 2005 19:00

Buyur.
 
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
}
}


DarK^ 24 Ağustos 2005 19:09

iyide , aynı yere farklı yollardan gidiyoruz :) ben yüklediğim pratik , seninkiside uzun yolu :)

LaGoodLife 24 Ağustos 2005 19:11

Bisi olmaz ben uzun Yoldan yaptim canavar Gibi Calisior :D

DarK^ 24 Ağustos 2005 19:14

BADNICKLIST Unknown command

LaGoodLife 24 Ağustos 2005 19:19

ala ala sorunu bir türlü anlayamadim badnick ekledinmi peki kodu yapan %100 garanti vermisti gidip suratına vursammı acaba :) ala ala birde remoteye ekle bide bakarsın kestirmeden olur :D

DarK^ 24 Ağustos 2005 19:21

2 türlüde olmadı :) goXXip olaya bi parmak atsan diyorum Coder'im karizma goXXip'im :)

LaGoodLife 24 Ağustos 2005 19:25

Bende Canavar Gibi Calisior Demekki Bir Yerde Yanlislik var Artık Coderler ilacını Bulurlar.

LaGoodLife 24 Ağustos 2005 19:55

Dark bişi dicem Ama Kızma :D

/badnick list

komut buymuş

DarK^ 24 Ağustos 2005 20:25

cık diil o addon hata veriyor bosuk bence ..

LaGoodLife 24 Ağustos 2005 20:37

Demekki bi sorun var ama bende calisior Nerde Sorun Anlayamadım Bir Türlü


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:26.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk