static byte MakePortugueseTownName(char *buf, uint32 seed, const char *last)
{
	uint i;
	strecpy(buf, "", last);
//	if (SeedChance(0, 5, seed) == 0) { // regular names
//		strecat(buf, "Santa Clara", last);
//	} else {//N. Senh. type names
		strecat(buf, "Nossa Senhora ", last);
		i=SeedChance(1,25,seed);
		printf("%f",i);
		if (i < 5) {
			strecat(buf, "de ", last);
			strecat(buf, name_portuguese_ns_de[SeedChance(0,lengthof(name_portuguese_ns_de),seed)], last); 
		} else {
		  if (i < 10) { 
		  	strecat(buf, "do ", last);
		  	strecat(buf, name_portuguese_ns_do[SeedChance(1,lengthof(name_portuguese_ns_do),seed)], last); 
		  } else {
			if (i < 15) {
			  strecat(buf, "da ", last);
			  strecat(buf, name_portuguese_ns_da[SeedChance(2,lengthof(name_portuguese_ns_da),seed)], last); 
			} else {
			  if (i < 20) {
			  	strecat(buf, "dos ", last);
			  	strecat(buf, name_portuguese_ns_dos[SeedChance(3,lengthof(name_portuguese_ns_dos),seed)], last); 
			  } else {
			  	strecat(buf, "das ", last);
			  	strecat(buf, name_portuguese_ns_das[SeedChance(4,lengthof(name_portuguese_ns_das),seed)], last); 
			  	}
			  }
			}
		  }
//	}
	return 0;
}


%% From table/namegen.h

static const char *name_portuguese_ns_de[] = {
	"Belém",
	"Fátima",
	"Guadalupe",
	"Lurdes"
};

static const char *name_portuguese_ns_da[] = {
	"Ajuda",
	"Boa Fé",
	"Boa Morte",
	"Boa Nova",
	"Conceição",
	"Esperança",
	"Estrela",
	"Fonte",
	"Graça",
	"Guia",
	"Lapa",
	"Misericórdia",
	"Oliveira",
	"Paz",
	"Piedade",
	"Saúde",
	"Vila",
	"Virtude"
};

static const char *name_portuguese_ns_do[] = {
	"Bispo",
	"Carmo",
	"Desterro",
	"Monte",
	"Pilar",
	"Pinheiro",
	"Rosário"
};

static const char *name_portuguese_ns_dos[] = {
	"Montes",
	"Pinheiros",
	"Prazeres",
	"Remédios"
};

static const char *name_portuguese_ns_das[] = {
	"Areias",
	"Dores",
	"Febres",
	"Fontes",
	"Misericórdias",
	"Neves",
	"Oliveiras",
	"Pazes",
	"Virtudes"
};