Tekil Mesaj gösterimi
Alt 12 Şubat 2009, 12:34   #1
Çevrimdışı
Sympathique
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Korumalar Dıyalogu




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


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver