#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 }