glife/locations/shop_danilovich.qsrc

# shop_danilovich
!2022/06/20
if $ARGS[0] = 'start' or $ARGS[0] = '':
	killvar 'clothingfilter'
	$location_type = 'public_indoors'
	gs 'shortgs', 'setloc', 'shop_danilovich', 'start'
	$loc_s = 'shop_danilovich'
	$args_s = 'start'
	menu_off = 1
	gs 'stat'

	gs 'themes', 'indoors'

	'<center><b><font color="maroon">Danilovich sporting goods</font></b></center>'
	'<center><img src="images/locations/city/citycenter/mall/sportshop/sportshop.jpg"></center>'
	*nl
	'As soon as you enter, a high energy song with a thumping baseline fills your eardrums, making you feel pumped and awake. The store is sleek and professional, the walls and floors advertising all different kinds of sporting equipment and attire. The room is filled with beautifully fit people shopping, their bodies varying from big and muscular to lean and trim. If they don''t inspire you to want to work out, the posters advertising past and present famous athletes are motivating as hell.'
	*nl
	if mc_inventory['refill_bottle'] = 0 and bag > 0 and (money >= 1000 or karta >= 1000):
		'You could buy a high-quality <a href="exec:gt ''shop_danilovich'', ''buy_refill_bottle''">water bottle (1000 <b>₽</b>)</a> that you can carry around in your purse.'
	elseif mc_inventory['refill_bottle'] = 0:
		'The shop sells high-quality water bottles for 1,000 <b>₽</b>. You could carry one around in '+iif(bag > 0, 'your', 'a')+' purse.'
	end

	act 'Leave': minut += 3 & gt 'city_mall'

	act 'View sports clothing': minut += 5 & gt 'shop_danilovich', 'clo'
	act 'View sports bras': minut += 5 & gt 'shop_danilovich', 'bras'
	act 'View sports panties': minut += 5 & gt 'shop_danilovich', 'panties'
	act 'View exercise shoes': minut += 5 & gt 'shop_danilovich', 'shoes'
	act 'View swimwear': minut += 5 & gt 'shop_danilovich', 'swim'
	act 'View purses': minut += 5 & gt 'shop_danilovich', 'purses'
	act 'View coats': minut += 5 & gt 'shop_danilovich', 'coats'

	'A tall muscular man stands next to the counter, showing a perfect smile. "Welcome, do you need any assistance in selecting equipment or tips how to improve your workout?"'

	gs 'item_cart', 'shoppping_aisle', 'sports'
	gs 'stat'
	gs 'themes', 'indoors'
end

if $ARGS[0] = 'buy_refill_bottle':
	minut += 5
	if money >= 1000:
		money -= 1000
	else
		karta -= 1000
	end
	mc_inventory['refill_bottle'] = 1
	gt $loc_s, $arg_s
end

if $ARGS[0] = 'clo':
	gs 'shortgs', 'setloc', 'shop_danilovich', 'clo'
	menu_off = 1
	gs 'stat'

	'<center><b><font color="maroon">Sportswear - one size fits all</font></b></center>'
	*nl

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'danilovich_outfits'

	!!To filter just this set
	clo_i = 0
	:loopdanilovich_outfits_filter
		i = 1 + Clothingstock mod 3
		:loopdanilovich_outfits
			if danilovich_outfits[i] = 0:
				gs 'clothing_attributes', 'danilovich_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_danilovich'', ''danilovich''"><img src="images/pc/items/danilovich/outfits/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 3
		if i <= total: jump 'loopdanilovich_outfits'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopdanilovich_outfits_filter'
	end
end

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

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

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

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

	gs 'shoes', 'shop_filter_header'
	gs 'shoes', 'totals', 'danilovich_shoes'

	!!To filter just this set
	clo_i = 0
	:loopshoequality_filter
		i = 1
		:loopdanilovich_shoes
			if danilovich_shoe[i] = 0:
				gs 'shoe_attributes', 'danilovich', 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_danilovich'', ''training_shoes''"><img src="images/pc/items/danilovich/shoes/<<i>>.jpg" height="250" /></a>'
				end
			end
			i += 1
		if i <= total: jump 'loopdanilovich_shoes'
		clo_i += 1
	if Shofilter['quality'] = 0 and clo_i <= 7:
		jump 'loopshoequality_filter'
	end
end

if $ARGS[0] = 'training_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'danilovich', i, 1500

if $ARGS[0] = 'swim':
	gs 'shortgs', 'setloc', 'shop_danilovich', 'swim'
	menu_off = 1
	gs 'stat'

	'<center><b><font color="maroon">Swimwear - one size fits all</font></b></center>'
	*nl

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'danilovich_swimsuit'

	!!To filter just this set
	clo_i = 0
	:loopswim_filter
		i = 1 + Clothingstock mod 2
		:loopswim
			if danilovich_swimsuit[i] = 0:
				gs 'clothing_attributes', 'danilovich_swimsuit', 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_danilovich'', ''swim1''"><img src="images/pc/items/danilovich/swimwear/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 2
			!!4 is in he supermarket, so skipped
			if i = 4: i += 2
		if i <= total: jump 'loopswim'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopswim_filter'
	end
end

if $ARGS[0] = 'swim1': gt 'clothing', 'view_clothing_item', 'danilovich_swimsuit', i, 1750, 'shop'

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

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

	gs 'panties', 'shop_filter_header'
	gs 'panties', 'totals', 'danilovich_panties'

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

if $ARGS[0] = 'panties2':
	if danilovich_panties[i] ! 0:
		msg 'You already own these panties.'
		gt 'shop_danilovich', 'panties'
	end

	gt 'panties', 'view_panty_item', 'shop', 'danilovich', i, 1000
end

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

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

	gs 'bras', 'shop_filter_header'
	gs 'bras', 'totals', 'danilovich_bras'

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

if $ARGS[0] = 'bras2':
	if danilovich_bras[i] ! 0:
		msg 'You already own this bra.'
		gt 'shop_danilovich', 'bras'
	end

	gt 'bras', 'view_bra_item', 'shop', 'danilovich', i, 1000
end

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

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

	gs 'purses', 'totals', 'danilovich_purses'

	i = 1 + (Clothingstock / 6) mod 2
	:loopdanilovich_purses
		if danilovich_purses[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_danilovich'', ''purses2''"><img src="images/pc/items/danilovich/purses/<<i>>.jpg"	 height="150" /></a> '
		i += 2
	if i <= total: jump 'loopdanilovich_purses'
end

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

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

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

	gs 'coats', 'totals', 'danilovich_coats'

	i = 1
	:loopdanilovich_coats
		if danilovich_coats[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_danilovich'', ''coats2''"><img src="images/pc/items/danilovich/coats/<<i>>.jpg"	 height="150" /></a> '
		i += 1
	if i <= total: jump 'loopdanilovich_coats'
end

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

--- shop_danilovich ---------------------------------