Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
- alias randn2 {
- if $1- isalpha && $1- islower {
- if (($count($1,a,e,i,o,u) >= 4)) { return $false }
- if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
- if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
- if ($regex($1,/^[^aeiou]{3}/)) { return $true }
- elseif ($regex($1,/([a-z])\1{2}/)) { return $true }
- elseif ($regex($1,/[aeiou]{3/)) { return $true }
- elseif ($regex($1,q[^u])) { return $true }
- elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
- else { return $false }
- }
- }
- }
- alias randn {
- if $1- isalpha && $1- islower {
- if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
- if ($len($1) == 7) {
- var %son = $mid($1,$len($1),1)
- var %son2 = $mid($1,$calc($len($1) - 1),1)
- if (%son == %son2) { return $false }
- if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
- elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
- elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
- else { return $false }
- }
- elseif ($len($1) == 8) {
- var %son = $mid($1,$len($1),1)
- var %son2 = $mid($1,$calc($len($1) - 1),1)
- if (%son == %son2) { return $false }
- if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
- elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
- elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
- else { return $false }
- }
- elseif ($len($1) == 9) {
- var %son = $mid($1,$len($1),1)
- var %son2 = $mid($1,$calc($len($1) - 1),1)
- if (%son == %son2) { return $false }
- if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
- elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
- elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }
- elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
- else { return $false }
- }
- elseif ($len($1) == 10) {
- var %son = $mid($1,$len($1),1)
- var %son2 = $mid($1,$calc($len($1) - 1),1)
- if (%son == %son2) { return $false }
- if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
- elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
- elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }
- else { return $false }
- }
- if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }
- elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {
- var %son = $mid($1,$len($1),1)
- var %son2 = $mid($1,$calc($len($1) - 1),1)
- if (%son == %son2) { return $false }
- else { return $true }
- }
- elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {
- var %son = $mid($1,$len($1),1)
- var %son2 = $mid($1,$calc($len($1) - 1),1)
- if (%son == %son2) { return $false }
- else { return $true }
- }
- elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }
- elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }
- else { return $false }
- }
- }
- menu channel,status {
- Random Nick Koruması
- Aç :.enable #random | echo -at Random Nick Koruması Acılmışdır.
- kapat:.disable #random | echo -at Random Nick Koruması Kapatılmışdır.
- }
- #random on
- on !*:join:#diyalog:if ($randomnick($nick)) { kick $chan $nick Kanal Kurallarına Aykırı Hareket 4[Random G-Dedektör] | .auser lamer $nick }
- #random end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement