mIRC Özel Mesaj Kabul Et / Reddet

;----------- "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 == $****,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