on *:text:!atama*:#founder: {
  if (!$istok(Nick Nick1 Nick2,$nick,32)) { halt }
  if $regex($2,/^(#sohbet|#oyun)$/i) {
    if $token($+(%,atama,.,$2),0,32) >= $nick($+($2,op),0) { unset %atama } 
    if $read($+($right($2,-1),op,.,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 %n = $nick($+($2,op),$rand(1,$nick($+($2,op),0))) 
  if (%n isop $+($2,op)) || (%n ishop $+($2,op)) || (%n == $me) || ($istok($+(%,atama,.,$2),%n,32) == $true) { goto replay } 
  /msg $+($2,op) " Badnick " kontrolü yapılıp bilgi verilsin lütfen atanan yetkili: $+(%n,)) 
  .set -e %atama $addtok(%atama,%n,32)
  /msg #founder - Liste kontrolü icin operatör atandı.
}
on *:Part:#: {
  if $chan == #sohbetop && $istok(%atama.#sohbet,$nick,32) == $true { $remove(%atama.#sohbet,$nick) }
  if $chan == #oyunop && $istok(%atama.#oyun,$nick,32) == $true { $remove(%atama.#oyun,$nick) }
}
on *:Quit: {
  if $istok(%atama.#sohbet,$nick,32) == $true { $remove(%atama.#sohbet,$nick) }
  if $istok(%atama.#oyun,$nick,32) == $true { $remove(%atama.#oyun,$nick) }
}
on *:Nick: {
  if $istok(%atama.#sohbet,$nick,32) == $true { $replace(%atama.#sohbet,$nick,$newnick) }
  if $istok(%atama.#oyun,$nick,32) == $true { $replace(%atama.#oyun,$nick,$newnick) }
}