alias chkatime {
  if *[away] !iswm $me && $server {
    if !%chkatimer { .set %chkatimer $ctime }
    if $calc($ctime - %chkatimer) >= 1200 { nick $+($me,[away]) | away Meşkulum | deop komutun | part komutun }
  }
}
on *:connect: {
  .set %chkatimer $ctime 
  .timerchkatime 0 60 chkatime 
}
on *:input:*: {
  if $left($1,1) != / {
    if $server && $regex($window($active).type,channel|query)  {
      if *[away] iswm $me  {
        nick $regsubex($me,\[away\]$,$null) 
         away
        identify şifren 
        join komutun
      }
      else { .set %chkatimer $ctime }
    }
  }
}

#awaytr off
on *:nick:{
  if $regex($newnick,/(-yok$)/i) { var %s = 1 | while $chan(%s) { if ($v1 != #help) && ($newnick isop $v1) { mode $v2 -o $newnick } | inc %s } }  
  if $regex($newnick,/(-yok$)/i) { if ($newnick ison #help) { part $v2 } }
  if !$regex($newnick,/(-yok$)/i) && ($newnick !ison #help) { join #help } 
}
on *:input:*: {
  if $server {
    if $regex($me,/(-yok$)/i) {
      nick $token($me,1,45) | .timeraway 1 1200 /nick $me 
    }
    if !$regex($me,/(-yok$)/i) { .timeraway 1 1200 /nick $+($me,-yok) }
  }
}
#awaytr end

menu status,menubar,channel {
  Away Modu:
  .Ac:if $server { var %s = $token($me,1,45) | .enable #awaytr | echo -a .:Away modu acildi:. | .timeraway 1 1200 /nick $+(%s,-yok) }
  .-
  .Kapat:.disable #awaytr | echo -a .:Away modu kapatildi:. | .timeraway off
}
on *:quit: { .disable #awaytr }
on *:disconnect: { .disable #awaytr }
on *:exit: { .disable #awaytr }