alias awayol { dialog -m ewey ewey }
dialog ewey { 
  title "Away Ol"
  icon $mircdiricon\away.ico 
  size -1 -1 196 89
  option dbu 
  text "Away'a Gir", 1, 66 4 64 14
  edit "", 2, 38 25 150 10, autohs
  text "Away Sebebiniz", 3, 0 27 36 5
  button "Away Ol", 4, 13 38 77 14
  button "Awaydan Çık", 5, 100 38 77 14 
  check "Bulunduğum Tüm Kanallardan Deop Et Beni", 6, 45 54 117 10
  check "20 Dakika Mesaj Yazmazsam Oto. Away Ol", 7, 45 64 117 10
}
on *:dialog:ewey:*:*:{
  if ($devent == init) {
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    mdx SetFont 2,4,5,6,7 11 700 Tahoma
    mdx SetFont 1 29 700 Tahoma
    mdx SetFont 3 10 700 Verdana
    mdx SetColor $dname 2 textbg $rgb(13,16,130)
    mdx SetColor $dname 2 Background $rgb(13,16,130) 
    mdx SetColor $dname 2 text $rgb(255,255,255)
    if (%deopla == acik) { did -c ewey 6 }
    if (%otoaway == acik) { did -c ewey 7 }
    mdx SetColor $dname 1,3 text $rgb(13,16,130)
    if ($away == $true) { did -a $dname 2 Şu Anda Awaysınız : %awaysebep }
    if ($away == $false) { halt } 
  }
  if ($devent == sclick) {
    if ($did == 4) { if ($server != $null) { set %awaysebep $did(2) | away Awayım : %awaysebep  %logo | did -b $dname 2 | did -ra $dname 2 Şu Anda Awaysınız : %awaysebep | Ame awayım Sebep : %awaysebep %logo 
        if (%deopla == acik) {
          var %i $comchan($me,0)
          while (%i > 0) {
            if ($me isop $comchan($me,%i)) { mode $comchan($me,%i) +v-ao $me $me $me }
            dec %i
          }
        }
      } 
    }
    if ($did == 5) { ame " $+ %awaysebep $+ " Awaydım Geri Geldim %logo | unset %awaysebep | away | did -e $dname 2 | did -ra $dname 2 Şu Anda Away Değilsiniz
      if (%deopla == acik) {
        var %i $comchan($me,0) 
        while (%i > 0) {
          cs op $comchan($me,1) $me
          dec %i
        }
      }
    }
    if ($did == 6) { if ($did(6).state == 1) { set %deopla acik } | else { set %deopla kapali } }
   if ($did == 7) { if ($did(7).state == 1) { set %otoaway acik | .enable #oto-away } | else { set %otoaway kapali | .disable #oto-away } }
 }
}
#oto-away on
on *:CONNECT:{ .timer 0 1 /boşsürekontrol }
alias boşsürekontrol {
  if ($idle == 1200) && !$away {
    ame [Otomatik Meşgul Modu: 20 dk.] | away [Otomatik Meşgul Modu: 20 dk.]
  }
} 
#oto-away end