numberplanet.bas

'Programmer: [REDACTED]
'Date: October 10th, 2017
'purpose: numerical-only planet generator
'extra: maybe draw the planet

CLS
RANDOMIZE TIMER

SCREEN 12

'Deep breath. Lets get started.

PRINT "Planet found!" 'lets say we just discovered it

'Ok, first lets go with easy stuff. numbers. Temp, size, maybe tilt... lets see.

temp% = INT(RND * 100) 'Why bother with units?

'tilt% = INT(RND * 180) 'because angles

size% = INT(RND * 100) 'FIX THIS LATER, THIS IS A WILD GUESS!!!

sky% = INT(RND * 15) 'outline should be this color, its the atmosphere

ground% = INT(RND * 15) 'middle should be this color, its the land

PRINT "Information analyzed!"

'ok now lets draw it i guess?

COLOR sky%
CIRCLE (100, 300), size%
PAINT STEP(0, 0), ground%, sky%

faketilt% = INT(RND * 3)

IF faketilt% = 0 THEN LINE (50, 300)-(150, 300)
IF faketilt% = 1 THEN LINE (100, 200)-(100, 400)
IF faketilt% = 2 THEN LINE (50, 250)-(150, 350)
IF faketilt% = 3 THEN LINE (150, 250)-(50, 350)

COLOR 15

PRINT "Temperature:"; temp%
PRINT "Axis offset:"; faketilt%
PRINT "Size:"; size%