truelight@0: #include "stdafx.h"
truelight@0: #include "ttd.h"
truelight@0: 
truelight@833: #include "table/namegen.h"
truelight@0: 
truelight@833: inline static uint32 GetNumberBasedOnSeed(int x, int y, uint32 seed)
truelight@0: {
truelight@833: 	return (((uint16)(seed >> x) * (y))>>16);
truelight@0: }
truelight@0: 
truelight@833: static void ReplaceWords(byte a, byte b, byte c, byte d, byte e, byte f, byte g, byte h, byte *buf)
truelight@833: {
truelight@833: 	if (buf[0] == a && buf[1] == b && buf[2] == c && buf[3] == d)
truelight@833: 	{
truelight@833: 		buf[0] = e;
truelight@833: 		buf[1] = f;
truelight@833: 		buf[2] = g;
truelight@833: 		buf[3] = h;
truelight@833: 	}
truelight@833: }
truelight@0: 
truelight@833: static byte MakeEnglishOriginalTownName(byte *buf, uint32 seed)
truelight@0: {
truelight@0: 	int i;
truelight@0: 
truelight@833: 	//null terminates the string for strcat
truelight@833: 	strcpy(buf, "");
truelight@0: 
truelight@833: 	// optional first segment
truelight@833: 	if ((i = GetNumberBasedOnSeed(0, lengthof(name_original_english_1) + 50, seed) - 50) >= 0)
truelight@833: 	{
truelight@833: 		strcat(buf,name_original_english_1[i]);
truelight@0: 	}
truelight@0: 
truelight@833: 	//mandatory middle segments
truelight@833: 	strcat(buf, name_original_english_2[GetNumberBasedOnSeed(4,  lengthof(name_original_english_2), seed)]);
truelight@833: 	strcat(buf, name_original_english_3[GetNumberBasedOnSeed(7,  lengthof(name_original_english_3), seed)]);
truelight@833: 	strcat(buf, name_original_english_4[GetNumberBasedOnSeed(10, lengthof(name_original_english_4), seed)]);
truelight@833: 	strcat(buf, name_original_english_5[GetNumberBasedOnSeed(13, lengthof(name_original_english_5), seed)]);
truelight@111: 
truelight@833: 	//optional last segment
truelight@833: 	if ((i = GetNumberBasedOnSeed(15, lengthof(name_original_english_6) + 60, seed) - 60) >= 0)
truelight@833: 	{
truelight@833: 		strcat(buf, name_original_english_6[i]);
truelight@833: 	}
truelight@0: 
truelight@833: 	if (buf[0] == 'C' && (buf[1] == 'e' || buf[1] == 'i'))
truelight@833: 		buf[0] = 'K';
truelight@833: 
truelight@833: 	ReplaceWords('C','u','n','t',  'E','a','s','t', buf);
truelight@833: 	ReplaceWords('S','l','a','g',  'P','i','t','s', buf);
truelight@833: 	ReplaceWords('S','l','u','t',  'E','d','i','n', buf);
truelight@833: //	ReplaceWords('F','a','r','t',  'B','o','o','t', buf);
truelight@833: 	ReplaceWords('D','r','a','r',  'Q','u','a','r', buf);
truelight@833: 	ReplaceWords('D','r','e','h',  'B','a','s','h', buf);
truelight@833: 	ReplaceWords('F','r','a','r',  'S','h','o','r', buf);
truelight@833: 	ReplaceWords('G','r','a','r',  'A','b','e','r', buf);
truelight@833: 	ReplaceWords('B','r','a','r',  'O','v','e','r', buf);
truelight@833: 	ReplaceWords('W','r','a','r',  'I','n','v','e', buf);
truelight@833: 
truelight@833: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: 
truelight@833: static byte MakeEnglishAdditionalTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	int i;
truelight@0: 
truelight@833: 	//null terminates the string for strcat
truelight@833: 	strcpy(buf, "");
truelight@0: 
truelight@833: 	// optional first segment
truelight@833: 	if ((i = GetNumberBasedOnSeed(0, lengthof(name_additional_english_prefix) + 50, seed) - 50) >= 0)
truelight@833: 	{
truelight@833: 		strcat(buf,name_additional_english_prefix[i]);
truelight@833: 	}
truelight@0: 
truelight@833: 	if (GetNumberBasedOnSeed(3, 20, seed) >= 14)
truelight@833: 	{
truelight@833: 		strcat(buf, name_additional_english_1a[GetNumberBasedOnSeed(6, lengthof(name_additional_english_1a), seed)]);
truelight@833: 	}
truelight@833: 	else
truelight@833: 	{
truelight@833: 		strcat(buf, name_additional_english_1b1[GetNumberBasedOnSeed(6, lengthof(name_additional_english_1b1), seed)]);
truelight@833: 		strcat(buf, name_additional_english_1b2[GetNumberBasedOnSeed(9, lengthof(name_additional_english_1b2), seed)]);
truelight@833: 		if (GetNumberBasedOnSeed(11, 20, seed) >= 4)
truelight@833: 		{
truelight@833: 			strcat(buf, name_additional_english_1b3a[GetNumberBasedOnSeed(12, lengthof(name_additional_english_1b3a), seed)]);
truelight@833: 		}
truelight@833: 		else
truelight@833: 		{
dominik@852: 			strcat(buf, name_additional_english_1b3b[GetNumberBasedOnSeed(12, lengthof(name_additional_english_1b3b), seed)]);
truelight@833: 		}
truelight@833: 	}
truelight@0: 
truelight@833: 	strcat(buf, name_additional_english_2[GetNumberBasedOnSeed(14, lengthof(name_additional_english_2), seed)]);
truelight@833: 
truelight@833: 	//optional last segment
truelight@833: 	if ((i = GetNumberBasedOnSeed(15, lengthof(name_additional_english_3) + 60, seed) - 60) >= 0)
truelight@833: 	{
truelight@833: 		strcat(buf, name_additional_english_3[i]);
truelight@833: 	}
truelight@833: 
truelight@833: 	ReplaceWords('C','u','n','t',  'E','a','s','t', buf);
truelight@833: 	ReplaceWords('S','l','a','g',  'P','i','t','s', buf);
truelight@833: 	ReplaceWords('S','l','u','t',  'E','d','i','n', buf);
truelight@833: 	ReplaceWords('F','a','r','t',  'B','o','o','t', buf);
truelight@833: 	ReplaceWords('D','r','a','r',  'Q','u','a','r', buf);
truelight@833: 	ReplaceWords('D','r','e','h',  'B','a','s','h', buf);
truelight@833: 	ReplaceWords('F','r','a','r',  'S','h','o','r', buf);
truelight@833: 	ReplaceWords('G','r','a','r',  'A','b','e','r', buf);
truelight@833: 	ReplaceWords('B','r','a','r',  'O','v','e','r', buf);
truelight@833: 	ReplaceWords('W','r','a','r',  'S','t','a','n', buf);
truelight@833: 
truelight@833: 	return 0;
truelight@833: 
truelight@833: 
truelight@833: }
truelight@0: 
truelight@0: static byte MakeAustrianTownName(byte *buf, uint32 seed)
truelight@0: {
truelight@833: 	int i, j = 0;
truelight@833: 	strcpy(buf, "");
truelight@0: 
truelight@0: 	// Bad, Maria, Gross, ...
truelight@833: 	i = GetNumberBasedOnSeed(0, lengthof(name_austrian_a1) + 15,seed) - 15;
truelight@0: 
truelight@833: 	if (i >= 0) strcat(buf, name_austrian_a1[i]);
truelight@833: 
truelight@833: 	i = GetNumberBasedOnSeed(4, 6, seed);
truelight@833: 	if (i >= 4)
truelight@833: 	{
truelight@833: 		// Kaisers-kirchen
truelight@833: 		strcat(buf, name_austrian_a2[GetNumberBasedOnSeed( 7, lengthof(name_austrian_a2), seed)]);
truelight@833: 		strcat(buf, name_austrian_a3[GetNumberBasedOnSeed(13, lengthof(name_austrian_a3), seed)]);
truelight@0: 	}
truelight@833: 	else if (i >= 2)
truelight@833: 	{
truelight@833: 		// St. Johann
truelight@833: 		strcat(buf, name_austrian_a5[GetNumberBasedOnSeed( 7, lengthof(name_austrian_a5), seed)]);
truelight@833: 		strcat(buf, name_austrian_a6[GetNumberBasedOnSeed( 9, lengthof(name_austrian_a6), seed)]);
truelight@833: 		j = 1; // More likely to have a " an der " or " am "
truelight@0: 	}
truelight@833: 	else
truelight@833: 	{
truelight@833: 		// Zell
truelight@833: 		strcat(buf, name_austrian_a4[GetNumberBasedOnSeed( 7, lengthof(name_austrian_a4), seed)]);
truelight@0: 	}
truelight@0: 
truelight@833: 	i = GetNumberBasedOnSeed(1, 6, seed);
truelight@833: 	if (i >= 4 - j)
truelight@833: 	{
truelight@833: 		// an der Donau (rivers)
truelight@833: 		strcat(buf, name_austrian_f1[GetNumberBasedOnSeed(4, lengthof(name_austrian_f1), seed)]);
truelight@833: 		strcat(buf, name_austrian_f2[GetNumberBasedOnSeed(5, lengthof(name_austrian_f2), seed)]);
truelight@0: 	}
truelight@833: 	else if (i >= 2 - j)
truelight@833: 	{
truelight@833: 		// am Dachstein (mountains)
truelight@833: 		strcat(buf, name_austrian_b1[GetNumberBasedOnSeed(4, lengthof(name_austrian_b1), seed)]);
truelight@833: 		strcat(buf, name_austrian_b2[GetNumberBasedOnSeed(5, lengthof(name_austrian_b2), seed)]);
truelight@0: 	}
truelight@0: 
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: static byte MakeGermanTownName(byte *buf, uint32 seed)
truelight@0: {
truelight@0: 	int i;
truelight@0: 
truelight@833: 	//null terminates the string for strcat
truelight@833: 	strcpy(buf, "");
truelight@833: 
truelight@833: 	// optional first segment
truelight@833: 	if ((i = GetNumberBasedOnSeed(0, lengthof(name_german_pre) + 50, seed) - 50) >= 0)
truelight@833: 	{
truelight@833: 		strcat(buf,name_german_pre[i]);
darkvater@4: 	}
truelight@0: 
truelight@833: 	// mandatory middle segments including option of hardcoded name
truelight@833: 	if ((i = GetNumberBasedOnSeed(4, lengthof(name_german_hardcoded) + 50, seed) - 50) >= 0)
truelight@833: 	{
truelight@833: 		strcat(buf,name_german_hardcoded[i]);
truelight@833: 	}
truelight@833: 	else
truelight@833: 	{
truelight@833: 		strcat(buf, name_german_1[GetNumberBasedOnSeed( 7, lengthof(name_german_1), seed)]);
truelight@833: 		strcat(buf, name_german_2[GetNumberBasedOnSeed(10, lengthof(name_german_2), seed)]);
truelight@833: 	}
truelight@833: 
truelight@833: 	//optional last segment
truelight@833: 	if ((i = GetNumberBasedOnSeed(12, 50 + 10, seed) - 50) >= 0)
truelight@833: 	{
truelight@833: 		if (i > 2)
truelight@833: 		{
truelight@833: 			strcat(buf, name_german_3_an_der[GetNumberBasedOnSeed(14, lengthof(name_german_3_an_der), seed)]);
truelight@833: 			strcat(buf, name_german_4_an_der[GetNumberBasedOnSeed(15, lengthof(name_german_4_an_der), seed)]);
truelight@833: 		} else {
truelight@833: 			strcat(buf, name_german_3_am[GetNumberBasedOnSeed(14, lengthof(name_german_3_am), seed)]);
truelight@833: 			strcat(buf, name_german_4_am[GetNumberBasedOnSeed(15, lengthof(name_german_4_am), seed)]);
truelight@833: 		}
truelight@833: 
truelight@0: 
truelight@833: 	}
truelight@833: 	return 0;
truelight@833: }
truelight@0: 
truelight@833: static byte MakeSpanishTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	strcpy(buf, "");
truelight@833: 	strcat(buf, name_spanish_1[GetNumberBasedOnSeed(0, lengthof(name_spanish_1), seed)]);
truelight@833: 	return 0;
truelight@833: }
truelight@0: 
truelight@833: static byte MakeFrenchTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	strcpy(buf, "");
truelight@833: 	strcat(buf, name_french_1[GetNumberBasedOnSeed(0, lengthof(name_french_1), seed)]);
truelight@833: 	return 0;
truelight@833: }
truelight@833: 
truelight@833: static byte MakeSillyTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	strcpy(buf, "");
truelight@833: 	strcat(buf, name_silly_1[GetNumberBasedOnSeed( 0, lengthof(name_silly_1), seed)]);
truelight@833: 	strcat(buf, name_silly_2[GetNumberBasedOnSeed(16, lengthof(name_silly_2), seed)]);
truelight@833: 	return 0;
truelight@833: }
truelight@833: 
truelight@833: static byte MakeSwedishTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	int i;
truelight@833: 
truelight@833: 	//null terminates the string for strcat
truelight@833: 	strcpy(buf, "");
truelight@833: 
truelight@833: 	// optional first segment
truelight@833: 	if ((i = GetNumberBasedOnSeed(0, lengthof(name_swedish_1) + 50, seed) - 50) >= 0)
truelight@833: 	{
truelight@833: 		strcat(buf, name_swedish_1[i]);
darkvater@4: 	}
truelight@0: 
truelight@833: 	// mandatory middle segments including option of hardcoded name
truelight@833: 	if (GetNumberBasedOnSeed(4, 5, seed) >= 3)
truelight@833: 	{
truelight@833: 		strcat(buf, name_swedish_2[GetNumberBasedOnSeed( 7, lengthof(name_swedish_2), seed)]);
truelight@833: 	}
truelight@833: 	else
truelight@833: 	{
truelight@833: 		strcat(buf, name_swedish_2a[GetNumberBasedOnSeed( 7, lengthof(name_swedish_2a), seed)]);
truelight@833: 		strcat(buf, name_swedish_2b[GetNumberBasedOnSeed(10, lengthof(name_swedish_2b), seed)]);
truelight@833: 		strcat(buf, name_swedish_2c[GetNumberBasedOnSeed(13, lengthof(name_swedish_2c), seed)]);
truelight@833: 	}
truelight@0: 
truelight@833: 	strcat(buf, name_swedish_3[GetNumberBasedOnSeed(16, lengthof(name_swedish_3), seed)]);
truelight@833: 
truelight@833: 	return 0;
truelight@833: }
truelight@833: 
truelight@833: static byte MakeDutchTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	int i;
truelight@833: 
truelight@833: 	//null terminates the string for strcat
truelight@833: 	strcpy(buf, "");
truelight@833: 
truelight@833: 	// optional first segment
truelight@833: 	if ((i = GetNumberBasedOnSeed(0, lengthof(name_dutch_1) + 50, seed) - 50) >= 0)
truelight@833: 	{
truelight@833: 		strcat(buf, name_dutch_1[i]);
truelight@833: 	}
truelight@833: 
truelight@833: 	// mandatory middle segments including option of hardcoded name
truelight@833: 	if (GetNumberBasedOnSeed(6, 9, seed) > 4)
truelight@833: 	{
truelight@833: 		strcat(buf, name_dutch_2[GetNumberBasedOnSeed( 9, lengthof(name_dutch_2), seed)]);
truelight@833: 	}
truelight@833: 	else
truelight@833: 	{
truelight@833: 		strcat(buf, name_dutch_3[GetNumberBasedOnSeed( 9, lengthof(name_dutch_3), seed)]);
truelight@833: 		strcat(buf, name_dutch_4[GetNumberBasedOnSeed(12, lengthof(name_dutch_4), seed)]);
truelight@833: 	}
truelight@833: 	strcat(buf, name_dutch_5[GetNumberBasedOnSeed(15, lengthof(name_dutch_5), seed)]);
truelight@833: 
truelight@833: 	return 0;
truelight@833: }
truelight@833: 
truelight@833: static byte MakeFinnishTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	//null terminates the string for strcat
truelight@833: 	strcpy(buf, "");
truelight@833: 
truelight@833: 	// Select randomly if town name should consists of one or two parts.
truelight@833: 	if (GetNumberBasedOnSeed(0, 15, seed) >= 10)
truelight@833: 	{
truelight@833: 		strcat(buf, name_finnish_1[GetNumberBasedOnSeed( 2, lengthof(name_finnish_1), seed)]);
truelight@833: 	}
truelight@833: 	else
truelight@833: 	{
truelight@833: 		strcat(buf, name_finnish_2a[GetNumberBasedOnSeed( 2, lengthof(name_finnish_2a), seed)]);
truelight@833: 		strcat(buf, name_finnish_2b[GetNumberBasedOnSeed(10, lengthof(name_finnish_2b), seed)]);
truelight@833: 	}
truelight@833: 
truelight@833: 	return 0;
truelight@833: }
truelight@833: 
truelight@833: static byte MakePolishTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	int i, j;
truelight@833: 
truelight@833: 	//null terminates the string for strcat
truelight@833: 	strcpy(buf, "");
truelight@833: 
truelight@833: 	// optional first segment
truelight@833: 	i = GetNumberBasedOnSeed(0,
truelight@833: 					lengthof(name_polish_2_o) +
truelight@833: 					lengthof(name_polish_2_m) +
truelight@833: 					lengthof(name_polish_2_f) +
truelight@833: 					lengthof(name_polish_2_n), seed);
truelight@833: 	j = GetNumberBasedOnSeed(2, 20, seed);
truelight@833: 
truelight@833: 
truelight@833: 	if (i < lengthof(name_polish_2_o))
truelight@833: 	{
truelight@833: 		strcat(buf, name_polish_2_o[GetNumberBasedOnSeed(3, lengthof(name_polish_2_o), seed)]);
truelight@833: 	}
truelight@833: 	else if (i < lengthof(name_polish_2_m) + lengthof(name_polish_2_o))
truelight@833: 	{
truelight@833: 		if (j < 4)
truelight@833: 			strcat(buf, name_polish_1_m[GetNumberBasedOnSeed(5, lengthof(name_polish_1_m), seed)]);
truelight@833: 
truelight@833: 		strcat(buf, name_polish_2_m[GetNumberBasedOnSeed(7, lengthof(name_polish_2_m), seed)]);
truelight@833: 
truelight@833: 		if (j >= 4 && j < 16)
truelight@833: 			strcat(buf, name_polish_3_m[GetNumberBasedOnSeed(10, lengthof(name_polish_3_m), seed)]);
truelight@833: 	}
truelight@833: 	else if (i < lengthof(name_polish_2_f) + lengthof(name_polish_2_m) + lengthof(name_polish_2_o))
truelight@833: 	{
truelight@833: 		if (j < 4)
truelight@833: 			strcat(buf, name_polish_1_f[GetNumberBasedOnSeed(5, lengthof(name_polish_1_f), seed)]);
truelight@833: 
truelight@833: 		strcat(buf, name_polish_2_f[GetNumberBasedOnSeed(7, lengthof(name_polish_2_f), seed)]);
truelight@833: 
truelight@833: 		if (j >= 4 && j < 16)
truelight@833: 			strcat(buf, name_polish_3_f[GetNumberBasedOnSeed(10, lengthof(name_polish_3_f), seed)]);
truelight@833: 	}
truelight@833: 	else
truelight@833: 	{
truelight@833: 		if (j < 4)
truelight@833: 			strcat(buf, name_polish_1_n[GetNumberBasedOnSeed(5, lengthof(name_polish_1_n), seed)]);
truelight@833: 
truelight@833: 		strcat(buf, name_polish_2_n[GetNumberBasedOnSeed(7, lengthof(name_polish_2_n), seed)]);
truelight@833: 
truelight@833: 		if (j >= 4 && j < 16)
truelight@833: 			strcat(buf, name_polish_3_n[GetNumberBasedOnSeed(10, lengthof(name_polish_3_n), seed)]);
truelight@833: 	}
truelight@833: 	return 0;
truelight@833: }
truelight@833: 
truelight@833: static byte MakeCzechTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	strcpy(buf, "");
truelight@833: 	strcat(buf, name_czech_1[GetNumberBasedOnSeed(0, lengthof(name_czech_1), seed)]);
truelight@833: 	return 0;
truelight@833: }
truelight@833: 
truelight@833: static byte MakeRomanianTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	strcpy(buf, "");
truelight@833: 	strcat(buf, name_romanian_1[GetNumberBasedOnSeed(0, lengthof(name_romanian_1), seed)]);
truelight@833: 	return 0;
truelight@833: }
truelight@833: 
truelight@833: static byte MakeSlovakTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	strcpy(buf, "");
truelight@833: 	strcat(buf, name_slovakish_1[GetNumberBasedOnSeed(0, lengthof(name_slovakish_1), seed)]);
truelight@833: 	return 0;
truelight@833: }
truelight@833: 
truelight@833: static byte MakeHungarianTownName(byte *buf, uint32 seed)
truelight@833: {
truelight@833: 	int i;
truelight@833: 
truelight@833: 	//null terminates the string for strcat
truelight@833: 	strcpy(buf, "");
truelight@833: 
truelight@833: 	if (GetNumberBasedOnSeed(12, 15, seed) < 3)
truelight@833: 	{
truelight@833: 		strcat(buf, name_hungarian_real[GetNumberBasedOnSeed(0, lengthof(name_hungarian_real), seed)]);
truelight@833: 	}
truelight@833: 	else
truelight@833: 	{
truelight@833: 		// optional first segment
truelight@833: 		if ((i = GetNumberBasedOnSeed(0, lengthof(name_hungarian_1) * 3, seed)) < lengthof(name_hungarian_1))
truelight@833: 		{
truelight@833: 			strcat(buf, name_hungarian_1[i]);
truelight@833: 		}
truelight@833: 
truelight@833: 		// mandatory middle segments
truelight@833: 		strcat(buf, name_hungarian_2[GetNumberBasedOnSeed(3, lengthof(name_hungarian_2), seed)]);
truelight@833: 		strcat(buf, name_hungarian_3[GetNumberBasedOnSeed(6, lengthof(name_hungarian_3), seed)]);
truelight@833: 
truelight@833: 		// optional last segment
truelight@833: 		if ((i = GetNumberBasedOnSeed(10, lengthof(name_hungarian_4) * 3, seed)) < lengthof(name_hungarian_4)) {
truelight@833: 			strcat(buf, name_hungarian_4[i]);
truelight@0: 		}
darkvater@4: 	}
truelight@0: 
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: TownNameGenerator * const _town_name_generators[] = {
truelight@833: 	MakeEnglishOriginalTownName,
truelight@0: 	MakeFrenchTownName,
truelight@0: 	MakeGermanTownName,
truelight@833: 	MakeEnglishAdditionalTownName,
truelight@0: 	MakeSpanishTownName,
truelight@0: 	MakeSillyTownName,
truelight@0: 	MakeSwedishTownName,
truelight@0: 	MakeDutchTownName,
truelight@0: 	MakeFinnishTownName,
truelight@0: 	MakePolishTownName,
tron@428: 	MakeSlovakTownName,
truelight@0: 	MakeHungarianTownName,
darkvater@233: 	MakeAustrianTownName,
dominik@264: 	MakeRomanianTownName,
dominik@264: 	MakeCzechTownName,
truelight@0: };
darkvater@4: 
truelight@833: // DO WE NEED THIS ANY MORE?
darkvater@4: #define FIXNUM(x, y, z) (((((x) << 16) / (y)) + 1) << z)
darkvater@4: 
darkvater@4: uint32 GetOldTownName(uint32 townnameparts, byte old_town_name_type)
darkvater@4: {
darkvater@4: 	switch (old_town_name_type) {
darkvater@4: 		case 0: case 3: /* English, American */
darkvater@4: 			/*	Already OK */
darkvater@4: 			return townnameparts;
darkvater@4: 		case 1: /* French */
darkvater@4: 			/*	For some reason 86 needs to be subtracted from townnameparts
truelight@833: 			*	0000 0000 0000 0000 0000 0000 1111 1111 */
truelight@833: 			return FIXNUM(townnameparts - 86, lengthof(name_french_1), 0);
darkvater@4: 		case 2: /* German */
darkvater@65: 			DEBUG(misc, 0) ("German Townnames are buggy... (%d)", townnameparts);
darkvater@4: 			return townnameparts;
darkvater@4: 		case 4: /* Latin-American */
darkvater@4: 			/*	0000 0000 0000 0000 0000 0000 1111 1111 */
truelight@833: 			return FIXNUM(townnameparts, lengthof(name_spanish_1), 0);
darkvater@4: 		case 5: /* Silly */
darkvater@4: 			/*	NUM_SILLY_1	-	lower 16 bits
truelight@833: 			*	NUM_SILLY_2	-	upper 16 bits without leading 1 (first 8 bytes)
truelight@833: 			*	1000 0000 2222 2222 0000 0000 1111 1111 */
truelight@833: 			return FIXNUM(townnameparts, lengthof(name_silly_1), 0) | FIXNUM(((townnameparts >> 16)&0xFF), lengthof(name_silly_2), 16);
darkvater@4: 	}
darkvater@4: 	return 0;
darkvater@4: }