mIRC Özel Mesaj Kabul Et / Reddet
* Özelinizde Yeni bir özel mesaj aldığınızda iletişim penceresi açılır.Kabul etmeyi yada reddetmeyi seçebilirsiniz.
* Add-on u ekledikten sonra sağ tıklayıp özel mesaj kabul/reddet codesini aktif/deaktif edebilirsiniz. Kod:
;----------- "mIRC Özel Mesaj Kabul Et / Reddet" -----------
;-
;- Özelinizde yeni bir özel mesaj aldığınızda iletişim penceresi açılır.Kabul etmeyi yada reddetmeyi seçebilirsiniz.
;-
;-
;- Add-on u ekledikten sonra sağ tıklayıp özel mesaj kabul/reddet codesini aktif/deaktif edebilirsiniz.
;-
;-
;-
;----------- "mIRC Özel Mesaj Kabul Et / Reddet Sonu" ------
menu * {
Che Ozel System
.Aç:/.enable #CheOzelSystem | echo -a 3•Che Ozel System devrede..
.Kapat:/.disable #CheOzelSystem | echo -a 4•Che Ozel System devre dışı..
.Durum $+($chr(40),$iif($group(#CheOzelSystem) = On,Acik,Kapali),$chr(41)):echo 3 -a *** Che Ozel System $iif($group(#OzelSystem) = On,Acik,Kapali) Durumda.
.-
.-
}
#CheOzelSystem off
on *:open:?:*:{
var %pm = $+(pm,$nick)
if ($dialog(%pm)) { dialog -x %pm pm }
dialog -m %pm pm
set $eval($+(%,title.,$nick),1) • Yeni Mesaj ( $+ $network $+ )
set $eval($+(%,host.,$nick),1) $gettok($fulladdress,2,33)
.timer -om 1 100 window -h $nick
}
dialog -l pm {
title ""
size -1 -1 214 62
option dbu notheme
text "", 1, 5 5 203 36
button "Kabul Et", 2, 134 45 37 12
button "Reddet", 3, 171 45 37 12, ok
}
on *:dialog:pm*:init:0:{
var %a = 1, %allchans, %g = $mid($dname,3)
while ($comchan(%g,%a)) {
%allchans = %allchans $v1
inc %a
}
dialog -t $dname $eval($+(%,title.,%g),2)
did -ra $dname 1 • Yeni Özel Mesaj: $crlf $+ %g ( $+ $eval($+(%,host.,%g),2) $+ ) $+ $crlf $+ $crlf $+ • Ortak Kanallar: $iif(%allchans == $null,None,$v1) $crlf $+ • Kabul etmek mi, Reddetmek mi istiyorsunuz?
}
on *:dialog:pm*:sclick:2,3:{
var %g = $mid($dname,3)
if ($did == 2) { window -raw3 $mid($dname,3) | dialog -x $dname }
else { window -c $mid($dname,3) | echo -a • Özelim Kapalı $mid($dname,3) [REDDEDİLDİ] }
unset $+(%,title.,%g) $+(%,host.,%g)
}
#CheOzelSystem end
Ekran görüntüsü; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
