on *:text:*:%operkanali: { 
  if ($1 == !Gjoin) { /write onjoins.txt $2 | msg %operkanali Istek uzerine "Onjoins" Listesine 4" $+ $2 $+ 4" Kanalı Eklendi Ve Kanala Giris YapıLdı | join $2 } 
  if ($1 == !Gjoins) { write -d onjoins.txt $2 | msg %operkanali Istek uzerine "Onjoins" Listesinden 4" $+ $2 $+ 4" Kanalı Silindi Ve Kanaldan Part Edildi | /part $2 } 
}
on *:connect: { 
  var %i 1 
  while (%i <= $lines(onjoins.txt)) { 
    join $read(onjoins.txt,%i) 
    inc %i 
  }
} 

 
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ı. 
    }
  }
}