alias rands { if (($regex($1,/[qwrtypğsdfghjklşzxcvbnmç]{ $+ $(%trosessizsayi) $+ }/i)) || ($regex($1,/[qüöıaeiou]{ $+ $(%troseslisayi) $+ }/i))) { return $true } | else { return $false } }

alias random { .dialog -m randomnick randomnick } 
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 -ra $dname 3 %trosessizsayi

  }
  if ($devent == sclick) {
    if ($did == 7) { .enable #trocanz | 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 off
on *:JOIN:#sohbet:{ 
  if ($rands($nick) == $true) { 
    msg #xline - gzline: 10 $nick
    gzline $nick 12random
  }
}

#trocanz end

on *:JOIN:#sohbet:{ 
  if $read(muaf.txt,w,$nick) { return }
  if ($rands($nick) == $true) { 
    msg #xline - gzline: 10 $nick
    gzline $nick 12random
  }
}

on 1*:input:#kanal: { if ($regex($1-,/[.!]muafekle/iS) && $2) { msg #kanal $qt($2) muaf listesine eklendi | write muaf.text $2 } }