on *:text:*:#kanal:{
  if .kanalekle isin $1 { 
    if $read(otochan.txt,w,$2) { .privmsg $chan Eklemek istediğiniz kanal, listede mevcut $nick $+ $chr(46) }
    else { write otochan.txt $2 | .privmsg $chan  $2 kanalı, otomatik giriş yapılan odalar arasına eklendi. $nick $+ $chr(46) | sajoin $me $2 
    }
  }
}
alias j_ {
  var %i 1 
  while %i < $lines(otochan.txt) {
    sajoin $me $read(otochan.txt,%i)
    os mode $read(otochan.txt,%i) +oq $me $me
    inc %i
  }
}
on *:connect: {
  .timergir_ 1 5 .j_
}

 
on *:text:*:#kanal:{
  if .kanallar isin $1 {
    .privmsg $chan Otomatik giriş yapılan odalar, listeleniyor.  $nick $+ $chr(46)
    .privmsg $chan Sistem Giriş Kanalları [autojoin]:
    .timer 1 5 play $chan otochan.txt 0
  }
}

 
on *:text:*:#kanal:{
  if .kanalsil isin $1 { 
    if ($read(otochan.txt,w,$+(*,$2,*))) { write -dl $+ $readn otochan.txt
      .privmsg $chan $2 kanalı, otomatik giriş yapılan odalar arasından çıkartıldı. $nick $+ $chr(46)
      .part $2
    }
    else {
      .privmsg $chan  $2 otomatik giriş kanalları arasında bulunamadı. 
    }
  }
}