on *:text:!atama*:#founders: {
  if (!$istok(rX Read Nick2,$nick,32)) { halt }
  if $regex($2,/^(#KT-Sohbet|#KT-oyun|#KT-Kelime|#KT-Yarisma)$/i) {
    if $token($+(%,atama,.,$2),0,32) >= $nick($+($2,@),0) { unset %atama } 
    if $read($+($token($2,2,45),@,.,txt),w,$nick) { goto replay }
    else { msg $chan $2 kanalı yetkilisi değilsin işlem yapamazsın | halt }
  }
  else { msg $chan $2 kanalı erişim dahlinde değildir. | halt }
  :replay
  var %:chan $+($chr(35),$token($2,2,45),$chr(64))
  var %n = $nick(%:chan,$r(1,$nick(%:chan,0)))
  if (%n isop %:chan) || (%n ishop %:chan) || (%n == $me) || $istok(Nick1 Nick2 Nick3,%n,32) { goto replay }
  .msg $+($chr(35),$token($2,2,45),$chr(64)) "4Badnick" 2kontrolü yapılıp bilgi verilsin lütfen. 4Atanan yetkili:5 $+(%n,)) 
  .set -e %atama $addtok(%atama,%n,32)
  .msg #founders - 2Liste kontrolü icin operatör atandı. 4Atanan yetkili:5 $+(%n,))
}
on *:Part:#: {
  if $chan == #sohbet@ && $istok(%atama.#KT-Sohbet,$nick,32) == $true { $remove(%atama.#KT-Sohbet,$nick) }
  if $chan == #Oyun@ && $istok(%atama.#oyun,$nick,32) == $true { $remove(%atama.#KT-oyun,$nick) }
  if $chan == #Kelime@ && $istok(%atama.#KT-Sohbet,$nick,32) == $true { $remove(%atama.#KT-Kelime,$nick) }
  if $chan == #Yarisma@ && $istok(%atama.#KT-Sohbet,$nick,32) == $true { $remove(%atama.#KT-Yarisma,$nick) }
}
on *:Quit: {
  if $istok(%atama.#KT-Sohbet,$nick,32) == $true { $remove(%atama.#KT-Sohbet,$nick) }
  if $istok(%atama.#KT-oyun,$nick,32) == $true { $remove(%atama.#KT-oyun,$nick) }
  if $istok(%atama.#KT-Kelime,$nick,32) == $true { $remove(%atama.#KT-Kelime,$nick) }
  if $istok(%atama.#KT-Yarisma,$nick,32) == $true { $remove(%atama.#KT-Yarisma,$nick) }
}
on *:Nick: {
  if $istok(%atama.#KT-Sohbet,$nick,32) == $true { $replace(%atama.#KT-Sohbet,$nick,$newnick) }
  if $istok(%atama.#KT-oyun,$nick,32) == $true { $replace(%atama.#KT-oyun,$nick,$newnick) }
  if $istok(%atama.#KT-Kelime,$nick,32) == $true { $replace(%atama.#KT-Kelime,$nick,$newnick) }
  if $istok(%atama.#KT-Yarisma,$nick,32) == $true { $replace(%atama.#KT-oyun,$nick,$newnick) }
}