glife/locations/shop

# shop
!! This is the supermarket, located in several places

!! Main entrance
if $ARGS[0] = 'start':
	CLOSE ALL
	if sound = 0:PLAY 'sound/shop.mp3',30
	$shoplocation = 'main'
end

if $ARGS[0] = 'start' or $ARGS[0] = 'move':
	minut += 1
end

!! Main area
if $shoplocation = 'main':
	cla
	*clr

	'<center><b><font color="maroon">Supermarket</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/store/shop.jpg"></center>'

	if hour < 8 or hour > 20:
		'The supermarket is currently closed.'

		act 'Leave the store':minut += 1 & gt $loc
		exit
	end

	'In the hall stands an <a href="exec:$shoplocation = ''ATM'' & gt ''shop'', ''move''">ATM</a>, from which you can withdraw money from your bank account.'
	'There is a branch of communication giants <a href="exec:$shoplocation = ''megafon'' & gt ''shop'', ''move''">Bullhorn</a>.'
	'On the other side is on the wall <a href="exec: gs ''noticeboard'',''start''">Public notice board</a>, where you can check various private and official advertisement.'
	'<br>Most of the space in the supermarket is taken up by the <a href="exec:$shoplocation = ''grocery'' & gt ''shop'', ''move''">grocery department</a>, but the store has many smaller departments as well. <a href="exec:$shoplocation=''cosmetics'' & gt ''shop'', ''move''">Cosmetics</a>, <a href="exec:$shoplocation = ''hardware'' & gt ''shop'', ''move''">hardware</a>, <a href="exec:$shoplocation = ''clothing'' & gt ''shop'', ''move''">clothing</a> and the department of <a href="exec:$shoplocation = ''tech'' & gt ''shop'', ''move''">household appliances</a>. Not far from the entrance is a <a href="exec:$shoplocation = ''icecream'' & gt ''shop'', ''move''">counter selling ice cream</a>.'
	clr
	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
	!! The store in the town and in the altstart only
	if $loc = 'pavCommercial' and StoryLine = 1:
		if week < 6 and hour >= 8 and hour < 16:
			'Your sister <a href="exec:$shoplocation = ''Anya'' & gt ''shop'', ''move''">Anya</a> is sitting at the cash register.'
		end
	end

	!! Store in the residential district
	if $loc = 'street':
		if rand(1, 20) = 20:
			if dimaQW = 0:
				'By the store entrance a man is looking at you appreciatively.'
				act 'Return the look':gt 'event', 'dima'
			elseif dimaQW = 1:
				'In the lobby of the store you notice Dima and you are frozen with fear, you want to run, but your legs wont respond.'
				'Your heart is thumping in your chest, your vision narrows, you feel faint.'
				act 'Pass out':gt 'event', 'scoreslut1'
			else
				'You meet the same Dima whos friend fucked and abused you. Dima grins confidently and says, "Hello."'

				act 'Hello':
					cla
					'"Come with me, My wife''s away", says Dima.'

					act 'Fuck no':gt 'shop', 'start'

					act 'I deserve this':
						cla
						*clr

						if rand(1, 2) = 1:
							cla
							stat['vaginal'] += 1
							oral += 1
							pcs_throat += 1
							spafinloc = 12
							gs 'cum_manage'
							swallow += 1
							pcs_horny = 0
							minut += 10
							'Dima takes you to his house and orders you to lie across the sofa. You get on into position, he calls you a bitch and a starts fucking you in the mouth.'
							'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/gostdt2.jpg"></center>'
							'Dima finally finishes in your mouth, you obediently swallow and lick the remnants of sperm off his big cock.'

							act 'Leave':gt 'street'
						else
							cla
							stat['vaginal'] += 1
							stat['anal'] += 1
							spafinloc = 4
							gs 'cum_manage'
							spank += 1
							boom = 5
							pcs_horny = 0
							minut += 30
							'Dima has brings you to his house and right in the corridor begins to kiss and undress you. When you are naked he takes you to the bathroom.'
							'There he unscrews the showerhead and puts the hose in your ass. Quickly you feel the fullness and Dima sits you on the toilet. After the rough enema, he bends you over and puts his big dick in your ass.'
							'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/gostanal2.jpg"></center>'
							'Dima fucks you in the ass whilst slapping your butt, at first it is painful, but gradually you get it and it feels amazing. Finally, your ass fills with hot liquid and Dima moans and grabs your buttocks.'

							act 'Leave':gt 'street'
						end
					end
				end
			end
		end
	end

	'<br>The store is crowded with shoppers.'

	!! This is connected to the trade mission
	if TorgPredZ > 0:
		!! the location of the shop hasn''t been done today
		if ($loc = 'street' and StreetShopTPday ! daystart) or ($loc = 'Nord' and nordShopTPday ! daystart) or ($loc = 'torgcentr' and downShopTPday ! daystart):
			act 'Arrange products':
				if $loc = 'street':StreetShopTPday = daystart
				if $loc = 'Nord':nordShopTPday = daystart
				if $loc = 'torgcentr':downShopTPday = daystart

				cls
				mtprand = rand(40, 130)
				minut += mtprand
				TorgPredZ -= 1
				TorgPredZV += 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/shared/store/shop.jpg"></center>'
				'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'

				act 'Exit':gt 'shop', 'start'
			end

		end
	end

	act 'Leave the store':gt $loc
	exit
end

!! ATM
if $shoplocation = 'ATM':
	'<center><b><font color="maroon">ATM</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/store/atm.jpg"></center>'
	
	if bankAccount = 1:
		if karta >= 0:
			'You have <<karta>> <b>₽</b> in your account.'
			'You have an overdraft limit of <font color="blue"><<bankDebtLimit>></font>!'
		else
			'You are overdrawn by <font color="red"><<-1 * karta>> <b>₽</b></font>.'
			'You have a remaining credit limit of <font color="blue"><<bankDebtLimit + karta>></font>!'
		end
		
		'<br>ATM Deposit Fee: 100 <b>₽</b>'
		
		if atmDeposit = 0:
			act 'Deposit money':
				cla
				minut += 5
				
				kartaINATM = input ("How much money you want to deposit into the account? Note: A service charge of 100 <b>₽</b> will be deducted from the amount deposited.")
				if kartaINATM < 100 or kartaINATM > money:
					'This is not a valid input.'
				else
					atmDeposit += kartaINATM - 100
					atmDepositDate = daystart + 2
					money -= kartaINATM
					'<br>You deposited <<kartaINATM>> <b>₽</b> into your account.'
					'It will take 2 days for funds to be available. Your new balance will be <<karta+atmDeposit>>  <b>₽</b>.'
				end
				
				gs 'stat'
				act 'Move away': gt 'shop'
			end
		else
			'<br>★ Processing deposit of <<atmDeposit>> <b>₽</b> in <<atmDepositDate - daystart>> days.'
		end
		
		if karta + bankDebtLimit > 0:
			act 'Withdraw money from the ATM':
				cla
				minut += 5
				
				kartaOUT = input ("How much money you want to withdraw?")
				if kartaOUT <= 0 or kartaOUT > karta + bankDebtLimit:
					'<br>Invalid operation.'
				else
					karta -= kartaOUT
					money += kartaOUT
					if karta > 0:
						'<br>You withdraw <<kartaOUT>> <b>₽</b>. You have <<karta>> <b>₽</b> left in your bank account.'
					elseif karta = 0:
						'<br>You withdraw <<kartaOUT>> <b>₽</b>. You have no money left in your bank account.'
					else
						'<br>You withdraw <<kartaOUT>> <b>₽</b>. <font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>.</font>'
					end
				end
				
				gs 'stat'
				act 'Move away': gt 'shop'
			end
		else
			'You have maxed out your overdraft.'
		end
	else
		'You don''t have a bank account yet!'
	end
	
	act 'Move away':gt 'shop', 'start'
end

!! Grocery
if $shoplocation = 'grocery':
	cla
	*clr

	'<center><b><font color="maroon">Grocery</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/store/shop1.jpg"></center>'

	if hour < 8 or hour > 20:
		'The grocery is currently closed.'

		act 'Leave the grocery':gt 'shop', 'start'
		exit
	end

	!! output from purchase
	if $message ! '':
		'<center>'+$message+'</center>'
		killvar '$message'
	else
		''
	end	
	*pl '<center><table align="center" width=80%>' 
	*P FUNC ('$stock_item', 1, 'Regular food', 50, 'eda', $CURLOC) 
	*P FUNC ('$stock_item', 10, 'Regular food', 500, 'eda', $CURLOC) 
	*P FUNC ('$stock_item', 1, 'Diet food', 250, 'edaD', $CURLOC) 
	*P FUNC ('$stock_item', 10, 'Diet food', 2500, 'edaD', $CURLOC) 
	*P FUNC ('$stock_item', 10, 'Tea biscuits', 300, 'pranik', $CURLOC)
	*P iif(bag > 0, FUNC ('$single_stock_item', 1, 'Bottle of water', 50, 'bottle', $CURLOC), '<tr><td></td><td>Bottle of water</td><td colspan=2>You need a handbag</td><td>for 50 <b>₽</b></td></tr>') 
	*P iif(bag > 0, FUNC ('$single_stock_item', 1, 'Sandwich', 100, 'buterbrod', $CURLOC), '<tr><td></td><td>Sandwich</td><td colspan=2>You need a handbag</td><td>for 100 <b>₽</b></td></tr>') 
	*P iif(bag > 0, FUNC ('$single_stock_item', 1, 'Bottle of wine', 500, 'wine', $CURLOC), '<tr><td></td><td>Bottle of wine</td><td colspan=2>You need a handbag</td><td>for 500 <b>₽</b></td></tr>') 
	*P '</table></center>'
	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

	act 'Leave the grocery':gt 'shop', 'start'
end

!! Cosmetics
!! The scrunchies and hairpins sold here are from the Maruda Hair Mod
if $shoplocation= 'cosmetics':
	cla
	*clr

	'<center><b><font color="maroon">Cosmetics Department</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/store/shop2.jpg"></center>'

	if hour < 8 or hour > 20:
		'The cosmetics department is currently closed.'

		act 'Leave the cosmetics department':gt 'shop', 'start'
		exit
	end

	!! output from purchase
	if $message ! '':
		'<center>'+$message+'</center>'
		killvar '$message'
	else
		''
	end	
	*pl '<center><table align="center" width=80%>' 
	*P FUNC ('$stock_item', 50, 'Cosmetics', 1000, 'kosmetica', $CURLOC) 
	*P FUNC ('$stock_item', 10, 'Plain false lashes', 1500, 'falselashesplain',$CURLOC)
	*P FUNC ('$stock_item', 3, 'Mink false lashes', 900, 'falselashesmink',$CURLOC)
	*P FUNC ('$stock_item', 10, 'Razors', 500, 'stanok', $CURLOC) 
	*P FUNC ('$stock_item', 20, 'Sunblock', 500, 'krem', $CURLOC) 
	*P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC) 
	*P FUNC ('$stock_item', 20, 'Sanitary napkins', 200, 'sanpad', $CURLOC) 
	*P FUNC ('$stock_item', 30, 'Shampoo', 500, 'shampoo', $CURLOC) 
	*P FUNC ('$stock_item', 10, 'Hair scrunchies', 80, 'hscrunch', $CURLOC) 
	*P FUNC ('$stock_item', 12, 'Hair pins', 100, 'hpingrip', $CURLOC)
	*P FUNC ('$stock_item', 10, 'Wipes', 100, 'salfetka', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
	*P FUNC ('$stock_item', 10, 'Portable makeup', 1000, 'kosmetitka', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
	*P FUNC ('$stock_item', 20, 'Mouthwash', 400, 'mouthwash', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
	*P FUNC ('$single_stock_item', 1, 'Comb', 150, 'greben', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
	*P FUNC ('$single_stock_item', 1, 'Handbag', 5000, 'bag', $CURLOC, '', iif(bag > 0, 1, 0), '')
	*P '</table></center>'
	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

	act 'Leave the cosmetics department':
		if menu_option = 1:dynamic $menu_addoldmenu
		if menu_option = 0:gs 'obj_din', 'new'
		gt 'shop', 'start'
	end
end

!! Hardware
if $shoplocation = 'hardware':
	cla
	*clr

	'<center><b><font color="maroon">Division of household goods</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/store/shop3.jpg"></center>'

	if hour < 8 or hour > 20:
		'The hardware department is currently closed.'

		act 'Leave the hardware department':gt 'shop', 'start'
		exit
	end

	!! output from purchase
	if $message ! '':
		'<center>'+$message+'</center>'
		killvar '$message'
	else
		''
	end	
	*pl '<center><table align="center" width=80%>' 
	*P FUNC ('$stock_item', 20, 'Dishwashing detergent', 100, 'fairy', $CURLOC) 
	*P FUNC ('$stock_item', 30, 'Clothing detergent', 250, 'poroshok', $CURLOC) 
	*P FUNC ('$stock_item', 5, 'Plates', 300, 'cltarelka', $CURLOC) 
	*P '</table></center>'
	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

	act 'Leave the hardware department':gt 'shop', 'start'
	
	 if pcs_sewng >= 40:
	 'On the counter you can see that the fabric is suitable for teaching sewing. Bolt which is enough for one lesson stands 300 <b>₽</b>.'
	 if tkan <= 0:'Now you do not have tissue'
	 if tkan > 0:'Now you have enough tissue to <<tkan>> lessons'
	     if money >= 300:
	         act'Buy cloth':
	         cls
	         portion = input ("How much do you want to buy?")
			 if portion <= 0:portion = 1
			 if portion*300 > money:'You do not have enough money.'
				 if portion*300 <= money:
					tkan += portion
					money = money - portion*300
					'<center><img <<$set_imgh>> src="images/locations/shared/store/kassa.jpg"></center>'
					'You paid the cashier and bought cloth.'
				 end
			 	gs'stat'
			 act 'Move away from the counter':gt'shop'
	         end
	     end
	 
	 end	
end

!! Women''s clothing
if $shoplocation = 'clothing':
	cla
	*clr

	'<center><b><font color="maroon">Department of Women''s Clothing</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/store/shop4.jpg"></center>'

	if hour < 8 or hour > 20:
		'The women''s clothing department is currently closed.'

		act 'Leave the women''s clothing department':gt 'shop', 'start'
		exit
	end

	if $message ! '':
		'<center>'+$message+'</center>'
		killvar '$message'
	else
		''
	end	
	*pl '<center><table align="center" width=80%>' 
	*P FUNC ('$stock_item', 1, 'Panties', 300, 'clrbelo', $CURLOC)
	*P FUNC ('$stock_item', 7, 'Pack of 7 pairs of panties', 2000, 'clrbelo', $CURLOC)
	*P FUNC ('$stock_item', 1, 'Bra', 300, 'clrbra', $CURLOC)
	*P FUNC ('$stock_item', 7, 'Pack of 7 bras', 2000, 'clrbra', $CURLOC)
	*P '</table></center>'
	'<br/>Women''s clothing cost 2,500 <b>₽</b> each.'
	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

	act 'Leave the women''s clothing department':gt 'shop', 'start'

	if konki!1:
		'A pair of ice-skates are available for 500 <b>₽</b>.'
		if money >= 500:
			act 'Buy skates for 500 <b>₽</b>':
				cla
				*clr
				money = money - 500
				konki = 1

				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/konki_shop.jpg"></center>'
				'You buy a pair of skates.'

				act 'Move away from the counter':gt'shop'
			end
		end
	end

	
	if office[1] = 0:
		act 'Inspect Office clothes number 1':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/5office/1.jpg"></center>'
			gs 'clothing_attributes', 'office', 1
			'Office clothes 1'
			gs 'clothing_descriptions'
			'<<$description>>'
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 2,500 <b>₽</b>.'

			act 'Leave':gt'shop'

			if money => 2500 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 2500
					office[1] = 1
					officeH[1] = 60
					officeB[1] = pcs_hips
					gt'shop', '<font color="green">You bought <b>Office clothes number 1</b>.</font>'
				end
			end
		end
	end

	if office[2] = 0:
		act 'Inspect Office clothes number 2':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/5office/2.jpg"></center>'
			gs 'clothing_attributes', 'office', 2
			'Office clothes 2'
			gs 'clothing_descriptions'
			'<<$description>>'
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 2,500 <b>₽</b>.'

			act 'Leave':gt'shop'
			
			if money => 2500 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 2500
					office[2] = 1
					officeH[2] = 60
					officeB[2] = pcs_hips
					gt'shop', '<font color="green">You bought <b>Office clothes number 2</b>.</font>'
				end
			end
		end
	end

	if cheap[68] = 0:
		act 'Inspect cheap clothes 68':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/68.jpg"></center>'
			gs 'clothing_attributes', 'cheap', 68
			'Cheap clothes 68'
			gs 'clothing_descriptions'
			'<<$description>>'
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 2,500 <b>₽</b>.'

			act 'Leave':gt 'shop'
			if money => 2500 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 2500
					cheap[68] = 1
					cheapH[68] = 60
					cheapB[68] = pcs_hips
					gt 'shop', '<font color="green">You bought <b>cheap clothes 68</b>.</font>'
				end
			end
		end
	end

	if cheap[3] = 0:
		act 'Inspect cheap clothes 3':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/3.jpg"></center>'
			gs 'clothing_attributes', 'cheap', 3
			'Cheap clothes 3'
			gs 'clothing_descriptions'
			'<<$description>>'
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 2,500 <b>₽</b>.'

			act 'Leave':gt 'shop'
			if money => 2500 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 2500
					cheap[3] = 1
					cheapH[3] = 60
					cheapB[3] = pcs_hips
					gt 'shop', '<font color="green">You bought <b>cheap clothes 3</b>.</font>'
				end
			end
		end
	end

	if cheap[80] = 0:
		act 'Inspect cheap clothes 80':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/80.jpg"></center>'
			gs 'clothing_attributes', 'cheap', 80
			'Cheap clothes 80'
			gs 'clothing_descriptions'
			'<<$description>>'
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 2,500 <b>₽</b>.'

			act 'Leave':gt 'shop'
			if money => 2500 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 2500
					cheap[80] = 1
					cheapH[80] = 60
					cheapB[80] = pcs_hips
					gt 'shop', '<font color="green">You bought <b>cheap clothes 80</b>.</font>'
				end
			end
		end
	end

	if cheap[10] = 0:
		act 'Inspect cheap clothes 10':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/10.jpg"></center>'
			gs 'clothing_attributes', 'cheap', 10
			'Cheap clothes 10'
			gs 'clothing_descriptions'
			'<<$description>>'
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 2,500 <b>₽</b>.'

			act 'Leave':gt 'shop'
			if money => 2500 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 2500
					cheap[10] = 1
					cheapH[10] = 60
					cheapB[10] = pcs_hips
					gt 'shop', '<font color="green">You bought <b>cheap clothes 10</b>.</font>'
				end
			end
		end
	end

	if cheap[45] = 0:
		act 'Inspect cheap clothes 45':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/45.jpg"></center>'
			gs 'clothing_attributes', 'cheap', 45
			'Cheap clothes 45'
			gs 'clothing_descriptions'
			'<<$description>>'
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 2,500 <b>₽</b>.'

			act 'Leave':gt 'shop'
			if money => 2500 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 2500
					cheap[45] = 1
					cheapH[45] = 60
					cheapB[45] = pcs_hips
					gt 'shop', '<font color="green">You bought <b>cheap clothes 45</b>.</font>'
				end
			end
		end
	end

	if cheap[51] = 0:
		act 'Inspect cheap clothes 51':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/1cheap/51.jpg"></center>'
			gs 'clothing_attributes', 'cheap', 51
			'Cheap clothes 51'
			gs 'clothing_descriptions'
			'<<$description>>'
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 2,500 <b>₽</b>.'

			act 'Leave':gt 'shop'
			if money => 2500 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 2500
					cheap[51] = 1
					cheapH[51] = 60
					cheapB[51] = pcs_hips
					gt 'shop', '<font color="green">You bought <b>cheap clothes 51</b>.</font>'
				end
			end
		end
	end

	if exercise[4] = 0:
		act 'Inspect exercise clothes 4':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/7exercise/4.jpg"></center>'
			gs 'clothing_attributes', 'exercise', 4
			'Exercise clothes 4'
			gs 'clothing_descriptions'
			'<<$description>>'
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 2,500 <b>₽</b>.'

			act 'Leave':gt 'shop'
			if money => 2500 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 2500
					exercise[4] = 1
					exerciseH[4] = 60
					gt 'shop', '<font color="green">You bought <b>exercise clothes 4</b>.</font>'
				end
			end
		end
	end

	if exercise[20] = 0:
		act 'Inspect exercise clothes 20':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/7exercise/20.jpg"></center>'
			gs 'clothing_attributes', 'exercise', 20
			'Exercise clothes 20'
			gs 'clothing_descriptions'
			'<<$description>>'
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 2,500 <b>₽</b>.'
		
			act 'Leave':gt 'shop'
			if money => 2500 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 2500
					exercise[20] = 1
					exerciseH[20] = 60
					gt 'shop', '<font color="green">You bought <b>exercise clothes 31</b>.</font>'
				end
			end
		end
	end

	
	if coat[1] = 0:
		act 'Inspect coat 1':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/11coat/1.jpg"></center>'
			gs 'clothing_attributes', 'coat', 1
			'Coat 1'
			FUNC('$clothing_name', 'coat', 1)
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 5,000 <b>₽</b>.'

			act 'Leave':gt 'shop'
			if money => 5000 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 5000
					coat[1] = 1
					coatH[1] = 60
					gt 'shop', '<font color="green">You bought <b>coat 1</b>.</font>'
				end
			end
		end
	end


	
	if swimwear[4] = 0:
		act 'Inspect swimwear 4':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/pc/clothing/12swimwear/4.jpg"></center>'
			gs 'clothing_attributes', 'swimwear', 4
			'Swimwear 4'
			FUNC('$clothing_name', 'swimwear', 4)
			if CloExhibit > pcs_exhibition:'You don''t feel daring enough to buy an outfit this revealing.'
			'Costs 1,000 <b>₽</b>.'

			act 'Leave':gt 'shop'
			if money => 1000 and CloExhibit <= pcs_exhibition:
				act 'Buy':
					cla
					money -= 1000
					swimwear[4] = 1
					swimwearH[4] = 60
					swimwearB[4] = pcs_hips
					gt 'shop', '<font color="green">You bought <b>swimwear 4</b>.</font>'
				end
			end
		end
	end
	
end

!! Household appliances
if $shoplocation = 'tech':
	cla
	*clr

	'<center><b><font color="maroon">Department of household appliances</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/store/shop5.jpg"></center>'

	if hour < 8 or hour > 20:
		'The household appliance department is currently closed.'

		act 'Leave the appliance department':gt 'shop', 'start'
		exit
	end

	if $message ! '':
		'<center>'+$message+'</center>'
		killvar '$message'
	else
		''
	end	
	*pl '<center><table align="center" width=80%>' 
	*P FUNC ('$single_stock_item', 1, 'Scondhand Small CRT TV', 5000, 'TV', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
	*P FUNC ('$single_stock_item', 2, 'Large Plasma TV', 35000, 'TV', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
	*P FUNC ('$single_stock_item', 1, 'Computer', 25000, 'komp', $CURLOC)
	*p FUNC ('$single_stock_item', 1, 'Computer game Dead Sunset', 500, 'GameCD2', $CURLOC, '', iif(komp > 0, 0, 1), 'You need a computer')
	*P FUNC ('$single_stock_item', 1, 'Dishwasher', 50000, 'posudomashina', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
	*P FUNC ('$single_stock_item', 1, 'Washing machine', 50000, 'stiralka', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home')
	*P FUNC ('$single_stock_item', 1, 'Camera', 10000, 'zenit', $CURLOC) 
	*P FUNC ('$single_stock_item', 1, 'Mini camera disguised as a cigarette pack', 40000, 'minifoto', $CURLOC)
	*P FUNC ('$single_stock_item', 1, 'Webcam', 10000, 'webcamera', $CURLOC, '', iif((npc_rel['A11']>=30 and webcamera = 0) or (camwhore = 1 and webcamera = 0), 0, 1), 'You have no use this')
	*P '</table></center>'
	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

	act 'Leave the appliance department':gt 'shop', 'start'
end

!! Ice cream counter
if $shoplocation = 'icecream':
	'Ice cream is available for sale for 50 <b>₽</b>.'

	act 'Move away from the counter':gt 'shop', 'start'

	if money >= 50:
		act 'Buy ice cream':
			cls
			money -= 50
			fat += 3
			pcs_mood += 50
			water += 60
			pcs_energy += 30
			cumspclnt = 2
			gs 'cum_cleanup'
			pcs_breath = 0
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/shared/food/icecreem.jpg"></center>'
			'You bought ice cream and ate it not going far.'

			act 'Move away from the counter':gt 'shop', 'start'
		end
	end
end

if $shoplocation = 'megafon':
	cls
	minut+=3
	gs'stat'
	i = 0
	'<center><b><font color = maroon>Salon connection Megaphone</font></B></center>'
	'<center><img src="images/system/phone/megafon2.jpg" ></center>'

	*pl '<center><table align="center">'

	:loopcard

	if i = 0:
		n = 5
		price = 60
		$buy_link = '<a' + iif(money >= 60, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
	elseif i = 1:
		n = 10
		price = 115
		$buy_link = '<a' + iif(money >= 115, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
	elseif i = 2:
		n = 20
		price = 220
		$buy_link = '<a' + iif(money >= 220, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
	elseif i = 3:
		n = 50
		price = 520
		$buy_link = '<a' + iif(money >= 520, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''shop''">buy ','>buy ') +'</a>'
	end

	i += 1

	'<tr><td align="center"><<n>> hour internet card </td><td align="right">(you have <<internet>> hours of internet access) </td><td align="right"><<$buy_link>> </td><td align="left">for <<price>> <b>₽</b></td></tr>'

	if i < 4:
		jump 'loopcard'
	end

	'</table></center>'


	act 'Exit Department':gt'shop','start'

	if money > 0:
		act 'Put the money on the phone':
			cla
			set minut = minut + 5
			obmennik = input ("How many <b>₽</b> do you want to deposit?")

			if obmennik <= 0:
				'<center><br><b>Do you want to think again?</b></center>'
				act 'Exit Department':gt'shop','start'
			else
				if money < obmennik:
					'<center><br>You do not have <b><<obmennik>></b> <b>₽</b>.</center>'
					act 'Exit Department':gt'shop','start'
				end

				if money >= obmennik:
					set balans = balans + obmennik
					set money = money - obmennik
					clr
					gs'stat'
					'<center><br>You put <b><<obmennik>></b> <b>₽</b> to the account.</center>'
					act 'Exit Department':gt'shop','start'
				end
			end
		end
	end
end

if $shoplocation = 'Anya':
	cla
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister.jpg"></center>'
	gs'dinsister'
	dynamic $sischecks
	'"<<$pcs_nickname>>, do not disturb me at work, can''t you see I have customers?""'
	act '<B>Move away</B>':gt'shop','start'
end

--- shop ---------------------------------