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

Sympathique · 12 Şubat 2009, 12:34

Arkadaslar Suan Bende Bır Korumalar Menusu var Yanlız Ben Bunda Korumaları Eklemek Istıyorum Bu Dıyalogda %Tekrar Olarak Var Ben Bunu #tekraron #tekrarOff Enable Disable turunde Yapmak ıstıyorum Korumalarıda O sekıl Eklemek Istıyorum Yanı Butun Korumalar Isımlerını Ayarlarını % [Yüzde] Olarak Degılde Enable Disable Olarak Eklemek Icın Ne Yapmam gerekır Yardımcı Olabılırmısınız?

Alıntı:

alias mdx_fullpath { return $+(",dll\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }
alias bars { return dll\bars.mdx }
dialog korumalar {
title "Korumalar"
size -1 -1 385 380
option pixels
icon icon\Sy.ico
icon 1, 15 15 355 50, images\Sy.png, 0
box "Kanal Korumaları", 2, 5 80 165 297
check "Tekrar Koruması", 3, 20 95 135 20
check "Küfür Koruması", 4, 20 115 135 20
check "Uzun Yazı Koruması", 5, 20 135 135 20
check "Bad Nick Koruması", 6, 20 155 135 20
check "Büyük Harf Koruması", 7, 20 175 135 20
check "Reklam Koruması", 8, 20 195 135 20
check "Renkli Yazı Koruması", 9, 20 215 135 20
check "Telefon No Koruması", 10, 20 235 135 20
check "Gölge Yazı Koruması", 11, 20 255 135 20
check "Cinsel Arayış Koruması", 12, 20 275 135 20
check "Proxy Koruması", 13, 20 295 135 20
check "Filter Kick", 14, 20 315 135 20
check "Flood Koruması", 15, 20 335 135 20
check "Join/Part Koruması", 29, 20 355 135 20
box "Kişisel Korumalar", 16, 180 80 200 100
check "Reklam Koruması", 17, 195 95 135 20
check "Küfür Koruması", 18, 195 115 135 20
check "DeOp Koruması", 19, 195 135 135 20
check "Ban Koruması", 20, 195 155 135 20
box "Ayarlar", 21, 180 180 200 166
list 22, 195 195 174 20, size
list 23, 195 220 174 20, size
list 24, 195 245 174 20, size
list 25, 195 270 174 20, size
list 26, 195 295 174 20, size
list 27, 195 320 174 20, size
button "Kaydet / Kapat", 28, 205 350 150 20, flat ok cancel
}
on *:dialog:korumalar:sclick:*: {
if ($did($dname,3).state == 1) { set %tekrar 1 } | else { set %tekrar 0 }
if ($did($dname,4).state == 1) { set %kufur 1 } | else { set %kufur 0 }
if ($did($dname,5).state == 1) { set %uzunyazi 1 } | else { set %uzunyazi 0 }
if ($did($dname,6).state == 1) { set %bad 1 } | else { set %bad 0 }
if ($did($dname,7).state == 1) { set %caps 1 } | else { set %caps 0 }
if ($did($dname,8).state == 1) { set %reklam 1 } | else { set %reklam 0 }
if ($did($dname,9).state == 1) { set %action 1 } | else { set %action 0 }
if ($did($dname,10).state == 1) { set %telefon 1 } | else { set %telefon 0 }
if ($did($dname,11).state == 1) { set %urb 1 } | else { set %urb 0 }
if ($did($dname,12).state == 1) { set %cinsel 1 } | else { set %cinsel 0 }
if ($did($dname,13).state == 1) { set %proxy 1 } | else { set %proxy 0 }
if ($did($dname,14).state == 1) { set %ops 1 } | else { set %ops 0 }
if ($did($dname,15).state == 1) { set %flood 1 } | else { set %flood 0 }
if ($did(29).state == 1) { .enable #jflood } | else { .disable #jflood }
if ($did == 22) { yasak }
if ($did == 23) { badnick }
if ($did == 24) { rkl }
if ($did == 25) { telefon }
if ($did == 26) { proxyy }
if ($did == 27) { cinsel }
}
on *:dialog:korumalar:init:0: {
mdx SetMircVersion $version
mdx MarkDialog $dname $dialog($dname).hwnd
mdx SetControlMDX $dname 22,23,24,25,26,27 Toolbar flat wrap arrows nodivider list > $bars
mdx SetControlMDX $dname 22,23,24,25,26,27 Progressbar smooth > $ctl
mdx SetBorderStyle $dname 22,23,24,25,26,27
mdx SetFont 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,2 1,22,23,24,25,26,27,28,29 -11 700 Tahoma
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 ,21,22,23,24,25,26,27,28,29 background $rgb(010,180,255)
mdx SetDialog [ $dname ] bgcolor $rgb(010,180,255)
did -i $dname 22 1 bmpsize 15 15
did -i $dname 22 1 setimage icon large 0, $+ icon\Liste.ico
did -a $dname 22 +W 175 1 Küfür Listesini düzenle
did -i $dname 23 1 bmpsize 15 15
did -i $dname 23 1 setimage icon large 0, $+ icon\Liste.ico
did -a $dname 23 +W 175 1 Badnick listesini düzenle
did -i $dname 24 1 bmpsize 15 15
did -i $dname 24 1 setimage icon large 0, $+ icon\Liste.ico
did -a $dname 24 +W 175 1 Reklam listesini düzenle
did -i $dname 25 1 bmpsize 15 15
did -i $dname 25 1 setimage icon large 0, $+ icon\Liste.ico
did -a $dname 25 +W 175 1 Tel No listesini Düzenle
did -i $dname 26 1 bmpsize 15 15
did -i $dname 26 1 setimage icon large 0, $+ icon\Liste.ico
did -a $dname 26 +W 175 1 Proxy listesini Düzenle
did -i $dname 27 1 bmpsize 15 15
did -i $dname 27 1 setimage icon large 0, $+ icon\Liste.ico
did -a $dname 27 +W 175 1 Cinsel Arayış düzenle
if (%tekrar == 1) { did -c KorumaLar 3 }
if (%kufur == 1) { did -c KorumaLar 4 }
if (%uzunyazi == 1) { did -c KorumaLar 5 }
if (%bad == 1) { did -c KorumaLar 6 }
if (%caps == 1) { did -c KorumaLar 7 }
if (%reklam == 1) { did -c KorumaLar 8 }
if (%action == 1) { did -c KorumaLar 9 }
if (%telefon == 1) { did -c KorumaLar 10 }
if (%urb == 1) { did -c KorumaLar 11 }
if (%cinsel == 1) { did -c KorumaLar 12 }
if (%proxy == 1) { did -c KorumaLar 13 }
if (%ops == 1) { did -c KorumaLar 14 }
if (%flood == 1) { did -c KorumaLar 15 }
if ($group(#jflood) == on) { did -c Korumalar 29 }
}

uFuK · 12 Şubat 2009, 13:28

Groups kullanımı Özet;
#deneme on
on *:text:*:#: {
if (*yerim* iswm $1-) || (*yemem* iswm $1-) || (*zımbırtı* iswm $1-) {
mode $chan +b $wildsite | kick $chan $nick ayıp..
}
}
#deneme end

menu * {
Küfür Koruması Aç:enable #deneme
Küfür Koruması Kapat:disable #deneme
}

Kırmızı ile yazılmış postları incelediğinde groups kullanımını zaten kavrarsın az çok.
Yazacağın kodun başına ve sonuna # istediğin isimde başlayan bir gruops başlangıcı yapıyorsun sonuna getirdiğin "on" eki bu groups'u aktif kılıyor "off" kapalı hale getiriyor.

Şimdi senin kodunda check kullanılmış. Checklerin seçili yada seçili olmadığını anlamak için state kullanırız.

Alıntı:

if ($did($dname,2).state) == 1 { /enable #gruops }
else { /disable #gruops }

Şimdi burada diyorki dialogtaki 2 numaralı İd eğer 1'e eşitse;

Not: Check'ler işaretliyken 1 işaretsizken 0 değeri alır.

Yani İşaretliyse, /enable #deneme yaparaktan groups'u aktif hale getir.
else yani değilse demek, işaretsizse yani seçilmemişse /disable #deneme yaparak gruops'u kapat.

Buradaki ufak anlatımdan sonra kodunu buna göre editleyebilirsin. Hem öğrenmiş hem kodlamış olursun.
Anlamadığın nokta varsa buradan belirt, yardımcı olurum.

uFuK · 12 Şubat 2009, 13:30

Yani özetle yapman gereken korumaların başına #grup on #grup end şeklinde groups oluşturman daha sonra check'lerde state kullanarak 1 ise enable 0 ise disable yapman..

İyi forumlar..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Korumalar v4	Duffy`DuCk	mIRC Scripting Hazır Kodlar	69	21 Şubat 2013 00:34
Korumalar v1-v2-v3-v4	SovaLyem	mIRC Scripting Hazır Kodlar	3	14 Nisan 2010 12:54
Korumalar	neobre	mIRC Scripting Sorunları	1	29 Ekim 2009 22:12
korumalar v2	IrCbaStarD	mIRC Scripting Hazır Kodlar	50	24 Nisan 2008 16:44

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.