Added exhibitionist shop (can't be unlocked yet)

glife-notepad++

@@ -193,6 +193,7 @@
             <File name="locations\events" />
             <File name="locations\EvgopBuh" />
             <File name="locations\EvOtelMan" />
+            <File name="locations\exhibitionistshop" />
             <File name="locations\famdorfride" />
             <File name="locations\fame" />
             <File name="locations\family" />

glife.qproj

@@ -943,6 +943,7 @@
       <Location name="ugol1"/>
       <Location name="artstudia"/>
       <Location name="liames"/>
+      <Location name="exhibitionistshop"/>
       <Location name="parks"/>
       <Location name="lug"/>
       <Location name="dibodi"/>

locations/exhibitionistshop

@@ -0,0 +1,81 @@
+# exhibitionistshop
+
+if $ARGS[0] = 'start':
+	CLOSE ALL
+	$loc = 'exhibitionistshop'
+	$metka = 'start'
+	$locM = 'exhibitionistshop'
+	$metkaM = 'start'
+	$sexloc = 'exhibitionistshop'
+    $location_type = 'public_indoors'
+	cls
+	minut += 5
+	gs 'stat'
+
+	if night_mode = 1:
+		fcolor = rgb(255, 255, 255)
+		bcolor = rgb(0, 0, 0)
+		lcolor = rgb(106, 90, 205)
+	else
+		fcolor = rgb(0, 0, 0)
+		bcolor = rgb(255, 255, 255)
+		lcolor = rgb(106, 90, 205)
+	end
+	'<center><b><font color="maroon">Exhibitionist Shop</font></b></center>'
+	'<center><img src="images/locations/city/oldtown/exihibitshop/shop.jpg"></center>'
+	'A shop in the most modern style who''s clothing is all very revealing and not nearly as classy as the store itself.'
+
+	act 'Leave':
+		minut += 5
+		gt 'liames'
+	end
+
+	act 'View clothing':
+		minut += 1
+		gt 'exhibitionistshop', 'clo'
+	end
+end
+
+if $ARGS[0] = 'clo':
+	$metka = 'clo'
+	$loc = 'exhibitionistshop'
+	cls
+	gs'stat'
+	'Exhibitionist clothing.'
+
+	act 'Return':
+		cla
+		minut += 5
+		gt 'exhibitionistshop', 'start'
+	end
+
+	if Clothingstock >= 18:
+		i = 1
+	elseif Clothingstock >= 12:
+		i = 2
+	elseif Clothingstock >= 6:
+		i = 3
+	else
+		i = 4
+	end
+
+	:loopexhibit
+		if exhibit[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sexshop'', ''exhibit''"><img src="images/pc/clothing/8fetish/<<i>>.jpg" 	height="250" /></a>'
+		i += 4
+	if i <= 42:jump 'loopexhibit'
+end
+
+if $ARGS[0] = 'exhibit':
+	cla
+	
+	if exhibit[i] ! 0:
+		msg 'You already own these clothes.'
+		gt 'exhibitionistshop', 'clo'
+	end
+
+	gt 'clothing', 'view_clothing_item', 'shop', 'exhibit',i, 1000
+end
+
+
+--- exhibitionistshop ---------------------------------
+

locations/liames

@@ -25,6 +25,7 @@ set minut+=10
 'Street leads to the Old Town <a href="exec:GT ''parks'',''start''">park</a>.'
 if hour >= 8 and hour <= 20:'A small <a href="exec:GT ''larek'',''start''">shop</a> is currently open.'
 if hour >= 10 and hour <= 22: 'A <a href="exec:GT ''liamelkafe'',''start''">tiny cafe</a> displays a street sign outside it''s door.'
+if hour >= 8 and hour <= 17 and exhibitQW > 4:'The <a href="exec:GT ''exhibitionistshop'',''start''">exhibitionist shop</a> is just down a small side street from here.'
 
 if housr = 2:
     act '<b>Go home</b>':gt'korr2x'