[changed] Clothing menu page now shows all clothing and not just outfit and coat

locations/obj_din.qsrc

@@ -1796,38 +1796,90 @@ if $ARGS[0] = 'clothes':
 	*clr
 	gs 'obj_din','bodytabs'
 	'<center><h1>Clothes</h1></center>'
-	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
-	'<td width="50%" cellspacing="0" cellpadding="20" valign="top">'
+	
+	'<center><table border=0 cellspacing=<<ward_img_hgt/25>> cellpadding=5>'
+	
+	if underwear['type'] = 0:
+		*p '<TH>Bra worn</TH><TH>Outfit worn</TH><TH>Coat (only worn outside when cold)</TH>'
+		*P '<TR><TD><center><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'',''bra'')>>"></center></TD><TD><center><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'',''clothes'')>>"></center></TD><TD><center>'
+	else
+		*p '<TH>Bodysuit worn</TH><TH>Outfit worn</TH><TH>Coat (only worn outside when cold)</TH>'
+		*P '<TR><TD ROWSPAN=4><center><img Height = <<ward_img_hgt>>*2 src="<<FUNC(''$body_image'',''bodysuit'')>>"></center></TD><TD><center><a href="exec:gt ''clothing_QV'', ''list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'',''clothes'')>>"></a></center></TD><TD><center>'
+	end
+
+	if $coatworntype ! 'none':
+		'<img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'', ''coat'')>>">'
+	end
+	if underwear['type'] = 0:
+		'</center></TD><TR><TD><center>'
+		if $braworntype ! 'none':
+			'You are wearing <<$braworntype>> bra no. <<brawornnumber>>'
+		else
+			'You are not wearing a bra'
+		end
+		'</center></TD><TD><center>'
+	else
+		'</center></TD><TR><TD><center>'
+	end
 	!move image define to $body_image
 	!display cloth
 	$img_temp = func('$body_image','clothes')
 	if $modApi_clothes_image ! '':
 		$img_temp = $modApi_clothes_image
 	end
-	'<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
 	if $modApi_clothes_image_msg = '':
 		'<<$body_image_msg>>'
 	else
 		'<<$modApi_clothes_image_msg>>'
 	end
-	'</td><td width="50%" cellpadding="20" valign="top">'
+	'</center></TD><TD><center>'
 	!display coat
 	$img_temp = func('$body_image','coat')
-	if $modApi_coat_image ! '':
-		$img_temp = $modApi_coat_image
-	end
-	'<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
 	if $modApi_coat_image_msg = '':
 		'<<$body_image_msg>>'
 	else
 		'<<$modApi_coat_image_msg>>'
 	end
-	'</td></tr>'
-	'</table></center>'
+	'</center></TD>'
 
-	killvar 'img_temp'
-	killvar 'body_image_msg'
-	'</td></tr></table></center>'
+	if underwear['type'] = 0:
+		*p '<TR><TH>Panties worn</TH><TH>Shoes (Only worn outside)</TH><TH>Purse worn</TH>'
+		*P '<TR><TD><center><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'',''panties'')>>"></center></TD><TD><center><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'', ''shoes'')>>"></center></TD><TD><center>'
+	else
+		*p '<TR><TH>Shoes (Only worn outside)</TH><TH>Purse worn</TH>'
+		*P '<TR><TD><center><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'', ''shoes'')>>"></center></TD><TD><center>'
+	end
+	if bag = 1:
+		'<img Height = <<ward_img_hgt>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></a>'
+	end
+
+	if underwear['type'] = 0:
+		'</center></TD><TR><TD><center>'
+		if $pantyworntype ! 'none':
+			'You are wearing <<$pantyworntype>> panties no. <<pantywornnumber>>'
+		else
+			'You are not wearing panties'
+		end
+		'</center></TD><TD><center>'
+	else
+		'</center></TD><TR><TD><center>'
+		'<a href="exec:gs ''underwear_bodysuits'', ''remove'' & underwear[''type''] = 0 & gt ''wardrobe'', ''main''">Remove</a>'
+		'</center></TD><TD><center>'
+	end
+	if $shoeworntype ! 'none':
+		'You are wearing <<$shoeworntype>> shoes no. <<shoewornnumber>>'
+	else
+		'You do not have any shoes selected'
+	end
+	'</center></TD><TD><center>'
+	if bag = 1:
+		'You are using <<$currentpursetype>> purse no. <<currentpursenumber>>'
+	else
+		'You do not have a purse equipped'
+	end
+	'</center></TD><TR><TD><TD><center>'
+	*nl
+	'<TD></center></TD></table></center>'
 end
 
 if $ARGS[0] = 'panties':