Mirc Kodları Mirc Addon Mirc Kodu
Mirc Kodları Mirc Addon Mirc Kodu
Mirc Kodları Mirc Addon Mirc Kodu Bügunki Makalem Mirc Kodları ile Alakali Olacak Kullanıcılar Mirclerine Bu Kodları Ekleyip Kullabilmesi İçin Mirc Kodu Arşivimi Buraya Paylaşıyorum Umarım Herkezin İşine Yarar
İstemediğiniz nicklerin kanalda yazdıklarını görmeyin
alias engel {
if ($1 == ekle) && $2 {
if $read(ignore.txt,w,$2) { echo -a 2Eklemeye çalıştığınız nick zaten listede ekli bulunuyor. }
else {
.write ignore.txt $2 | .ignore -c $2 | msg $2 4,1 $2 İgnore listeme eklendiniz. Artık yazdıklarınızı görmeyeceğim.
echo -a $+(4,$2,$chr(44)) 2İgnore listesine eklenmiştir.
}
}
elseif ($1 == sil) && $2 {
if !$lines(ignore.txt) { echo -a 2İgnore kaydı bulunamadi. }
elseif $read(ignore.txt,w,$2) { .write $+(,-dl,$readn,) ignore.txt | .ignore -r $2 | echo -a $+(4,$2,$chr(44)) 2Nickinin ignore kaydı silindi artık yazdıklarını görebilirsiniz.. }
else { echo -a Listede bulunmamaktadır. }
}
elseif ($1 == liste) {
if !$lines(ignore.txt) { echo -a 2İgnore kaydı bulunamadi. }
else {
echo -a 2İgnore listesi siralaniyor.
var %ignore = 1 | while (%ignore <= $lines(ignore.txt)) { echo -a %ignore $read(ignore.txt,%ignore) | inc %ignore }
}
}
}
on *:nick:{ if $read(ignore.txt,w,$+(*,$nick,*)) { echo -a İgnore listesindeki $nick $newnick nickini aldığı için ignore listesine eklendi. | .write ignore.txt $newnick | .ignore -cp $newnick | msg $newnick 4,1 $newnick yeni nick alarak ignoreden kurtulamazsın. İgnore listeme eklendiniz.Artık yazdıklarınızı görmeyeceğim. | .closemsg $newnick } }
MİRC İDENT KODU
on @*:JOIN:#:{
if (*!*sex*@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress) || (*!*Oros*@* iswm $fulladdress) || (*!*Amcık*@* iswm $fulladdress) || (*!*Pic*@* iswm $fulladdress) || (*!*Piç*@* iswm $fulladdress) || (*!*www.*@* iswm $fulladdress) || (*!*.com*@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*Yarak*@* iswm $fulladdress) || (*!*Yarrak*@* iswm $fulladdress) || (*!*Hack*@* iswm $fulladdress) || (*!*.net*@* iswm $fulladdress) || (*!*gay*@* iswm $fulladdress) || (*!*lez*@* iswm $fulladdress) {
ban -u120 # $nick 11
/ban -u120 # $nick 5 | kick # $nick Bu tür identlerle kanal giriş yapmak yasaktır.
}
}
MİRC VOİCE TEŞEKKÜR KODU
alias tesekkur { dialog -m tsk tsk }
dialog tsk {
title "Op-Voice-Hop ( Tesekkür Dialog ) | www.caddesohbet.com ( Coded : Maxi )"
size -1 -1 243 170
option dbu
tab "Op - Deop ( Tesekkür )", 1, 0 -2 241 160
button "Ekle", 8, 30 21 17 10, tab 1
edit "", 4, 55 20 178 13, tab 1 return autohs autovs
button "Sil", 9, 30 34 17 10, tab 1
button "Ekle", 10, 31 88 17 10, tab 1
edit "", 6, 55 87 178 13, tab 1 return autohs autovs
button "Sil", 11, 31 101 17 10, tab 1
list 5, 55 34 178 50, tab 1 size
list 7, 55 101 178 50, tab 1 size
check "Check Box", 31, 9 53 7 10, tab 1
edit "+(@) , -(@)", 32, 18 52 36 11, tab 1
tab "Voice - Devoice ( Tesekkür )", 2
button "Ekle", 15, 30 21 17 10, tab 2
edit "", 16, 55 20 178 13, tab 2 return autohs autovs
button "Sil", 17, 30 34 17 10, tab 2
button "Ekle", 19, 31 88 17 10, tab 2
edit "", 20, 55 87 178 13, tab 2 return autohs autovs
button "Sil", 21, 31 101 17 10, tab 2
list 18, 55 34 178 50, tab 2 size
list 22, 55 101 178 50, tab 2 size
check "Check Box", 33, 9 53 7 10, tab 2
edit "+(v) , -(v)", 34, 18 52 36 11, tab 2
tab "Hop-Dehop ( Tesekkür )", 3
button "Ekle", 23, 30 21 17 10, tab 3
edit "", 24, 55 20 178 13, tab 3 return autohs autovs
button "Sil", 25, 30 34 17 10, tab 3
button "Ekle", 27, 31 88 17 10, tab 3
edit "", 28, 55 87 178 13, tab 3 return autohs autovs
button "Sil", 29, 31 101 17 10, tab 3
list 26, 55 34 178 50, tab 3 size
list 30, 55 101 178 50, tab 3 size
check "Check Box", 35, 9 53 7 10, tab 3
edit "+(%) ,-(%)", 36, 18 52 36 11, tab 3
button "Kapat", 14, 217 159 25 11, ok
box "", 13, 2 10 238 147
box "", 12, 7 14 228 139
}
Mirc Kodları Mirc Addon Mirc Kodu
on *:dialog:tsk:*:*: {
if ($devent == sclick) {
if ($did == 5) { did -ra $dname 4 $did(5).seltext }
if ($did == {
if ($did(4) != $null) { write op.txt $did(4) | did -a $dname 5 $did(4) }
did -r $dname 4
}
if ($did == 9) {
if ($did(4) != $null) { write $+(-,d,s,$did(4)) op.txt | did -d tsk 5 $did(5).sel }
did -r $dname 4
}
if ($did == 7) { did -ra $dname 6 $did(7).seltext }
if ($did == 10) {
if ($did(6) != $null) { write deop.txt $did(6) | did -a $dname 7 $did(6) }
did -r $dname 6
}
if ($did == 11) {
if ($did(6) != $null) { write $+(-,d,s,$did(6)) deop.txt | did -d tsk 7 $did(7).sel }
did -r $dname 6
}
if ($did == 18) { did -ra $dname 16 $did(18).seltext }
if ($did == 15) {
if ($did(16) != $null) { write v.txt $did(16) | did -a $dname 18 $did(16) }
did -r $dname 16
}
if ($did == 17) {
if ($did(16) != $null) { write $+(-,d,s,$did(16)) v.txt | did -d tsk 18 $did(18).sel }
did -r $dname 16
}
if ($did == 22) { did -ra $dname 20 $did(22).seltext }
if ($did == 19) {
if ($did(20) != $null) { write dv.txt $did(20) | did -a $dname 22 $did(20) }
did -r $dname 20
}
if ($did == 21) {
if ($did(20) != $null) { write $+(-,d,s,$did(20)) dv.txt | did -d tsk 22 $did(22).sel }
did -r $dname 20
}
if ($did == 26) { did -ra $dname 24 $did(26).seltext }
if ($did == 23) {
if ($did(24) != $null) { write h.txt $did(24) | did -a $dname 26 $did(24) }
did -r $dname 24
}
if ($did == 25) {
if ($did(24) != $null) { write $+(-,d,s,$did(24)) h.txt | did -d tsk 26 $did(26).sel }
did -r $dname 24
}
if ($did == 30) { did -ra $dname 28 $did(30).seltext }
if ($did == 27) {
if ($did(28) != $null) { write dh.txt $did(28) | did -a $dname 30 $did(28) }
did -r $dname 28
}
if ($did == 29) {
if ($did(28) != $null) { write $+(-,d,s,$did(28)) dh.txt | did -d tsk 30 $did(30).sel }
did -r $dname 28
}
if ($did == 14) {
if ($did(31).state == 1) { .enable #op }
if ($did(31).state == 0) { .disable #op }
if ($did(33).state == 1) { .enable #vop }
if ($did(33).state == 0) { .disable #vop }
if ($did(35).state == 1) { .enable #hop }
if ($did(35).state == 0) { .disable #hop }
}
MİRC BOT OLUSTURMA KODU
/botat {
/set %server $$?="Serveriniz"
/set %kanal1 $$?="Botun Gireceği Kanal 1? (Ornek: #CADDE)"
/set %kanal2 $$?="Botun Gireceği Kanal 2? (Ornek: #CADDE)"
/set %kanal3 $$?="Botun Gireceği Kanal 3? (Ornek: #CADDE)"
/set %kanal4 $$?="Botun Gireceği Kanal 4? (Ornek: #CADDE)"
/set %kanal5 $$?="Botun Gireceği Kanal 5? (Ornek: #CADDE)"
/set %kanal6 $$?="Botun Gireceği Kanal 6? (Ornek: #CADDE)"
/set %kanal7 $$?="Botun Gireceği Kanal 7? (Ornek: #CADDE)"
/set %kanal8 $$?="Botun Gireceği Kanal 8? (Ornek: #CADDE)"
/set %kanal9 $$?="Botun Gireceği Kanal 9? (Ornek: #CADDE)"
/set %kanal10 $$?="Botun Gireceği Kanal 10? (Ornek: #CADDE)"
/set %os-timer $$?="Kaç tane services bot oluşturulacak? (Ornek: 25)"
/timer %os-timer 4 /bot-2
}
/bot-2 {
//set %nicks $read("system/nicks.txt"
//botserv bot add %nicks Sanalnikah %server 7©CaddeSohbet© | //msg #bot.raw %nicks Nickinde Bot Oluşturuldu. Zaman: $time $date dir. ßy NoBotes
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal1 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal1 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal2 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal2 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal3 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal3 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal4 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal4 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal5 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal5 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal6 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal6 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal7 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal7 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal8 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal8 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal9 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal9 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal10 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal10 kanalına girdi.
//timer 0 110 //msg operserv raw : $+ %nicks part %kanal1 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal1 kanalına çıktı.
//timer 0 120 //msg operserv raw : $+ %nicks part %kanal2 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal2 kanalına çıktı.
//timer 0 130 //msg operserv raw : $+ %nicks part %kanal3 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal3 kanalına çıktı.
//timer 0 140 //msg operserv raw : $+ %nicks part %kanal4 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal4 kanalına çıktı.
//timer 0 150 //msg operserv raw : $+ %nicks part %kanal5 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal5 kanalına çıktı.
//timer 0 160 //msg operserv raw : $+ %nicks part %kanal6 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal6 kanalına çıktı.
//timer 0 170 //msg operserv raw : $+ %nicks part %kanal7 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal7 kanalına çıktı.
//timer 0 180 //msg operserv raw : $+ %nicks part %kanal8 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal8 kanalına çıktı.
//timer 0 190 //msg operserv raw : $+ %nicks part %kanal9 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal9 kanalına çıktı.
//timer 0 200 //msg operserv raw : $+ %nicks part %kanal10 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal10 kanalına çıktı.
}
Komple Ban Temizleme kodu
raw 367:*: {
mode $2 -b $3
}
alias banac {
mode # +b
}
on &*:text:*:#:{
if ($1 == !bantemizle) { banac }
}
on *:ban:#aşk: {
if (%biz == 10) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 }
if (%biz == 15) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 }
if (%biz == 15) { unset %biz }
else {
inc %biz
}
}
Otomatik Selam kodu
dialog otos {
title "oto selam"
size -1 -1 60 53
option dbu
button "Açık", 1, 12 5 37 12
button "Kapalı", 2, 12 20 37 12
button "Tamam", 3, 12 35 37 12, cancel
}
alias otos dialog -m otos otos
on *:dialog:otos:sclick:*: {
if ($did == 1) { .enable #otos }
if ($did == 2) { .disable #otos }
}
#otos on
on *:text:*:?: {
msg $nick selam $nick
}
#otos end
OTO SELAM ALMA KODU 2
on @*:text:*:#:{
if ($nick isreg $chan) {
if (selam iswm $1-) || (s.a. iswm $1-) || (sa iswm $1-) || (slm iswm $1-) {
msg $chan ALeykum SeLaM 5 $nick }
}
Tekrar Koruması kodu
on @1:text:*:#:{
if ($nick !isop $chan) {
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 2) {
mode $chan +b $nick
/kick $chan $nick (2 Kural ihlali yaptığınız için # kanalından 30 dakika süre ile uzaklaştırıldınız . Bundan sonra kanal genelinde 3 Kullanıcıları Rahatsız 2 eden mesajlar kullanmıyacağınıza inanıyor ve yönetim olarak hoş sohbetler diliyoruz. 3(2 $time - $date 3) 1 | ban -u1800 $chan $+($$1,!*@*) |
unset %*_ [ $+ [ $nick ] ] | goto end
}
}
}
Özele kabul kodu
on *:open:?:*:{
msg $nick 2Selam4 $nick
msg $nick 2Bugün4 $date 2ve Saat 4 $time(HH:nn.ss)
msg $nick 2Konuşmadığım Süre 4 $duration($idle)
msg $nick 2Toplam Açılan Özel Pencerem 4Sayısı %q!
inc %q!
msg $nick 2Şu an Özelimdeki4 $+($query(0),.) 2Kişisin Müsait Olduğumda Cevap Verilecektir
msg $nick 2Lutfen 4Op2, 4Voice2, 4Oper 2istemeyiniz istemeniz Durumunda Direk Olarak ignore Edileceksiniz4.2*IRC* Servisler iLe iLgiLi Sorunlariniz için 4/join #help 2Yaziniz. 4Zline, Kline, Akill, Nick 2ve 4Kanal 2$ifre 2Sorunlariniz icin 4/join #OperHelp 2Yaziniz..
inc %q!
opları toplu op kanalina çekme kodu
on *:op:#kanal,#kanal1,#kanal2:{ sajoin $opnick #op }
fullname banlama kodu
on *:JOIN:#:who $nick | set %chan $chan raw 352:*:{ var %i 1 while (%i <= $lines(fullname.txt)) { if ($read(fullname.txt,%i) iswm $9-) { mode %chan +b $6 } inc %i } }
MİRC ADDONLARI MİRC ADDON MİRC KODU MİRC KODLARI MİRC ADONU
5den fazla cloneye ban
#clonededector on
on *:join:#:{
if ($nick != $me) {
if ($ial($address($nick,2),0) > 1) {
set %clone.count [ $+ [ $nick ] ] $ial($address($nick,2),0)
:cloop
if (%clone.count [ $+ [ $nick ] ] < 1) { goto clend }
set %clecho %clecho 0,2 $+ $ial($address($nick,2), %clone.count [ $+ [ $nick ] ] ).nick
dec %clone.count [ $+ [ $nick ] ]
goto cloop
:clend
echo $chan Cloneler 4,1( $+ %clecho $address($nick,2) $+ )
}
if ($ial($address($nick,2),0) > 4) { gzline $address($nick,2) Clone | msg $chan Cloneler 4,1( $+ %clecho $address($nick,2) $+ ) }
unset %clecho*
unset %clone.count*
}
}
#clonededector end
menu status,menubar,channel {
CLone Dedector
.On:.enable #clonededector | echo -a 2 Clone Dedector On
.Off:.disable #clonededector | echo -a 2 Clone Dedector Off
}
kanal modelerini görmek
raw 324:*:{ echo -a $2 Kanalının Modeleri: $3- }
Masa üstü resmini mirc arka planı yapma
menu query {
Resim ekle
.oratala :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,3 | closemsg $1 | query $1
.döşe :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,4 | closemsg $1 | query $1
.doldur :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,1 | closemsg $1 | query $1
}
Harfleri Uzatma Koruması(Uyarılı)
on @*:text:*:#: {
if ($regex($1-,/([[:print:]])11/gi) >= 10) {
hinc -mu20 uzunharf $+($chan,.,$nick) 1
if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
.msg # $nick : lütfen harfleri uzatmadan yazınız.
}
if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
.msg # $nick : harfleri uzatmamanız konusunda ikinci uyarınız, tekrarlamanız durumunda kanaldan uzaklaştırılacaksınız..
}
if $hget(uzunharf,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Harfleri uzatmadan yazmanız konusunda uyarıları dikkate almadınız.
.hdel -s uzunharf $+($chan,.,$nick))
}
}
}
Reklam ve Küfür Koruması
mircreklam.txt isimli bir dosya oluşturup, reklam olarak nitelendirdiğiniz kelimeleri alt alta ekleyin. dosyayı mirc klasörünün içine atın. Bu dosyaya eklediğiniz reklam mesajları, kanal genelinde geçtiğinde, yazan kullanıcıyı kanaldan otomatik olarak uzaklaştırırsınız. Ayrıca isteğe bağlı olarak mircreklam.txt dosyasına küfür mesajlarıda ekleyebilir bu sayede korumamızı küfür koruması olarakta kullanabilirsiniz. mIRC remote bölümüne eklemeniz gereken kod;
on @*:text:*:#: {
if $read(mircreklam.txt, w, $1-) {
.mode # +b $nick
.kick # $nick Bu kanalda reklam yapmak yasaktır. Daha detaylı bilgi için /motd yazarak sunucu genel kurallarını okuyunuz.
}
}
Seslenme Remotesi
dialog ses1 {
title "Kanalda Size Sesleniyorlar..."
size -1 -1 99 40
option dbu notheme
box "Kanalda Sesleniliyorlar...", 1, 1 3 96 33
button "by Maxi", 2, 6 12 87 18, flat ok
}
#seslenme on
on *:TEXT:$(* $+ $me $+ *):#:{
if ($active == $chan) { goto son }
echo -a $chr(91) $+ $time(hh:nn) $+ $chr(93) 2***7 $Nick senden bahsediyor 4 $+ $chan 1Kanalında : 4 $+ " $1- " | .dialog -m ses1 ses1
:son
}
on *:TEXT:$(* $+ $me $+ *):?:{
if ($active == $nick) { goto son }
echo -a $chr(91) $+ $time(hh:nn) $+ $chr(93) 2***7 $Nick 2 $+ Özelde Senden Bahsediyor $+ : 4 $+ " $1- " | .dialog -m ses2 ses2
:son
}
#seslenme end
dialog ses2 {
title "Özelde Size Sesleniyorlar..."
size -1 -1 99 40
option dbu notheme
box "Özelde Sesleniyorlar...", 1, 2 1 94 36
button "by Maxi", 2, 8 11 82 20, flat ok
}
menu * {
.-
Seslenme Uyarısı:.dialog -m seslen seslen
.-
}
dialog seslen {
title "Seslenme Uyarisi"
size -1 -1 111 38
option dbu
button "Açık", 1, 6 9 46 12, flat
box "Ayarlar", 2, 0 0 109 35
button "Kapalı", 3, 56 9 46 12, flat
button "ÇIKIŞ", 4, 7 22 95 10, flat ok
}
on 1:dialog:seslen:sclick:1: { .enable #seslenme | .echo -a Seslenme Göstergesi Açıldı... }
on 1:dialog:seslen:sclick:3: { .disable #seslenme | .echo -a Seslenme Göstergesi Kapatıldı... }
on 1:dialog:seslen:sclick:4: { .echo -a Seslenme Göstergesi Ayarları Yapıldı... }
on 1:dialog:ses2:sclick:2: { .echo -a Tamam }
sohbet odasında user karşılama
on *:join:#sohbet: {
msg $nick merhaba $nick, #kanal kanalına hoşgeldiniz.
msg $nick kanalımızda güzel vakit geçirmenizi dileriz. iyi sohbetler.
}
ÖZEL KARŞILAMA
on *:open:?:*:{ msg $nick Selam 7 $nick msg $nick Bugün 3 $date 3 Saat 7 $time(HH:nn.ss) msg $nick 4 Konuşmadığım süre 7 $duration($idle) msg $nick 12 Bugüne kadar özelime gelen kişi sayısı 4 %q! inc %q! msg $nick Şuan özelimdeki 3 $+($query(0),.) 1 kişisin müsait olduğumda cevap verilecektir. inc %q! msg $nick 4 Lütfen GereKSiz meşguL etmeyiniz !! 2…::::4HO$ SOhBetLer2:::::… } MİRC KODU Tüm Kanallardan Atmak
alias tumban {
if $1 == $me || $comchan($1,1) == $null { halt }
set %kanalsayisi $comchan($1,0)
var %x = 1
while (%x <= %kanalsayisi) { if $me isop $comchan($1,%x) { .mode $comchan($1,%x) +b $address($1,2) | .kick $comchan($1,%x) $1 Kanaldan atılma sebebini buraya giriniz. | inc %x } }
}
google Mirc Kodları Mirc Addon Mirc Kodu
MİRC KODLARI MİRC ADDONLARI MİRC ADDON MİRC KOD
- mirc kodları
- mirc kodu
- mirc addon
- mirc addonu
- irc mirc kodu
- irc mirc kodları
- mirc addonları
- mirc kod
- mirc kod arşiv
- irc mirc kod
- mirc remote
- mircaddon
- mirckod
- mirckodları
Sende Paylaş: Facebook Tweet Pinterest Google+ Whatsapp