Etiket Arşivi | "mirc addon"

Tags: , , , , ,

Nick Şifre Girici


Sunucuya girişte otomatik olarak nickinizi, oper şifrenizi, nick şifrenizi ve hostunuzu ayarlamak için gereken addon.

Kodu mirc scriptinizin remote bölümüne ekleyiniz.

on 1:CONNECT: {
.oper nick şifre
.nick nickiniz
.identify şifreniz
.sethost Hostunuz.com
}

Eğer admin veya oper deilseniz operlerle ilgili olan diyalog kısmını çıkarabilirsiniz. host ve oper kısımlarını.. Nick bölümlerine kendi nickinizi ve şifre kısımlarına kendi passwordunuzu yazınız. Mirc34.net mirc ekibi en yararlı addonları sizlerle paylaşmaya devam edecektir.Bizi takip etmeye devam edin.

Kategori: mIRC AddonlarıComments (0)

Tags: , , , , ,

Away Msj Kontrol Addonu


Son zamanlarda reklamcı botların sıkça tercih ettiği reklam türü away mesajına reklam eklemek. Böylelikle spamfilter, adwords gibi reklam korumalarından etkilenmeden  istedikleri gibi reklamlarını yazabiliyorlar.

Bunun birkaç çözüm yöntemi var; biri şimdi vereceğim kod ile scriptinize kolayca away taraması yaptırtabilirsiniz. ikinci seçenek ise Unreal’inizi editleyerek away olmayı yasaklayabilir veya kayıtsız nicklerin away olmalarını engelleyebilirsiniz. Ben açıkçası 2. şıkka karşıyım. Şu yüzden karşıyım mirc de reklam yapan lamerlerin reklamlarını engellemek için user’lerimizin away haklarını ellerinden almamamız gerektiğine inanıyorum. O kodu da IRC makaleleri bölümünde yakında paylaşacağım fakat bence mirc ile tarama yaptırmak daha mantıklı. Şayet güzelim Unreal IRCd’in özelliklerini lamerleri engellemek için kapatırsak biz kaybederiz, IRC kaybeder. Neyse lafı uzatmadan kodu vereyim sizlere;

on *:text:!awaytara &:#takip:{ tarama $2 }

Alias tarama { msg #Takip 4 $1 5kanalında away taraması başlatıldı… | unset %awayscan | .enable #awayscan | who $1 }

#awayscan off

raw 352:*:{ if (G isincs $7) { set %awayscan $addtok(%awayscan,$6,32) | raw -q whois $6 } }

raw 315:*:{ if ($group(#awayscan) = on) { .disable #awayscan | msg #Takip 4 $iif($numtok(%awayscan,32) > 0,$2 5kanalında 4 $ifmatch 5tane away nick bulundu $+ $chr(44) away mesajlarına bakılıyor:,$2 5kanalında kimse away değil.) } }
#awayscan end

raw 301:*:{ if $istok(%awayscan,$2,32) { msg #Takip 5 Away nick : $+( 4,$2, 4) 5 Mesaj : $+( 4,$3-, 4) } }

Yukarıdaki kodu Mirc’inizin remote bölümüne eklemelisiniz. (Alt + R ile açabilirsiniz)

Kodun çalışma prensibi şu şekilde, away kanalında !awaytara #kanaladi yazıldığında mirc’iniz o kanaldaki away kişileri tarıyor, ve takip kanalında size bildiriyor.. Away mesajları ve nickleri ile birlikte. sizde kolayca tespit edip lamerleri sunucunuzdan uzaklaştırıyorsunuz

Kategori: mIRC AddonlarıComments (0)

Tags: , , ,

Günün Sözü Addon


Her gün farklı Sözler öğrenmenize yarar.

PHP- Kodu:
dialog söz {
title “Günün Sözü ”
size -1 -1 312 24
option dbu
edit
“”, 1, 11 6 291 10
}
alias htmlfree {
var %
x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp ;)
return %
x
}
alias gününsözü { sockopen söz www.gununsozu.com 80 | dialog -m söz söz }
on *:sockopen:söz:{
sockwrite -n $sockname GET / HTTP/1.0
sockwrite
-n $sockname Host: gununsozu.com $+ $crlf $+ $crlf
}
on *:sockread:söz:{
if (
$sockerr) {
echo
4 -a hata var!
}
else {
var %
gününsözü
sockread
%gününsözü
if <p id=“text<font color=” align=center“> isin %gününsözü {
set %sözler ”
$deltok($htmlfree(%gününsözü),,9) $+ “ )
}
}
}
on *:Dialog:söz:init:0:{
did -a söz 1 %sözler
}

/Gününsözü

Şeklinde Çalıştırabilirsiniz.

Kategori: mIRC AddonlarıComments (0)

Tags: , , ,

Ban İnformation System


alias ban { dialog -m ban ban }
dialog ban {
title “Ban İnformation System”
size -1 -1 219 235
option dbu
text “Kanal”, 1, 6 13 51 8
box “Ban Menüsü”, 2, 2 2 213 105
edit “”, 3, 62 12 146 10
list 4, 62 27 145 75, size vsbar
text “Banlananlar”, 5, 6 28 51 8
text “Banlayan”, 6, 3 112 54 8
list 7, 62 111 144 92, size vsbar
link “Coded By daRkMoRGaN”, 8, 7 210 65 8
button “Bilgileri Ver”, 9, 86 217 37 12
button “Sıfırla”, 10, 128 217 37 12
}
on *:dialog:ban:*:*:{
if $devent == sclick {
if $did == 9 {
var %ban 1 , %ban2 $ibl($did(3),0)
while %ban <= %ban2 {
did -a ban 4 %ban $+ . Atılan : $ibl($did(3),%ban)
did -a ban 7 %ban $+ . Banı Atan : $ibl($did(3),%ban).by
inc %ban
}
}
}
}
on *:Dialog:ban:*:*:{
if $devent == sclick {
if $did == 10 {
did -r ban 4
did -r ban 7
}
}
}

Kategori: mIRC AddonlarıComments (0)

Tags: , , ,

Gelişmiş Memo Dialogu


Kod
alias memogonder { dialog -m memogonder memogonder }
dialog memogonder {
title \”Sevilir Oper Script Memo İşlemleri\”
size -1 -1 130 225
option dbu
text \”Mesaj Gönderilecek Nick Giriniz\”, 1, 11 19 77 8
box \”Memo Gönderme\”, 2, 5 6 120 125
edit \”\”, 3, 10 30 107 11
text \”Mesajınızı buraya yazınız\”, 4, 11 47 78 8
edit , 5, 10 59 107 48, multi return autohs autovs vsbar
button \”Gönder\”, 6, 11 111 50 12
button \”İptal\”, 7, 66 111 50 12
box \”Memo Okuma - Silme\”, 8, 5 137 120 40
button \”Oku\”, 9, 9 158 23 12
edit \”\”, 10, 36 158 23 12
edit \”\”, 11, 94 158 23 12
button \”Sil\”, 12, 68 158 23 12
text \” Numara Numara\”, 13, 8 147 111 8
box \”Diğer Memo İşlemleri\”, 14, 5 180 119 40
button \”Mesajları Listele\”, 15, 10 190 47 10
button \”Son Gelen Mesajınız\”, 16, 61 190 58 10
button \”Tümünü Sil\”, 17, 10 204 34 10
button \”Yardım\”, 18, 87 204 32 10
button \”Bilgi\”, 19, 50 204 32 10
icon 20, 102 14 12 11,$mircdirRemote/startpen/kisi.ico
}
on *:dialog:memogonder:*:*: {
if $devent == init {
did -a $dname 3 %nickmemo
did -a $dname 5 %mesajmemo
did -a $dname 10 %memoyuoku
}
if $devent == sclick {
if $did == 6 {
.ms send $did(3) $did(5)
.echo -a 4«««« Uyarı : 14Teşekkür ederiz Memo mesajınız belirttiğiniz nicke yollanmıştır. Ayrıntılı bilgi için statüse bakınız.
.dialog -x memogonder memogonder
}
if $devent == sclick {
if $did == 7 {
.echo -a 4«««« Uyarı : 14İsteğiniz üzerine memo (özel mesaj) gönderimi iptal edildi.
.dialog -x memogonder memogonder
}
}
}
if $devent == sclick {
if $did == 12 {
.ms del $did(11)
.echo -a 4«««« Uyarı : 14Teşekkür ederiz Belirttiğiniz numaralı Memo mesajınız silinmiştir. Ayrıntılar için statüse bakabilirsiniz.
}
}
if $devent == sclick {
if $did == 9 {
.ms read $did(10)
.echo -a 4«««« Uyarı : 14Teşekkür ederiz Belirttiğiniz numaralı Memo mesajınız. Not mesajınızı statüste okuyabilirsiniz.
}
}
if $devent == sclick {
if $did == 15 {
.ms list
.echo -a 4«««« Uyarı : 14Tüm mesajlarınız statuste listeleniyor, lütfen statüse göz atın.
}
if $devent == sclick {
if $did == 16 {
.ms read last
.echo -a 4«««« Uyarı : 14Son gelen mesajınız listelendi lütfen statüse bakınız.
}
}
if $devent == sclick {
if $did == 17 {
.ms del all
.echo -a 4«««« Uyarı : 14Mesaj kutunuzdaki tüm mesajlarınız kalıcı olarak silinmiştir. Ayrıntılar için lütfen statüse bakınız.
}
if $devent == sclick {
if $did == 19 {
.ms info
.echo -a 4«««« Uyarı : 14Kayıtlı nickinize ait mesaj kutunuzun özellikleri statüste listelenmiştir.
}
}
if $devent == sclick {
if $did == 18 {
.ms help
.echo -a 4«««« Uyarı : 14MemoServ ile ilgili yardım konuları statüste listelenmiştir. Lütfen statüse bakınız.
}
}
}
}icon satırına dikkat ediniz lütfen bold ile

Kategori: mIRC AddonlarıComments (0)

Tags: , ,

mIRC Sajoin Hazır Kod


Tek KomutLa Tüm Userleri Sajoin Yap Taşıma Kodu
Bu mIRC Kodu ile belirli kanaldaki tüm userleri veya istediginiz kadar kişiyi istediginiz kanala çekebilirsiniz. Sajoin etmektedir. Sajoin yetkiniz olmak zorundadir.

Kod;
Kod:
alias ajoin {
if ($1 == $null) || ($2 == $null) {
> echo 6 * Usage : /ajoin #Dolu_Kanal #Dolacak_Kanal Kac_Kisi
echo 6 * Exam : /ajoin #diyalog #sohbet 50
echo 6 * AbArTH Oper mIRC %showlogo }
else {
echo 6 * Userlar Aliniyor… $1 to $2
set %i 1
set %nick $nick($1,%i)
While %nick != $null {
%nick = $nick($1,%i)
fjoin $2 %nick
echo 12 * %i %nick moved to $2
if (%i == $3) { break }
inc %i
}
echo 6 * Toplam %i User Ajoin Edildi to $2.
}
}

Kategori: mIRC Hazır KodlarComments (0)

Tags: , , , , ,

mIRC Clone Taraması


mIRC - Clone Taraması

Bilinen bir clone taramasıdır. Kanalda bulunan cloneleri status penceresinde gösterir. Kullanımı /clone #kanaladı yada kanal penceresi üzerinde iken sağ tıklayıp Clone Tara demeniz yeterlidir.

Kod:
    alias Clone {
    var %ğ = $nick(#,0)
    while %ğ {
    if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 }
    else { hinc host $address($nick(#,%ğ),2) }
    dec %ğ
    }
    echo 4 -st # kanalı için clone taraması başlatıldı…
    echo -s -
    .timer 1 1 .h_al #
    }
    alias h_al {
    var %ı = $hget(host,0).item
    while %ı {
    if $hget(host,%ı).data > 1 {
    set %y_k yes
    var %ç = $nick($1,0)
    while %ç {
    if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) }
    dec %ç
    }
    echo 12 -st 2Adres: $hget(host,%ı).item — 10Bağlı kullanıcı sayısı: $hget(host,%ı).data — 4Bağlı rumuzlar: $gettok(%_cln,1-,32)
    unset %_cln
    }
    dec %ı
    }
    echo -s -
    $iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.)
    unset %y_k
    hfree host
    }

    menu channel {
    .-
    .Clone Tara:.Clone #
    }

Kategori: mIRC Hazır KodlarComments (0)

Tags: , , , ,

mIRC Flood Koruması


mIRC Flood Koruması

Kod:
on @1:text:*:#:{
if $me !isop $chan { halt } | if $nick isop $chan { halt }
var %bflood $strip($1-)
var %mflood $strip($$1)
if ($len(%bflood) >= 250 ) || ($len($1) >= 50 ) {
/mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir2 [14!2] 7¤
}
}

Kategori: mIRC Hazır KodlarComments (0)

Tags: , , ,

mIRC Özel Uyarı Sistemi Addonu


Kod:
    #ozelsistem on
    on *:OPEN:?:*: {
    /msg $nick 0,2Görü&thorn;mek &Yacute;stedi&eth;iniz Kategoriyi Seçiniz (!kategori ad&yacute; )0,4 !kurallar !access !&thorn;ikayet !help !ircd !sohbet !ssl !raw !ircarabirim !ping !lag !operhelp !khaled !bnc !eggdrop !shell 0,2Made By TRENDY | halt }
    on *:text:*:?:{
    if !access iswm $1 { msg $nick 1#AAsk 1KanaL&yacute; 1D&yacute;$&yacute;nda 1ßir 1KanaL&yacute;n 1Acc-1Change ini 1KuLLanm&yacute;yorum. #Ask KanaL&yacute; içinde Ki$iseL gözLem ve ki$inin kanaL performans&yacute;na göre de&eth;erLendiriyorum. 0,2Made By TRENDY }
    if !&thorn;ikayet iswm $1 { msg $nick KanaL GeneL &THORN;ikayetLeriniz &Yacute;çin /ms send4 TRENDY1 <Notunuz/Mesaj&yacute;n&yacute;z> yaz&yacute;p gönderiniz.0,2Made By TRENDY }
    if !help iswm $1 { msg $nick ServisLer için ExampLe : /cs help /ns help /ms help yapabilirsiniz. Me&thorn;kuL deyiLsem sizinLe iLgiLeneßilirim.0,2Made By TRENDY }
    if !ircd iswm $1 { msg $nick ircd komutLar&yacute; için /helpop yapaßiLirsiniz. DetayL&yacute; ßiLgi için me&thorn;kuL deyilsem ßirebir yard&yacute;mc&yacute; olabilirim. 0,2Made By TRENDY }
    if !sohbet iswm $1 { msg $nick Me&thorn;kuL de&eth;ilsem herzaman sohbete aç&yacute;&eth;&yacute;m. :o) 0,2Made By TRENDY }
    if !ssl iswm $1 { msg $nick SSL(secure socket layer) network üzerindeki bilgi transferi s&yacute;ras&yacute;nda güvenlik ve gizlili&eth;in sa&eth;lanmas&yacute; amac&yacute;yla Netscape taraf&yacute;ndan geli&thorn;tirilmi&thorn; bir güvenlik protokolüdür.Bu &thorn;ekilde ba&eth;lanmak için kendi donan&yacute;m&yacute;n&yacute;z kurup server özel portu(6697) ile ba&eth;lanabilirsiniz. Yüklü oLdugunu //echo -s $ ssl komutunu kulland&yacute;ktan sonra $true cevab&yacute;n&yacute; al&yacute;rsan&yacute;z anlayabilirsiniz. 0,2Made By TRENDY }
    if !raw iswm $1 { msg $nick RAW:çi&eth;memi&thorn;,pi&thorn;memi&thorn; sözlük anlam&yacute;. 1IRC\\\’de ise Rawlar \\"Serverin Diri mesajlar&yacute;\\" anlam&yacute;na gelmektedir.Yani bu mesajlar, 1IRC server program&yacute;n&yacute;n içine düzenli bir &thorn;ekilde yerle&thorn;tirilip, program taraf&yacute;ndan belirli zamanlarda kullan&yacute;c&yacute;lara iletiliyor.Raw\\\’larla ilgili ilk belgelerin sahibi Jarkko Oikarinen ve S. M. Allen Rawlar&yacute; 6 ana bölüme ay&yacute;r&yacute;yorlar. 0,2Made By TRENDY }
    if !ircarabirim iswm $1 { msg $nick S&yacute;k KuLLan&yacute;Lan ÖrnekLerdir: Mirc, Xchat, Bersirc, Bitchx, Klient, GLChat, PircH, Chat Space,Miranda IM,Trillian 0,2Made By TRENDY }
    if !ping iswm $1 { msg $nick Pocket Internet Network Group /ping nick & /raw ping nick 0,2Made By TRENDY }
    if !lag iswm $1 { msg $nick Lag, gönderdi&eth;iniz mesaj&yacute;n ba&thorn;kalar&yacute; taraf&yacute;ndan okunmas&yacute;nda ya&thorn;anan gecikmedir. Normalde bu sadece bir kaç saniye sürer, ancak a&eth; çok me&thorn;gul oldu&eth;unda bu süre daha da uzayabilir ve bu duruma da LAG denir. PING komutuyla, iki ki&thorn;i aras&yacute;ndaki lag süresini ölçebilirsiniz. Sunucular&yacute; de&eth;i&thorn;tirmek, yo&eth;un olan lag&yacute; azaltman&yacute;za yard&yacute;mc&yacute; olabilir. 0,2Made By TRENDY }
    if !operhelp iswm $1 { msg $nick Yard&yacute;m almak icin #Yardim kanal&yacute;na qiriniz. (/j Yardim) 0,2Made By TRENDY }
    if !khaled iswm $1 { msg $nick Khaled Mardam Bey.1968\\\’de Jordan\\\’&yacute;n (Ürdün) Amman &thorn;ehrinde do&eth;du. &Yacute;sminin ilginç olmas&yacute;n&yacute;n sebebi ise Suriye\\\’li bir babas&yacute;, Filistinli bir annesi ve Danimarka\\\’l&yacute; bir büyükannesinin olmas&yacute;. Ama &thorn;uan kendisi bir &Yacute;ngiliz vatanda&thorn;&yacute;. &Yacute;ngiltere de oturuyor ve 1995\\\’te kurdu&eth;u mIRC Co.Ltd &thorn;irketinde çal&yacute;&thorn;&yacute;yor. 0,2Made By TRENDY }
    if !bnc iswm $1 { msg $nick BNC (BouNCer), kullan&yacute;c&yacute;lar&yacute;n shell üzerinden IRC sunucular&yacute;na ba&eth;lanmas&yacute;n&yacute; sa&eth;lar. BNC, bir proxy server kurman&yacute;z&yacute; sa&eth;lamaz, kendisi proxy sunucur. BNC bu hizmeti verirken sizin shell hesab&yacute;n&yacute;za ba&eth;lanman&yacute;z gerekmez. Mirc, IRC programlar&yacute;n&yacute; kullanarak BNC üzerinden istedi&eth;iniz sunucuya ba&eth;lan&yacute;rs&yacute;n&yacute;z.Shell al&yacute;d&yacute;&eth;&yacute;n&yacute;z &thorn;irketin size verdi&eth;i imkanlarla yüzlerlerce vhost ve IP kullanabilir, yaratabilirsiniz. 0,2Made By TRENDY }
    if !eggdrop iswm $1 { msg $nick Asl&yacute;nda eggdrop da bir irc bottur ancak shell ile çal&yacute;&thorn;t&yacute;r&yacute;labilen, geli&thorn;tirilebilen bir programd&yacute;r. IRC Bot gibi kanal&yacute;n&yacute;zda 24 saat durman&yacute;n yan&yacute;nda (yükledi&eth;iniz scriptlere göre) kendi listesinde bulunan kullan&yacute;c&yacute;lara op veya voice verme, kanal koruma (küfür, flood vs), kanalda olan yaz&yacute;&thorn;malar&yacute; kay&yacute;t etme gibi de&eth;i&thorn;tirilebilir ve programlanabilir özellikleri vard&yacute;r. 0,2Made By TRENDY }
    if !shell iswm $1 { msg $nick Basitçe, bir shell hesab&yacute; ald&yacute;&eth;&yacute;n&yacute;zda sürekli ve yüksek h&yacute;zda(T1,T3,Kablo vs.) internete ba&eth;l&yacute; bir bilgisayar&yacute;n&yacute;z olacak diyebiliriz. &Yacute;rc sunucusu kurmak, eggdrop kurmak yada bir bouncer kurmak için sheller ideal olabilir. Shell hesab&yacute;n&yacute;z&yacute;n oldu&eth;u bilgisayarlar donan&yacute;m ve yaz&yacute;l&yacute;m olarak üst seviye bilgisayarlard&yacute;r. Genellikle Unix, Linux ve FreeBSD gibi i&thorn;letim sistemleri kullan&yacute;l&yacute;r. 0,2Made By TRENDY }
    if !kurallar iswm $1 { msg $nick 0,2Kufur - Foold - Tekrar - Reklam - Rahatsiz Edici Davranislar 0,4Kural Disidir Kural ihlali Yapan Herkes Serverden Uzaklastirilir… 0,2Made By TRENDY }
    }
    #ozelsistem end

    alias SZ.whois.notice set %SZ.Whois.Notice $iif($1 == on,$true,$false)
    on ^*:SNOTICE:*: {
    if ($nick == $me) { halt }
    if (*whois*you* iswm $1-) { set %SZ.Whois.Notice $nick
    echo -a 41,15\\\\15,1\\\\1,15\\\\15,1\\\\  154••14[4Uyari14] 7 $1- $+ %SZ.Whois.Times 15Whois Cekiyor! 9 $time 15 $+ 14]4••15,1  15,1/1,15/15,1/1,15/ 15,1
    haltdef
    if (!%SZ.Whois.Date) set %SZ.Whois.Date $adate
    else { inc %SZ.Whois.Times 0 } {
    inc %SZ.Whois.Times
    var %SZ.Whois.User $iif(*** == $1,$2,$1),%SZ.Whois.Mask = $remove($iif(*** == $1,$3,$2),$chr(40),$chr(41))
    if (%SZ.Whois.Notice) .notice %SZ.Whois.User 4SeLam2 %SZ.Whois.User 5Su an ozelime gelen (bakan)10 # $+ $(%SZ.Whois.Times) 5Kisiden birisisin Buyur nasil yardimci olabiLirim.. %SZ.Whois. $+ }
    }
    }

    alias millet { var %x = $nick(#,0) | var %y | while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x),32) } | dec %x } | say %y $1- }

Tags ; mIRC Özele Gelene Uyarı Addonu Özel Uyarı Sistemi mIRC Addon mIRC Özelde Uyarı

Kategori: mIRC AddonlarıComments (0)

Tags: , , , , , , ,

Away Olanı Otomatik Deop


Kod:
Bu kod kanalda herhangi birisi away olursa deop oto deop eder. Kodun mantığı ; yok , away , gelecek gibi Nicke ek alırsa deop eder.

    on !*:NICK:{
    if (away isin $newnick) || (yok isin $newnick) || (gelcek isin $newnick) {
    deopall
    }
    }
    alias deopall {
    var %wy $chan(0)
    while %wy {
    if $me isop $chan(%wy) && $newnick isop $chan(%wy) {
    mode $chan(%wy) -o $newnick
    }
    dec %wy
    }
    }

Kategori: mIRC Hazır KodlarComments (0)