[added] New shops, none are accessable yet

glife.qproj

@@ -589,6 +589,7 @@
 		<Location name="ParChurch2"/>
 		<Location name="brothel"/>
 		<Location name="tour_guide"/>
+		<Location name="shop_coco_carmen"/>
 	</Folder>
 	<Folder name="pav_lake">
 		<Location name="glake"/>
@@ -915,6 +916,7 @@
 		<Location name="univer_din"/>
 		<Location name="unicoursework"/>
 		<Location name="uniutil"/>
+		<Location name="shop_flamingos"/>
 	</Folder>
 	<Folder name="Game 1">
 		<Location name="KGstart"/>
@@ -1121,6 +1123,9 @@
 		<Location name="dibodi"/>
 		<Location name="psiklin"/>
 		<Location name="din_pav"/>
+		<Location name="shop_fancy_pancy"/>
+		<Location name="shop_skuas"/>
+		<Location name="shop_tsar_bomba"/>
 	</Folder>
 	<Folder name="OldTownHome">
 		<Location name="vanr2x"/>

locations/shop_coco_carmen.qsrc

@@ -0,0 +1,125 @@
+# shop_coco_carmen
+
+if $ARGS[0] = 'start':
+	$loc_arg = $ARGS[0]
+	$loc = 'shop_coco_carmen'
+    $location_type = 'public_indoors'
+	$menu_loc = 'shop_coco_carmen'
+	$menu_arg = 'start'
+	menu_off = 0
+	*clr & cla
+	mag = 1
+	gs 'stat'
+	gs 'themes', 'indoors'
+	'<center><b><font color="maroon">Coco Carmen</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/coco/butik.jpg"></center>'
+	*nl
+	'If you are happy to push through the tourists Coco has everything a young adult might like to wear. Its a step up from G&M and unless you can afford the boutiques in Old Town you''ll be spending some time buying outfits here.'
+
+	act 'Leave the coco': minut += 3 & gt 'torgcentr'
+	
+	act 'View clothing': minut += 5 & gt 'shop_coco_carmen', 'clothes'
+
+	act 'View shoes': minut += 5 & gt 'shop_coco_carmen', 'shoes'
+
+	act 'View purses': minut += 5 & gt 'shop_coco_carmen', 'purses'
+end
+
+if $ARGS[0] = 'clothes':
+	$loc_arg = 'clothes'
+	$loc = 'shop_coco_carmen'
+	$menu_loc = 'shop_coco_carmen'
+	$menu_arg = 'clothes'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+	'<center><b><font color="maroon">Viewing Coco Carmen outfits</font></b></center>'
+	*nl
+
+	gs 'clothing_QV', 'shop_header'
+
+	act 'Return': minut += 1 & gt 'shop_coco_carmen', 'start'
+
+	clothingfilter['qualitycheck'] = 7
+	:loopquality
+		if Clothingstock > 11:
+			i = 1
+		else
+			i = 2
+		end
+
+		:loopcoco
+			if coco[i] = 0:
+				gs 'clothing_attributes', 'coco', i
+				gs 'clothing_QV', 'shop_filter'
+
+				if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
+				
+					if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''shop_coco_carmen'', ''coco''"><img src="images/pc/clothing/coco/<<i>>.jpg" 	height="250" /></a>'
+				end
+			end
+			i += 2
+		if i <= 185:jump 'loopcoco'
+	if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
+end
+
+if $ARGS[0] = 'coco':
+	cla
+	menu_off = 1
+	if coco[i] ! 0:
+		msg 'You already own these clothes.'
+		gt 'shop_coco_carmen', 'clothes'
+	end
+
+	gt 'clothing', 'view_clothing_item', 'shop', 'coco',i, 20000
+
+end
+
+if $ARGS[0] = 'shoes':
+	$loc_arg = $ARGS[0]
+	$loc = 'shop_coco_carmen'
+	$menu_loc = 'shop_coco_carmen'
+	$menu_arg = 'shoes'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+
+	act 'Return': minut += 1 & gt 'shop_coco_carmen', 'start'
+
+	if Clothingstock > 11:
+		i = 1
+	else
+		i = 2
+	end
+
+	:loopcoco_shoes
+		if scoco[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_coco_carmen'', ''coco_shoes''"><img src="images/pc/shoes/coco/<<i>>.jpg" height="250" /></a>'
+		i += 2
+	if i <= 37:jump 'loopcoco_shoes'
+end
+
+if $ARGS[0] = 'coco_shoes':	gt 'shoes', 'view_shoe_item', 'shop', 'coco',i, 5000
+
+if $ARGS[0] = 'purses':
+	$loc_arg = 'purses'
+	$loc = 'shop_coco_carmen'
+	$menu_loc = 'shop_coco_carmen'
+	$menu_arg = 'purses'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+
+	act 'Return': minut += 1 & gt 'shop_coco_carmen', 'start'
+
+	i = 1
+
+	:loopcoco_purses
+		if coco_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_coco_carmen'', ''purses2''"><img src="images/pc/purses/coco/<<i>>.jpg" 	height="150" /></a> '
+		i += 1
+	if i <= 17:jump 'loopcoco_purses'
+end
+
+if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'coco',i, 4000
+
+--- shop_coco_carmen ---------------------------------
+

locations/shop_fancy_pancy.qsrc

@@ -0,0 +1,78 @@
+# shop_fancy_pancy
+
+if $ARGS[0] = 'start':
+	$loc_arg = $ARGS[0]
+	$loc = 'shop_fancy_pancy'
+    $location_type = 'public_indoors'
+	$menu_loc = 'shop_fancy_pancy'
+	$menu_arg = 'start'
+	menu_off = 0
+	*clr & cla
+	mag = 1
+	gs 'stat'
+	gs 'themes', 'indoors'
+	'<center><b><font color="maroon">Fancy Pancy</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/boutique/butik.jpg"></center>'
+	*nl
+	'This small boutique shop looks more like a dressing room at the burlesque club nearby. Satin, leather, ruffles and glamour make it clear this is not a place to buy a practical outfit. It is the only place to buy outfits suitable for the burlesque club or perhaps spice up things in the bedroom.'
+	*nl
+
+	'The boutique sells designer winter coats, burlesque clothing, beautiful shoes and exquisite handbags.'
+
+	act 'Leave the boutique': minut += 3 & gt 'torgcentr'
+	
+	act 'View clothing': minut += 5 & gt 'shop_fancy_pancy', 'clothes'
+end
+
+if $ARGS[0] = 'clothes':
+	$loc_arg = 'clothes'
+	$loc = 'shop_fancy_pancy'
+	$menu_loc = 'shop_fancy_pancy'
+	$menu_arg = 'clothes'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+	'<center><b><font color="maroon">Viewing Fancy Pancy outfits</font></b></center>'
+	*nl
+
+	gs 'clothing_QV', 'shop_header'
+
+	act 'Return': minut += 1 & gt 'shop_fancy_pancy', 'start'
+
+	clothingfilter['qualitycheck'] = 7
+	:loopquality
+		if Clothingstock > 11:
+			i = 1
+		else
+			i = 2
+		end
+
+		:loopfancypancy
+			if fancypancy[i] = 0:
+				gs 'clothing_attributes', 'fancypancy', i
+				gs 'clothing_QV', 'shop_filter'
+
+				if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
+				
+					if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''shop_fancy_pancy'', ''fancypancy''"><img src="images/pc/clothing/fancypancy/<<i>>.jpg" 	height="250" /></a>'
+				end
+			end
+			i += 2
+		if i <= 22:jump 'loopfancypancy'
+	if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
+end
+
+if $ARGS[0] = 'fancypancy':
+	cla
+	menu_off = 1
+	if fancypancy[i] ! 0:
+		msg 'You already own these clothes.'
+		gt 'shop_fancy_pancy', 'clothes'
+	end
+
+	gt 'clothing', 'view_clothing_item', 'shop', 'fancypancy',i, 20000
+
+end
+
+--- shop_fancy_pancy ---------------------------------
+

locations/shop_flamingos.qsrc

@@ -0,0 +1,125 @@
+# shop_flamingos
+
+if $ARGS[0] = 'start':
+	$loc_arg = $ARGS[0]
+	$loc = 'shop_flamingos'
+    $location_type = 'public_indoors'
+	$menu_loc = 'shop_flamingos'
+	$menu_arg = 'start'
+	menu_off = 0
+	*clr & cla
+	mag = 1
+	gs 'stat'
+	gs 'themes', 'indoors'
+	'<center><b><font color="maroon">Flamingo''s</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/flamingos/butik.jpg"></center>'
+	*nl
+	'Flamingos is trendy and modern while still keeping the prices low enough for the large student population on the Island. It mimics the latest fashions for young adults but cuts costs on material and manufacturing. This suits the clients who are likely to grow bored of an outfit before it falls apart and that''s why its always busy.'
+
+	act 'Leave the flamingos': minut += 3 & gt 'torgcentr'
+	
+	act 'View clothing': minut += 5 & gt 'shop_flamingos', 'clothes'
+
+	act 'View shoes': minut += 5 & gt 'shop_flamingos', 'shoes'
+
+	act 'View purses': minut += 5 & gt 'shop_flamingos', 'purses'
+end
+
+if $ARGS[0] = 'clothes':
+	$loc_arg = 'clothes'
+	$loc = 'shop_flamingos'
+	$menu_loc = 'shop_flamingos'
+	$menu_arg = 'clothes'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+	'<center><b><font color="maroon">Viewing Flamingo''s outfits</font></b></center>'
+	*nl
+
+	gs 'clothing_QV', 'shop_header'
+
+	act 'Return': minut += 1 & gt 'shop_flamingos', 'start'
+
+	clothingfilter['qualitycheck'] = 7
+	:loopquality
+		if Clothingstock > 11:
+			i = 1
+		else
+			i = 2
+		end
+
+		:loopflamingos
+			if flamingos[i] = 0:
+				gs 'clothing_attributes', 'flamingos', i
+				gs 'clothing_QV', 'shop_filter'
+
+				if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
+				
+					if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''shop_flamingos'', ''flamingos''"><img src="images/pc/clothing/flamingos/<<i>>.jpg" 	height="250" /></a>'
+				end
+			end
+			i += 2
+		if i <= 185:jump 'loopflamingos'
+	if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
+end
+
+if $ARGS[0] = 'flamingos':
+	cla
+	menu_off = 1
+	if flamingos[i] ! 0:
+		msg 'You already own these clothes.'
+		gt 'shop_flamingos', 'clothes'
+	end
+
+	gt 'clothing', 'view_clothing_item', 'shop', 'flamingos',i, 20000
+
+end
+
+if $ARGS[0] = 'shoes':
+	$loc_arg = $ARGS[0]
+	$loc = 'shop_flamingos'
+	$menu_loc = 'shop_flamingos'
+	$menu_arg = 'shoes'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+
+	act 'Return': minut += 1 & gt 'shop_flamingos', 'start'
+
+	if Clothingstock > 11:
+		i = 1
+	else
+		i = 2
+	end
+
+	:loopflamingos_shoes
+		if sflamingos[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_flamingos'', ''flamingos_shoes''"><img src="images/pc/shoes/flamingos/<<i>>.jpg" height="250" /></a>'
+		i += 2
+	if i <= 37:jump 'loopflamingos_shoes'
+end
+
+if $ARGS[0] = 'flamingos_shoes':	gt 'shoes', 'view_shoe_item', 'shop', 'flamingos',i, 5000
+
+if $ARGS[0] = 'purses':
+	$loc_arg = 'purses'
+	$loc = 'shop_flamingos'
+	$menu_loc = 'shop_flamingos'
+	$menu_arg = 'purses'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+
+	act 'Return': minut += 1 & gt 'shop_flamingos', 'start'
+
+	i = 1
+
+	:loopflamingos_purses
+		if flamingos_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_flamingos'', ''purses2''"><img src="images/pc/purses/flamingos/<<i>>.jpg" 	height="150" /></a> '
+		i += 1
+	if i <= 17:jump 'loopflamingos_purses'
+end
+
+if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'flamingos',i, 4000
+
+--- shop_flamingos ---------------------------------
+

locations/shop_skuas.qsrc

@@ -0,0 +1,76 @@
+# shop_skuas
+
+if $ARGS[0] = 'start':
+	$loc_arg = $ARGS[0]
+	$loc = 'shop_skuas'
+    $location_type = 'public_indoors'
+	$menu_loc = 'shop_skuas'
+	$menu_arg = 'start'
+	menu_off = 0
+	*clr & cla
+	mag = 1
+	gs 'stat'
+	gs 'themes', 'indoors'
+	'<center><b><font color="maroon">Skuas</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/boutique/butik.jpg"></center>'
+	*nl
+	'This exclusive boutique stands out amongst the rest of Pushkin''s small shops mostly just selling crap to tourists. It shows reverence the each outfit, displaying them with no petty concerns like fitting in more stock or speeding up the selling process. It is beautiful and every outfit is a labour of love. Its going to cost you plenty to shop here.'
+
+	act 'Leave the boutique': minut += 3 & gt 'torgcentr'
+	
+	!!act 'View clothing': minut += 5 & gt 'shop_skuas', 'clothes'
+
+end
+
+if $ARGS[0] = 'clothes':
+	$loc_arg = 'clothes'
+	$loc = 'shop_skuas'
+	$menu_loc = 'shop_skuas'
+	$menu_arg = 'clothes'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+	'<center><b><font color="maroon">Viewing Skuas outfits</font></b></center>'
+	*nl
+
+	gs 'clothing_QV', 'shop_header'
+
+	act 'Return': minut += 1 & gt 'shop_skuas', 'start'
+
+	clothingfilter['qualitycheck'] = 7
+	:loopquality
+		if Clothingstock > 11:
+			i = 1
+		else
+			i = 2
+		end
+
+		:loopskuas
+			if skuas[i] = 0:
+				gs 'clothing_attributes', 'skuas', i
+				gs 'clothing_QV', 'shop_filter'
+
+				if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
+				
+					if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''shop_skuas'', ''skuas''"><img src="images/pc/clothing/skuas/<<i>>.jpg" 	height="250" /></a>'
+				end
+			end
+			i += 2
+		if i <= 185:jump 'loopskuas'
+	if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
+end
+
+if $ARGS[0] = 'skuas':
+	cla
+	menu_off = 1
+	if skuas[i] ! 0:
+		msg 'You already own these clothes.'
+		gt 'shop_skuas', 'clothes'
+	end
+
+	gt 'clothing', 'view_clothing_item', 'shop', 'skuas',i, 20000
+
+end
+
+--- shop_skuas ---------------------------------
+

locations/shop_tsar_bomba.qsrc

@@ -0,0 +1,127 @@
+# shop_tsar_bomba
+
+if $ARGS[0] = 'start':
+	$loc_arg = $ARGS[0]
+	$loc = 'shop_tsar_bomba'
+    $location_type = 'public_indoors'
+	$menu_loc = 'shop_tsar_bomba'
+	$menu_arg = 'start'
+	menu_off = 0
+	*clr & cla
+	mag = 1
+	gs 'stat'
+	gs 'themes', 'indoors'
+	'<center><b><font color="maroon">Tsar Bomba</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bomba/butik.jpg"></center>'
+	*nl
+	'Tsar Bomba is one of the older clothing shops in the Old Town. All the shops here are small and unique but it still stands out simply because it has always catered to rebels both young and old. It used to be a punk rock specialist store and still caters to bikers but it constantly reinvents itself following trends and movements and innovating while never going mainstream.'
+	'Simply put this place is very cool and most of the clothes are black.'
+
+	act 'Leave the bomba': minut += 3 & gt 'torgcentr'
+	
+	act 'View clothing': 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'
+
+end
+
+if $ARGS[0] = 'clothes':
+	$loc_arg = 'clothes'
+	$loc = 'shop_tsar_bomba'
+	$menu_loc = 'shop_tsar_bomba'
+	$menu_arg = 'clothes'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+	'<center><b><font color="maroon">Viewing Tsar Bomba outfits</font></b></center>'
+	*nl
+
+	gs 'clothing_QV', 'shop_header'
+
+	act 'Return': minut += 1 & gt 'shop_tsar_bomba', 'start'
+
+	clothingfilter['qualitycheck'] = 7
+	:loopquality
+		if Clothingstock > 11:
+			i = 1
+		else
+			i = 2
+		end
+
+		:loopbomba
+			if bomba[i] = 0:
+				gs 'clothing_attributes', 'bomba', i
+				gs 'clothing_QV', 'shop_filter'
+
+				if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
+				
+					if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''shop_tsar_bomba'', ''bomba''"><img src="images/pc/clothing/bomba/<<i>>.jpg" 	height="250" /></a>'
+				end
+			end
+			i += 2
+		if i <= 185:jump 'loopbomba'
+	if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
+end
+
+if $ARGS[0] = 'bomba':
+	cla
+	menu_off = 1
+	if bomba[i] ! 0:
+		msg 'You already own these clothes.'
+		gt 'shop_tsar_bomba', 'clothes'
+	end
+
+	gt 'clothing', 'view_clothing_item', 'shop', 'bomba',i, 20000
+
+end
+
+if $ARGS[0] = 'shoes':
+	$loc_arg = $ARGS[0]
+	$loc = 'shop_tsar_bomba'
+	$menu_loc = 'shop_tsar_bomba'
+	$menu_arg = 'shoes'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+
+	act 'Return': minut += 1 & gt 'shop_tsar_bomba', 'start'
+
+	if Clothingstock > 11:
+		i = 1
+	else
+		i = 2
+	end
+
+	:loopbomba_shoes
+		if sbomba[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_tsar_bomba'', ''bomba_shoes''"><img src="images/pc/shoes/bomba/<<i>>.jpg" height="250" /></a>'
+		i += 2
+	if i <= 37:jump 'loopbomba_shoes'
+end
+
+if $ARGS[0] = 'bomba_shoes':	gt 'shoes', 'view_shoe_item', 'shop', 'bomba',i, 5000
+
+if $ARGS[0] = 'purses':
+	$loc_arg = 'purses'
+	$loc = 'shop_tsar_bomba'
+	$menu_loc = 'shop_tsar_bomba'
+	$menu_arg = 'purses'
+	menu_off = 0
+	*clr & cla
+	gs'stat'
+
+	act 'Return': minut += 1 & gt 'shop_tsar_bomba', 'start'
+
+	i = 1
+
+	:loopbomba_purses
+		if bomba_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_tsar_bomba'', ''purses2''"><img src="images/pc/purses/bomba/<<i>>.jpg" 	height="150" /></a> '
+		i += 1
+	if i <= 17:jump 'loopbomba_purses'
+end
+
+if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'bomba',i, 4000
+
+--- shop_tsar_bomba ---------------------------------
+