IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 12 Mayıs 2016, 21:38   #1
Çevrimdışı
#Help Kanalı Giriş Uyarı Dialogu


Reklam

Kodun amacı:Kod, boş zamanımda pc başındayken genellikle ağırlıklı olarak mIRC Scripting ile uğraştığım için bu esnada aklıma gelen basit bir fikirdi. Normalde dialoglarla uğraşmayı pek sevmesemde, bununla uğraşırken keyif aldım diyebilirim. Kod daha fazla özellikli veya daha farklıda yapılabilir, geliştirmeye açıktır. Dialoglarla uğraşmayı sevenler dilerse geliştirebilir. Kod, help kanalına giriş yapıldığında sesli ve/veya görüntülü uyarı yapıyor.

Kullanımı: Kodları mIRC e ekledikten sonra mIRC'in herhangi bir ekranında Sağ Tık yaparak "Help Uyarı" Seçeneğinden dialogu açabilirsiniz. Dialogtan Sistemi Açık konumuna getirdiğinizde çalışmaya hazırdır. Muaf Nick - Muaf Host - Muaf Prefix ekleyebilme seçenekleri mevcut(Muaf Prefixleri yan yana eklemelisiniz @%& gibi.). Eğer 1 den fazla sunucuda bulunuyorsanız, sunucu seçebilme imkanı da var(Opsiyonel - isteğe bağlı). Muaf Nick ve Muaf Host ekledikten sonra bunları silme işlemini, sileceğiniz öğenin üzerine Çift tıklayıp yapıyorsunuz. Sunucu seçme bölümünde ise, üzerine çift tıklayıp sunucu seçiyorsunuz. Ses dosyası seçerken eğer mIRC klasörünüzde sounds isimli klasör varsa direk onu açıyor, yoksa mIRC klasörünüzü direk açıyor, siz ses dosyalarınız neredeyse oradan seçebilirsiniz. mIRC'in sağ alt tarafında baloncuk şeklinde uyarı veriyor. Dialog rengi seçenekleride var. 10 adet renk bulunuyor. Sistem Açık Kapalı seçeneğide var.

Not: - Kodu mIRC 6.35 te hazırladım. Eski versionlarda $tip(Baloncuk) yok bildiğim kadarıyla. Eski versionlarda sorun olabilir.
- Kodları mIRC e eklerken mIRC anadizinine(//run $mircdir) bir .txt dosyası açıp içine atın. (Örneğin; helpuyari.txt) Daha sonra mIRC inizin herhangi bir aktif penceresinde /load -rs helpuyari.txt yapıp kodu yükleyin. (Önerilir.) - Link halinde vereceğim dll klasörünü rar dan çıkarıp olduğu gibi mIRC anadizininize(//run $mircdir) atın. (Dialog renkleri ve yazı fontları için gereklidir.)

Link: >>İNDİR<<

Örnek Resim1:


Örnek Resim2:


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu * { .Help Uyarı:/hlpu } alias hlpu dialog -m helps helps dialog helps { title "Help Uyarı" size -1 -1 271 210 option dbu text "#Help kanalına giriş olduğunda belirleyeceğim ses dosyasını çal", 5, 98 103 84 15 box "Giriş Ses Dosyası - [Opsiyonel]", 6, 93 93 93 73 button "Bul", 7, 98 122 36 12, flat button "İptal Et", 8, 138 122 44 12, flat text "Seçilen Ses Dosyası", 9, 98 142 78 8 text "Henüz Seçilmedi", 10, 98 151 78 8 text "#Help kanalına giriş olduğunda Muaf Prefix seçimi (+%@&& ~)", 11, 97 20 84 17 button "Ekle", 13, 98 54 34 12, flat box "Muaf Prefix - [Opsiyonel]", 14, 93 8 93 79 text "#Help kanalına giriş olduğunda Muaf Nick Seçimi", 15, 12 17 73 14 button "Sil", 16, 136 54 45 12, flat button "Ekle", 17, 11 115 72 12, flat edit "", 18, 10 35 74 11, multi autohs box "Muaf Nick - [Opsiyonel]", 19, 7 8 81 122 button "Ekli Prefixleri Gör", 22, 98 69 83 12, flat box "Sistem", 33, 190 132 75 72 radio "Açık", 34, 195 141 22 9, flat radio "Kapalı", 25, 219 141 25 9, flat list 12, 10 47 74 65, sort size extsel vsbar edit "", 26, 97 40 85 12, multi autohs box "Sunucu(lar) - [Opsiyonel]", 31, 7 135 81 69 text "Bir sunucu seçin / Çift Tık", 36, 12 145 68 8 list 30, 12 154 72 46, size extsel vsbar text "Henüz Seçilmedi", 35, 96 192 85 8 box "Sunucu", 37, 93 171 93 33 text "Seçilmiş Sunucu", 38, 96 182 39 8 button "Kaldır", 39, 138 178 20 12, flat button "Yenile", 40, 161 178 20 12, flat list 1, 193 49 68 61, sort size extsel vsbar edit "", 2, 193 36 68 12, multi autohs box "Muaf Host - [Opsiyonel]", 3, 190 8 74 121 button "Ekle", 4, 194 112 66 12, flat text "#Help kanalına giriş olduğunda Muaf Host seçimi", 20, 193 17 68 17 text "mIRC Help:", 21, 195 155 27 8 button "mirc.chm", 23, 225 153 35 12, flat combo 24, 224 180 37 82, size vsbar drop text "Renkler:", 27, 195 181 25 8 } alias muafkontrol { unset %muafhostlar var %_c = 1,%_d = $hget(muafh,0).item while %_c <= %_d { set %muafhostlar $addtok(%muafhostlar,$hget(muafh,%_c).item,124) inc %_c } } alias muafnyukle { if ($isfile(muafs.hash)) { var %aa = 1,%bb = $hget(muaflar,0).item while %aa <= %bb { did -a helps 12 $hget(muaflar,%aa).item | inc %aa } } } alias muafhyukle { if ($isfile(muafh.hash)) { var %bb = 1, %cc = $hget(muafh,0).item while %bb <= %cc { did -a helps 1 $hget(muafh,%bb).item | inc %bb } } } alias snclr { did -r helps 30 var %xx = 1 while ($scon(%xx)) { scon %xx | scon -r did -a helps 30 $server inc %xx } } alias renklendir { mdx MarkDialog helps mdx SetDialog helps bgcolor %renklerim mdx SetColor helps 5,9,11,15,36,38,6,14,19,33,31,37,34,25,12,30,3,1 text $rgb(0,0,100) mdx SetColor helps 10,35,23 text $rgb(0,69,111) mdx SetColor helps 5,9,11,15,36,38,6,14,19,33,31,37,34,25,10,35,4,20,21,3,23,27 textbg %renklerim mdx SetColor helps 6,14,19,33,31,37,34,25,5,9,11,15,36,38,7,8,13,16,17,22,39,40,10,35,4,20,21,3,23,4,27 background %renklerim mdx SetFont helps 6,14,19,33,31,37,12,30,18,26,10,35,7,8,13,16,17,22,39,40,20,21,1,2,23,3,4,27 +b Turkish 13 800 Candara mdx SetFont helps 5,9,11,15,36,38 +b Turkish 13 800 Candara mdx SetDialog helps style title tool sysmenu } alias mdx dll dll\mdx.dll $1- on *:start: { if ($isfile(muafs.hash)) { hmake muaflar 100 | hload -i muaflar muafs.hash } if ($isfile(muafh.hash)) { hmake muafh 100 | hload -i muafh muafh.hash } } on *:dialog:helps:init:*:{ mdx MarkDialog $dname mdx SetDialog $dname bgcolor $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetColor $dname 5,9,11,15,36,38,6,14,19,33,31,37,34,25,12,30,3,1,24,21,27,20 text $rgb(0,0,100) mdx SetColor $dname 10,35,23 text $rgb(0,69,111) mdx SetColor $dname 5,9,11,15,36,38,6,14,19,33,31,37,34,25,10,35,4,20,21,3,23,27,24 textbg $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetColor $dname 6,14,19,33,31,37,34,25,5,9,11,15,36,38,7,8,13,16,17,22,39,40,10,35,4,20,21,3,23,4,27 background $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetFont $dname 6,14,19,33,31,37,12,30,18,26,10,35,7,8,13,16,17,22,39,40,20,21,1,2,23,3,4,27,24,34,25 +b Turkish 13 800 Candara mdx SetFont $dname 5,9,11,15,36,38 +b Turkish 13 800 Candara mdx SetDialog $dname style title tool sysmenu if ($group(#systems).status == on) { did -c $dname 34 } else { did -c $dname 25 } if ($hget(muaflar)) { muafnyukle } else { hmake muaflar 100 | hload -i muaflar muafs.hash } if ($hget(muafh)) { muafhyukle } else { hmake muafh 100 | hload -i muafh muafh.hash } if (%sesismi) { did -ra $dname 10 %sesismi } if (%snc) { did -ra $dname 35 %snc } else { did -ra $dname 35 Henüz Seçilmedi } snclr did -a $dname 24 Renk1 did -a $dname 24 Renk2 did -a $dname 24 Renk3 did -a $dname 24 Renk4 did -a $dname 24 Renk5 did -a $dname 24 Renk6 did -a $dname 24 Renk7 did -a $dname 24 Renk8 did -a $dname 24 Renk9 did -a $dname 24 Renk10 } on *:dialog:helps:sclick:24: { if $did(24) && $regex($did(24).text,/^Renk1$/) { set %renklerim $rgb(102,177,147) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk2$/) { set %renklerim $rgb(216,222,225) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk3$/) { set %renklerim $rgb(201,138,201) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk4$/) { set %renklerim $rgb(243,192,189) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk5$/) { set %renklerim $rgb(165,141,0) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk6$/) { set %renklerim $rgb(255,36,255) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk7$/) { set %renklerim $rgb(9,165,249) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk8$/) { set %renklerim $rgb(9,165,111) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk9$/) { set %renklerim $rgb(81,219,255) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk10$/) { set %renklerim $rgb(255,183,102) | renklendir } } on *:dialog:helps:sclick:23: { if ($isfile($mircdirmirc.chm)) { run $mircdirmirc.chm } else { noop $input(mIRC Yardım Dosyanıza Ulaşılamadı(mIRC Anadizininde mirc.chm bulunmuyor),o,Help Uyarı) } } on *:dialog:helps:sclick:4: { if ($did(2).text) { did -a $dname 1 $did(2).text | set -e %mhost $did(2).text | hadd -m muafh %mhost 1 | hsave -i muafh muafh.hash | did -r $dname 2 } else { noop $input(Boş Veri Giremezsiniz!,o,Help Uyarı) } } on *:dialog:helps:dclick:1: { if ($did(1,1).seltext) { hdel muafh $did(1,1).seltext | did -d $dname 1 $did(1,1).sel | hsave -i muafh muafh.hash } } on *:dialog:helps:sclick:40: { snclr } on *:dialog:helps:dclick:30: { if ($did($dname,30,1).seltext) && ($did($dname,30,1).seltext == %snc) { set %snc $did($dname,30,1).seltext | did -ra $dname 35 %snc } elseif ($did($dname,30,1).seltext) && ($did($dname,30,1).seltext != %snc) { set %snc $did($dname,30,1).seltext | did -ra $dname 35 %snc | noop $input(%snc Eklendi,o,Help Uyarı) } } on *:dialog:helps:sclick:39: { unset %snc | did -ra $dname 35 Henüz Seçilmedi } on *:dialog:helps:sclick:7: { if ($finddir($mircdir,sounds,0) == 1) { if ($msfile($mircdirsounds,Ses Dosyası Seçin,Seç)) { set %sesismi $nopath($msfile(1)) | did -ra $dname 10 %sesismi } else { did -ra $dname 10 $iif(%sesismi,%sesismi,Henüz Seçilmedi) } } else { if ($msfile($mircdir,Ses Dosyası Seçin,Seç)) { set %sesismi $nopath($msfile(1)) | did -ra $dname 10 %sesismi } else { did -ra $dname 10 $iif(%sesismi,%sesismi,Henüz Seçilmedi) } } } on *:dialog:helps:sclick:8: { unset %sesismi | did -ra $dname 10 Henüz Seçilmedi } on *:dialog:helps:sclick:13: { if ($did(26).text !isalnum) && ($did(26).text != $null) { set %prefix $did(26).text | did -r $dname 26 | return $input($iif($len(%prefix) != 1,Prefixler Eklendi,Prefix Eklendi),o,Help Uyarı) } elseif (!$did(26).text) { return $input(HATA! Boş Veri Girmeye Çalışıyorsunuz.,o,Help Uyarı) } else { return $input(Hatalı Giriş İhtimali Kontrol Edin!,o,Help Uyarı) } } on *:dialog:helps:sclick:16: { if (%prefix) { unset %prefix | did -r $dname 26 | return $input(Ekli Prefix/ler Silindi,o,Help Uyarı) } else { return $input(Ekli Prefix/ler Yok!,o,Help Uyarı) } } on *:dialog:helps:sclick:22: { if (%prefix) { return $input(Ekli Prefixler: %prefix,o,Help Uyarı) } else { return $input(Ekli Prefix Yok!,o,Help Uyarı) } } on *:dialog:helps:sclick:17: { if ($did(18).text) { did -a $dname 12 $did(18).text | set -e %mtext $did(18).text | hadd -m muaflar %mtext 1 | hsave -i muaflar muafs.hash | did -r $dname 18 } else { return $input(Boş Veri Giremezsiniz!,o,Help Uyarı) } } on *:dialog:helps:dclick:12: { if ($did(12,1).seltext) { hdel muaflar $did(12,1).seltext | did -d $dname 12 $did(12,1).sel | hsave -i muaflar muafs.hash } } on *:dialog:helps:sclick:34: { if ($group(#systems).status == on) { return $input(Help Uyarı Zaten AÇIK!,o,Help Uyarı) } else { .enable #systems | return $input(Help Uyarı AÇILDI!,o,Help Uyarı) } } on *:dialog:helps:sclick:25: { if ($group(#systems).status == off) { return $input(Help Uyarı Zaten KAPALI!,o,Help Uyarı) } else { .disable #systems | return $input(Help Uyarı KAPATILDI!,o,Help Uyarı) } } #systems off on !*:join:#help: { if (%snc) { if ($server == %snc) { muafkontrol if $regex($nick($chan,$nick).pnick,/^([ $+ %prefix $+ ])/S) || $hget(muaflar,$nick) || $regex($site,/( $+ %muafhostlar $+ )/Si) { return } else { $iif(%sesismi,.timerplay 1 2 splay %sesismi) | noop $tip(Help Uyarı,Help Uyarı,2Help Kanalına Kullanıcı Giriş Yaptı! $crlf Nick:4 $nick $crlf Sunucu:4 %snc,10,,$window($active).wid) } } } else { muafkontrol if $regex($nick($chan,$nick).pnick,/^([ $+ %prefix $+ ])/S) || $hget(muaflar,$nick) || $regex($site,/( $+ %muafhostlar $+ )/Si) { return } else { $iif(%sesismi,.timerplay 1 2 splay %sesismi) | noop $tip(Help Uyarı,Help Uyarı,2Help Kanalına Kullanıcı Giriş Yaptı! $crlf Nick:4 $nick ,10,,$window($active).wid) } } } #systems end

Umarım gözden kaçan vs. bir hata yoktur. İyi forumlar.
Kodun amacı:Kod, boş zamanımda pc başındayken genellikle ağırlıklı olarak mIRC Scripting ile uğraştığım için bu esnada aklıma gelen basit bir fikirdi. Normalde dialoglarla uğraşmayı pek sevmesemde, bununla uğraşırken keyif aldım diyebilirim. Kod daha fazla özellikli veya daha farklıda yapılabilir, geliştirmeye açıktır. Dialoglarla uğraşmayı sevenler dilerse geliştirebilir. Kod, help kanalına giriş yapıldığında sesli ve/veya görüntülü uyarı yapıyor.

Kullanımı: Kodları mIRC e ekledikten sonra mIRC'in herhangi bir ekranında Sağ Tık yaparak "Help Uyarı" Seçeneğinden dialogu açabilirsiniz. Dialogtan Sistemi Açık konumuna getirdiğinizde çalışmaya hazırdır. Muaf Nick - Muaf Host - Muaf Prefix ekleyebilme seçenekleri mevcut(Muaf Prefixleri yan yana eklemelisiniz @%& gibi.). Eğer 1 den fazla sunucuda bulunuyorsanız, sunucu seçebilme imkanı da var(Opsiyonel - isteğe bağlı). Muaf Nick ve Muaf Host ekledikten sonra bunları silme işlemini, sileceğiniz öğenin üzerine Çift tıklayıp yapıyorsunuz. Sunucu seçme bölümünde ise, üzerine çift tıklayıp sunucu seçiyorsunuz. Ses dosyası seçerken eğer mIRC klasörünüzde sounds isimli klasör varsa direk onu açıyor, yoksa mIRC klasörünüzü direk açıyor, siz ses dosyalarınız neredeyse oradan seçebilirsiniz. mIRC'in sağ alt tarafında baloncuk şeklinde uyarı veriyor. Dialog rengi seçenekleride var. 10 adet renk bulunuyor. Sistem Açık Kapalı seçeneğide var.

Not: - Kodu mIRC 6.35 te hazırladım. Eski versionlarda $tip(Baloncuk) yok bildiğim kadarıyla. Eski versionlarda sorun olabilir.
- Kodları mIRC e eklerken mIRC anadizinine(//run $mircdir) bir .txt dosyası açıp içine atın. (Örneğin; helpuyari.txt) Daha sonra mIRC inizin herhangi bir aktif penceresinde /load -rs helpuyari.txt yapıp kodu yükleyin. (Önerilir.) - Link halinde vereceğim dll klasörünü rar dan çıkarıp olduğu gibi mIRC anadizininize(//run $mircdir) atın. (Dialog renkleri ve yazı fontları için gereklidir.)

Link: >>İNDİR<<

Örnek Resim1:


Örnek Resim2:


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu * { .Help Uyarı:/hlpu } alias hlpu dialog -m helps helps dialog helps { title "Help Uyarı" size -1 -1 271 210 option dbu text "#Help kanalına giriş olduğunda belirleyeceğim ses dosyasını çal", 5, 98 103 84 15 box "Giriş Ses Dosyası - [Opsiyonel]", 6, 93 93 93 73 button "Bul", 7, 98 122 36 12, flat button "İptal Et", 8, 138 122 44 12, flat text "Seçilen Ses Dosyası", 9, 98 142 78 8 text "Henüz Seçilmedi", 10, 98 151 78 8 text "#Help kanalına giriş olduğunda Muaf Prefix seçimi (+%@&& ~)", 11, 97 20 84 17 button "Ekle", 13, 98 54 34 12, flat box "Muaf Prefix - [Opsiyonel]", 14, 93 8 93 79 text "#Help kanalına giriş olduğunda Muaf Nick Seçimi", 15, 12 17 73 14 button "Sil", 16, 136 54 45 12, flat button "Ekle", 17, 11 115 72 12, flat edit "", 18, 10 35 74 11, multi autohs box "Muaf Nick - [Opsiyonel]", 19, 7 8 81 122 button "Ekli Prefixleri Gör", 22, 98 69 83 12, flat box "Sistem", 33, 190 132 75 72 radio "Açık", 34, 195 141 22 9, flat radio "Kapalı", 25, 219 141 25 9, flat list 12, 10 47 74 65, sort size extsel vsbar edit "", 26, 97 40 85 12, multi autohs box "Sunucu(lar) - [Opsiyonel]", 31, 7 135 81 69 text "Bir sunucu seçin / Çift Tık", 36, 12 145 68 8 list 30, 12 154 72 46, size extsel vsbar text "Henüz Seçilmedi", 35, 96 192 85 8 box "Sunucu", 37, 93 171 93 33 text "Seçilmiş Sunucu", 38, 96 182 39 8 button "Kaldır", 39, 138 178 20 12, flat button "Yenile", 40, 161 178 20 12, flat list 1, 193 49 68 61, sort size extsel vsbar edit "", 2, 193 36 68 12, multi autohs box "Muaf Host - [Opsiyonel]", 3, 190 8 74 121 button "Ekle", 4, 194 112 66 12, flat text "#Help kanalına giriş olduğunda Muaf Host seçimi", 20, 193 17 68 17 text "mIRC Help:", 21, 195 155 27 8 button "mirc.chm", 23, 225 153 35 12, flat combo 24, 224 180 37 82, size vsbar drop text "Renkler:", 27, 195 181 25 8 } alias muafkontrol { unset %muafhostlar var %_c = 1,%_d = $hget(muafh,0).item while %_c <= %_d { set %muafhostlar $addtok(%muafhostlar,$hget(muafh,%_c).item,124) inc %_c } } alias muafnyukle { if ($isfile(muafs.hash)) { var %aa = 1,%bb = $hget(muaflar,0).item while %aa <= %bb { did -a helps 12 $hget(muaflar,%aa).item | inc %aa } } } alias muafhyukle { if ($isfile(muafh.hash)) { var %bb = 1, %cc = $hget(muafh,0).item while %bb <= %cc { did -a helps 1 $hget(muafh,%bb).item | inc %bb } } } alias snclr { did -r helps 30 var %xx = 1 while ($scon(%xx)) { scon %xx | scon -r did -a helps 30 $server inc %xx } } alias renklendir { mdx MarkDialog helps mdx SetDialog helps bgcolor %renklerim mdx SetColor helps 5,9,11,15,36,38,6,14,19,33,31,37,34,25,12,30,3,1 text $rgb(0,0,100) mdx SetColor helps 10,35,23 text $rgb(0,69,111) mdx SetColor helps 5,9,11,15,36,38,6,14,19,33,31,37,34,25,10,35,4,20,21,3,23,27 textbg %renklerim mdx SetColor helps 6,14,19,33,31,37,34,25,5,9,11,15,36,38,7,8,13,16,17,22,39,40,10,35,4,20,21,3,23,4,27 background %renklerim mdx SetFont helps 6,14,19,33,31,37,12,30,18,26,10,35,7,8,13,16,17,22,39,40,20,21,1,2,23,3,4,27 +b Turkish 13 800 Candara mdx SetFont helps 5,9,11,15,36,38 +b Turkish 13 800 Candara mdx SetDialog helps style title tool sysmenu } alias mdx dll dll\mdx.dll $1- on *:start: { if ($isfile(muafs.hash)) { hmake muaflar 100 | hload -i muaflar muafs.hash } if ($isfile(muafh.hash)) { hmake muafh 100 | hload -i muafh muafh.hash } } on *:dialog:helps:init:*:{ mdx MarkDialog $dname mdx SetDialog $dname bgcolor $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetColor $dname 5,9,11,15,36,38,6,14,19,33,31,37,34,25,12,30,3,1,24,21,27,20 text $rgb(0,0,100) mdx SetColor $dname 10,35,23 text $rgb(0,69,111) mdx SetColor $dname 5,9,11,15,36,38,6,14,19,33,31,37,34,25,10,35,4,20,21,3,23,27,24 textbg $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetColor $dname 6,14,19,33,31,37,34,25,5,9,11,15,36,38,7,8,13,16,17,22,39,40,10,35,4,20,21,3,23,4,27 background $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetFont $dname 6,14,19,33,31,37,12,30,18,26,10,35,7,8,13,16,17,22,39,40,20,21,1,2,23,3,4,27,24,34,25 +b Turkish 13 800 Candara mdx SetFont $dname 5,9,11,15,36,38 +b Turkish 13 800 Candara mdx SetDialog $dname style title tool sysmenu if ($group(#systems).status == on) { did -c $dname 34 } else { did -c $dname 25 } if ($hget(muaflar)) { muafnyukle } else { hmake muaflar 100 | hload -i muaflar muafs.hash } if ($hget(muafh)) { muafhyukle } else { hmake muafh 100 | hload -i muafh muafh.hash } if (%sesismi) { did -ra $dname 10 %sesismi } if (%snc) { did -ra $dname 35 %snc } else { did -ra $dname 35 Henüz Seçilmedi } snclr did -a $dname 24 Renk1 did -a $dname 24 Renk2 did -a $dname 24 Renk3 did -a $dname 24 Renk4 did -a $dname 24 Renk5 did -a $dname 24 Renk6 did -a $dname 24 Renk7 did -a $dname 24 Renk8 did -a $dname 24 Renk9 did -a $dname 24 Renk10 } on *:dialog:helps:sclick:24: { if $did(24) && $regex($did(24).text,/^Renk1$/) { set %renklerim $rgb(102,177,147) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk2$/) { set %renklerim $rgb(216,222,225) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk3$/) { set %renklerim $rgb(201,138,201) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk4$/) { set %renklerim $rgb(243,192,189) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk5$/) { set %renklerim $rgb(165,141,0) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk6$/) { set %renklerim $rgb(255,36,255) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk7$/) { set %renklerim $rgb(9,165,249) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk8$/) { set %renklerim $rgb(9,165,111) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk9$/) { set %renklerim $rgb(81,219,255) | renklendir } elseif $did(24) && $regex($did(24).text,/^Renk10$/) { set %renklerim $rgb(255,183,102) | renklendir } } on *:dialog:helps:sclick:23: { if ($isfile($mircdirmirc.chm)) { run $mircdirmirc.chm } else { noop $input(mIRC Yardım Dosyanıza Ulaşılamadı(mIRC Anadizininde mirc.chm bulunmuyor),o,Help Uyarı) } } on *:dialog:helps:sclick:4: { if ($did(2).text) { did -a $dname 1 $did(2).text | set -e %mhost $did(2).text | hadd -m muafh %mhost 1 | hsave -i muafh muafh.hash | did -r $dname 2 } else { noop $input(Boş Veri Giremezsiniz!,o,Help Uyarı) } } on *:dialog:helps:dclick:1: { if ($did(1,1).seltext) { hdel muafh $did(1,1).seltext | did -d $dname 1 $did(1,1).sel | hsave -i muafh muafh.hash } } on *:dialog:helps:sclick:40: { snclr } on *:dialog:helps:dclick:30: { if ($did($dname,30,1).seltext) && ($did($dname,30,1).seltext == %snc) { set %snc $did($dname,30,1).seltext | did -ra $dname 35 %snc } elseif ($did($dname,30,1).seltext) && ($did($dname,30,1).seltext != %snc) { set %snc $did($dname,30,1).seltext | did -ra $dname 35 %snc | noop $input(%snc Eklendi,o,Help Uyarı) } } on *:dialog:helps:sclick:39: { unset %snc | did -ra $dname 35 Henüz Seçilmedi } on *:dialog:helps:sclick:7: { if ($finddir($mircdir,sounds,0) == 1) { if ($msfile($mircdirsounds,Ses Dosyası Seçin,Seç)) { set %sesismi $nopath($msfile(1)) | did -ra $dname 10 %sesismi } else { did -ra $dname 10 $iif(%sesismi,%sesismi,Henüz Seçilmedi) } } else { if ($msfile($mircdir,Ses Dosyası Seçin,Seç)) { set %sesismi $nopath($msfile(1)) | did -ra $dname 10 %sesismi } else { did -ra $dname 10 $iif(%sesismi,%sesismi,Henüz Seçilmedi) } } } on *:dialog:helps:sclick:8: { unset %sesismi | did -ra $dname 10 Henüz Seçilmedi } on *:dialog:helps:sclick:13: { if ($did(26).text !isalnum) && ($did(26).text != $null) { set %prefix $did(26).text | did -r $dname 26 | return $input($iif($len(%prefix) != 1,Prefixler Eklendi,Prefix Eklendi),o,Help Uyarı) } elseif (!$did(26).text) { return $input(HATA! Boş Veri Girmeye Çalışıyorsunuz.,o,Help Uyarı) } else { return $input(Hatalı Giriş İhtimali Kontrol Edin!,o,Help Uyarı) } } on *:dialog:helps:sclick:16: { if (%prefix) { unset %prefix | did -r $dname 26 | return $input(Ekli Prefix/ler Silindi,o,Help Uyarı) } else { return $input(Ekli Prefix/ler Yok!,o,Help Uyarı) } } on *:dialog:helps:sclick:22: { if (%prefix) { return $input(Ekli Prefixler: %prefix,o,Help Uyarı) } else { return $input(Ekli Prefix Yok!,o,Help Uyarı) } } on *:dialog:helps:sclick:17: { if ($did(18).text) { did -a $dname 12 $did(18).text | set -e %mtext $did(18).text | hadd -m muaflar %mtext 1 | hsave -i muaflar muafs.hash | did -r $dname 18 } else { return $input(Boş Veri Giremezsiniz!,o,Help Uyarı) } } on *:dialog:helps:dclick:12: { if ($did(12,1).seltext) { hdel muaflar $did(12,1).seltext | did -d $dname 12 $did(12,1).sel | hsave -i muaflar muafs.hash } } on *:dialog:helps:sclick:34: { if ($group(#systems).status == on) { return $input(Help Uyarı Zaten AÇIK!,o,Help Uyarı) } else { .enable #systems | return $input(Help Uyarı AÇILDI!,o,Help Uyarı) } } on *:dialog:helps:sclick:25: { if ($group(#systems).status == off) { return $input(Help Uyarı Zaten KAPALI!,o,Help Uyarı) } else { .disable #systems | return $input(Help Uyarı KAPATILDI!,o,Help Uyarı) } } #systems off on !*:join:#help: { if (%snc) { if ($server == %snc) { muafkontrol if $regex($nick($chan,$nick).pnick,/^([ $+ %prefix $+ ])/S) || $hget(muaflar,$nick) || $regex($site,/( $+ %muafhostlar $+ )/Si) { return } else { $iif(%sesismi,.timerplay 1 2 splay %sesismi) | noop $tip(Help Uyarı,Help Uyarı,2Help Kanalına Kullanıcı Giriş Yaptı! $crlf Nick:4 $nick $crlf Sunucu:4 %snc,10,,$window($active).wid) } } } else { muafkontrol if $regex($nick($chan,$nick).pnick,/^([ $+ %prefix $+ ])/S) || $hget(muaflar,$nick) || $regex($site,/( $+ %muafhostlar $+ )/Si) { return } else { $iif(%sesismi,.timerplay 1 2 splay %sesismi) | noop $tip(Help Uyarı,Help Uyarı,2Help Kanalına Kullanıcı Giriş Yaptı! $crlf Nick:4 $nick ,10,,$window($active).wid) } } } #systems end

Umarım gözden kaçan vs. bir hata yoktur. İyi forumlar.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
#help, dialogu, giriş, kanalı, uyarı
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık