on *:rawmode:%global: { 
  if ($regex($1,\+(o|a|q))) { 
    if $istok( %globalnick [ $+ [ $chan ] ] ,$2,32) == $true { halt } 
    var %::mchan = $chan | var %::mnick = $2 | var %::mode = $chflags($1) 
    set %globalnick [ $+ [ $chan ] ]  $addtok(%globalnick [ $+ [ $chan ] ],$2,32)
    inc %global [ $+ [ $chan ] ] 
    kontrol #
  }
  if ($regex($1,\-(o|a|q))) { 
    if $istok(%globalnick [ $+ [ $chan ] ],$2,32) { %globalnick [ $+ [ $chan ] ] = $remtok(%globalnick [ $+ [ $chan ] ],$2,32) } } {
    dec %global [ $+ [ $chan ] ] 
    opkontrol #
  }
}
 
alias kontrol {
  if ( %global [ $+ [ $1 ] ] == 2) { 
    mode # -m | msg # Kanala Yetkili Girmistir Kanal Konusmaya Acilmistir
  }
}
alias opkontrol {
  if ( %global [ $+ [ $1 ] ] == 1) { 
    mode # +m | msg # Kanala Yetkili Kalmadigi Icın Kanal Konusmaya Kapatilmistir!
  }
}
on *:quit: {
  if $istok( %globalnick [ $+ [ $chan ] ] ,$nick,32) == $true { 
    if $istok(%globalnick [ $+ [ $chan ] ],$nick,32) { %globalnick [ $+ [ $chan ] ] = $remtok(%globalnick [ $+ [ $chan ] ],$nick,32) } } {
    dec  %global [ $+ [ $chan ] ] 
    opkontrol #
  }
}
 
on *:part:#: {
  if $istok( %globalnick [ $+ [ $chan ] ] ,$nick,32) == $true { 
    if $istok(%globalnick [ $+ [ $chan ] ],$nick,32) { %globalnick [ $+ [ $chan ] ] = $remtok(%globalnick [ $+ [ $chan ] ],$nick,32) } } {
    dec  %global [ $+ [ $chan ] ] 
    opkontrol #
  }
}
on *:nick: {
  if $istok( %globalnick [ $+ [ $chan ] ] ,$nick,32) == $true { 
    if $istok(%globalnick [ $+ [ $chan ] ],$nick,32) { %globalnick [ $+ [ $chan ] ] = $remtok(%globalnick [ $+ [ $chan ] ],$nick,32) } } {
    set %globalnick [ $+ [ $1 ] ]  $addtok(%globalnick [ $+ [ $1 ] ],$newnick,32)
  }
}