glife/locations/sportShop.qsrc

# sportShop
!2022/06/20
if $ARGS[0] = 'start' or $ARGS[0] = '':
	killvar 'clothingfilter'
    $location_type = 'public_indoors'
	cls
	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 refillable_bottle = 0 and money >= 1000 and bag > 0: 
		'You could buy a high-quality <a href="exec:minut += 5 & money -= 1000 & refillable_bottle = 1 & gt ''sportShop'', ''start''">water bottle (1000 <b>₽</b>)</a> that you can carry around in your purse.'
	elseif refillable_bottle = 0 and (money < 1000 or bag = 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 'torgcentr'

	act 'View sports clothing':minut += 5 & gt 'sportshop', 'clo'

	act 'View sports bras':minut += 5 & gt 'sportshop', 'bras'
	
	act 'View sports panties':minut += 5 & gt 'sportshop', 'panties'
	
	act 'View exercise shoes':minut += 5 & gt 'sportshop', 'shoes'

	act 'View swimwear':minut += 5 & gt 'sportshop', 'swim'

	act 'View purses': minut += 5 & gt 'sportshop', 'purses'

	act 'View coats': minut += 5 & gt 'sportshop', 'coats'
		!! output from purchase
	if $message ! '':
		$message
		killvar '$message'
	else
		'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?"'
	end

	*pl '<center><table align="center" width=80%>'
	*p func ('$single_stock_item', 1, 'Skipping Rope', 500, 'skak', 'sportshop', 'start')
	*p func ('$single_stock_item', 1, 'Hula Hoop', 1500, 'obruch', 'sportshop', 'start')
	*P func ('$single_stock_item', 1, 'Book on Yoga', 1500, 'bookyog', 'sportshop', 'start')
	*p func ('$single_stock_item', 1, 'Ice Skates', 3000, 'konki', 'sportshop', 'start')
	*p func ('$single_stock_item', 1, 'Skis', 4000, 'pcs_ski_owned', 'sportshop', 'start')
	*p func ('$single_stock_item', 1, 'Refillable Water Bottle', 1000, 'refillable_bottle', 'sportshop', 'start')		
	*p '</table></center>'
end

if $ARGS[0] = 'clo':
	$loc_arg = 'clo'
	$loc = 'sportShop'
	cls
	gs'stat'
	'<center><b><font color="maroon">Sportswear - one size fits all</font></b></center>'
	*nl

	gs 'clothing_QV', 'shop_filter_header'

	act 'Return':
		cla
		minut += 1
		gt 'sportshop', 'start'
	end

	!!To filter just this set
	clo_i = 0
	:loopdanilovich_outfits_filter

		if Clothingstock > 16:
			i = 1
		elseif Clothingstock > 8:
			i = 2
		else
			i = 3
		end

		: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 ''sportshop'', ''danilovich''"><img src="images/pc/items/danilovich/outfits/<<i>>.jpg" 	height="250" /></a>'
				end
			end
			i += 3
		if i <= 160:jump 'loopdanilovich_outfits'

	clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7:
		jump 'loopdanilovich_outfits_filter'
	elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
		jump 'loopdanilovich_outfits_filter'
	end
end

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

if $ARGS[0] = 'shoes':
	$loc_arg = 'shoes'
	$loc = 'sportShop'
	cls
	gs'stat'
	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
	*nl

	gs 'shoes', 'shop_filter_header'

	act 'Return':
		cla
		minut += 1
		gt 'sportShop', 'start'
	end

	!!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 ''sportShop'', ''training_shoes''"><img src="images/pc/items/danilovich/shoes/<<i>>.jpg" height="250" /></a>'
					end
				end
			end
			i += 1
		if i <= 40: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':
	$loc_arg = 'swim'
	$loc = 'sportShop'
	cls
	gs'stat'
	'<center><b><font color="maroon">Swimwear - one size fits all</font></b></center>'
	*nl

	gs 'clothing_QV', 'shop_filter_header'

	act 'Return':
		cla
		minut += 1
		gt 'sportshop', 'start'
	end

	!!To filter just this set
	clo_i = 0
	:loopswim_filter

	!!4 is in he supermarket, so skipped

		if Clothingstock > 11:
			i = 1
		else
			i = 2
		end


		: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 ''sportshop'', ''swim1''"><img src="images/pc/items/danilovich/swimwear/<<i>>.jpg" 	height="250" /></a>'
				end
			end
			i += 3
			if i = 4: i += 2
		if i <= 30:jump 'loopswim'

	clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7:
		jump 'loopswim_filter'
	elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
		jump 'loopswim_filter'
	end
end

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

if $ARGS[0] = 'panties':
	$loc_arg = 'panties'
	$loc = 'sportShop'
	cls
	gs'stat'

	gs 'panties', 'shop_filter_header'

	act 'Return':
		cla
		minut += 1
		gt 'sportShop', 'start'
	end

	!!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 ''sportShop'', ''panties2''"><img src="images/pc/items/danilovich/panties/<<i>>.jpg" 	height="150" /></a> '
				end
			end
			i += 1
		if i <= 8:jump 'loopdanilovich_panties'
	clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'looppantyquality_filter'
	end
end

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

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

end

if $ARGS[0] = 'bras':
	$loc_arg = 'bras'
	$loc = 'sportShop'
	cls
	gs'stat'

	gs 'bras', 'shop_filter_header'

	act 'Return':
		cla
		minut += 1
		gt 'sportShop', 'start'
	end

	!!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 ''sportShop'', ''bras2''"><img src="images/pc/items/danilovich/bras/<<i>>.jpg" 	height="150" /></a> '
				end
			end
			i += 1
		if i <= 8:jump 'loopdanilovich_bras'
	clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'loopbraquality_filter'
	end
end

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

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

end

if $ARGS[0] = 'purses':
	$loc_arg = 'purses'
	$loc = 'sportShop'
	menu_off = 1
	*clr & cla
	gs'stat'

	act 'Return':
		cla
		minut += 1
		gt 'sportShop', 'start'
	end

	i = 1

	:loopdanilovich_purses
		if danilovich_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sportShop'', ''purses2''"><img src="images/pc/items/danilovich/purses/<<i>>.jpg" 	height="150" /></a> '
		i += 1
	if i <= 60:jump 'loopdanilovich_purses'
end

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

if $ARGS[0] = 'coats':
	$loc_arg = 'coats'
	$loc = 'sportShop'
	menu_off = 1
	*clr & cla
	gs'stat'

	act 'Return':
		cla
		minut += 1
		gt 'sportShop', 'start'
	end

	i = 1

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

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

--- sportShop ---------------------------------