Çevrimdışı

Arkadaşlar Merhaba. Mirc Scriptimin ÖzeL Kabul Penceresi Mevcut Lakin, Pc de Çalıştığım ve Sürekli Yanımda ßirileri Olduğu için, Mirc'i GeneLde Sağ Tray de Saklı Olarak Açık Tutuyorum. Mirci Gizliyorum Ancak, Birisi ÖzeLe Yazdığı Anda, ÖzeL Kabul Penceresi Taak Diye Önüme Çıkıyor. ÖzeL Kabul Penceresinin, Mirc Ana Ekranda Açtığımda açılmasını, Simge Durumundayken iSe Hiçbir şekilde önüme gelmesini istemiyorum. BununLa iLqiLi Ne Yapabilirim.

__________________
En Büyük Devrim, Sevgidir.. Ve Ben Bunu Mustafa KemaLden Öğrendim..(Che Guevara)

 

Çevrimdışı

if $regex($appstate,/(minimized|hidden|tray)/i) { halt }

on query eventine; özel kabul dialog'un açılacağı kısıma üstteki gibi bir kod ekleyebilirsin, mirc aktif değilse dialog açılmayacaktır.
Kodu nasıl ekleyeceğini bilmiyorsan burada paylaşırsan yardımcı oluruz.

 

Çevrimdışı

XcLusive Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

if $regex($appstate,/(minimized|hidden|tray)) { halt } on query eventine; özel kabul dialog'un açılacağı kısıma üstteki gibi bir kod ekleyebilirsin, mirc aktif değilse dialog açılmayacaktır. Kodu nasıl ekleyeceğini bilmiyorsan burada paylaşırsan yardımcı oluruz.

Bulamadım Açıkcası. ÖzeLden Team Versem Yardımcı oLabilirmisiniz ?

__________________
En Büyük Devrim, Sevgidir.. Ve Ben Bunu Mustafa KemaLden Öğrendim..(Che Guevara)

 

Çevrimdışı

n0=;Kodlar XcLuve'ye Aittir.
n1=
n2=alias qblock {
n3= if (!$dialog(qblock)) { dialog -m qblock qblock }
n4= else { dialog -v qblock }
n5=}
n6=dialog qblock {
n7= title "KelebekTC Script Özel Kapatma Sistemi"
n8= size -1 -1 175 155
n9= option dbu
n10= box "Özel Kapatma: Kişi Bilgilendirme Ayarları", 1, 5 5 165 81
n11= text "Bekletme Mesajı:", 3, 11 16 152 8
n12= edit "", 4, 10 25 153 10, autohs
n13= text "Kabul Mesajı:", 2, 11 39 157 8
n14= edit "", 5, 10 48 153 10, autohs
n15= text "Red Mesajı:", 6, 11 62 152 8
n16= edit "", 7, 10 71 153 10, autohs
n17= box "Özel Kapatma Ayarları", 8, 5 88 165 45
n18= check "", 9, 10 99 8 10
n19= text "Sistemi Çalıştır", 10, 18 100 77 8
n20= radio "", 11, 10 109 8 10
n21= text "Uyarıyı Pencere Şeklinde Göster", 12, 18 110 115 8
n22= radio "", 13, 10 119 8 10
n23= text "Uyarıyı Yazı Olarak Göster", 14, 18 120 115 8
n24= button "Kapat", 15, 5 137 40 13, cancel
n25= button "Kaydet", 16, 129 137 40 13
n26= button "Engelle", 17, 46 137 40 13
n27= button "VIP", 18, 87 137 40 13,
n28=}
n29=
n30=on *:load:{
n31= writeini $shortfn($scriptdir\qblock.ini) wmsg Lütfen Bekleyiniz Özel Görüşme İsteğiniz Değerlendiriliyor...
n32= writeini $shortfn($scriptdir\qblock.ini) amsg Özel Görüşme İsteğiniz Kabul Edildi...
n33= writeini $shortfn($scriptdir\qblock.ini) rmsg Özel Görüşme İsteğiniz Red Edildi...
n34= set %qblock on | set %qdialog yes | set %qblst.vip RomantiC | qblock
n35=}
n36=alias mdx { return $shortfn($scriptdirmdx.dll) }
n37=alias views { return $shortfn($scriptdirviews.mdx) }
n38=alias x3 return $readini($scriptdirqblock.ini,$1,$2)
n39=alias x writeini $shortfn($scriptdirqblock.ini) $1-
n40=alias idset {
n41= dll $mdx SetMircVersion $version
n42= dll $mdx MarkDialog $dname
n43= dll $mdx SetDialog $dname bgcolor 13816530
n44= var %idset2 = $1
n45= set %idset 0
n46= :idset
n47= inc %idset 1
n48= dll $mdx SetColor $dname %idset textbg 13816530
n49= dll $mdx SetColor $dname %idset background 13816530
n50= dll $mdx SetColor $dname %idset text $txtcolor
n51= dll $mdx SetFont $dname %idset 13 800 Verdana
n52= if %idset < %idset2 goto idset
n53=}
n54=alias err0r { $iif($input($2,owdia,$1),halt,halt) }
n55=on 1:dialog:qblock:*:*:{
n56= if $devent == init {
n57= idset 18
n58= did -a $dname 4 $x3(qblock,wmsg)
n59= did -a $dname 5 $x3(qblock,amsg)
n60= did -a $dname 7 $x3(qblock,rmsg)
n61= dll $mdx SetColor $dname 2,3,6 text 255
n62= if %qblock == on did -c $dname 9
n63= if %qdialog == yes did -c $dname 11
n64= else { did -c $dname 13 }
n65= }
n66= if $devent == sclick {
n67= if $did == 16 { if $did(9).state == 0 { set %qblock off }
n68= else { set %qblock on }
n69= $x(qblock,wmsg,$did(4).text)
n70= $x(qblock,amsg,$did(5).text)
n71= $x(qblock,rmsg,$did(7).text)
n72= $err0r(Bilgi,Özel Kapatma Ayarları Kaydedildi)
n73= }
n74= if $did == 11 { set %qdialog yes | halt }
n75= if $did == 13 { set %qdialog no | halt }
n76= if $did == 17 { qblock2 }
n77= if $did == 18 { qblock3 }
n78= }
n79=}
n80=alias qblock2 {
n81= if (!$dialog(qblock2)) { dialog -m qblock2 qblock2 }
n82= else { dialog -v qblock2 | qblload }
n83=}
n84=dialog qblock2 {
n85= title "Özel Kapatma [Ayarları]"
n86= size -1 -1 243 108
n87= option dbu
n88= box "Bloke Edilenlerin Listesi", 2, 5 5 178 98
n89= list 1, 10 15 168 83, sort size
n90= button "Kabul Et", 3, 186 8 55 10
n91= button "Reddet", 4, 186 22 55 10
n92= button "Engelle", 5, 186 36 55 10
n93= button "VIP'e Ekle", 6, 186 50 55 10
n94= button "VIP Listesi", 7, 186 64 55 10
n95= button "Ayarlar", 8, 186 78 55 10
n96= button "Kapat", 9, 186 92 55 10, cancel
n97=}
n98=
n99=on 1:dialog:qblock2:*:*:{
n100= if $devent == init {
n101= idset 19
n102= dll $mdx SetControlMDX $dname 1 ListView grid headerdrag report rowselect showsel nosortheader single > $views
n103= did -i $dname 1 1 headerdims 100 80 200
n104= did -i $dname 1 1 headertext Nick $chr(9) Zaman $chr(9) Mesaj
n105= qblload
n106= }
n107= if $devent == sclick {
n108= if $did == 1 { set %qblid $calc($did(1).sel - 1) }
n109= if $did == 3 { qblkabul }
n110= if $did == 4 { qblred }
n111= if $did == 5 { qblengel }
n112= if $did == 6 { qblvipadd }
n113= if $did == 7 { qblock3 }
n114= if $did == 8 { qblock }
n115= }
n116=}
n117=alias qblkabul {
n118= var %query = $gettok($read($qbl,%qblid),1,149)
n119= window -aw %query
n120= write -dl $+ %qblid $qbl
n121= .msg %query $x3(qblock,amsg)
n122= did -r qblock2 1
n123= qblload
n124=}
n125=
n126=alias qblred {
n127= var %query = $gettok($read($qbl,%qblid),1,149)
n128= closemsg %query
n129= write -dl $+ %qblid $qbl
n130= .msg %query $x3(qblock,rmsg)
n131= did -r qblock2 1
n132= qblload
n133=}
n134=alias qblengel {
n135= var %query = $gettok($read($qbl,%qblid),1,149)
n136= closemsg %query
n137= write -dl $+ %qblid $qbl
n138= .ignore -p %query
n139= .notice %query Ozel Görüşme İsteğiniz Red Edildi (Ignore Edildiniz)
n140= did -r qblock2 1
n141= qblload
n142= $iif($input(%query Nickli Kişi Ignore Edildi,io,Bilgi),return)
n143=}
n144=alias qblvipadd {
n145= var %query = $gettok($read($qbl,%qblid),1,149)
n146= set %qblst.vip $addtok(%qblst.vip,%query,46)
n147= $err0r(Bilgi,%query VIP Listesine Eklendi)
n148=}
n149=alias qbl { return $shortfn($scriptdir\qb.txt) }
n150=alias qkabul {
n151= var %qbl = $lines($qbl)
n152= var %a 1
n153= while (%a <= %qbl) {
n154= if (%query.last == $gettok($read($qbl,%a),1,149)) {
n155= write -dl $+ %a $qbl
n156= window -wa %query.last
n157= .msg %query.last $x3(qblock,amsg)
n158= echo $color(info) -ta QBL: %query.last Özel Görüşme İsteği Kabul Edildi
n159= }
n160= inc %a 1
n161= }
n162=}
n163=alias qred {
n164= var %qbl = $lines($qbl)
n165= var %a 1
n166= while (%a <= %qbl) {
n167= if (%query.last == $gettok($read($qbl,%a),1,149)) {
n168= write -dl $+ %a $qbl
n169= closemsg %query.last
n170= .msg %query.last $x3(qblock,rmsg)
n171= echo $color(info) -ta QBL: %query.last Özel Görüşme İsteği Red Edildi
n172= }
n173= inc %a 1
n174= }
n175=}
n176=alias qblload {
n177= var %qbl = $lines($qbl)
n178= var %a 1
n179= did -r qblock2 1
n180= while (%a <= %qbl) {
n181= did -a qblock2 1 $gettok($read($qbl,%a),1,149) $chr(9) $gettok($read($qbl,%a),2,149) $chr(9) $gettok($read($qbl,%a),3,149)
n182= inc %a 1
n183= }
n184=}
n185=
n186=alias qblcheck {
n187= var %x = $lines($qbl)
n188= var %y 1
n189= while (%y <= %x) {
n190= if ($1 == $gettok($read($qbl,%y),1,149)) { halt }
n191= inc %y 1
n192= }
n193=}
n194=alias qblock3 dialog -m qblock3 qblock3
n195=dialog qblock3 {
n196= title "KelebekTC Script VIP Listeniz"
n197= size -1 -1 142 108
n198= option dbu
n199= box "VIP Listesi", 2, 5 5 87 98
n200= list 1, 10 15 77 83, sort size
n201= button "Ekle", 3, 96 25 40 15
n202= button "Sil", 4, 96 45 40 15
n203= button "Kapat", 5, 96 65 40 15,cancel
n204=}
n205=on 1:dialog:qblock3:*:*:{
n206= if $devent == init {
n207= idset 5
n208= didtok $dname 1 46 %qblst.vip
n209= }
n210= if $devent == sclick {
n211= var %n $did(1).seltext
n212= if $did == 3 {
n213= var %t = $input(VIP Listesine Eklemek Istediğiniz Nick'i Girin,qoe,Nick Girin)
n214= if %t { set %qblst.vip $addtok(%qblst.vip,%t,46) | did -r $dname 1 | didtok $dname 1 46 %qblst.vip }
n215= }
n216= if $did == 4 {
n217= if %n { set %qblst.vip $remtok(%qblst.vip,%n,46) | did -r $dname 1 | didtok $dname 1 46 %qblst.vip }
n218= }
n219= }
n220=}
n221=on *:open:?:{
n222= if %qblock == on {
n223= if ($nick isin %qblst.vip) { halt }
n224= set %query.last $nick
n225= if %qdialog == yes {
n226= qblcheck $nick
n227= write $qbl $nick $+ $chr(149) $+ $time(hh:nn:ss) $+ $chr(149) $+ $1-
n228= window -h $nick
n229= .msg $nick $x3(qblock,wmsg)
n230= qblock2
n231= }
n232= else {
n233= write $qbl $nick $+ $chr(149) $+ $time(hh:nn:ss) $+ $chr(149) $+ $1-
n234= window -h $nick
n235= .msg $nick $x3(qblock,wmsg)
n236= echo $color(info) -ta QBL: %query.last Özel Görüşme İsteğinde Bulundu Kabul Etmek İçin Ctrl+F12 Red Etmek İçin Shift+F12 Tuşuna Basın
n237= }
n238= }
n239=}
n240=alias CF12 qkabul
n241=alias SF12 qred
n242=alias qblkadd {
n243= var %t = $1
n244= if %t { set %qblst.vip $addtok(%qblst.vip,%t,46) | echo 4 -at Özelizi Kapatsanızda $1 Listeye Eklendiği İçin Size Yazabilecek. }
n245=}
n246=alias qblkdel {
n247= var %n = $1
n248= if %n { set %qblst.vip $remtok(%qblst.vip,%n,46) | echo 4 -at $1 VIP Listesinden Çıkartıldı }
n249=}

Bu Kod Dizininin Arasına mı Eklemem Gerek ßu Kodu.

__________________
En Büyük Devrim, Sevgidir.. Ve Ben Bunu Mustafa KemaLden Öğrendim..(Che Guevara)

 

Çevrimdışı

benim addon çıktı iyimi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


alias qblock2 {
if (!$dialog(qblock2)) { dialog -m qblock2 qblock2 }
else { dialog -v qblock2 | qblload }
}

olanı;

alias qblock2 {
if $regex($appstate,/(minimized|hidden|tray)/i) { halt }
if (!$dialog(qblock2)) { dialog -m qblock2 qblock2 }
else { dialog -v qblock2 | qblload }
}

olarak değiştir.
ayrıca anlamadığım ben buna zaten dialog ve text olarak kullanım eklemişim neden text olarak kullanmıyorsun ki? taa o zaman ön görmüşüm bak :P

 

Çevrimdışı

Kardeşim ßen ßunu ßiyerden ßuldum Nerden ßulduğumu Hatırlamıyorum. Olduğu Gibi Yapıştırdım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
En Büyük Devrim, Sevgidir.. Ve Ben Bunu Mustafa KemaLden Öğrendim..(Che Guevara)

 

Çevrimdışı

kodu ekleyince özele gelen özelde kalıyor ve hiç uyarı almıyorsun bir kaç kısımı gözden kaçırdık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

kodda çok değişiklik yapmak gerek onada fazla vaktim yok sana tavsiyem kodu dialog olarak değilde text olarak kullanman.