Çevrimdışı

20 dak mesaj yazmadıgım zaman otomatik away olabılmek istiyorum.bir away add-on um var bununla beraber calısmasını istiyorum.nasıl yapabılırım?

away add-onum ;
alias awayol { dialog -m ewey ewey }
dialog ewey {
title "Away Ol"
icon $mircdiricon\away.ico
size -1 -1 196 69
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
}
on *:dialog:ewey:*:*:{
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetFont 2,4,5,6 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 }
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 } }
}
}