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