[added] Some prettying up of the full custom stuff with destriptions for weights and images for the purses

locations/preSYS2.qsrc

@@ -31,6 +31,7 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'modapp':
+	cla & clr
 	if genbsize = 0:genbsize = 12
 
 	'Choose base genetic breast size:'
@@ -231,7 +232,7 @@ if $ARGS[0] = 'modite_mis':
 end
 
 if $ARGS[0] = 'modpur':
-	cls
+	clr & cla
 	if $currentpursetype = '': 
 		'You do not own a purse.'
 	else
@@ -242,60 +243,51 @@ if $ARGS[0] = 'modpur':
 		end
 		'Your current purse is <<$currentpursetype>>_<<currentpursenumber>>.'
 	end
+	act 'Return': gt'preSYS2','start'
 	act 'Get cheap':
-		nbag = input ("Please enter a value between 1 to 14")
-		if nbag < 1 or nbag > 14: 
-			gt 'preSYS2','modpur'
-		else
-			bag = 1
-			$currentpursetype = 'cheap'
-			currentpursenumber = nbag
-			gt 'preSYS2','modpur'
-		end
+		clr & cla
+		'<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
+		i = 1
+		:loopcheappurses
+		*p '<a href="exec:gt ''preSYS2'', ''modpur'' & $currentpursetype = ''cheap'' & currentpursenumber = i"><img src="images/pc/purses/cheap/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 14:jump 'loopcheappurses'
 	end	
 	act 'Get dolls':
-		nbag = input 'Please enter a value between 1 to 22'
-		if nbag < 1 or nbag > 22: 
-			gt 'preSYS2','modpur'
-		else
-			bag = 1
-			$currentpursetype = 'dolls'
-			currentpursenumber = nbag
-			gt 'preSYS2','modpur'
-		end
+		clr & cla
+		'<center><img src="images/locations/city/island/dolls.png"></center>'
+		i = 1
+		:loopcheappurses
+		*p '<a href="exec:gt ''preSYS2'', ''modpur'' & $currentpursetype = ''cheap'' & currentpursenumber = i"><img src="images/pc/purses/cheap/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 22:jump 'loopcheappurses'
 	end
 	act 'Get fashionista':
-		nbag = input 'Please enter a value between 1 to 15'
-		if nbag < 1 or nbag > 15: 
-			gt 'preSYS2','modpur'
-		else
-			bag = 1
-			$currentpursetype = 'fashionista'
-			currentpursenumber = nbag
-			gt 'preSYS2','modpur'
-		end
+		clr & cla
+		'<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
+		i = 1
+		:loopfashionistapurses
+		*p '<a href="exec:gt ''preSYS2'', ''modpur'' & $currentpursetype = ''fashionista'' & currentpursenumber = i"><img src="images/pc/purses/fashionista/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 15:jump 'loopfashionistapurses'
 	end
 	act 'Get kats':
-		nbag = input 'Please enter a value between 1 to 14'
-		if nbag < 1 or nbag > 14: 
-			gt 'preSYS2','modpur'
-		else
-			bag = 1
-			$currentpursetype = 'kats'
-			currentpursenumber = nbag
-			gt 'preSYS2','modpur'
-		end
+		clr & cla
+		'<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
+		i = 1
+		:loopkatspurses
+		*p '<a href="exec:gt ''preSYS2'', ''modpur'' & $currentpursetype = ''kats'' & currentpursenumber = i"><img src="images/pc/purses/kats/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 14:jump 'loopkatspurses'
 	end
 	act 'Get moncheri':
-		nbag = input 'Please enter a value between 1 to 17'
-		if nbag < 1 or nbag > 17: 
-			gt 'preSYS2','modpur'
-		else
-			bag = 1
-			$currentpursetype = 'boutique'
-			currentpursenumber = nbag
-			gt 'preSYS2','modpur'
-		end
+		clr & cla
+		'<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
+		i = 1
+		:loopboutiquepurses
+		*p '<a href="exec:gt ''preSYS2'', ''modpur'' & $currentpursetype = ''boutique'' & currentpursenumber = i"><img src="images/pc/purses/moncheri/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 17:jump 'loopboutiquepurses'
 	end
 	act 'I do not want a purse':
 		bag = 0
@@ -303,7 +295,6 @@ if $ARGS[0] = 'modpur':
 		currentpursenumber = ''
 		gt 'preSYS2','modpur'
 	end	
-	act 'Return': gt'preSYS2','start'
 end
 !!This is used to set value, is used to avoid any values that go below 5.
 if $ARGS[0] = 'setval':
@@ -361,6 +352,15 @@ if $ARGS[0] = 'setval3':
 end
 
 if $ARGS[0] = 'setsalo':
+	clr & cla
+	'20 = underweight, slight, wiry'
+	'40 = slender, skinny, lean'
+	'60 = healthy, toned, ripped'
+	'80 = cute, muscular'
+	'100 = chubby, curvy, herculean'
+	'120 = overweight, stocky'
+	'140 = fat, heavy set'
+
 	nstat = salo
 	nstat = input 'Enter value in multiples of 20. For example, 20, 40, 60 etc.'
 	if nstat > 200:
@@ -378,7 +378,7 @@ if $ARGS[0] = 'setsalo':
 end
 
 if $ARGS[0] = 'modgrup':
-	cls
+	clr & cla
 	'Your current social group is <<$soc_grup>>.'
 	act 'Nerd, Geek, Student': $soc_grup = 'nerd'& gt 'preSYS2','modgrup'
 	act 'Athlete, Jock':$soc_grup = 'jock'& gt 'preSYS2','modgrup'
@@ -392,6 +392,7 @@ if $ARGS[0] = 'modgrup':
 end
 
 if $ARGS[0] = 'modatt':
+	clr & cla
 	$metka = 'modatt'
 	'<center><b>Attributes</b></center>'
 	*nl
@@ -417,7 +418,7 @@ if $ARGS[0] = 'modatt':
 end
 
 if $ARGS[0] = 'modskl':
-	!cla
+	clr & cla
 	act 'Mental skills':gt 'preSYS2','modskl_men'
 	act 'Sport skills':gt 'preSYS2','modskl_spo'
 	act 'Beauty skills':gt 'preSYS2','modskl_bea'
@@ -427,6 +428,7 @@ if $ARGS[0] = 'modskl':
 end
 
 if $ARGS[0] = 'modskl_men':
+	clr & cla
 	$metka = 'modskl_men'
 	'<center><b>Mental Skills</b></center>'
 	*nl
@@ -443,6 +445,7 @@ if $ARGS[0] = 'modskl_men':
 end
 
 if $ARGS[0] = 'modskl_spo':
+	clr & cla
 	$metka = 'modskl_spo'
 	'<center><b>Sport Skills</b></center>'
 	*nl
@@ -468,6 +471,7 @@ if $ARGS[0] = 'modskl_spo':
 end
 
 if $ARGS[0] = 'modskl_bea':
+	clr & cla
 	$metka = 'modskl_bea'
 	'<center><b>Beauty skills</b></center>'
 	*nl
@@ -486,6 +490,7 @@ if $ARGS[0] = 'modskl_bea':
 end
 
 if $ARGS[0] = 'modskl_art':
+	clr & cla
 	$metka = 'modskl_art'
 	'<center><b>Artistic Skills</b></center>'
 	*nl
@@ -503,6 +508,7 @@ if $ARGS[0] = 'modskl_art':
 end
 
 if $ARGS[0] = 'modskl_job':
+	clr & cla
 	$metka = 'modskl_job'
 	'<center><b>Job Skills</b></center>'
 	*nl