glife/locations/shop_tsar_bomba.qsrc

# shop_tsar_bomba
!!2022/06/22
if $ARGS[0] = 'start':
	killvar 'clothingfilter'
	gs 'shortgs', 'setloc', 'shop_tsar_bomba', 'start'
	$location_type = 'public_indoors'
	menu_off = 0
	gs 'stat'

	gs 'themes', 'indoors'

	'<center><b><font color="maroon">Tsar Bomba</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/pushkin/bomba/shop.jpg"></center>'
	*nl
	'Tsar Bomba, a small clothing shop in the Okhlopkov Square. The shop is unique and used to be very cool with punk fashion. These days it is much more generic and alternative, it could easily be mistaken for an alt. fashion chain store.'
	'Simply put this place is very cool and most of the clothes are strange and wonderful.'

	act 'Leave the bomba': minut += 3 & gt 'pushkin_sq'

	act 'View dresses': minut += 5 & gt 'shop_tsar_bomba', 'dresses'
	act 'View outfits': minut += 5 & gt 'shop_tsar_bomba', 'clothes'
	act 'View shoes': minut += 5 & gt 'shop_tsar_bomba', 'shoes'
	act 'View purses': minut += 5 & gt 'shop_tsar_bomba', 'purses'
	act 'View coats': minut += 5 & gt 'shop_tsar_bomba', 'coats'
end

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

	'<center><b><font color="maroon">Viewing Tsar Bomba dresses</font></b></center>'
	*nl

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'bomba_dresses'

	!!To filter just this set
	clo_i = 0
	:loopbomba_dresses_filter
		i = 1 + Clothingstock mod 2
		:loopbomba_dresses
			if bomba_dress[i] = 0:
				gs 'clothing_attributes', 'bomba_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_tsar_bomba'', ''bomba_dresses''"><img src="images/pc/items/bomba/dress/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 2
		if i <= total: jump 'loopbomba_dresses'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopbomba_dresses_filter'
	end
end

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

	gt 'clothing', 'view_clothing_item', 'bomba_dress', i, 3500, 'shop'
end

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

	'<center><b><font color="maroon">Viewing Tsar Bomba outfits</font></b></center>'
	*nl

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'bomba_outfits'

	!!To filter just this set
	clo_i = 0
	:loopbomba_filter
		i = 1 + (Clothingstock / 2) mod 2
		:loopbomba
			if bomba_outfits[i] = 0:
				gs 'clothing_attributes', 'bomba_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_tsar_bomba'', ''bomba_outfits''"><img src="images/pc/items/bomba/outfits/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 2
		if i <= total: jump 'loopbomba'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopbomba_filter'
	end
end

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

	gt 'clothing', 'view_clothing_item', 'bomba_outfits', i, 3500, 'shop'
end

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

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

	gs 'purses', 'totals', 'bomba_purses'

	i = 1
	:loopbomba_purses
		if bomba_purses[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_tsar_bomba'', ''purses2''"><img src="images/pc/items/bomba/purses/<<i>>.jpg"	 height="250" /></a> '
		i += 1
	if i <= 20: jump 'loopbomba_purses'
end

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

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

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

	act 'Return': minut += 5 & gt 'shop_tsar_bomba', 'start'

	gs 'shoes', 'shop_filter_header'
	gs 'shoes', 'totals', 'bomba_shoes'

	!!To filter just this set
	clo_i = 0
	:loopshoequality_filter
		i = 1
		:loopbomba_shoes
			if bomba_shoe[i] = 0:
				gs 'shoe_attributes', 'bomba', 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_tsar_bomba'', ''bomba_shoes''"><img src="images/pc/items/bomba/shoes/<<i>>.jpg" height="250" /></a>'
				end
			end
			i += 1
		if i <= 40: jump 'loopbomba_shoes'
		clo_i += 1
	if Shofilter['quality'] = 0 and clo_i <= 7:
		jump 'loopshoequality_filter'
	end
end

if $ARGS[0] = 'bomba_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'bomba', i, 2000

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

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

	gs 'coats', 'totals', 'bomba_coats'

	i = 1
	:loopbomba_coats
		if bomba_coats[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_tsar_bomba'', ''coats2''"><img src="images/pc/items/bomba/coats/<<i>>.jpg"	 height="250" /></a> '
		i += 1
	if i <= 20: jump 'loopbomba_coats'
end

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

--- shop_tsar_bomba ---------------------------------