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 | .timerCNTL 0 1 awaykontrol } | else { set %otoaway kapali | .timerCNTL off } }
}
}
alias awaykontrol {
if ($idle <= 1200) && !$away {
ame Otomatik Meşgul Modu: 20 dk. | away Otomatik Meşgul Modu: 20 dk.
}
}