IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Nisan 2015, 02:44   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
muaf,nick,host,kanal,addon




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 } 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: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 on on ! *:text:*:#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

Böyle bir kod gördüm ancak kime ait bilmiyorum addon şeklinde HELP kanalına giriş oldugunda çalışdıgını söylüyordu,bunu help kanalı değilde sadece özel için çalışır bir şekle getirmek için on ! *:text:*:#Help:{ yazan yerdeki #Help yerine on ! *:text:*:?:{ yapdım ama çalışmadı bunu nasıl sadece özelim için çalışır hale getirebilirim. Tşk

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 29 Nisan 2015, 02:58   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: muaf,nick,host,kanal,addon




Kod bana aitti. Sadece o kısmı değişmek yetmez çünkü text eventı içinde $chan tanımı var. Eğer sen :#help: yerine :?: yapıp özelde çalışsın istersen $chan herhangi bir değer döndürmeyecektir. Tabi biraz uğraşman lazım istediğin şekle getirebilmen için. Özeline gelenlerle ilgili forumda paylaşılan kodlar olması gerekiyordu. Eğer bulamazsan da daha sade bir kod yazılabilir.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 29 Nisan 2015, 03:03   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: muaf,nick,host,kanal,addon




Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod bana aitti. Sadece o kısmı değişmek yetmez çünkü text eventı içinde $chan tanımı var. Eğer sen :#help: yerine :?: yapıp özelde çalışsın istersen $chan herhangi bir değer döndürmeyecektir. Tabi biraz uğraşman lazım istediğin şekle getirebilmen için. Özeline gelenlerle ilgili forumda paylaşılan kodlar olması gerekiyordu. Eğer bulamazsan da daha sade bir kod yazılabilir.

Hepsi bir yerde olması ve addon şeklinde olması çok güzeldi ben ne kadar uğraşsam bu işi beceremiyorum sanırım komik oldu sadece orasını değiştirip çalışmasını beklemek sanırım..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 04 Mayıs 2015, 11:09   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: muaf,nick,host,kanal,addon




Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod bana aitti. Sadece o kısmı değişmek yetmez çünkü text eventı içinde $chan tanımı var. Eğer sen :#help: yerine :?: yapıp özelde çalışsın istersen $chan herhangi bir değer döndürmeyecektir. Tabi biraz uğraşman lazım istediğin şekle getirebilmen için. Özeline gelenlerle ilgili forumda paylaşılan kodlar olması gerekiyordu. Eğer bulamazsan da daha sade bir kod yazılabilir.

o günden beri uğraşıyom yapamadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
addon, host, kanal, muaf, nick


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Muaf Nick-Kanal Toprak mIRC Scripting Sorunları 34 11 Nisan 2022 05:06
Muaf Kanal/Nick Giriş Çıkış Bilgisi Kanal ve Özelde Komut Yardımı Goemon Conference Room (CR) 4 01 Şubat 2016 02:03
join #kanal ident nick muaf yardim badword mIRC Scripting Sorunları 0 15 Eylül 2012 23:03
Clone Korumasina Muaf Kanal ve Host Ekleme.. Coldman mIRC Scripting Sorunları 5 25 Ekim 2011 13:49
Muaf kanal ve host ekleme aldanis mIRC Scripting Sorunları 1 25 Eylül 2010 18:06