Oolite Bulletins

Code: Select all

- (NSString *) generateSystemName:(Random_Seed) s_seed
{
	int i;
	
	NSString			*digrams = [self descriptionForKey:@"digrams"];
	NSString			*apostrophe = [self descriptionForKey:@"digrams-apostrophe"];
	NSMutableString		*name = [NSMutableString string];
	int size = 4;
	
	if ((s_seed.a & 0x40) == 0)
		size = 3;
	
	for (i = 0; i < size; i++)
	{
		NSString *c1, *c2;
		int x = s_seed.f & 0x1f;
		if (x != 0)
		{
			x += 12;	x *= 2;
			c1 = [digrams substringWithRange:NSMakeRange(x,1)];
			c2 = [digrams substringWithRange:NSMakeRange(x+1,1)];
			[name appendString:c1];
			if (![c2 isEqual:apostrophe])		[name appendString:c2];
		}
		rotate_seed(&s_seed);
	}
	
	return [name capitalizedString];
}

Code: Select all

OOGovernmentID government = (s_seed.c / 8) & 7;
	
OOEconomyID economy = s_seed.b & 7;
if (government < 2)
	economy = economy | 2;

OOTechLevelID techlevel = (economy ^ 7) + (s_seed.d & 3) + (government / 2) + (government & 1);
	
unsigned population = (unsigned)(techlevel * 4) + government + economy + 1;

unsigned productivity = ((economy ^ 7) + 3) * (government + 4) * population * 8;
	
unsigned radius = (((s_seed.f & 15) + 11) * 256) + s_seed.d;

Code: Select all

NSString *OOExpandDescriptionString(Random_Seed seed, NSString *string, NSDictionary *overrides, NSDictionary *legacyLocals, NSString *systemName, OOExpandOptions options)
{
	if (string == nil)  return nil;
	
	OOStringExpansionContext context =
	{
		.seed = seed,
		.systemName = [systemName retain],
		.overrides = [overrides retain],
		.legacyLocals = [legacyLocals retain],
		.isJavaScript = options & kOOExpandForJavaScript,
		.convertBackslashN = options & kOOExpandBackslashN,
		.useGoodRNG = options & kOOExpandGoodRNG
	};
	
	// Avoid recursive %I expansion by pre-seeding cache with literal %I.
	if (options & kOOExpandDisallowPercentI) {
		context.systemNameWithIan = @"%I";
	}
	
	OORandomState savedRandomState;
	if (options & kOOExpandReseedRNG)
	{
		savedRandomState = OOSaveRandomState();
		OOSetReallyRandomRANROTAndRndSeeds();
	}
	
	NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
	NSString *result = nil, *intermediate = nil;
	@try
	{
		// TODO: profile caching the results. Would need to keep track of whether we've done something nondeterministic (array selection, %R etc).
		if (options & kOOExpandKey)
		{
			intermediate = ExpandStringKey(&context, string, kStackAllocationLimit, kRecursionLimit);
		}
		else
		{
			intermediate = Expand(&context, string, kStackAllocationLimit, kRecursionLimit);
		}
		if (!context.hasPercentR)
		{
			result = intermediate;
		}
		else
		{
			result = ExpandPercentR(&context, intermediate);
		}
	}
	@finally
	{
		[context.systemName release];
		[context.overrides release];
		[context.legacyLocals release];
		[context.systemNameWithIan release];
		[context.randomNameN release];
		[context.randomNameR release];
		[context.systemDescriptions release];
	}
	
	if (options & kOOExpandReseedRNG)
	{
		OORestoreRandomState(savedRandomState);
	}
	
	result = [result copy];
	[pool release];
	return [result autorelease];
}

Code: Select all

Random_Seed g0 = {0x4a, 0x5a, 0x48, 0x02, 0x53, 0xb7};

Code: Select all

w0 = 5A4A , w1 = 0248 , w2 = B753

Code: Select all

"[14] is [22]"

( // [14]				--> 0
	"%H",
	"The planet %H",
	"The world %H",
	"This planet",
	"This world"
),

( // [22]				--> 3
	"[1] [0] for [9]",
	"[1] [0] for [9] and [9]",
	"[7] by [8]",
	"[1] [0] for [9] but [7] by [8]",
	"a[15] [16]"
),

[1] - resonably				--> 3
[0] - well known			--> 2
[9] - "its [2] [3]" 			--> 0

[2] - great				--> 2
[3] - "[19] forests"			--> 3

[19] - dense				--> 1

[7] - scourged				--> 4

[8] - "[21] civil war"			--> 0

[21] - deadly				--> 4

Code: Select all

...

// Seed variables
int w0;
int w1;
int w2;
// Extra seed variables used for the planet description
int rnd_seed_a; // = s_seed.c;
int rnd_seed_b; // = s_seed.d;
int rnd_seed_c; // = s_seed.e;
int rnd_seed_d; // = s_seed.f;

int gen_rnd_number()
{
	// Generates a pseudo random number based on the current seed and makes a seed rotation	
	// This function was taken from the OOLite 1.80 source and modified
	int a,x;
	
	x = (rnd_seed_a * 2) & 0xFF;
	a = x + rnd_seed_c;
	if (rnd_seed_a > 127)
		a++;
	rnd_seed_a = a & 0xFF;
	rnd_seed_c = x;
	
	a = a / 256;	/* a = any carry left from above */
	x = rnd_seed_b;
	a = (a + x + rnd_seed_d) & 0xFF;
	rnd_seed_b = a;
	rnd_seed_d = x;
	return a;
}

void main()
{	
	...
	
	MoveToPlanet(1,1,0);	// Moves the planet seed to the desired planet

	printf("planet seed w0 w1 w2:\n%x %x %x\n\n",w0,w1,w2);
	
	// set rnd_seed_a to s_seed.c --> lsb of w1 -> w1 & 0x00FF
	rnd_seed_a = w1 & 0x00FF;
	// set rnd_seed_b to s_seed.d --> hsb of w1 -> (w1 >> 8) & 0x00FF
	rnd_seed_b = (w1 >> 8) & 0x00FF;
	// set rnd_seed_c to s_seed.e --> lsb of w2 -> w2 & 0x00FF
	rnd_seed_c = w2 & 0x00FF;
	// set rnd_seed_d to s_seed.f --> hsb of w2 -> (w2 >> 8) & 0x00FF
	rnd_seed_d = (w2 >> 8) & 0x00FF;

	printf("rnd seed abcd:\n%x %x %x %x\n\n",rnd_seed_a,rnd_seed_b,rnd_seed_c,rnd_seed_d);
	
	int rndnum;
	for (int i = 1; i <11; i++)
	{
		rndnum = gen_rnd_number();
		printf("%-2d. %d (%d)\n",i,rndnum % 5, rndnum);
	}
	
}