glife/locations/shop_gm.qsrc

# shop_gm
!2022/03/12
if $ARGS[0] = 'start':
	killvar 'clothingfilter'
	gs 'shortgs', 'setloc', 'shop_gm', 'start'
	$location_type = 'event'
	menu_off = 0
	gs 'stat'

	gs 'themes', 'indoors'

	'<center><b><font color="maroon">Welcome to G & M - Clothes for all your needs</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/gandm/shop.jpg"</center>'
	'G&M is not fancy, it''s certainly not high fashion but it''s cheap and has specific work and school wear.'


	act 'Leave the store':
		$shoplocation = ''
		if torg = 1:
			minut += 3
			gt 'city_mall'
		else
			gt 'pav_industrial'
		end
	end

	act 'Visit clothing department':
		cla
		menu_off = 1

		act 'Return': gt 'shop_gm', 'start'

		act 'View clothing': minut += 5 & gt 'shop_gm', 'clothes'
		act 'View dresses': minut += 5 & gt 'shop_gm', 'dresses'
		act 'View office wear': minut += 5 & gt 'shop_gm', 'office'
		act 'View maid outfits': minut += 5 & gt 'shop_gm', 'gm_maid'
		act 'View server uniforms': minut += 5 & gt 'shop_gm', 'gm_server'
		act 'View school uniforms': minut += 5 & gt 'shop_gm', 'school'
	end

	act 'View regular shoes': minut += 5 & gt 'shop_gm', 'shoes'
	act 'View panties': minut += 5 & gt 'shop_gm', 'panties'
	act 'View bras': minut += 5 & gt 'shop_gm', 'bras'
	act 'View purses': minut += 5 & gt 'shop_gm', 'purses'
	act 'View coats': minut += 5 & gt 'shop_gm', 'coats'
end

if $ARGS[0] = 'clothes':
	gs 'shortgs', 'setloc', 'shop_gm', 'clothes'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing G&M outfits</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'gm_outfits'

	!!To filter just this set
	clo_i = 0
	:loopgm_outfits_filter
		i = 1 + Clothingstock mod 3
		:loopgm_outfits
			if gm_outfits[i] = 0:
				gs 'clothing_attributes', 'gm_outfits', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''gm_outfits''"><img src="images/pc/items/gm/outfits/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 3
		if i <= total: jump 'loopgm_outfits'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopgm_outfits_filter'
	end
end

if $ARGS[0] = 'gm_outfits':
	if gm_outfits[i] ! 0:
		msg 'You already own these clothes.'
		gt 'shop_gm', 'clothes'
	end

	gt 'clothing', 'view_clothing_item', 'gm_outfits', i, 1000, 'shop'
end

if $ARGS[0] = 'dresses':
	gs 'shortgs', 'setloc', 'shop_gm', 'dresses'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing G&M dresses</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'gm_dress'

	!!To filter just this set
	clo_i = 0
	:loopgm_dress_filter
		i = 1 + (Clothingstock / 3) mod 4
		:loopgm_dress
			if gm_dress[i] = 0:
				gs 'clothing_attributes', 'gm_dress', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''gm_dress''"><img src="images/pc/items/gm/dress/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 3
		if i <= total: jump 'loopgm_dress'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopgm_dress_filter'
	end
end

if $ARGS[0] = 'gm_dress':
	if gm_dress[i] ! 0:
		msg 'You already own this dress.'
		gt 'shop_gm', 'dresses'
	end

	gt 'clothing', 'view_clothing_item', 'gm_dress', i, 1000, 'shop'
end

if $ARGS[0] = 'office':
	gs 'shortgs', 'setloc', 'shop_gm', 'office'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing G&M office clothing</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'gm_office'

	!!To filter just this set
	clo_i = 0
	:loopoffice_filter
		i = 1
		:loopoffice
			if gm_office[i] = 0:
				gs 'clothing_attributes', 'gm_office', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''officeclo''"><img src="images/pc/items/gm/office/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 1
		if i <= total: jump 'loopoffice'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopoffice_filter'
	end
end

if $ARGS[0] = 'officeclo':
	if gm_office[i] ! 0:
		msg 'You already own these clothes.'
		gt 'shop_gm', 'office'
	end

	gt 'clothing', 'view_clothing_item', 'gm_office', i, 2000, 'shop'
end

if $ARGS[0] = 'gm_maid':
	gs 'shortgs', 'setloc', 'shop_gm', 'gm_maid'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing G&M maid outfits</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'gm_maid'

	!!To filter just this set
	clo_i = 0
	:loopgm_maid_filter
		i = 1 + (Clothingstock / 12) mod 2
		:loopgm_maid
			if gm_maid[i] = 0:
				gs 'clothing_attributes', 'gm_maid', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''gm_maidclo''"><img src="images/pc/items/gm/maid/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 2
		if i <= total: jump 'loopgm_maid'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopgm_maid_filter'
	end
end

if $ARGS[0] = 'gm_maidclo': gt 'clothing', 'view_clothing_item', 'gm_maid', i, 2000, 'shop'

if $ARGS[0] = 'gm_server':
	gs 'shortgs', 'setloc', 'shop_gm', 'gm_server'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing G&M server uniforms</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'gm_server'

	!!To filter just this set
	clo_i = 0
	:loopgm_server_filter
		i = 1 + (Clothingstock / 6) mod 2

		:loopgm_server
			if gm_server[i] = 0:
				gs 'clothing_attributes', 'gm_server', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''gm_serverclo''"><img src="images/pc/items/gm/server/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 2
		if i <= total: jump 'loopgm_server'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopgm_server_filter'
	end
end

if $ARGS[0] = 'gm_serverclo': gt 'clothing', 'view_clothing_item', 'gm_server', i, 2000, 'shop'

if $ARGS[0] = 'school':
	gs 'shortgs', 'setloc', 'shop_gm', 'school'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing G&M school uniforms</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'gm_school'

	!!To filter just this set
	clo_i = 0
	:loopgm_school_filter
		i = 1 + (Clothingstock / 8) mod 3
		:loopschool
			if gm_school[i] = 0:
				gs 'clothing_attributes', 'gm_school', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''schoolclo''"><img src="images/pc/items/gm/school/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 3
			if i = 6: i = 9
		if i <= total: jump 'loopschool'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopgm_school_filter'
	end
end

if $ARGS[0] = 'schoolclo':
	if gm_school[i] ! 0:
		msg 'You already own these clothes.'
		gt 'shop_gm', 'school'
	end

	gt 'clothing', 'view_clothing_item', 'gm_school', i, 1500, 'shop'
end

if $ARGS[0] = 'shoes':
	gs 'shortgs', 'setloc', 'shop_gm', 'shoes'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'shoes', 'shop_filter_header'
	gs 'shoes', 'totals', 'gm_shoes'

	!!To filter just this set
	clo_i = 0
	:loopshoequality_filter
		i = 1
		:loopgm_shoes
			if gm_shoe[i] = 0:
				gs 'shoe_attributes', 'gm', i
				gs 'shoes', 'shoe_filter'
				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
					if Shofilter['inc'] = 1 and Shofilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''shoes2''"><img src="images/pc/items/gm/shoes/<<i>>.jpg" height="250" /></a>'
				end
			end
			i += 1
		if i <= total: jump 'loopgm_shoes'
		clo_i += 1
	if Shofilter['quality'] = 0 and clo_i <= 7:
		jump 'loopshoequality_filter'
	end
end

if $ARGS[0] = 'shoes2': gt 'shoes', 'view_shoe_item', 'shop', 'gm', i, 700

if $ARGS[0] = 'coats':
	gs 'shortgs', 'setloc', 'shop_gm', 'coats'
	menu_off = 0
	gs 'stat'

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'coats', 'totals', 'gm_coats'

	i = 1
	:loopcoats
		if gm_coats[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''coats2''"><img src="images/pc/items/gm/coats/<<i>>.jpg"	 height="250" /></a>'
		i += 1
	if i <= total: jump 'loopcoats'
end

if $ARGS[0] = 'coats2': gt 'coats', 'view_coat_item', 'shop', 'gm', i, 1500

if $ARGS[0] = 'purses':
	gs 'shortgs', 'setloc', 'shop_gm', 'purses'
	menu_off = 0
	gs 'stat'

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'purses', 'totals', 'gm_purses'

	i = 1
	:looppurses
		if gm_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''purses2''"><img src="images/pc/items/gm/purses/<<i>>.jpg"	 height="250" /></a>'
		i += 1
	if i <= total: jump 'looppurses'
end

if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'gm',i, 1500

if $ARGS[0] = 'panties':
	gs 'shortgs', 'setloc', 'shop_gm', 'panties'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing G&M panties</font></b></center>'

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'panties', 'shop_filter_header'
	gs 'panties', 'totals', 'gm_panties'

	!!To filter just this set
	clo_i = 0
	:looppantyquality_filter
		i = 1
		:looppanties
			if gm_panties[i] = 0:
				gs 'underwear_attributes', 'gm_panties', i
				if (clothingfilter['quality'] = 0 and PanQuality = clo_i) or clothingfilter['number'] = 0:
					*p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''panties2''"><img src="images/pc/items/gm/panties/<<i>>.jpg"	 height="150" /></a>'
				end
			end
			i += 1
			if i = 7 or i = 9 or i = 21 or i = 37: i += 1
		if i <= 37: jump 'looppanties'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'looppantyquality_filter'
	end
end

if $ARGS[0] = 'panties2': gt 'panties', 'view_panty_item', 'shop', 'gm', i, 300

if $ARGS[0] = 'bras':
	gs 'shortgs', 'setloc', 'shop_gm', 'bras'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing G&M bras</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_gm', 'start'

	gs 'bras', 'shop_filter_header'
	gs 'bras', 'totals', 'gm_bras'

	!!To filter just this set
	clo_i = 0
	:loopbraquality_filter
		i = 1
		:loopgm_bras
			if gm_bras[i] = 0:
				gs 'underwear_attributes', 'gm_bras', i
				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
					*p '<a href="exec: i = <<i>> & gt ''shop_gm'', ''bras2''"><img src="images/pc/items/gm/bras/<<i>>.jpg"	 height="150" /></a>'
				end
			end
			i += 1
			if i = 11 or i = 16 or i = 18: i += 1
		if i <= total: jump 'loopgm_bras'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'loopbraquality_filter'
	end
end

if $ARGS[0] = 'bras2': gt 'bras', 'view_bra_item', 'shop', 'gm', i, 300

--- shop_gm ---------------------------------