on *:input:*: {
  if $1 = .away { 
    if %awaydurum = on {
      echo -a Away konumundan çıktın.
      away
      nick %eskinick
      set %awaydurum off
      return
    }
    if %awaydurum = off || !%awaydurum {
      echo -a Away konumuna geçtin.
      away Yokum 
      set %eskinick $me
      nick $me $+ -Away
      set %awaydurum on
      return
    }
  }
}

on *:input:*: {
  if $regex($1,/[!.]away/Si) {
    $iif($away,nick $remove($me,`Away),nick $+($me,`Away))
    $iif($away,.away,.away Meşgul)
  }
}