| Poison341 | 23 Ağustos 2016 11:39 |
Özel Kabul Window Sorunu
Kod:
menu query,channel,menubar,status {
Query Blocker:qblock
}
alias qblock {
if (!$dialog(qblock)) { dialog -m qblock qblock }
else { dialog -v qblock }
}
dialog qblock {
title "Query Blocker [Coded by XcLusive]"
size -1 -1 175 155
option dbu
box "Query Blocker: Kişi Bilgilendirme Ayarları", 1, 5 5 165 81
text "Bekletme Mesajı:", 3, 11 16 152 8
edit "", 4, 10 25 153 10, autohs
text "Kabul Mesajı:", 2, 11 39 157 8
edit "", 5, 10 48 153 10, autohs
text "Red Mesajı:", 6, 11 62 152 8
edit "", 7, 10 71 153 10, autohs
box "Query Blocker Ayarları", 8, 5 88 165 45
check "", 9, 10 99 8 10
text "Query Blockeri Çalıştır", 10, 18 100 77 8
radio "", 11, 10 109 8 10
text "Blocker'i Dialog Olarak Göster", 12, 18 110 115 8
radio "", 13, 10 119 8 10
text "Blocker'i Yazı Olarak Göster", 14, 18 120 115 8
button "Kapat", 15, 5 137 40 13, cancel
button "Kaydet", 16, 129 137 40 13
button "Blocked", 17, 46 137 40 13
button "VIP", 18, 87 137 40 13,
}
on *:load:{
writeini $shortfn($scriptdir\qblock.ini) wmsg Lütfen Bekleyiniz Özel Görüşme İsteğiniz Değerlendiriliyor...
writeini $shortfn($scriptdir\qblock.ini) amsg Özel Görüşme İsteğiniz Kabul Edildi...
writeini $shortfn($scriptdir\qblock.ini) rmsg Özel Görüşme İsteğiniz Red Edildi...
set %qblock on | set %qdialog yes | set %qblst.vip XcLusive | qblock
}
alias mdx { return $shortfn($scriptdirmdx.dll) }
alias views { return $shortfn($scriptdirviews.mdx) }
alias x3 return $readini($scriptdirqblock.ini,$1,$2)
alias x writeini $shortfn($scriptdirqblock.ini) $1-
alias idset {
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetDialog $dname bgcolor 13816530
var %idset2 = $1
set %idset 0
:idset
inc %idset 1
dll $mdx SetColor $dname %idset textbg 13816530
dll $mdx SetColor $dname %idset background 13816530
dll $mdx SetColor $dname %idset text $txtcolor
dll $mdx SetFont $dname %idset 13 800 Verdana
if %idset < %idset2 goto idset
}
alias err0r { $iif($input($2,owdia,$1),halt,halt) }
on 1:dialog:qblock:*:*:{
if $devent == init {
idset 18
did -a $dname 4 $x3(qblock,wmsg)
did -a $dname 5 $x3(qblock,amsg)
did -a $dname 7 $x3(qblock,rmsg)
dll $mdx SetColor $dname 2,3,6 text 255
if %qblock == on did -c $dname 9
if %qdialog == yes did -c $dname 11
else { did -c $dname 13 }
}
if $devent == sclick {
if $did == 16 { if $did(9).state == 0 { set %qblock off }
else { set %qblock on }
$x(qblock,wmsg,$did(4).text)
$x(qblock,amsg,$did(5).text)
$x(qblock,rmsg,$did(7).text)
$err0r(Bilgi,Query Blocker Ayarları Kaydedildi)
}
if $did == 11 { set %qdialog yes | halt }
if $did == 13 { set %qdialog no | halt }
if $did == 17 { qblock2 }
if $did == 18 { qblock3 }
}
}
alias qblock2 {
if (!$dialog(qblock2)) { dialog -m qblock2 qblock2 }
else { dialog -v qblock2 | qblload }
}
dialog qblock2 {
title "Query Blocker [Coded by XcLusive]"
size -1 -1 243 108
option dbu
box "Bloke Edilenlerin Listesi", 2, 5 5 178 98
list 1, 10 15 168 83, sort size
button "Kabul Et", 3, 186 8 55 10
button "Reddet", 4, 186 22 55 10
button "Engelle", 5, 186 36 55 10
button "VIP'e Ekle", 6, 186 50 55 10
button "VIP Listesi", 7, 186 64 55 10
button "Ayarlar", 8, 186 78 55 10
button "Kapat", 9, 186 92 55 10, cancel
}
on 1:dialog:qblock2:*:*:{
if $devent == init {
idset 19
dll $mdx SetControlMDX $dname 1 ListView grid headerdrag report rowselect showsel nosortheader single > $views
did -i $dname 1 1 headerdims 100 80 200
did -i $dname 1 1 headertext Nick $chr(9) Zaman $chr(9) Mesaj
qblload
}
if $devent == sclick {
if $did == 1 { set %qblid $calc($did(1).sel - 1) }
if $did == 3 { qblkabul }
if $did == 4 { qblred }
if $did == 5 { qblengel }
if $did == 6 { qblvipadd }
if $did == 7 { qblock3 }
if $did == 8 { qblock }
}
}
alias qblkabul {
var %query = $gettok($read($qbl,%qblid),1,149)
window -aw %query
write -dl $+ %qblid $qbl
.msg %query $x3(qblock,amsg)
did -r qblock2 1
qblload
}
alias qblred {
var %query = $gettok($read($qbl,%qblid),1,149)
closemsg %query
write -dl $+ %qblid $qbl
.msg %query $x3(qblock,rmsg)
did -r qblock2 1
qblload
}
alias qblengel {
var %query = $gettok($read($qbl,%qblid),1,149)
closemsg %query
write -dl $+ %qblid $qbl
.ignore -p %query
.notice %query Ozel Görüşme İsteğiniz Red Edildi (Ignore Edildiniz)
did -r qblock2 1
qblload
$iif($input(%query Nickli Kişi Ignore Edildi,io,Bilgi),return)
}
alias qblvipadd {
var %query = $gettok($read($qbl,%qblid),1,149)
set %qblst.vip $addtok(%qblst.vip,%query,46)
$err0r(Bilgi,%query VIP Listesine Eklendi)
}
alias qbl { return $shortfn($scriptdir\qb.txt) }
alias qkabul {
var %qbl = $lines($qbl)
var %a 1
while (%a <= %qbl) {
if (%query.last == $gettok($read($qbl,%a),1,149)) {
write -dl $+ %a $qbl
window -wa %query.last
.msg %query.last $x3(qblock,amsg)
echo $color(info) -ta QBL: %query.last Özel Görüşme İsteği Kabul Edildi
}
inc %a 1
}
}
alias qred {
var %qbl = $lines($qbl)
var %a 1
while (%a <= %qbl) {
if (%query.last == $gettok($read($qbl,%a),1,149)) {
write -dl $+ %a $qbl
closemsg %query.last
.msg %query.last $x3(qblock,rmsg)
echo $color(info) -ta QBL: %query.last Özel Görüşme İsteği Red Edildi
}
inc %a 1
}
}
alias qblload {
var %qbl = $lines($qbl)
var %a 1
did -r qblock2 1
while (%a <= %qbl) {
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)
inc %a 1
}
}
alias qblcheck {
var %x = $lines($qbl)
var %y 1
while (%y <= %x) {
if ($1 == $gettok($read($qbl,%y),1,149)) { halt }
inc %y 1
}
}
alias qblock3 dialog -m qblock3 qblock3
dialog qblock3 {
title "Query Blocker"
size -1 -1 142 108
option dbu
box "VIP Listesi", 2, 5 5 87 98
list 1, 10 15 77 83, sort size
button "Ekle", 3, 96 25 40 15
button "Sil", 4, 96 45 40 15
button "Kapat", 5, 96 65 40 15,cancel
}
on 1:dialog:qblock3:*:*:{
if $devent == init {
idset 5
didtok $dname 1 46 %qblst.vip
}
if $devent == sclick {
var %n $did(1).seltext
if $did == 3 {
var %t = $input(VIP Listesine Eklemek Istediğiniz Nick'i Girin,qoe,Nick Girin)
if %t { set %qblst.vip $addtok(%qblst.vip,%t,46) | did -r $dname 1 | didtok $dname 1 46 %qblst.vip }
}
if $did == 4 {
if %n { set %qblst.vip $remtok(%qblst.vip,%n,46) | did -r $dname 1 | didtok $dname 1 46 %qblst.vip }
}
}
}
on *:open:?:{
if %qblock == on {
if ($nick isin %qblst.vip) { halt }
set %query.last $nick
if %qdialog == yes {
qblcheck $nick
write $qbl $nick $+ $chr(149) $+ $time(hh:nn:ss) $+ $chr(149) $+ $1-
window -h $nick
.msg $nick $x3(qblock,wmsg)
qblock2
}
else {
write $qbl $nick $+ $chr(149) $+ $time(hh:nn:ss) $+ $chr(149) $+ $1-
window -h $nick
.msg $nick $x3(qblock,wmsg)
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
}
}
}
alias CF12 qkabul
alias SF12 qred
* /window: Geçersiz parametre (Satır 123, qblock.ini)
window -aw %query 123. satır bu koda denk geliyor arkadaşlar yardım ederseniz sevinirim.. |
