on *:rawmode:#KANAL:{
  if $regex($1,/^+[%@&.~]/) { 
    if $regex($2,/(Al[ıiİ]|Vel[ıiİ]|Mehmet|Cem[ıiİ]l)/i) { return }
    else { .enable #sor | set %:kanal # | cs status #Cinsel $2 }
  }
}
#sor off
on *:notice:*Status*:?:{
  if ($nick == ChanServ) && ($4 >= 40) {
    mode %:kanal -qaoh $str($+($3,$chr(32)),5)
    notice $3 Cinsel kanal yetkilileri global kanallarda prefix(%@&~) alamazlar.. 
    cs access %:kanal del $3 
    .disable #sor
  }
}
#sor end