Ç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)