#cinselkoruma off
on @*:join:#:.enable #whoisacarmısın | set -e %channels $chan | whois $nick | .timer -h 1 1500 .disable #whoisacarmısın
#cinselkoruma end
#whoisacarmısın off
raw 319:*: {
  var %jnk 1
  while $ulist(*,badkanal,%jnk) {
    if $ifmatch isin $remove($3-,$chr(58),+,%,@,&,~) { 
      ban -k %channels $2 2 Cinsel kanalda bulunduğunuz tespit edildi.
    }
    inc %jnk 
  }
}
#whoisacarmısın end
alias cinselkanal if $dialog(BadKanal) == $null dialog -m BadKanal BadKanal
dialog BadKanal {
  title "Cinsel Kanal giriş koruma"
  size -1 -1 200 265 
  button "Tamam", 1, 110 200 70 20,ok
  list 2, 10 20 180 135, sort 
  box "Cinsel Kanal", 3, 5 5 190 145 
  edit "#", 4, 10 165 180 20, autohs
  box "Eklenecek #kanal 'ı girin", 5, 5 150 190 45
  button "Ekle", 6, 20 200 70 20
  box "Not:", 7, 5 225 190 35 
  text "Silmek için #kanala çift tıklayın", 8, 25 240 180 45 
}
on *:dialog:BadKanal:dclick:2:{ .ruser badkanal $did(2).seltext | did -d BadKanal 2 $did(2).sel }
on *:dialog:BadKanal:sclick:6:{ if ($did(4) != $null) { did -a BadKanal 2 $did(4) | .auser badkanal $did(4) | did -fr BadKanal 4 } }
on *:dialog:BadKanal:init:*:{ 
  if ($ulist(*,badkanal,0) != $null) { 
    set %cinsel 0
    while (%cinsel < $ulist(*,badkanal,0)) { 
      inc %cinsel 1 
      did -a BadKanal 2 $ulist(*,badkanal,%cinsel) 
    } 
    unset %cinsel 
  } 
} 
menu channel {
  .-
  .Cinsel Kanal Korumaları
  ..Korumayı Devreye Al !:.enable #cinselkoruma | .echo -a 0,4 Cinsel İçerikli Kanal Korumaları Devrede
  ..Korumayı Devre Dışı Bırak !:.disable #cinselkoruma | .echo -a 0,4 Cinsel İçerikli Kanal Korumaları Devre Dışı
  ..Cinsel Kanal Ekle-Çıkar !:cinselkanal
  ..Cinsel Kanal Tarama:cinseltara
  .-
}
alias cinseltara {
  if $me isop $active {
    msg $active Cinsel kanal taraması yapılıyor...
    set -e %channels $active 
    .enable #whoisacarmısın
    .disable #cinselkoruma
    .timer 1 15 .disable #whoisacarmısın $(|) unset %channels $(|) .enable #cinselkoruma
    var %cnk 1
    while %cnk <= $nick(%channels,0) {
      if $me != $nick(%channels,%cnk) { whois $nick(%channels,%cnk) }
      inc %cnk
    }
  }
}