On 1:input:*:{
  if ($1- == !ac) { .set %selam 1 | .timerselam 0 370 ams | halt }
  if ($1- == !kapat) { .timerselam off | .unset %selam | halt }
}


alias ams { 
  if (%selam <= $lines(selam.txt)) { amsg $read(selam.txt,%selam) | inc %selam 
  }  
  else .set %selam 1
}