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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 20 Ekim 2012, 13:54   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
özel kabul




merhaba elinde özel kabul addonu olan varsa paylaşabilirmi. ama işte secenekler olucak kabul|ignore|red|koruma| reddettiğim kişiyi 10 dakkika ignore edicek. veya korumaya aldığım nicklere kabul edilmesi sormıcak ignore dediğime özelde süresiz ignore edicek gibi geniş secenekli bi özel kabul addonu.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 20 Ekim 2012, 14:10   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: özel kabul




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#ozelkabul on alias ozelkabul { set %ozelkabul.nick $1 set %ozelkabul.address $2 set %ozelkabul.msg $3- if ($dialog($1) != $null) { goto son } dialog -m $1 ozelkabul :son } dialog ozelkabul { title "Özel Konuşma İsteği" size -1 -1 164 61 option dbu edit "", 1, 40 4 120 10, read text "Nick :", 2, 4 7 27 8 text "Adres :", 3, 4 19 28 8 text "Mesaj :", 4, 4 31 28 8 edit "", 5, 40 18 121 10, read edit "", 6, 40 30 121 10, read button "Kabul ET", 7, 13 44 67 12, flat ok button "Red ET", 8, 86 44 66 12, flat cancel } on *:dialog:*:init:*:{ if (Özel Konuşma İsteği == $dialog($dname).title ) { set %ozelkabul.dialog $dname did -a $dname 1 %ozelkabul.nick did -a $dname 5 %ozelkabul.address did -a $dname 6 %ozelkabul.msg } } on *:dialog:*:sclick:*:{ if (Özel Konuşma İsteği == $dialog($dname).title ) { if ($did == 7) { .window -w $dname .msg $dname 12Özel Konuşma İsteğiniz Kabul Edilmiştir.. .set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok } if ($did == 8) { .msg $dname 12Şuanda Meşkulum Özel Konuşma İsteğiniz Kabul Edilmedi.. .ignore -pu300 $dname .closemsg $dname } } } on *:TEXT:*:?:{ if ($nick == $me) { goto son } if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) { .ozelkabul $nick $address($nick,2) $1- .msg $nick 12Güvenli Özel Programım Açık Durumda, Kabul Edersem Yazdıklarınızı Göreceğim.. Lütfen Bekleyin.. .window -h $nick } } on *:CLOSE:?:{ if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] } } #ozelkabul end menu channel,status,menubar,query { Özel Kabul Sistemi .Aç : .enable #ozelkabul | echo -a 2Ozel kabul sistemi aktif edildi. .Kapat: .disable #ozelkabul | echo -a 2Ozel kabul sistemi iptal edildi. }



Not : Sadece Özel Kabul / Red Olayı

__________________
kS.-.cMGz
 
Alıntı ile Cevapla

Alt 20 Ekim 2012, 14:28   #3
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: özel kabul




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:load:{ .echo -a 4---------------------------------------------------------- .echo -a 4,1..::0,1 Özel Kontrol Sistem'i başarı ile yüklenmiştir. .echo -a 4,1 Coded ßy 0,1 Gulsum  } on *:unload:{ .echo -a 4,1..::0,1 Özel Kontrol Sistem, başarı ile kaldırıldı.  } alias ozelsteam { dialog -m ozelsteam ozelsteam } dialog ozelsteam { title "SiyahTeaM Özel Kontrol Sistemi" size 180 220 300 123 option dbu check "Özel Sistem On/Off", 1, 8 108 60 10, flat button "Tamam", 2, 265 105 30 15, ok button "İptal", 3, 235 105 30 15, cancel Box "Özel Görüşme İsteği" 4, 5 5 290 95 tab "İstek Bilgisi" 5, 10 13 280 80 tab "Ayarlar" 6, 10 13 280 80 tab "Yardım" 7, 10 13 280 80 Box "" 8, 20 30 64 18, tab 5 Edit "Özele Gelen Nick =>" 9, 23 35 58 11, tab 5, read Box "" 10, 20 50 64 18, tab 5 Edit "Özele Yazdığı Yazı =>" 11, 23 55 58 11, tab 5, read Edit "" 12, 90 35 80 11, tab 5 autohs center Edit "" 13, 90 55 195 11, tab 5 autohs left button "Reddet" 14, 254 75 30 15, tab 5 button "İgnore Et" 15, 223 75 30 15, tab 5 button "Kabul Et" 16, 192 75 30 15, tab 5 default button "EKLE" 17, 162 75 30 15, tab 5 Text "Not : Kişiyi dost listenize, eklemek için EKLE butonuna basınız. Eklediğiniz kişi, özel sitem açık durumda iken, sistem kapalıymış gibi özelinize yazabilir. .-°J{atiL°-." 18, 15 70 148 20, tab 5 Edit "Sohbet.Net J{atiL [System Codes v1.0]" 19, 172 35 112 11, tab 5, read center Text "Not : Tamam ve İptal Butonlarını Ayarlarda değişiklik yapmadığınız sürece kullanmayınız." 20, 70 105 130 20 Edit "Karşılama Mesajı =>" 21, 16 30 58 11, tab 6, read Edit "Reddetme Mesajı =>" 22, 16 45 58 11, tab 6, read Edit "Kabul Etme Mesajı=>" 23, 16 60 58 11, tab 6, read Edit "" 24, 80 30 195 11, tab 6 autohs left %def.Kar Edit "" 25, 80 45 195 11, tab 6 autohs left %def.Red Edit "" 26, 80 60 195 11, tab 6 autohs left %def.Kabul Link "Dost Listenizi Düzenlemek için" 27, 16 80 70 13, tab 6 button "BURAYA" 28, 90 78 30 13, tab 6 Link "Tıklayınız" 29, 123 80 70 13, tab 6 Button "İlk Ayara Dön" 30, 227 78 50 13, tab 6 box "Özel Sistem Yardımı" 31, 14 27 272 63, tab 7 link "Dost Listesi :" 32, 20 38 35 13, tab 7 link "İlk Ayara Dön :" 33, 20 61 40 13, tab 7 text " Listeye Nick ekleme yapmak için, 'Istek bilgisi' bölümünden 'EKLE' butonunu ve 'Ayarlar' bölümünden düzenleme butonunu kullanabilirsiniz. Listeye Eklediğiniz kişi, Özel Sistem açık durumda dahi olsa, özelinize yazı yazabilir." 34, 59 39 220 23, tab 7 text " Ayarlar bölümündeki mesajlarda yapmış olduğunuz değişiklikleri iptal etmek için, Ayarlar bölümündeki 'İlk Ayara Dön' butonunu kullanabilirsiniz." 35, 59 62 220 18, tab 7 link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]" 36, 220 80 60 13, tab 7 link "[J{atiL]" 37, 150 80 60 13, tab 7 } #ozelim off on dostlist:open:?:*:{ .msg $nick 0,2 Özel Sistem 1,15 Nick'iniz dost listesinde olduğu için, özele yazabilirsiniz.  } on redlist:open:?:*:{ .close -m $nick | .timer 0 600 /tumunu.sil | .timer 0 660 /timerlar.off } on *:open:?:*:{ if ($nick != $me) { .close -m $nick .set %gelenNick $nick .set %gelenMesaj $1- .ozelsteam .msg $nick 0,2 $nick  $+ %def.Kar .did -a ozelsteam 13 $1- .did -a ozelsteam 12 $nick } } #ozelim end alias tumunu.sil { .flush redlist } alias timerlar.off { .timers off } alias Ozelmesajlar { .set %ilk.Kar 0,2 $nick 1,15 Özel görüşme isteğiniz değerlendiriliyor. Lütfen Bekleyiniz.  .set %ilk.Red 0,2 $nick 1,15 Özel görüşme talebiniz, Reddedilmiştir. Hoş Sohbetler.  .set %ilk.Kabul 0,2 $nick 1,15 Özel görüşme isteğiniz, KABUL edildi. Özele yazabilirsin.  } alias Def.mesajlar { set %def.Kar 1,15 Özel görüşme isteğiniz değerlendiriliyor.0,2 Lütfen Bekleyiniz.  set %def.Red 1,15 Özel görüşme talebiniz, Reddedilmiştir.0,2 Hoş Sohbetler.  set %def.Kabul 1,15 Özel görüşme isteğiniz, KABUL edildi.0,2 Özele yazabilirsin.  } on *:dialog:ozelsteam:init:*: { if ($group(#ozelim) == on) { .did -c $dname 1 .did -c $dname 1 .did -a $dname 24 %def.Kar .did -a $dname 25 %def.Red .did -a $dname 26 %def.Kabul } elseif ($group(#ozelim) == off) { .did -b $dname 12,13,14,15,16,17,24,25,26,30 .did -a $dname 24 %def.Kar .did -a $dname 25 %def.Red .did -a $dname 26 %def.Kabul } } on *:dialog:ozelsteam:sclick:*: { if ($did == 1) { if ($did(1).state == 0) { did -b $dname 12,13,14,15,16,17,24,25,26,30 | .disable #ozelim | .ignore -r } else { did -e $dname 12,13,14,15,16,17,24,25,26,30 | .enable #ozelim } } if ($did == 30) { .def.mesajlar .did -o $dname 24 1 %def.Kar .did -o $dname 25 1 %def.Red .did -o $dname 26 1 %def.Kabul } if ($did == 14) { .msg %gelenNick 0,2 %gelenNick  $+ %def.Red | .auser redlist %gelenNick | .ignore -p %gelenNick | dialog -x $dname } if ($did == 15) { .msg %gelenNick 0,2 %gelenNick  $+ %def.Red | .notice %gelenNick 4,1 İgnore Edildiniz  | .ignore -p %gelenNick | .echo -a 4,1 .:: 0,1 %gelenNick İgnore Listesine Eklendi. | dialog -x $dname } if ($did == 16) { .query %gelenNick | .msg %gelenNick 0,2 %gelenNick  $+ %def.Kabul | dialog -x $dname | .echo -a 0,2 %gelenNick 2: Geliş mesajı: 0,2 %gelenMesaj  } if ($did == 17) { .auser dostlist %gelenNick .set %dost.list $addtok(%dost.list,%gelenNick,32) | dialog -x ozelsteam | .msg %gelenNick 0,2 %gelenNick  $+ %def.Kabul | .query %gelenNick | .echo -a 0,2 %gelenNick 2: Geliş mesajı: 0,2 %gelenMesaj  .echo -a 4,1 .:: 0,1 %gelenNick Dost Listesine Eklendi. } if ($did == 2) { if ($group(#ozelim) == off) { .flush redlist } .set %def.Kar $did(24).text .set %def.Red $did(25).text .set %def.Kabul $did(26).text } if ($did == 28) { .dostlar } if ($did == 36) { .run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } if ($did == 37) { .run
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
} } alias dostlar { dialog -m dostlistim dostlistim } dialog dostlistim { title "Özel Sistem - Dost Listesi" size 450 250 120 140 option dbu box "Dost Listesi" 1, 5 5 110 130 edit "" 2, 10 18 50 12, autohs right list 3, 10 35 50 93, size button "Ekle" 4, 66 15 43 15 button "Sil" 5, 66 33 43 15 button "Listeyi Sil" 6, 66 51 43 15 button "Tamam" 7, 66 115 43 15, ok icon 8, 80 92 30 30, icon\dostlist.ico, top } on *:dialog:dostlistim:init:*: { didtok dostlistim 3 32 %dost.list } alias dostlist.tumunu.sil { .flush dostlist } on *:dialog:dostlistim:sclick:*: { if ($did = 4) { if ($did(2).text == $null) { return } | else { did -a dostlistim 3 $did(2).text | set %dost.list $didtok(dostlistim,3,32) | .auser dostlist $did(2).text | did -r dostlistim 2 } } if ($did = 5) { if ($did(3).sel == $null) { return } | else { .ruser $did(3,$did(3).sel).text | did -d dostlistim 3 $did(3).sel | set %dost.list $didtok(dostlistim,3,32) } } if ($did == 6) { dostlist.tumunu.sil | .did -r dostlistim 3 | .unset %dost.list } } menu status,query,channel,nicklist,menubar { - Ozel sistem .Aç:.enable #ozelim | echo -a 4,1 ..::0,1 Özel Sistem :4,1 Açık  .Kapa:.disable #ozelim | echo -a 4,1 ..::0,1 Özel Sistem :4,1 Kapalı  .Ayarlar:.ozelsteam | .did -f ozelsteam 6 .Yardım:.ozelsteam | .did -f ozelsteam 7 - } }

Buda Benden Kabul/Red/İgnore Secenekleri Mevcut güle güle kullan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 20 Ekim 2012, 15:14   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: özel kabul




tşkler ilginiz için ama daha kapsamlı bişiy arıyorum bitane buldum paylaşıyorum ama bazı hataları var ve bikac ekleme yapmak istiyorum.hataları şunlar acılan kutucukta ignore yazan yere tıklıyorum ignore etmiyor kişi tekrar yazıyo. ignoreye tıkladımda o kişiyi sadece özelde ignore edicek süresiz.red ettiğimde karşı tarafta görüşme talebiniz reddedildi yazısı gitmiyo ben gitmesini istiyorum bunada bi bakarmısınız bide red ettiğimde o kişiyi 10 dakka ignore etsin özelde. sonra bazı nickler geldiğinde ne kabul ne red ne ignore sadece ayarlar diye bi kutu cıkıyo niye böle oluyo anlamadım onada bakarmısınız.eklemek istediklerim ise şunlar gizlired seceneği o tuşa tıkladığımda red edicek ama kişiye reddettiğim mesajı gitmesin.yani 2 red tuşu olmuş olucak biri mesaj gidicek reddedildin die dieri hiçbişiy gitmicek haberi olmasın yani
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sonra gelen kabul red iconu cok kücük biraz daha büyütülebilinirmi.son oalrakta kişinin ilk yazdığı satırı gösteriyo iconda. kişi tekrar yazdığında bütün yazdıkları silinmiş oluyo.kabul ettiğimde önceden ne yazmış göstermiyo. ben özeli kabul etiğimde kabul edene kadar yazdıkları ben kabul edince yazdıklarda özelime gelsin . bu arada hata veriyosa şu sebepten olablirmi kullandım nick bu forumdaki . mirc scrıpt tanıtımları bölmünden Sabit Konu: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] XcLusive. burdan indirdim türkçe mirci kullanıyorum.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;[read write data/setting.ini] alias _vr { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } return $readini data\setting.ini $$1 $$2 } alias _vw { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } writeini data\setting.ini $$1 $$2 $$3- } alias _vrem { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } remini data\setting.ini $$1 $$2 } alias -l sqo { if ($_vr(querycon,switch) == on) { return [x] } else { return } } alias -l sqf { if ($_vr(querycon,switch) == off) { return [x] } else { return } } alias secure.query { if ($version < 5.91) { echo -a 4This addon will not work properly with mIRC $version $+ , please upgrade to latest mIRC
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
beep | halt } if ($dialog(querycon) == $null) { dialog -m querycon querycon } } alias secure.query.nick { if ($version < 5.91) { echo -a 4This addon will not work properly with mIRC $version $+ , please upgrade to latest mIRC
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
beep | halt } dialog -m $_vr(querycon,query.nick) querycon1 _vrem querycon lastmsg } dialog querycon1 { title "Query Kabul" size -1 -1 160 81 option dbu box "", 33, 7 14 146 42 button "Kabul", 28, 9 62 25 10, disable default ok button "ignore", 26, 36 62 25 10, disable button "Reddet", 27, 63 62 25 10, disable edit "", 1, 32 21 119 10, read autohs edit "", 30, 32 31 119 10, read autohs edit "", 29, 32 41 119 10, read autohs check "Özel Kabul Aktif", 31, 10 6 70 7 button "Ayarlar" 2, 92 63 21 8 button "Yetki Ekle", 3, 114 63 37 8, disable box "", 4, 7 57 146 18 text "Nick", 5, 9 22 10 8 text "Adres", 6, 9 32 19 8 text "Mesaj", 7, 9 42 21 8 text "", 8, 130 5 27 8, right text "", 9, 76 5 53 8, right } dialog querycon { title "Query Kabul" size -1 -1 167 119 option dbu button "Tamam", 12, 70 104 25 10, default ok tab "Düzenle", 2, 2 1 163 115 edit "", 3, 4 43 159 10, tab 2 autohs text "Bekleme Mesajı", 13, 4 35 44 7, tab 2 edit "", 4, 4 60 159 10, tab 2 autohs check "Aktif", 15, 11 83 32 10, tab 2 button "Ses Seç", 16, 45 83 37 10, tab 2 box "Query Kabul İçin Alarm", 17, 8 75 80 22, tab 2 edit "", 208, 107 79 17 9, tab 2 button "-", 206, 99 81 6 6, tab 2 text "saniye", 210, 135 80 20 7, tab 2 box "Otomatik Kapan", 209, 95 71 63 30, tab 2 button "+", 207, 126 81 6 6, tab 2 text "Red Mesajı", 14, 4 53 44 7, tab 2 check "Özel Kabul Aktif", 33, 11 20 66 10, tab 2 check "Kullanıcıya Haber Ver", 49, 92 20 66 10, tab 2 check "Oto-Kapanış Aktif", 50, 99 89 58 10, tab 2 box "", 51, 7 15 154 18, tab 2 tab "Loglar", 11 list 34, 7 20 42 50, tab 11 sort size hsbar button "Sil", 35, 7 73 29 8, tab 11 button "Kopyala", 39, 131 72 29 8, tab 11 check "Query İsteklerini Tut", 43, 7 95 58 10, tab 11 edit "", 52, 86 84 74 10, tab 11 autohs button "Yetki Ekle", 53, 48 85 37 8, tab 11 edit "", 64, 54 21 106 50, tab 11 read multi vsbar button "Hepsini Sil", 65, 7 83 29 8, tab 11 tab "Koruma", 32 radio "Geçerli Mask *!*@*", 211, 15 42 62 12, tab 32 radio "Hostu İgnore Et", 212, 15 56 62 9, tab 32 box "Query Flood İgnore Şekli", 213, 11 34 70 34, tab 32 edit "", 214, 87 54 10 10, tab 32 check "Aktif", 219, 89 42 40 10, tab 32 box "Query Flood Koruması", 216, 85 34 70 34, tab 32 edit "", 217, 125 54 15 10, tab 32 text "İstekler", 215, 99 56 24 7, tab 32 text "saniye", 218, 141 55 17 7, tab 32 tab "Yetki", 40 list 41, 11 42 146 50, tab 40 sort size hsbar button "Sil", 42, 12 96 37 8, disable tab 40 text "Yetki Listesi", 44, 12 34 29 8, tab 40 edit "", 45, 26 19 106 10, tab 40 autohs button "Ekle", 46, 134 20 29 8, disable tab 40 text "Adres", 47, 6 20 19 8, tab 40 tab "Query", 54 box "", 55, 30 23 106 70, tab 54 text "Yazar:", 56, 60 31 17 8, tab 54 text "Version", 58, 60 42 17 8, tab 54 link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
59, 56 80 59 8, tab 54 text "Hero", 60, 84 31 22 8, tab 54 text "??", 61, 84 42 14 8, tab 54 text "Kullanımı : Ozelinize Gelen Mesajları Kabul\Red etme menusu cıkartıyor karsınıza accepted kabul etmektedir , decline ise red. ", 63, 34 55 97 20, tab 54 } on *:dialog:*:init:*:{ if ($dialog(querycon) == $dname) { if ($_vr(querycon,switch) == on) { did -c querycon 33 } elseif ($_vr(querycon,switch) == $null) { _vw querycon switch on | did -c querycon 33 } if ($_vr(querycon,ignore.host) == $null) { _vw querycon ignore.host on | _vw querycon ignore.uni off } if ($_vr(querycon,decline) == $null) { _vw querycon decline Sorry, I have declined your query, please try a more convient time. } if ($_vr(querycon,ignore.uni) == on) && ($_vr(querycon,ignore.host) == off) { did -c querycon 211 1 } else did -c querycon 212 1 did -o querycon 3 1 $_vr(querycon,standby) did -o querycon 4 1 $_vr(querycon,decline) if ($_vr(querycon,soundswitch) == on) { did -c querycon 15 } if ($_vr(querycon,timer) == $null) { _vw querycon timer 240 } did -o querycon 208 1 $_vr(querycon,timer) if ($_vr(querycon,max.query) == $null) { _vw querycon max.query 5 | did -o querycon 214 1 $_vr(querycon,max.query) } else did -o querycon 214 1 $_vr(querycon,max.query) if ($_vr(querycon,max.query.sec) == $null) { _vw querycon max.query.sec 20 | did -o querycon 217 1 $_vr(querycon,max.query.sec) } else did -o querycon 217 1 $_vr(querycon,max.query.sec) if ($_vr(querycon,netflood) == on) did -c querycon 219 else did -b querycon 211,217,212,214 if ($_vr(querycon,log) == on) { did -c querycon 43 } elseif ($_vr(querycon,log) == $null) { _vw querycon log on | did -c querycon 43 } if ($_vr(querycon,notifyaccess) == on) { did -c querycon 49 } elseif ($_vr(querycon,notifyaccess) == $null) { _vw querycon notifyaccess on | did -c querycon 49 } if ($_vr(querycon,auto-close) == on) { did -c querycon 50 } did -b querycon 46,42 nick.list s.levels did -z querycon 34 } if ($dialog($dname) == $_vr(querycon,query.nick)) { if ($_vr(querycon,auto-close) == on) { %qs.nick = $_vr(querycon,query.nick) | .timer 1 $sq_t close.qw } } } on *:dialog:querycon:edit:*:{ if ($did == 3) { if ($did(querycon,3).text != $null) { _vw querycon standby $did(querycon,3).text } } if ($did == 4) { if ($did(querycon,4).text != $null) { _vw querycon decline $did(querycon,4).text } } if ($did == 45) { if ($did(querycon,45).text != $null) { did -e querycon 46 } elseif ($did(querycon,45).text == $null) { did -b querycon 46 } } if ($did == 208) { if ($did(querycon,208).text != $null) { _vw querycon timer $did(querycon,208).text } } if ($did == 214) { if ($did(querycon,214).text != $null) { _vw querycon max.query $did(querycon,214).text } } if ($did == 217) { if ($did(querycon,217).text != $null) { _vw querycon max.query.sec $did(querycon,217).text } } } on *:dialog:*:sclick:*:{ if (Query request $dname == $dialog($dname).title) { if ($did == 2) { secure.query } if ($did == 3) { auser -a securequery $address($did(1,$did(1)),3) $did(1,$did(1)) | did -b $did(1,$did(1)) 3 if ($_vr(querycon,notifyaccess) == on) { if ($server != $null) { .msg $did(1,$did(1)) [Görüsme Talebi] KuLLanıcı iLe konu$mak i¢in izin aLmaLısınız. } } } if ($did == 27) { .ignore -pu180 $did(30,$did(30)) | .msg $did(1,$did(1)) [Görüsme Talebi] $_vr(querycon,decline) | dialog -x $did(1,$did(1)) } if ($did == 28) { .ignore -r $address($did(1,$did(1)),2) | query $did(1,$did(1)) | .timer -m 1 1 echo $did(1,$did(1)) < $+ $did(1,$did(1)) $+ > $did(29,$did(29)) | _vrem querycon lastmsg if ($server != $null) { .msg $did(1,$did(1)) [Görüsme Talebi] Görüsme Talebiniz Kabul Edildi. } dialog -x $did(1,$did(1)) } if ($did == 26) { .ignore -p $address($did(1,$did(1)),3) | dialog -x $did(1,$did(1)) } if ($did == 31) { if ($_vr(querycon,switch) != on) { _vw querycon switch on } else { _vw querycon switch off } } } if ($dialog(querycon) == $dname) { if ($did == 15) { if ($_vr(querycon,soundswitch) != on) { _vw querycon soundswitch on | did -c querycon 15 } else { _vw querycon soundswitch off | did -u querycon 15 } } if ($did == 16) { setquerysound } if ($did == 206) { if (%timer > 0) { dec %timer 1 | did -o querycon 208 1 %timer | _vw querycon timer %timer } } if ($did == 207) { inc %timer 1 | did -o querycon 208 1 %timer | _vw querycon timer %timer } if ($did == 39) { clipboard < $+ $did(34,$did(34).sel) $+ > $sr($did(34,$did(34).sel),msg) } if ($did == 34) { did -r querycon 64 | did -a querycon 64 $chr(91) $+ $sr($did(34,$did(34).sel),date) $+ $chr(93) | did -a querycon 64 $crlf $sr($did(34,$did(34).sel),msg) | did -o querycon 52 1 $_vr(securequery,$did(34,$did(34).sel))) } if ($did == 33) { if ($_vr(querycon,switch) != on) { _vw querycon switch on } else { _vw querycon switch off } } if ($did == 35) { write -ds $+ $did(34,$did(34).sel) securequery\names.txt | _vrem securequery $did(34,$did(34).sel)) | .timer -m 1 1 nick.list } if ($did == 41) { did -e querycon 42,46 | did -o querycon 45 1 $did(41,$did(41).sel)) } if ($did == 42) { ruser $did(41,$did(41).sel) | s.levels } if ($did == 43) { if ($_vr(querycon,log) != on) { _vw querycon log on | did -c querycon 43 } else { _vw querycon log off } } if ($did == 50) { if ($_vr(querycon,auto-close) != on) { _vw querycon auto-close on | did -c querycon 50 } else { _vw querycon auto-close off } } if ($did == 53) { if ($did(querycon,52).text != $null) { .auser -a securequery $did(querycon,52).text | did -r querycon 52 } } if ($did == 49) { if ($_vr(querycon,notifyaccess) != on) { _vw querycon notifyaccess on | did -c querycon 49 } else { _vw querycon notifyaccess off } } if ($did == 46) { if ($did(querycon,45).text != $null) { .auser -a securequery $did(querycon,45).text | did -r querycon 45 | s.levels } } if ($did == 65) { .remove securequery\names.txt | .remove securequery\logs.ini | did -r querycon 64,34,52 } if ($did == 211) { if ($_vr(querycon,ignore.uni) == off) { _vw querycon ignore.uni on | _vw querycon ignore.host off | did -c querycon 211 | did -u querycon 212 } else { _vw querycon ignore.uni off | _vw querycon ignore.host on | did -u querycon 211 | did -c querycon 212 } } if ($did == 212) { if ($_vr(querycon,ignore.host) == off) { _vw querycon ignore.host on | _vw querycon ignore.uni off | did -c querycon 212 | did -u querycon 211 } else { _vw querycon ignore.host off | _vw querycon ignore.uni on | did -u querycon 212 | did -c querycon 211 } } if ($did == 219) { if ($_vr(querycon,netflood) == off) { _vw querycon netflood on | did -c querycon 219 | did -e querycon 211,217,212,214 } else { _vw querycon netflood off | did -u querycon 219 | did -b querycon 211,217,212,214 } } } } alias -l sr { if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini } return $readini securequery\logs.ini $$1 $$2 } alias -l sw { if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini } writeini securequery\logs.ini $$1 $$2 $$3- } alias -l srem { if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini } remini securequery\logs.ini $$1 $$2 } on ^*:open:?: { if ($_vr(querycon,switch) == $null) { _vw querycon switch on } if ($finddir($mircdir\,securequery*,1) == $null) { mkdir securequery } if ($_vr(querycon,netflood) != on) { inc %upflood15 1 if (%upflood15 > $_vr(querycon,max.query)) { if ($_vr(querycon,ignore.uni) == on) { .ignore -pu $+ $_vr(querycon,max.query.sec) *!*@* } else { .ignore -pu $+ $_vr(querycon,max.query.sec) $wildsite } echo -a 4[ UYARI ] $nick is Query Flood. User ( $+ $wildsite $+ ) now ignored for $_vr(querycon,max.query.sec) secs. } .timer 1 60 unset %upflood15 } if ($_vr(querycon,standby) == $null) { _vw querycon standby görüsme isteginiz suanda degerlendiriliyor .. } if ($level($address($nick,3)) == securequery) { goto end } if ($network == TRSohbet) && ($nick == Global) { goto end } if ($network == TRSohbet) && ($nick == Nickserv) { goto end } if ($network == TRSohbet) && ($nick == Chanserv) { goto end } if ($network == TRSohbet) && ($nick == Memoserv) { goto end } if ($_vr(querycon,switch) == on) { if ($_vr(querycon,soundswitch) == on) { if ($_vr(querycon,sound) != $null) { splay $_vr(querycon,sound) } } echo -a  $+ $colour(notice) $+ %logo 14Özel Görüşme Talebi.. echo -a  $+ $colour(notice) $+ %logo 14DeğerLendirmek için bekLeniyor.. if ($_vr(querycon,log) == on) { if ($read(securequery\names.txt, w, $nick) == $nick) { write -ds $+ $nick securequery\names.txt } sw $nick date $asctime(h:nn:sstt m/d) | sw $nick msg $strip($1-,burc) | write securequery/names.txt $nick | _vw securequery $nick $wildsite | nick.list } .msg $nick [Görüsme Talebi] $_vr(querycon,standby) _vw querycon query.nick $nick if ($dialog($nick) == $null) { secure.query.nick } dialog -t $_vr(querycon,query.nick) Query request $nick did -o $nick 1 1 $_vr(querycon,query.nick) .ignore -pu120 $wildsite whosqial $nick did -o $nick 9 1 ( $+ $network $+ ) did -o $nick 30 1 updating... did -o $nick 29 1 $strip($1-,burc) did -o $nick 8 1 $asctime(hh:nntt) if ($_vr(querycon,switch) == on) { did -c $nick 31 } haltdef :end } } #sqialud off raw 352:*: { if ($dialog($6) != $null) { did -o $6 30 1 *!* $+ $3 $+ @ $+ $4 | did -e $6 26,28,3,27 | .timer 1 5 .disable #sqialud | haltdef } else { if ($dialog($6) != $null) { did -e $6 26,28,3,27 | .timer 1 5 .disable #sqialud | halt } } halt } raw 315:*: { halt } #sqialud end alias -l whosqial { .enable #sqialud | .who $$1 } alias -l secure.dir { mkdir " $+ $mircdirsecurequery $+ \ $+ " return securequery $+ \ } alias -l sq_t { return $_vr(querycon,timer) } alias -l nick.list { if ($dialog(querycon) != $null) { did -r querycon 64,34,52 var %fst = $lines(securequery\names.txt) var %f = 1 while (%f <= %fst) { did -a querycon 34 $read(securequery\names.txt,%f) | inc %f 1 } } } alias -l s.levels { did -r querycon 41 var %s.l = $ulist(*,securequery,0) if (%s.l == 0) { did -b querycon 42 | return } else did -e querycon 42 var %s.w = 0 :loop inc %s.w if (%s.w <= %s.l) { did -a querycon 41 $ulist(*,securequery,%s.w) | goto loop } else return } alias -l close.qw { if ($dialog(%qs.nick) != $null) dialog -x %qs.nick } alias -l setquerysound { _vw querycon sound $$dir="Choose a wav:" $mircdir*.wav;*mp3;*.mid }


 
Alıntı ile Cevapla

Alt 20 Ekim 2012, 16:54   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: özel kabul




Mynet Sohbet Script V3.0'dan teğmin edebilirsiniz oldukca gelişmişi mevcut.

 
Alıntı ile Cevapla

Alt 20 Ekim 2012, 17:05   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: özel kabul




türkçe mirc6.35 memnunum yukarda belirtim konuyla ilgili yardımlarınızı bekliyorum

 
Alıntı ile Cevapla

Alt 22 Ocak 2013, 00:50   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: özel kabul




Gulsum Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
tşkler ilginiz için ama daha kapsamlı bişiy arıyorum bitane buldum paylaşıyorum ama bazı hataları var ve bikac ekleme yapmak istiyorum.hataları şunlar acılan kutucukta ignore yazan yere tıklıyorum ignore etmiyor kişi tekrar yazıyo. ignoreye tıkladımda o kişiyi sadece özelde ignore edicek süresiz.red ettiğimde karşı tarafta görüşme talebiniz reddedildi yazısı gitmiyo ben gitmesini istiyorum bunada bi bakarmısınız bide red ettiğimde o kişiyi 10 dakka ignore etsin özelde. sonra bazı nickler geldiğinde ne kabul ne red ne ignore sadece ayarlar diye bi kutu cıkıyo niye böle oluyo anlamadım onada bakarmısınız.eklemek istediklerim ise şunlar gizlired seceneği o tuşa tıkladığımda red edicek ama kişiye reddettiğim mesajı gitmesin.yani 2 red tuşu olmuş olucak biri mesaj gidicek reddedildin die dieri hiçbişiy gitmicek haberi olmasın yani
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sonra gelen kabul red iconu cok kücük biraz daha büyütülebilinirmi.son oalrakta kişinin ilk yazdığı satırı gösteriyo iconda. kişi tekrar yazdığında bütün yazdıkları silinmiş oluyo.kabul ettiğimde önceden ne yazmış göstermiyo. ben özeli kabul etiğimde kabul edene kadar yazdıkları ben kabul edince yazdıklarda özelime gelsin . bu arada hata veriyosa şu sebepten olablirmi kullandım nick bu forumdaki . mirc scrıpt tanıtımları bölmünden Sabit Konu: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] XcLusive. burdan indirdim türkçe mirci kullanıyorum.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;[read write data/setting.ini] alias _vr { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } return $readini data\setting.ini $$1 $$2 } alias _vw { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } writeini data\setting.ini $$1 $$2 $$3- } alias _vrem { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } remini data\setting.ini $$1 $$2 } alias -l sqo { if ($_vr(querycon,switch) == on) { return [x] } else { return } } alias -l sqf { if ($_vr(querycon,switch) == off) { return [x] } else { return } } alias secure.query { if ($version < 5.91) { echo -a 4This addon will not work properly with mIRC $version $+ , please upgrade to latest mIRC
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
beep | halt } if ($dialog(querycon) == $null) { dialog -m querycon querycon } } alias secure.query.nick { if ($version < 5.91) { echo -a 4This addon will not work properly with mIRC $version $+ , please upgrade to latest mIRC
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
beep | halt } dialog -m $_vr(querycon,query.nick) querycon1 _vrem querycon lastmsg } dialog querycon1 { title "Query Kabul" size -1 -1 160 81 option dbu box "", 33, 7 14 146 42 button "Kabul", 28, 9 62 25 10, disable default ok button "ignore", 26, 36 62 25 10, disable button "Reddet", 27, 63 62 25 10, disable edit "", 1, 32 21 119 10, read autohs edit "", 30, 32 31 119 10, read autohs edit "", 29, 32 41 119 10, read autohs check "Özel Kabul Aktif", 31, 10 6 70 7 button "Ayarlar" 2, 92 63 21 8 button "Yetki Ekle", 3, 114 63 37 8, disable box "", 4, 7 57 146 18 text "Nick", 5, 9 22 10 8 text "Adres", 6, 9 32 19 8 text "Mesaj", 7, 9 42 21 8 text "", 8, 130 5 27 8, right text "", 9, 76 5 53 8, right } dialog querycon { title "Query Kabul" size -1 -1 167 119 option dbu button "Tamam", 12, 70 104 25 10, default ok tab "Düzenle", 2, 2 1 163 115 edit "", 3, 4 43 159 10, tab 2 autohs text "Bekleme Mesajı", 13, 4 35 44 7, tab 2 edit "", 4, 4 60 159 10, tab 2 autohs check "Aktif", 15, 11 83 32 10, tab 2 button "Ses Seç", 16, 45 83 37 10, tab 2 box "Query Kabul İçin Alarm", 17, 8 75 80 22, tab 2 edit "", 208, 107 79 17 9, tab 2 button "-", 206, 99 81 6 6, tab 2 text "saniye", 210, 135 80 20 7, tab 2 box "Otomatik Kapan", 209, 95 71 63 30, tab 2 button "+", 207, 126 81 6 6, tab 2 text "Red Mesajı", 14, 4 53 44 7, tab 2 check "Özel Kabul Aktif", 33, 11 20 66 10, tab 2 check "Kullanıcıya Haber Ver", 49, 92 20 66 10, tab 2 check "Oto-Kapanış Aktif", 50, 99 89 58 10, tab 2 box "", 51, 7 15 154 18, tab 2 tab "Loglar", 11 list 34, 7 20 42 50, tab 11 sort size hsbar button "Sil", 35, 7 73 29 8, tab 11 button "Kopyala", 39, 131 72 29 8, tab 11 check "Query İsteklerini Tut", 43, 7 95 58 10, tab 11 edit "", 52, 86 84 74 10, tab 11 autohs button "Yetki Ekle", 53, 48 85 37 8, tab 11 edit "", 64, 54 21 106 50, tab 11 read multi vsbar button "Hepsini Sil", 65, 7 83 29 8, tab 11 tab "Koruma", 32 radio "Geçerli Mask *!*@*", 211, 15 42 62 12, tab 32 radio "Hostu İgnore Et", 212, 15 56 62 9, tab 32 box "Query Flood İgnore Şekli", 213, 11 34 70 34, tab 32 edit "", 214, 87 54 10 10, tab 32 check "Aktif", 219, 89 42 40 10, tab 32 box "Query Flood Koruması", 216, 85 34 70 34, tab 32 edit "", 217, 125 54 15 10, tab 32 text "İstekler", 215, 99 56 24 7, tab 32 text "saniye", 218, 141 55 17 7, tab 32 tab "Yetki", 40 list 41, 11 42 146 50, tab 40 sort size hsbar button "Sil", 42, 12 96 37 8, disable tab 40 text "Yetki Listesi", 44, 12 34 29 8, tab 40 edit "", 45, 26 19 106 10, tab 40 autohs button "Ekle", 46, 134 20 29 8, disable tab 40 text "Adres", 47, 6 20 19 8, tab 40 tab "Query", 54 box "", 55, 30 23 106 70, tab 54 text "Yazar:", 56, 60 31 17 8, tab 54 text "Version", 58, 60 42 17 8, tab 54 link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
59, 56 80 59 8, tab 54 text "Hero", 60, 84 31 22 8, tab 54 text "??", 61, 84 42 14 8, tab 54 text "Kullanımı : Ozelinize Gelen Mesajları Kabul\Red etme menusu cıkartıyor karsınıza accepted kabul etmektedir , decline ise red. ", 63, 34 55 97 20, tab 54 } on *:dialog:*:init:*:{ if ($dialog(querycon) == $dname) { if ($_vr(querycon,switch) == on) { did -c querycon 33 } elseif ($_vr(querycon,switch) == $null) { _vw querycon switch on | did -c querycon 33 } if ($_vr(querycon,ignore.host) == $null) { _vw querycon ignore.host on | _vw querycon ignore.uni off } if ($_vr(querycon,decline) == $null) { _vw querycon decline Sorry, I have declined your query, please try a more convient time. } if ($_vr(querycon,ignore.uni) == on) && ($_vr(querycon,ignore.host) == off) { did -c querycon 211 1 } else did -c querycon 212 1 did -o querycon 3 1 $_vr(querycon,standby) did -o querycon 4 1 $_vr(querycon,decline) if ($_vr(querycon,soundswitch) == on) { did -c querycon 15 } if ($_vr(querycon,timer) == $null) { _vw querycon timer 240 } did -o querycon 208 1 $_vr(querycon,timer) if ($_vr(querycon,max.query) == $null) { _vw querycon max.query 5 | did -o querycon 214 1 $_vr(querycon,max.query) } else did -o querycon 214 1 $_vr(querycon,max.query) if ($_vr(querycon,max.query.sec) == $null) { _vw querycon max.query.sec 20 | did -o querycon 217 1 $_vr(querycon,max.query.sec) } else did -o querycon 217 1 $_vr(querycon,max.query.sec) if ($_vr(querycon,netflood) == on) did -c querycon 219 else did -b querycon 211,217,212,214 if ($_vr(querycon,log) == on) { did -c querycon 43 } elseif ($_vr(querycon,log) == $null) { _vw querycon log on | did -c querycon 43 } if ($_vr(querycon,notifyaccess) == on) { did -c querycon 49 } elseif ($_vr(querycon,notifyaccess) == $null) { _vw querycon notifyaccess on | did -c querycon 49 } if ($_vr(querycon,auto-close) == on) { did -c querycon 50 } did -b querycon 46,42 nick.list s.levels did -z querycon 34 } if ($dialog($dname) == $_vr(querycon,query.nick)) { if ($_vr(querycon,auto-close) == on) { %qs.nick = $_vr(querycon,query.nick) | .timer 1 $sq_t close.qw } } } on *:dialog:querycon:edit:*:{ if ($did == 3) { if ($did(querycon,3).text != $null) { _vw querycon standby $did(querycon,3).text } } if ($did == 4) { if ($did(querycon,4).text != $null) { _vw querycon decline $did(querycon,4).text } } if ($did == 45) { if ($did(querycon,45).text != $null) { did -e querycon 46 } elseif ($did(querycon,45).text == $null) { did -b querycon 46 } } if ($did == 208) { if ($did(querycon,208).text != $null) { _vw querycon timer $did(querycon,208).text } } if ($did == 214) { if ($did(querycon,214).text != $null) { _vw querycon max.query $did(querycon,214).text } } if ($did == 217) { if ($did(querycon,217).text != $null) { _vw querycon max.query.sec $did(querycon,217).text } } } on *:dialog:*:sclick:*:{ if (Query request $dname == $dialog($dname).title) { if ($did == 2) { secure.query } if ($did == 3) { auser -a securequery $address($did(1,$did(1)),3) $did(1,$did(1)) | did -b $did(1,$did(1)) 3 if ($_vr(querycon,notifyaccess) == on) { if ($server != $null) { .msg $did(1,$did(1)) [Görüsme Talebi] KuLLanıcı iLe konu$mak i¢in izin aLmaLısınız. } } } if ($did == 27) { .ignore -pu180 $did(30,$did(30)) | .msg $did(1,$did(1)) [Görüsme Talebi] $_vr(querycon,decline) | dialog -x $did(1,$did(1)) } if ($did == 28) { .ignore -r $address($did(1,$did(1)),2) | query $did(1,$did(1)) | .timer -m 1 1 echo $did(1,$did(1)) < $+ $did(1,$did(1)) $+ > $did(29,$did(29)) | _vrem querycon lastmsg if ($server != $null) { .msg $did(1,$did(1)) [Görüsme Talebi] Görüsme Talebiniz Kabul Edildi. } dialog -x $did(1,$did(1)) } if ($did == 26) { .ignore -p $address($did(1,$did(1)),3) | dialog -x $did(1,$did(1)) } if ($did == 31) { if ($_vr(querycon,switch) != on) { _vw querycon switch on } else { _vw querycon switch off } } } if ($dialog(querycon) == $dname) { if ($did == 15) { if ($_vr(querycon,soundswitch) != on) { _vw querycon soundswitch on | did -c querycon 15 } else { _vw querycon soundswitch off | did -u querycon 15 } } if ($did == 16) { setquerysound } if ($did == 206) { if (%timer > 0) { dec %timer 1 | did -o querycon 208 1 %timer | _vw querycon timer %timer } } if ($did == 207) { inc %timer 1 | did -o querycon 208 1 %timer | _vw querycon timer %timer } if ($did == 39) { clipboard < $+ $did(34,$did(34).sel) $+ > $sr($did(34,$did(34).sel),msg) } if ($did == 34) { did -r querycon 64 | did -a querycon 64 $chr(91) $+ $sr($did(34,$did(34).sel),date) $+ $chr(93) | did -a querycon 64 $crlf $sr($did(34,$did(34).sel),msg) | did -o querycon 52 1 $_vr(securequery,$did(34,$did(34).sel))) } if ($did == 33) { if ($_vr(querycon,switch) != on) { _vw querycon switch on } else { _vw querycon switch off } } if ($did == 35) { write -ds $+ $did(34,$did(34).sel) securequery\names.txt | _vrem securequery $did(34,$did(34).sel)) | .timer -m 1 1 nick.list } if ($did == 41) { did -e querycon 42,46 | did -o querycon 45 1 $did(41,$did(41).sel)) } if ($did == 42) { ruser $did(41,$did(41).sel) | s.levels } if ($did == 43) { if ($_vr(querycon,log) != on) { _vw querycon log on | did -c querycon 43 } else { _vw querycon log off } } if ($did == 50) { if ($_vr(querycon,auto-close) != on) { _vw querycon auto-close on | did -c querycon 50 } else { _vw querycon auto-close off } } if ($did == 53) { if ($did(querycon,52).text != $null) { .auser -a securequery $did(querycon,52).text | did -r querycon 52 } } if ($did == 49) { if ($_vr(querycon,notifyaccess) != on) { _vw querycon notifyaccess on | did -c querycon 49 } else { _vw querycon notifyaccess off } } if ($did == 46) { if ($did(querycon,45).text != $null) { .auser -a securequery $did(querycon,45).text | did -r querycon 45 | s.levels } } if ($did == 65) { .remove securequery\names.txt | .remove securequery\logs.ini | did -r querycon 64,34,52 } if ($did == 211) { if ($_vr(querycon,ignore.uni) == off) { _vw querycon ignore.uni on | _vw querycon ignore.host off | did -c querycon 211 | did -u querycon 212 } else { _vw querycon ignore.uni off | _vw querycon ignore.host on | did -u querycon 211 | did -c querycon 212 } } if ($did == 212) { if ($_vr(querycon,ignore.host) == off) { _vw querycon ignore.host on | _vw querycon ignore.uni off | did -c querycon 212 | did -u querycon 211 } else { _vw querycon ignore.host off | _vw querycon ignore.uni on | did -u querycon 212 | did -c querycon 211 } } if ($did == 219) { if ($_vr(querycon,netflood) == off) { _vw querycon netflood on | did -c querycon 219 | did -e querycon 211,217,212,214 } else { _vw querycon netflood off | did -u querycon 219 | did -b querycon 211,217,212,214 } } } } alias -l sr { if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini } return $readini securequery\logs.ini $$1 $$2 } alias -l sw { if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini } writeini securequery\logs.ini $$1 $$2 $$3- } alias -l srem { if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini } remini securequery\logs.ini $$1 $$2 } on ^*:open:?: { if ($_vr(querycon,switch) == $null) { _vw querycon switch on } if ($finddir($mircdir\,securequery*,1) == $null) { mkdir securequery } if ($_vr(querycon,netflood) != on) { inc %upflood15 1 if (%upflood15 > $_vr(querycon,max.query)) { if ($_vr(querycon,ignore.uni) == on) { .ignore -pu $+ $_vr(querycon,max.query.sec) *!*@* } else { .ignore -pu $+ $_vr(querycon,max.query.sec) $wildsite } echo -a 4[ UYARI ] $nick is Query Flood. User ( $+ $wildsite $+ ) now ignored for $_vr(querycon,max.query.sec) secs. } .timer 1 60 unset %upflood15 } if ($_vr(querycon,standby) == $null) { _vw querycon standby görüsme isteginiz suanda degerlendiriliyor .. } if ($level($address($nick,3)) == securequery) { goto end } if ($network == TRSohbet) && ($nick == Global) { goto end } if ($network == TRSohbet) && ($nick == Nickserv) { goto end } if ($network == TRSohbet) && ($nick == Chanserv) { goto end } if ($network == TRSohbet) && ($nick == Memoserv) { goto end } if ($_vr(querycon,switch) == on) { if ($_vr(querycon,soundswitch) == on) { if ($_vr(querycon,sound) != $null) { splay $_vr(querycon,sound) } } echo -a  $+ $colour(notice) $+ %logo 14Özel Görüşme Talebi.. echo -a  $+ $colour(notice) $+ %logo 14DeğerLendirmek için bekLeniyor.. if ($_vr(querycon,log) == on) { if ($read(securequery\names.txt, w, $nick) == $nick) { write -ds $+ $nick securequery\names.txt } sw $nick date $asctime(h:nn:sstt m/d) | sw $nick msg $strip($1-,burc) | write securequery/names.txt $nick | _vw securequery $nick $wildsite | nick.list } .msg $nick [Görüsme Talebi] $_vr(querycon,standby) _vw querycon query.nick $nick if ($dialog($nick) == $null) { secure.query.nick } dialog -t $_vr(querycon,query.nick) Query request $nick did -o $nick 1 1 $_vr(querycon,query.nick) .ignore -pu120 $wildsite whosqial $nick did -o $nick 9 1 ( $+ $network $+ ) did -o $nick 30 1 updating... did -o $nick 29 1 $strip($1-,burc) did -o $nick 8 1 $asctime(hh:nntt) if ($_vr(querycon,switch) == on) { did -c $nick 31 } haltdef :end } } #sqialud off raw 352:*: { if ($dialog($6) != $null) { did -o $6 30 1 *!* $+ $3 $+ @ $+ $4 | did -e $6 26,28,3,27 | .timer 1 5 .disable #sqialud | haltdef } else { if ($dialog($6) != $null) { did -e $6 26,28,3,27 | .timer 1 5 .disable #sqialud | halt } } halt } raw 315:*: { halt } #sqialud end alias -l whosqial { .enable #sqialud | .who $$1 } alias -l secure.dir { mkdir " $+ $mircdirsecurequery $+ \ $+ " return securequery $+ \ } alias -l sq_t { return $_vr(querycon,timer) } alias -l nick.list { if ($dialog(querycon) != $null) { did -r querycon 64,34,52 var %fst = $lines(securequery\names.txt) var %f = 1 while (%f <= %fst) { did -a querycon 34 $read(securequery\names.txt,%f) | inc %f 1 } } } alias -l s.levels { did -r querycon 41 var %s.l = $ulist(*,securequery,0) if (%s.l == 0) { did -b querycon 42 | return } else did -e querycon 42 var %s.w = 0 :loop inc %s.w if (%s.w <= %s.l) { did -a querycon 41 $ulist(*,securequery,%s.w) | goto loop } else return } alias -l close.qw { if ($dialog(%qs.nick) != $null) dialog -x %qs.nick } alias -l setquerysound { _vw querycon sound $$dir="Choose a wav:" $mircdir*.wav;*mp3;*.mid }



*******************************************


Selamun Aleykum Arkadaşlar.. Bu Menüyü detaylı olarak $rgb(99,184,255)
kodu ile nasıl renklendirebiliriz.. Teşekkür ederim kolay gelsin..

 
Alıntı ile Cevapla

Alt 22 Ocak 2013, 00:58   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: özel kabul




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] içerisinde örnek kodlar vs. mevcut.

 
Alıntı ile Cevapla

Cevapla

Etiketler
özel


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
Query Blocker (Özel Kabul) Add-on'u XcLusive mIRC Scripting Hazır Kodlar 40 16 Haziran 2012 04:03
Başbakan Özel'i kabul etti N999 Haber Arşivi 0 03 Nisan 2012 20:22
Scriptime özel kabul addonu koyabilirmiyim ? maxiumut mIRC Scripting Hazır Kodlar 1 04 Kasım 2009 21:16
özel kabul GemLik mIRC Scripting Sorunları 12 02 Aralık 2008 01:40
Özel kabul sistemi sorun. Cyptm mIRC Scripting Sorunları 5 23 Şubat 2008 23:14