on *:connect:{
  .timerautomsg 0 60 /automsg
}

alias automsg {
  .var %TxtSayisi $lines(aşk.txt)
  if (%OtoMsg >= %TxtSayisi) && (%OtoMsg != $null) { .unset %OtoMsg }
  if (%OtoMsg == $null) {   
    .set %OtoMsg 1
    .amsg $read(şiir.txt,%OtoMsg)
  }
  else {
    .amsg $read(şiir.txt,%OtoMsg)
    .inc %selam
  }
}