-- Gerador de Nicks
-- Escritp por Ninguem

-- adm = "SEU_NICK"
-- deixe como comentário para que todos usem ou retire os traços e coloque seu nick para que só você use

ultimo = 0
function geraSilaba(inicio)
	local palavra = ""
	local letras = {
		v = "aeiou",
		a = "aei",
		d = "ou",
		c = "bcdfgijlmnprstvxz",
		l = "rlsmn",
		n = "cnl",
		h = "h",
		q = "q",
		u = "u",
		e = "aeio",
	}
	local tipo = {"hv", "v", "vl", "ad", "adl", "da", "dal", "cv", "cad", "cda", "cadl", "cdal", "cvl", "clv", "clad", "clvl", "que", "quel", "nhv", "nhvl"}
	local rand = 0
	if inicio then
		rand = math.random(1,16)
	else
		rand = math.random(8,16)
	end
	for i=1, tipo[rand]:len() do
		n = math.random(#(letras[tipo[rand]:sub(i,i)]))
		palavra = palavra .. letras[tipo[rand]:sub(i,i)]:sub(n,n)
	end
	return(palavra)
end

function geraSilaba2(inicio)
	local palavra = ""
	local letras = {
		v = "aeiou",
		c = "bcdfjlmnprstvxz",
		m = "slnmr",
		b = "bcdgptv",
		r = "rl",
		g = "g",
		q = "q",
		u = "u",
		e = "ae",
		i = "iu",
		a = "aeio",
		n = "n",
		s = "s",
		h = "h",
		l = "cnl"
	}
	local tipo = {"v","ei","ie","iem","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cv","cei","cie","ciem","cvm","cvns","brv","brei","brie","briem","brvns","brvm","gua","guam","guai","qua","quam","quai","lhv","lhei"}
	local rand = 0
	if inicio then
		rand = math.random(1,41)
	else
		rand = math.random(24,43)
	end
	for i=1, tipo[rand]:len() do
		n = math.random(#(letras[tipo[rand]:sub(i,i)]))
		palavra = palavra .. letras[tipo[rand]:sub(i,i)]:sub(n,n)
	end
	return(palavra)
end

function legivel_2()
	local silabas = math.random(2,6)
	local nick = geraSilaba(true)
	while(nick:len() < 9 and silabas > 0) do
		nick = nick .. geraSilaba2(false)
		silabas = silabas - 1
	end
	return(nick)
end

function legivel_1()
	local silabas = math.random(2,6)
	local nick = geraSilaba(true)
	while(nick:len() < 9 and silabas > 0) do
		nick = nick .. geraSilaba(false)
		silabas = silabas - 1
	end
	return(nick)
end

function simples()
	local vogal = "aeiou"
	local consoante = "bcdfghjklmnpqrstvwxyz"
	local silabas = math.random(2,6)
	local v = math.random(#vogal)
	local c = math.random(#consoante)
	local nick = ""
	for i=1, silabas do
		v = math.random(#vogal)
		c = math.random(#consoante)
		nick = nick .. consoante:sub(c,c) .. vogal:sub(v,v)
	end
	return(nick)
end

function ilegivel()
	local alfabeto = "abcdefghijklmnopqrstuvwxyz"
	local nick = ""
	local rand = 0
	for i=1, math.random(3,12) do
		rand = math.random(alfabeto:len())
		nick = nick .. alfabeto:sub(rand,rand)
	end
	return(nick)
end

function aleatorio()
	local tipo = {ilegivel, simples, legivel_1, legivel_2}
	f = tipo[math.random(#tipo)]
	return(f())
end

function novosNicks(geraNick)
	for i=1, 88 do
		nome = geraNick()
		nome = string.upper(nome:sub(1,1)) .. nome:sub(2)
		ui.addTextArea(i, "<p align='center'>" .. nome, nil, ((i-1)%8)*100+5, math.floor((i-1)/8)*30+30, 90, 20, 1, math.random(0xffffff), 0.8, true)
	end
end
function eventTextAreaCallback(textArea, jogador, link)
	if ultimo < os.time() then
		if link == "ilegivel" then
			novosNicks(ilegivel)
		elseif link == "simples" then
			novosNicks(simples)
		elseif link == "legivel" then
			novosNicks(legivel_1)
		elseif link == "legivel2" then
			novosNicks(legivel_2)
		elseif link == "aleatorio" then
			novosNicks(aleatorio)
		end
		ultimo = os.time() + 1000
	end
end

ui.addTextArea(100, "<p align='center'><a href='event:simples'><J>Simples", adm, 5, 370, 90, 20, 1, 1, 0.8, true)
ui.addTextArea(101, "<p align='center'><a href='event:legivel'><J>Legível 1", adm, 105, 370, 90, 20, 1, 1, 0.8, true)
ui.addTextArea(102, "<p align='center'><a href='event:legivel2'><J>Legível 2", adm, 205, 370, 90, 20, 1, 1, 0.8, true)
ui.addTextArea(103, "<p align='center'><a href='event:ilegivel'><J>Ilegível", adm, 305, 370, 90, 20, 1, 1, 0.8, true)
ui.addTextArea(104, "<p align='center'><a href='event:aleatorio'><J>Aleatório", adm, 405, 370, 90, 20, 1, 1, 0.8, true)