[added] v1 of the 'shop_utils' file - contains all display loops and 'shop' links

glife.qproj

@@ -86,6 +86,7 @@
 		<Location name="internet_mobile"/>
 		<Location name="library_functions"/>
 		<Location name="clinic_functions"/>
+		<Location name="shop_utils"/>
 	</Folder>
 	<Folder name="Sleep">
 		<Location name="pre_sleep"/>

locations/shop_utils.qsrc

@@ -0,0 +1,369 @@
+# shop_utils
+
+! $result = '<a href="exec:"><img height="250" src="<<$shop_display[''item_img_path'']>>/<<shop_display[''i'']>>.jpg"></a>'
+
+if $ARGS[0] = 'shop':
+	if $ARGS[1] = 'clothing':
+		if dyneval('result = <<$shop_display[''variable'']>>[shop_display[''i'']]') = 0:
+			gs 'clothing_attributes', $shop_display['variable'], shop_display['i']
+			gs 'clothing_QV', 'shop_filter'
+
+			if (clothingfilter['quality'] = 0 and CloQuality = shop_display['clo_i']) or (clothingfilter['inhibition'] = 0 and CloInhibit = shop_display['clo_i']) or clothingfilter['number'] = 0:
+				if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1:
+					$result = '<a href="exec: gt ''clothing'', ''view_clothing_item'', ''<<$shop_display[''variable'']>>'', <<shop_display[''i'']>>, ''shop''"><img height="250" src="<<$shop_display[''item_img_path'']>>/<<shop_display[''i'']>>.jpg"></a>'
+				end
+			end
+		end
+
+	elseif $ARGS[1] = 'shoes':
+		if dyneval('result = <<$shop_display[''variable'']>>_shoe[shop_display[''i'']]') = 0:
+			gs 'shoe_attributes', $shop_display['variable'], shop_display['i']
+			gs 'shoes', 'shoe_filter'
+
+			if (Shofilter['quality'] = 0 and ShoQuality = shop_display['clo_i']) or Shofilter['number'] = 0:
+				if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+					$result = '<a href="exec: gt ''shoes'', ''view_shoe_item'', ''shop'', ''<<$shop_display[''variable'']>>'', <<shop_display[''i'']>>"><img height="250" src="<<$shop_display[''item_img_path'']>>/<<shop_display[''i'']>>.jpg"></a>'
+				end
+			end
+		end
+
+	elseif $ARGS[1] = 'bras':
+		if dyneval('result = <<$shop_display[''variable'']>>_bras[shop_display[''i'']]') = 0:
+			gs 'underwear_attributes', $shop_display['variable'], shop_display['i']
+
+			if (clothingfilter['quality'] = 0 and BraQuality = shop_display['clo_i']) or clothingfilter['number'] = 0:
+				$result = '<a href="exec: gt ''bras'', ''view_bra_item'', ''shop'', ''<<$shop_display[''variable'']>>'', <<shop_display[''i'']>>"><img height="250" src="<<$shop_display[''item_img_path'']>>/<<shop_display[''i'']>>.jpg"></a>'
+			end
+		end
+
+	elseif $ARGS[1] = 'panties':
+		if dyneval('result = <<$shop_display[''variable'']>>_panties[shop_display[''i'']]') = 0:
+			gs 'underwear_attributes', $shop_display['variable'], shop_display['i']
+
+			if (clothingfilter['quality'] = 0 and PanQuality = shop_display['clo_i']) or clothingfilter['number'] = 0:
+				$result = '<a href="exec: gt ''panties'', ''view_panty_item'', ''shop'', ''<<$shop_display[''variable'']>>'', <<shop_display[''i'']>>"><img height="250" src="<<$shop_display[''item_img_path'']>>/<<shop_display[''i'']>>.jpg"></a>'
+			end
+		end
+
+	elseif $ARGS[1] = 'bodysuit':
+		if dyneval('result = <<$shop_display[''variable'']>>_bodysuits[shop_display[''i'']]') = 0:
+			gs 'underwear_attributes', $shop_display['variable'], shop_display['i']
+
+			if (clothingfilter['quality'] = 0 and BraQuality = shop_display['clo_i']) or clothingfilter['number'] = 0:
+				$result = '<a href="exec: gt ''underwear_bodysuits'', ''view_bodysuit_item'', ''shop'', ''<<$shop_display[''variable'']>>'', <<shop_display[''i'']>>"><img height="250" src="<<$shop_display[''item_img_path'']>>/<<shop_display[''i'']>>.jpg"></a>'
+			end
+		end
+
+	elseif $ARGS[1] = 'coats':
+		if dyneval('result = <<$shop_display[''variable'']>>_coats[shop_display[''i'']]') = 0:
+			$result = '<a href="exec: gt ''coats'', ''view_coat_item'', ''shop'', ''<<$shop_display[''variable'']>>'', <<shop_display[''i'']>>"><img height="250" src="<<$shop_display[''item_img_path'']>>/<<shop_display[''i'']>>.jpg"></a>'
+		end
+
+	elseif $ARGS[1] = 'purses':
+		if dyneval('result = <<$shop_display[''variable'']>>_purses[shop_display[''i'']]') = 0:
+			$result = '<a href="exec: gt ''purses'', ''view_purse_item'', ''shop'', ''<<$shop_display[''variable'']>>'', <<shop_display[''i'']>>"><img height="250" src="<<$shop_display[''item_img_path'']>>/<<shop_display[''i'']>>.jpg"></a>'
+		end
+	end
+
+	exit
+
+elseif $ARGS[0] = 'wardrobe':
+	if dyneval('result = <<$shop_display[''variable'']>>[shop_display[''i'']]') = 1:
+		gs 'clothing_attributes', $shop_display['variable'], shop_display['i']
+		gs 'clothing_QV', 'shop_filter'
+
+		!!sort by filter
+		if (clothingfilter['quality'] = 0 and CloQuality = shop_display['clo_i']) or (clothingfilter['inhibition'] = 0 and CloInhibit = shop_display['clo_i']) or clothingfilter['number'] = 0:
+			if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1:
+				$result = STUFF_HERE
+			end
+		end
+	end
+	exit
+
+elseif $ARGS[0] = 'cheat':
+	gs 'clothing_attributes', $shop_display['variable'], shop_display['i']
+	gs 'clothing_QV', 'shop_filter'
+
+	!!sort by filter
+	if (clothingfilter['quality'] = 0 and CloQuality = shop_display['clo_i']) or (clothingfilter['inhibition'] = 0 and CloInhibit = shop_display['clo_i']) or clothingfilter['number'] = 0:
+		if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1:
+			$result = STUFF_HERE
+		end
+	end
+	exit
+end
+
+
+! [1] - variable
+! [2] - loop step
+! [3] - img path
+! [4] - link type - shop, wardrode, cheat
+! [5] - loop index start offset
+! Populate the 'shop_display_exceptions[]' array with the index of the outfits you want excluded from the display.
+if $ARGS[0] = 'display_clothes':
+	$shop_display['variable']	= $ARGS[1]
+
+	if $mid($ARGS[3], 1, 2) = 'pc':
+		$shop_display['item_img_path'] = 'images/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 5) = 'items':
+		$shop_display['item_img_path'] = 'images/pc/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 6) ! 'images':
+		$shop_display['item_img_path'] = 'images/pc/items/' + $ARGS[3]
+	end
+
+	gs 'clothing_QV', 'shop_filter_header'
+	gs 'clothing', 'totals', $shop_display['variable']
+
+	if total <= 0:
+		killvar 'shop_display'
+		exit
+	end
+
+	shop_display['clo_i'] = 0
+	:clothing_filter_loop
+		shop_display['i'] = 1 + ARGS[5]
+		:clothing_main_loop
+		if shop_display['i'] <= total:
+			if arrpos('shop_display_exception', shop_display['i']) < 0:
+				*p func('shop_utils', $ARGS[4], 'clothing')
+			end
+			shop_display['i'] += ARGS[2]
+			jump 'clothing_main_loop'
+		end
+		shop_display['clo_i'] += 1
+	if clothingfilter['quality'] = 0 and shop_display['clo_i'] <= 7 or clothingfilter['inhibition'] = 0 and shop_display['clo_i'] <= 50:
+		jump 'clothing_filter_loop'
+	end
+
+	killvar 'shop_display'
+end
+
+if $ARGS[0] = 'display_shoes':
+	$shop_display['variable']	= $ARGS[1]
+
+	if $mid($ARGS[3], 1, 2) = 'pc':
+		$shop_display['item_img_path'] = 'images/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 5) = 'items':
+		$shop_display['item_img_path'] = 'images/pc/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 6) ! 'images':
+		$shop_display['item_img_path'] = 'images/pc/items/' + $ARGS[3]
+	end
+
+	gs 'shoes', 'shop_filter_header'
+	gs 'shoes', 'totals', '<<$shop_display[''variable'']>>_shoes'
+
+	if total <= 0:
+		killvar 'shop_display'
+		exit
+	end
+
+	shop_display['clo_i'] = 0
+	:shoes_filter_loop
+		shop_display['i'] = 1 + ARGS[5]
+		:shoes_main_loop
+		if shop_display['i'] <= total:
+			if arrpos('shop_display_exception', shop_display['i']) < 0:
+				*p func('shop_utils', $ARGS[4], 'shoes')
+			end
+			shop_display['i'] += ARGS[2]
+			jump 'shoes_main_loop'
+		end
+		shop_display['clo_i'] += 1
+	if Shofilter['quality'] = 0 and shop_display['clo_i'] <= 7:
+		jump 'shoes_filter_loop'
+	end
+	
+	killvar 'shop_display'
+end
+
+if $ARGS[0] = 'display_bras':
+	$shop_display['variable']	= $ARGS[1]
+
+	if $mid($ARGS[3], 1, 2) = 'pc':
+		$shop_display['item_img_path'] = 'images/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 5) = 'items':
+		$shop_display['item_img_path'] = 'images/pc/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 6) ! 'images':
+		$shop_display['item_img_path'] = 'images/pc/items/' + $ARGS[3]
+	end
+
+	gs 'bras', 'shop_filter_header'
+	gs 'bras', 'totals', '<<$shop_display[''variable'']>>_bras'
+
+	if total <= 0:
+		killvar 'shop_display'
+		exit
+	end
+
+	shop_display['clo_i'] = 0
+	:bras_filter_loop
+		shop_display['i'] = 1 + ARGS[5]
+		:bras_main_loop
+		if shop_display['i'] <= total:
+			if arrpos('shop_display_exception', shop_display['i']) < 0:
+				*p func('shop_utils', $ARGS[4], 'bras')
+			end
+			shop_display['i'] += ARGS[2]
+			jump 'bras_main_loop'
+		end
+		shop_display['clo_i'] += 1
+	if clothingfilter['quality'] = 0 and shop_display['clo_i'] <= 6:
+		jump 'bras_filter_loop'
+	end
+
+	killvar 'shop_display'
+end
+
+if $ARGS[0] = 'display_panties':
+	$shop_display['variable']	= $ARGS[1]
+
+	if $mid($ARGS[3], 1, 2) = 'pc':
+		$shop_display['item_img_path'] = 'images/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 5) = 'items':
+		$shop_display['item_img_path'] = 'images/pc/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 6) ! 'images':
+		$shop_display['item_img_path'] = 'images/pc/items/' + $ARGS[3]
+	end
+
+	gs 'panties', 'shop_filter_header'
+	gs 'panties', 'totals', '<<$shop_display[''variable'']>>_panties'
+
+	if total <= 0:
+		killvar 'shop_display'
+		exit
+	end
+
+	shop_display['clo_i'] = 0
+	:panties_filter_loop
+		shop_display['i'] = 1 + ARGS[5]
+		:panties_main_loop
+		if shop_display['i'] <= total:
+			if arrpos('shop_display_exception', shop_display['i']) < 0:
+				*p func('shop_utils', $ARGS[4], 'panties')
+			end
+			shop_display['i'] += ARGS[2]
+			jump 'panties_main_loop'
+		end
+		shop_display['clo_i'] += 1
+	if clothingfilter['quality'] = 0 and shop_display['clo_i'] <= 6:
+		jump 'panties_filter_loop'
+	end
+
+	killvar 'shop_display'
+end
+
+if $ARGS[0] = 'display_bodysuits':
+	$shop_display['variable']	= $ARGS[1]
+
+	if $mid($ARGS[3], 1, 2) = 'pc':
+		$shop_display['item_img_path'] = 'images/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 5) = 'items':
+		$shop_display['item_img_path'] = 'images/pc/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 6) ! 'images':
+		$shop_display['item_img_path'] = 'images/pc/items/' + $ARGS[3]
+	end
+
+	gs 'underwear_bodysuits', 'shop_filter_header'
+	gs 'underwear_bodysuits', 'totals', '<<$shop_display[''variable'']>>_bodysuits'
+
+	if total <= 0:
+		killvar 'shop_display'
+		exit
+	end
+
+	shop_display['clo_i'] = 0
+	:bodysuits_filter_loop
+		shop_display['i'] = 1 + ARGS[5]
+		:bodysuits_main_loop
+		if shop_display['i'] <= total:
+			if arrpos('shop_display_exception', shop_display['i']) < 0:
+				*p func('shop_utils', $ARGS[4], 'bodysuits')
+			end
+			shop_display['i'] += ARGS[2]
+			jump 'bodysuits_main_loop'
+		end
+		shop_display['clo_i'] += 1
+	if clothingfilter['quality'] = 0 and shop_display['clo_i'] <= 6:
+		jump 'bodysuits_filter_loop'
+	end
+
+	killvar 'shop_display'
+end
+
+if $ARGS[0] = 'display_coats':
+	$shop_display['variable']	= $ARGS[1]
+
+	if $mid($ARGS[3], 1, 2) = 'pc':
+		$shop_display['item_img_path'] = 'images/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 5) = 'items':
+		$shop_display['item_img_path'] = 'images/pc/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 6) ! 'images':
+		$shop_display['item_img_path'] = 'images/pc/items/' + $ARGS[3]
+	end
+
+	gs 'coats', 'totals', '<<$shop_display[''variable'']>>_coats'
+
+	if total <= 0:
+		killvar 'shop_display'
+		exit
+	end
+
+	shop_display['clo_i'] = 0
+	:coats_filter_loop
+		shop_display['i'] = 1 + ARGS[5]
+		:coats_main_loop
+		if shop_display['i'] <= total:
+			if arrpos('shop_display_exception', shop_display['i']) < 0:
+				*p func('shop_utils', $ARGS[4], 'coats')
+			end
+			shop_display['i'] += ARGS[2]
+			jump 'coats_main_loop'
+		end
+		shop_display['clo_i'] += 1
+	if clothingfilter['quality'] = 0 and shop_display['clo_i'] <= 6:
+		jump 'coats_filter_loop'
+	end
+
+	killvar 'shop_display'
+end
+
+if $ARGS[0] = 'display_purses':
+	$shop_display['variable']	= $ARGS[1]
+
+	if $mid($ARGS[3], 1, 2) = 'pc':
+		$shop_display['item_img_path'] = 'images/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 5) = 'items':
+		$shop_display['item_img_path'] = 'images/pc/' + $ARGS[3]
+	elseif $mid($ARGS[3], 1, 6) ! 'images':
+		$shop_display['item_img_path'] = 'images/pc/items/' + $ARGS[3]
+	end
+
+	gs 'coats', 'totals', '<<$shop_display[''variable'']>>_purses'
+
+	if total <= 0:
+		killvar 'shop_display'
+		exit
+	end
+
+	shop_display['clo_i'] = 0
+	:purses_filter_loop
+		shop_display['i'] = 1 + ARGS[5]
+		:purses_main_loop
+		if shop_display['i'] <= total:
+			if arrpos('shop_display_exception', shop_display['i']) < 0:
+				*p func('shop_utils', $ARGS[4], 'purses')
+			end
+			shop_display['i'] += ARGS[2]
+			jump 'purses_main_loop'
+		end
+		shop_display['clo_i'] += 1
+	if clothingfilter['quality'] = 0 and shop_display['clo_i'] <= 6:
+		jump 'purses_filter_loop'
+	end
+
+	killvar 'shop_display'
+end
+
+
+--- shop_utils ---------------------------------