on *:text:*:#:{
  if $regex($1,/((!|\.)ekle)$) { 
    if (!$2) || $left($2,1) != $chr(35) { msg # Lütfen !ekle #kanal nick seviye şeklinde belirtiniz. | return }
    if (!$3) || $left($3,1) == $chr(35) { msg # Lütfen !ekle #kanal nick seviye şeklinde belirtiniz. | return }
    if (!$4) || $4 < 1 || $4 > 999 { msg # Lütfen !ekle #kanal nick seviye şeklinde belirtiniz. | return }
    set %:ykanal # | set %:achan $2 | set %:seviye $4
    .enable #access | .nickserv info $3
  }
  if $regex($1,/((!|\.)sil)$) { 
  if (!$2) || $left($2,1) != $chr(35) { msg # Lütfen !sil #kanal nick şeklinde belirtiniz. | return }
    if (!$3) || $left($2,1) =! $chr(35) { msg # Lütfen !sil #kanal şeklinde belirtiniz. | return }
  .enable #access | cs access $2 list $+(*,$3,*) | cs access $2 del $3 |  set %:ykanal # | set -eu5 %:achan $2 }
  if $regex($1,/((!|\.)list)$) {
    if !$2 || !$regex($left($2,1),/#) { msg # Access listesini istediğin kanalı belirtmelisin. | return }
  set %:ykanal # | set %:achan $2 | cs access $2 list } 
}
#access off
on *:notice:*:?:{
  if $nick == NickServ {
    if (*kayitli bir nick degil* iswm $1-) { msg %:ykanal $1 nick'i kayıtlı degildir. | .disable #access }
    if (*isim:* iswm $1-) { cs access %:achan add $1 %:seviye | .disable #access }
  }
  if $nick == ChanServ {
    if (*kanali kayitli degil* iswm $1-) || (*nick* *seviyeden eklendi* iswm $1-) || (*kanalinin erisim listesinden silindi* iswm $1-) || (*nick* kanalindaki erisim * olarak degisti* iswm $1-) || (*nick* kanalindaki erisim seviyesi zaten* iswm $1-) || (*kanalinin erisim listesinde bulunamad* iswm $1-) || (*erisim listesinde belirtilen tanima uyan kayit bulunamadi* iswm $1-) {
    msg %:ykanal $1- | .disable #access | halt }
    if  * $+ %:achan Kanali Erisim Listesi* iswm $strip($1-) { Set -eu5 %acc-list on }
    if $regex($1,/([0-9]{1,})) && %acc-list == on { msg  %:ykanal Nick: $3 Seviye: $2 $iif($4,Ekleyen: $4) } 
  }
}
#access end