on *:text:*:#Radya@:{ 
  if $1 == !djekle {
    .cs access #radyo add $2 5
    .cs access #radyohelp add $2 5
    .cs access #dj add $2 5
    .cs access #dj-sohbet add $2 1
  }
  if $1 == !djsil { 
    .cs access #radyo del $2
    .cs access #radyohelp del $2
    .cs access #dj del $2
    .cs access #dj-sohbet del $2
  }

on *:text:*:#kanal: {
  if ($regex($nick(#,$nick).pnick,[&.~])) {
    if $regex($1,/^[!.](DjEkle$|DjSil$)/i) {
      if $istok(nick1 nick2 nick3,$nick,32) { msg $chan $qt($nick) Siz Bu Komutu Kullanmaya Yetkili Değilsiniz | return }
      if ($regml(1) == DjEkle) {
        if (!$2 ) { .msg $chan  $qt($nick) Hatalı Kullanım Nick Belirtmediniz. | return }
        set -u5 %knl $chan | .enable #acc_  
        .cs access #radyo add $2 5 | .cs access #radyohelp add $2 5
        .cs access #dj add $2 5 | .cs access #dj-sohbet add $2 1
      }
    }
    if ($regml(1) == DjSil) {
      if (!$2 ) { .msg $chan  $qt($nick) Hatalı Kullanım Nick Belirtmediniz. | return } 
      set -u5 %knl $chan | .enable #acc_  | set -u5 %nkk $2
      .cs access #radyo del $2 | .cs access #radyohelp del $2
      .cs access #dj del $2 | .cs access #dj-sohbet del $2
      if ($2 ison #DJ) { _atıldı }
    }
  }
}
#acc_ off
on 1:notice:*:?:{
  if *ChanServ* iswm $Nick || *NickServ* iswm $Nick {
    msg %knl 1 $1- | .timer 1 3 .disable #acc_
  }
}
#acc_ end
alias _atıldı {
  var %:dj 1
  while (%:dj <= $lines(radyo.txt)) {
    cs kick $read(radyo.txt,%:dj) %nkk Deop Edildiniz
    inc %:dj
  }
}
.!DjEkle Nick - .!DjSil Nick
Kanaldaki sop ve founder kulalnabilir
nick1 nick2 kısmına sop lardanda kullanmasını istemediğini yaz
DJ Kanalında ise silinen kişi radyo.txt içindeki kanallardan #radyo #dj vs o kanallardan kicklenir
Radyo.txt dosyasının içine radyo kanallarını alt alta yaz 
#Radyo
#Dj
#radyohelp gibi