Changed the genetic brest input to selectable options

locations/preSYS2

@@ -26,12 +26,109 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'modapp':
+	if genbsize = 0:genbsize = 12
+
+	'Choose base genetic breast size:'
+	nl
+	if genbsize = 2:
+		'Very small - Currently set'
+	else
+		'<a href="exec:genbsize = 2 & gt ''preSYS2'',''modapp''">Very small</a>'
+	end
+
+	if genbsize = 7:
+		'Below average - Currently set'
+	else
+		'<a href="exec:genbsize = 7 & gt ''preSYS2'',''modapp''">Below average</a>'
+	end
 	
+	if genbsize = 12:
+		'Average - Currently set'
+	else
+		'<a href="exec:genbsize = 12 & gt ''preSYS2'',''modapp''">Average</a>'
+	end
+	
+	if genbsize = 17:
+		'Above average - Currently set'
+	else
+		'<a href="exec:genbsize = 17 & gt ''preSYS2'',''modapp''">Very small</a>'
+	end
+
+	if genbsize = 22:
+		'Large - Currently set'
+	else
+		'<a href="exec:genbsize = 22 & gt ''preSYS2'',''modapp''">Large</a>'
+	end
+
+	if genbsize = 27:
+		'Extra large - Currently set'
+	else
+		'<a href="exec:genbsize = 27 & gt ''preSYS2'',''modapp''">Extra large</a>'
+	end
+
+	if genbsize = 32:
+		'Really big - Currently set'
+	else
+		'<a href="exec:genbsize = 32 & gt ''preSYS2'',''modapp''">Really big</a>'
+	end
+
+	if genbsize = 37:
+		'Massive - Currently set'
+	else
+		'<a href="exec:genbsize = 37 & gt ''preSYS2'',''modapp''">Massive</a>'
+	end
+
+	if genbsize = 42:
+		'Getting silly - Currently set'
+	else
+		'<a href="exec:genbsize = 42 & gt ''preSYS2'',''modapp''">Getting silly</a>'
+	end
+
+	if genbsize = 47:
+		'Crazy big - Currently set'
+	else
+		'<a href="exec:genbsize = 47 & gt ''preSYS2'',''modapp''">Crazy big</a>'
+	end
+
+	if genbsize = 57:
+		'Freakishly big - Currently set'
+	else
+		'<a href="exec:genbsize = 57 & gt ''preSYS2'',''modapp''">Freakishly big</a>'
+	end
+	
+	if genbsize = 67:
+		'Will struggle to open doors or see the ground big - Currently set'
+	else
+		'<a href="exec:genbsize = 67 & gt ''preSYS2'',''modapp''">Will struggle to open doors or see the ground big</a>'
+	end
+	
+	if genbsize = 87:
+		'You''ve been eclipsed by 2 small moons - Currently set'
+	else
+		'<a href="exec:genbsize = 87 & gt ''preSYS2'',''modapp''">You''ve been eclipsed by 2 small moons</a>'
+	end
+
 	act 'Body fat (<<salo>>/200)':  gs 'preSYS2','setsalo' & salo = nstat & gt 'preSYS2','modapp'
-	act 'Genetic bust size (<<genbsize>>/97)': gs 'preSYS2','setgenbsize' & genbsize= nstat & gt 'preSYS2','modapp'
 	act 'Return': gt'preSYS2','start'
 end
 
+if $ARGS[0] = 'setgenbsize':
+	nstat = genbsize
+	nstat = input 'Enter value that ends in a 2 or a 7. For example, 2, 7, 12 etc.'
+	if nstat > 97:
+		msg 'Please enter a value less than or equal to 97'
+		gs 'preSYS2', 'setval2'
+	elseif nstat < 2:
+		msg 'Please enter a value greater than or equal to 2'
+		gs 'preSYS2', 'setval2'
+	elseif nstat mod 5 ! 2:
+		msg 'Please enter a value that ends in 2, or a 7'
+		gs 'preSYS2', 'setval2'
+	else
+		exit
+	end
+end
+
 if $ARGS[0] = 'modite':
 	act 'Fake passport (<<fakepassport>>/1)':
 		if fakepassport = 0:
@@ -230,23 +327,6 @@ if $ARGS[0] = 'setsalo':
 	end
 end
 
-if $ARGS[0] = 'setgenbsize':
-	nstat = genbsize
-	nstat = input 'Enter value that ends in a 2 or a 7. For example, 2, 7, 12 etc.'
-	if nstat > 97:
-		msg 'Please enter a value less than or equal to 97'
-		gs 'preSYS2', 'setval2'
-	elseif nstat < 2:
-		msg 'Please enter a value greater than or equal to 2'
-		gs 'preSYS2', 'setval2'
-	elseif nstat mod 5 ! 2:
-		msg 'Please enter a value that ends in 2, or a 7'
-		gs 'preSYS2', 'setval2'
-	else
-		exit
-	end
-end
-
 if $ARGS[0] = 'modgrup':
 	cls
 	'Your current social group is <<$soc_grup>>.'