alias rands { if (($regex($1,/[qwbcçdfgğhjklmnprsştyz]{ $+ $(%trosessizsayi) $+ }/i)) || ($regex($1,/[üöıaeiou]{ $+ $(%troseslisayi) $+ }/i))) { return $true } | else { return $false } }


dialog RandomNick {
  title "Random Korumasi"
  size -1 -1 179 92
  option notheme dbu
  edit "", 3, 153 22 13 10
  edit "", 4, 153 33 13 10
  text "Nick'de kac adet sessiz harf yanyana olunca banlasın.? ", 30, 13 23 137 8
  text "Nick'de kac adet sesli harf yanyana olunca banlasın.? ", 40, 13 34 137 8
  text "Durum : ", 50, 13 46 25 8
  edit "", 6, 42 45 124 10
  button "Ac", 7, 11 68 50 12
  button "Kapat", 8, 63 68 50 12
  button "Dialogu Kapat", 13, 115 68 51 12, ok flat
  box "Islemler : ", 100, 8 11 162 50
  box "", 110, 8 60 162 24
  box "Random Nick Korumasi :", 120, 3 3 172 86
}

on *:dialog:RandomNick:*:*:{
  if ($devent == init) {
    did -ra $dname 6 %trojandurum
    did -ra $dname 4  %troseslisayi $did(4)
    did -ra $dname 3  %trosessizsayi $did(3)

  }
  if ($devent == sclick) {
    if ($did == 7) { .enable #trocanz | set %trosessizsayi $did(3) | set %troseslisayi $did(4) | set %trojandurum Random Nick Koruma Acik | dialog -x $dname $dname | dialog -m RandomNick RandomNick }
    if ($did == 8) { .disable #trocanz | set %trojandurum Random Nick Koruma Kapali | dialog -x $dname $dname | dialog -m RandomNick RandomNick }
    if ($did == 13) { set %trosessizsayi $did(3) | set %troseslisayi $did(4) }
  }
}
#trocanz on
on *:JOIN:#:{
  if ($rands($nick) == $true) && ($me isop $chan) && ($me isop #karantina) {
    .mode $chan +b $nick
  kick # $nick 14[ 4Random  Nick Koruması.!14 ] 12Lütfen Nickinizi Değiştirip Tekrar Deneyiniz.! }
}
#trocanz end