Added bras to body image and removed breasts as they'll now show if not wearing a bra.

glife.qproj

@@ -896,6 +896,7 @@
       <Location name="$menu_face"/>
       <Location name="$menu_body"/>
       <Location name="$menu_clothes"/>
+      <Location name="$menu_bra"/>
       <Location name="$menu_panties"/>
       <Location name="$menu_shoes"/>
       <Location name="$menu_tattoos"/>

locations/_body_image

@@ -26,13 +26,6 @@ if $ARGS[0] = 'body':
 	$body_image_msg += 'You are <<pcs_hgt>>cm tall and <<$body>>'
 end
 
-!----add on
-if $ARGS[0] = 'breast':
-	$RESULT = 'images/pc/body/tits/t<<tits>>.jpg'
-	$body_image_msg += 'Your breasts would be considered an EU <<$titsize>>'
-end
-!----
-
 if $ARGS[0] = 'coat':
 	clr
 	if defaultcoat = 0:
@@ -111,6 +104,18 @@ if $ARGS[0] = 'panties':
 	end
 end
 
+if $ARGS[0] = 'bra':
+	if $braworntype = 'none':
+		$RESULT = 'images/pc/body/tits/t<<tits>>.jpg'
+		$body_image_msg += 'You are not wearing a bra. Your breasts would be considered an EU <<$titsize>>'
+	else
+		$RESULT = FUNC('$bra_image', $braworntype, brawornnumber)
+		!Kevin, please edit this line. I can not find bra description		
+		!$body_image_msg += 'You are wearing ' + FUNC('$shoe_description', $shoeworntype) + '<<shoewornnumber>>.'
+		$body_image_msg += 'You are wearing <<$braworntype>> bra <<brawornnumber>>. Your breasts would be considered an EU <<$titsize>>'
+	end
+end
+
 if $ARGS[0] = 'shoes':
 	if $clothingworntype = 'nude' or $shoeworntype = 'none':
 		$RESULT = 'images/pc/body/feet.jpg'

locations/_menu_bra

@@ -0,0 +1,5 @@
+# $menu_bra
+gs 'obj_din', 'bra'
+
+--- $menu_bra ---------------------------------
+

locations/obj_din

@@ -1463,6 +1463,17 @@ if $ARGS[0] = 'panties':
 	end
 	}
 end
+
+if $ARGS[0] = 'bra':
+	clr
+	pl'<center><a href="exec:gs''$menu_obnovit''"><b>Bra</b></a></center>'	
+	$img_temp = FUNC('$body_image','bra')
+	pl '<a href="exec:view ''<<$img_temp>>''"><img <<$set_imgh>> src="<<$img_temp>>"></a>'
+	pl '<<$body_image_msg>>'
+	killvar 'img_temp'
+	killvar 'body_image_msg'
+end
+
 if $ARGS[0] = 'shoes':
 	clr
 	pl'<center><a href="exec:gs''$menu_obnovit''"><b>Shoes</b></a></center>'

locations/onobjsel

@@ -15,10 +15,11 @@ killvar 'menu_lookon'
 $menu_lookon[0] = 'Face:$menu_face'
 $menu_lookon[1] = 'Body:$menu_body'
 $menu_lookon[2] = 'Clothing:$menu_clothes'
-$menu_lookon[3] = 'Panties:$menu_panties'
-$menu_lookon[4] = 'Shoes:$menu_shoes'
-$menu_lookon[5] = 'Tattoos:$menu_tattoos'
-$menu_lookon[6] = 'Piercing:$menu_pirs'
+$menu_lookon[3] = 'Bra:$menu_bra'
+$menu_lookon[4] = 'Panties:$menu_panties'
+$menu_lookon[5] = 'Shoes:$menu_shoes'
+$menu_lookon[6] = 'Tattoos:$menu_tattoos'
+$menu_lookon[7] = 'Piercing:$menu_pirs'
 
 killvar 'menu_view'
 $menu_view[0] = 'The old menu:$menu_addoldmenu'
@@ -46,6 +47,7 @@ if pcs_magik > 0:if $selobj = 'Magic':gs 'obj_din', 'magic'
 if $selobj = 'Face':gs 'obj_din', 'menuface'
 if $selobj = 'Body':gs 'obj_din', 'menubody'
 if $selobj = 'Clothing':gs 'obj_din', 'clothes'
+if $selobj = 'Bra':gs 'obj_din', 'bra'
 if $selobj = 'Panties':gs 'obj_din', 'panties'
 if $selobj = 'Shoes':gs 'obj_din', 'shoes'
 if $selobj = 'Tattoos':gs 'obj_din', 'tattoos'

locations/stat_display

@@ -95,14 +95,6 @@ if Enable_showstatimg = 1 or Enable_statimg_loc > 0:
 		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
 	end	
 
-	if Enable_statimg_breast = 0:
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_breast = 1 & gs ''$menu_obnovit''">◇Breast</a>'
-	else
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_breast = 0 & gs ''$menu_obnovit''">◆Breast</a>'
-		$img_temp = FUNC('$body_image','breast')
-		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end
-
 	if Enable_statimg_coat = 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 1 & gs ''$menu_obnovit''">◇Coat</a>'
 	else
@@ -112,13 +104,21 @@ if Enable_showstatimg = 1 or Enable_statimg_loc > 0:
 	end	
 
 	if Enable_statimg_cloth = 0:
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 1 & gs ''$menu_obnovit''">◇Cloth</a>'
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 1 & gs ''$menu_obnovit''">◇Clothes</a>'
 	else
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 0 & gs ''$menu_obnovit''">◆Cloth</a>'
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 0 & gs ''$menu_obnovit''">◆Clothes</a>'
 		$img_temp = FUNC('$body_image','clothes')
 		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
 	end	
 
+	if Enable_statimg_bra = 0:
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 1 & gs ''$menu_obnovit''">◇Bra</a>'
+	else
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 0 & gs ''$menu_obnovit''">◆Bra</a>'
+		$img_temp = FUNC('$body_image','bra')
+		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
+	end
+
 	if Enable_statimg_panties = 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_panties = 1 & gs ''$menu_obnovit''">◇Panties</a>'
 	else