alias nick { var %d = 1 | while $read(otochan.txt,%d) { .timer 1 $calc(%d *0) sajoin $v1 | inc %d } }

on *:text:*:%operchan:{
  if !kanalsil isin $1 { 
    if ($read(otochan.txt,w,$+(*,$2,*))) { write -dl $+ $readn otochan.txt
      .msg #  $2 KanaLi, Otomatik Giris YapiLan OdaLar ArasIndan CikartILdI .. 
      .part $2
    }
    else {
      .msg #  $2 otomatik giriş kanalları arasında bulunamadı.
    }
  }
}

on *:text:*:%operchan:{
  if !kanallist isin $1 {
    .msg %operchan Otomatik Giris YapiLan OdaLar OzeLinize ListeLendi $nick $+ .
    .msg $nick Sistem Giriş Kanalları [autojoin]:
    .play $nick otochan.txt 0
  }
}

on *:text:*:%operchan:{
  if !kanalekle isin $1 { 
    if $read(otochan.txt,w,$2) { .msg # Eklemek istediğiniz kanal, listede mevcut $+($nick,.) }
    else { write otochan.txt $2 | .msg #  $2 kanalı, otomatik giriş yapılan odalar arasına eklendi. | sajoin $2
    }
  }
}

alias Botnick { var %d = 1 | while $read(otochan.txt,%d) { .timer 1 $calc(%d *0) sajoin $v1 | inc %d } }

on *:connect:{
if $lines(otochan.txt) !== 0 {
var %y 1
while %y <= $lines(otochan.txt) {
.join $gettok($read(otochan.txt,%y),1,11)
inc %y
}
}
}