local meu_nome = "Ikke mon"
--> Encontrar a cadeia "mon" na variável meu_nome e substituir por "pokémon"
--> Note que "pokémon" poderia ser escrito "poké%1". Por quê?
-->> %[0-9] tem o valor da captura no campo _padrao_;
-->> ou seja, %1='mon' em _substituicao_
meu_nome = string.gsub(meu_nome, "mon", "pokémon")
--> Ikke pokémon
print(meu_nome) 

local minha_banana = "a banana vai ser assada kakaka"
--> Você pode querer substituir apenas 6 letras 'a' por 'o'
minha_banana = string.gsub(minha_banana, "a", "o", 6)
--> o bonono voi ser ossada kakaka
print(minha_banana) 

local minhas_frutinha = "bananinha abacatinho uvazinha"
local substituicoes = 0
--> Desejo que as letras 'a' em minhas_frutinha sejam uma 'u'
--> Mas apenas quando _substituicoes_ for um número par (2, 4, 6) [uma não, uma sim, ...]
minhas_frutinha = string.gsub(minhas_frutinha , "a", function(captura)
	substituicoes = substituicoes + 1
	if substituicoes % 2 == 0 then -- Verifica se a divisão por 2 tem resto 0, ou seja, par
		return "u"
	end
end)
--> banuninha ubacutinho uvazinhu
print(minhas_frutinha) 

--> A letra "u" em binário é escrito como "01110101" e temos o seguinte binário abaixo
local meu_binario = "0100"
--> Observe o padrão: 0 "1" 1 "1" 0 "1" 0 "1".. Depois de cada caractere, há um número "1".
--> Podemos afirmar que o padrão é o número capturado junto ao número "1"
-->> Com o conhecimento de padrões, sabemos que %d = um número qualquer
-->> Substituímos esse número por ele mesmo seguido de "1".
-->> Note que foi utilizado %1, afinal não sabemos se é um 0 ou 1, logo, utilizamos %1 = captura:
-->>> Em meu_binario temos 0, 1, 0, 0. Os 4 são números, mas não são os mesmos números.
-->>> Poderíamos utilizar "0", "01" se fossem apenas números 0 em meu_binario.
meu_binario = string.gsub(meu_binario , "%d", "%11")
--> 01110101
print(meu_binario)

local teste = "abcdefg"
--> teste:gsub também é possível. Lembrese: texto:gsub(...)
--> Note que utilizamos o padrão ".", que significa caractere por caractere: a,b,c,d,e,f,g
teste = teste:gsub(".", function(captura)
	-- Imprimirá a,b,c,d,e,f,g. Um de cada vez...
	print(captura)
	-- O retorno abaixo não é necessário, porque a captura é retornada 
	--- automaticamente quando nada é, de fato, retornado
	-- return captura
end)
--> O valor de teste continua o mesmo
print(teste)

local palavras = "!give cheese Bolodefchoco"
--> Você poderia utilizar
local tabela_palavras = {}
-->> Assuma [^%s]+ como "[=nao=] ^=começo %s=espaço +=vários, não começa com espaço várias palavras
-->> '!give' não começa com espaço, mas acaba até o próximo espaço
-->> 'cheese' não começa com espaço, mas acaba até o próximo espaço
-->> 'Bolodefchoco' não começa com espaço, mas acaba até o próximo espaço ou fim da string
for palavra in string.gmatch(palavras, "[^%s]+") do
	-- nome[#nome + 1] = valor funciona como o table.insert(nome, valor);
	--- porém mais leve durante a execução
	tabela_palavras[#tabela_palavras + 1] = palavra
end
-- "!give", "cheese", "Bolodefchoco"
print(tabela_palavras[1]) print(tabela_palavras[2]) print(tabela_palavras[3])

tabela_palavras = {}
--> Mas você também pode utilizar a função string.gsub!!!!
palavras:gsub("[^%s]+",function(palavra)
	tabela_palavras[#tabela_palavras + 1] = palavra
end)
-- "!give", "cheese", "Bolodefchoco"
print(tabela_palavras[1]) print(tabela_palavras[2]) print(tabela_palavras[3])

--> Que padrão podemos encontrar abaixo?
local adjetivos = "o bolo é legal e também é carinhoso e é cheiroso, mas não é bonito"
--> Isso mesmo, amiguinhos. Os adjetivos procedem o verbo "é"
--> Que tal colocarmos todos os adjetivos numa tabela?

local meus_adjetivos = {}
string.gsub(adjetivos, " é (%w+)", function(adj) meus_adjetivos[#meus_adjetivos+1] = adj end)

--> Um loop para printar todos os adjetivos
for k,v in next, meus_adjetivos do
	--[[
		legal
		carinhoso
		cheiroso
		bonito
	]]
	print(v)
end

--> Fazer algo tipo o gmatch ali em cima
string.split = function(texto, padrao)
	local retornar = {}
	texto:gsub(padrao,function(captura)
		retornar[#retornar + 1] = captura
	end)
	return retornar
end

local pisos_mapa = {}
eventNewGame = function()
	--> Temos um xml, o que podemos extrair dele?
	local xml_mapa = (tfm.get.room.xmlMapInfo or {}).xml or ""
	
	pisos_mapa = {}
	local atributos_piso = {}
	--> O segundo parâmetro " _ " é desprezível para que possamos utilizar %[0-9]
	--> Criamos uma função para evitar a criação repetitiva de funções anônimas (heavy code)
	local atribuir_valor = function(nome,_,valor)
		--> O split vai dividir numa nova tabela se o valor estiver com virgulas
		--> Exemplo: P="1,2,3,3,4,4" vira P = {1,2,3,3,4,4} e V="1" vira V=1
		atributos_piso[nome] = (valor:find(",") and string.split(valor, "[^,]+") or tonumber(valor) or valor)
	end

	string.gsub(xml_mapa, "<S (.-)/>", function(atributos)
		atributos_piso = {}
		--> O padrão abaixo é:
		--> Captura 1: números (até negativos) ou letras
		--> Captura 2 (desprezível): aspas simples ou duplas ' ". Valor em %2
		--> Captura 3: tudo entre a captura 2 e outro encontro da captura 2
		--> 1 = 2 3 2
		string.gsub(atributos, "([%-%w]+)=([\"'])(.-)%2", atribuir_valor)
		pisos_mapa[#pisos_mapa + 1] = atributos_piso
	end)

	--> Agora vamos nos divertir e colocar um piso de nuvem em cima de cada piso do mapa
	for k,v in next, pisos_mapa do
		--k = Z do piso
		--v = propriedades do piso
		tfm.exec.addPhysicObject(k, v.X, v.Y, {
			type = 8,
			width = v.L,
			height = v.H,
			friction = v.P[3],
			restitution = v.P[4],
			angle = v.P[5],
			miceCollision = (v.c==1 or v.c==3) or ((v.c==4 or v.c==2) and false),
			groundCollision = (v.c==2 or v.c==1) or ((v.c==4 or v.c==3) and false)
		})
	end
end

--> Que tal transformar os "pq" abaixo em por que, porque, porquê e por quê?!
local meu_textao = [[
Todos riam muito e ninguém me dizia o pq.
Gostaria de saber os pq de ter sido mandada embora.
Você não comeu? Pq?
O menino foi embora e nem disse pq. 
Choro pq machuquei o pé.
Ela não foi à escola pq estava chovendo.
Pq você não foi dormir?
Pq não posso sair com meus amigos?
]]

meu_textao = meu_textao:gsub("[^\n]+",function(linha)
	return linha:gsub(" o(s-) pqs-", function(plural)
		plural = plural=="s" and plural or ""
		return " o" .. plural .. " porquê" .. plural
	end):gsub("([Pp])q([%?.])", "%1or quê%2"):gsub("([Pp])q (.-) ?%?",function(p, conteudo)
		return p.."or" .. (conteudo:find("pq") and "" or " ") .. "que ".. conteudo .."?"
	end):gsub("([Pp])q", "porque")
end)

--[[ Índice de acertos: 80%, mas no teste o índice foi de 100%
Todos riam muito e ninguém me dizia o porquê.
Gostaria de saber os porquês de ter sido mandada embora.
Você não comeu? Por quê?
O menino foi embora e nem disse por quê. 
Choro porque machuquei o pé.
Ela não foi à escola porque estava chovendo.
Por que você não foi dormir?
Por que não posso sair com meus amigos?
]]
print(meu_textao)