# shop
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 1

	$icecreem = {
		if hour >= 8 and hour <= 20:
			cls
			set minut += 3
			'Ice cream, sold for 50 rubles.'

			act 'Get out of the department':gt 'shop', 'start'

			if money >= 50:
				act 'Buy ice cream':
					cls
					money -= 50
					fat += 50
					manna += 500
					water = 20
					energy = 20
					perkice += 1
					gs 'stat'
					!!icecreem
					'<center><img src="images/etogame/icecreem.jpg"></center>'
					'You bought ice cream and ate it not going far.'

					act 'Get out of the department':gt 'shop', 'start'
				end
			end
		else
			'Ice cream counter with closed'
		end
	}

	$sofood = {
		if hour >= 8 and hour <= 20:
			minut += 3
			gt 'shop', 'food'
		else
			'Section closed'
		end
	}

	$socosm = {
		if hour >= 8 and hour <= 20:
			minut += 3
			gt 'shop', 'cosm'
		else
			'Section closed'
		end
	}

	$sohos = {
		if hour >= 8 and hour <= 20:
			minut += 3
			gt 'shop', 'hos'
		else
			'Section closed'
		end
	}

	$soclo = {
		if hour >= 8 and hour <= 20:
			minut += 3
			gt 'shop', 'clo'
		else
			'Section closed'
		end
	}

	$soteh = {
		if hour >= 8 and hour <= 20:
			minut += 3
			gt 'shop', 'teh'
		else
			'Section closed'
		end
	}

	$sobank = {
		if hour >= 8 and hour <= 20:
			if karta > 0:
				act 'Withdraw money from the ATM':
					cla
					set minut += 5
					kartaOUT = input ("How much money you want to withdraw?")

					if kartaOUT <= 0 or kartaOUT > karta:
						'<br>Invalid operation.'
					else
						set karta -= kartaOUT
						set money += kartaOUT
						'<br>You withdraw <<kartaOUT>> rubles. You have <<karta>> rubles left in your bank account.'
					end

					act 'Move away':gt 'shop', 'start'
				end
			else
				'You do not have a bank card'
			end
		else
			'ATM disabled'
		end
	}

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'<center><b><font color="maroon">Supermarket</font></b></center>'
	'<center><img src="images/etogame/shop.jpg"></center>'
	'In the hall stands <a href="exec:dynamic $sobank">ATM</a>, from which you can withdraw money if you have it in the bank.'
	'<br>Most of the space in the supermarket is taken by the <a href="exec:dynamic $sofood">grocery department</a>, but the store has many smaller departments as well. <a href="exec:dynamic $socosm">Cosmetics</a>, <a href="exec:dynamic $sohos">hardware</a>, <a href="exec:dynamic $soclo">clothing</a> and the department of <a href="exec:dynamic $soteh">household appliances</a>. Not far from the entrance is a <a href="exec:dynamic $icecreem">counter selling ice cream</a>'
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

	if $loc = 'gorodok':
		if week < 6:
			if hour >= 8 and hour < 16:
				'Your sister <a href="exec:SiSonWork = 1 & gt ''sister''">Anne</a> sits at the checkout.'
			end
		end
	end

	if $loc = 'street':
		set evrand = rand(1, 100)

		if evrand >= 95 and dimaQW = 0:
			'In the lobby of the store looks at you appreciatively what that man.'

			act 'See it':gt 'event', 'dima'
		end

		if evrand >= 95 and dimaQW = 1:
			'In the lobby of the store you notice Dima and binds you fear, you can not move.'

			act 'See it':gt 'event', 'scoreslut1'
		end

		if evrand >= 95 and dimaqw = 2:
			'You met the same Dima who boyfriend fucking amuse you. Dima cocky grin came to you and said hello.'

			act 'Hello':
				cla
				'Come to me, I have no wife at home said Dima.'

				act 'No':gt 'shop', 'start'

				act 'Come':
					cla
					*clr
					set gostrand = rand(1, 2)

					if gostrand = 1:
						cla
						set sex += 1
						set oral += 1
						set throat += 1
						set cumlip += 1
						set swallow += 1
						set horny = 0
						'Dima took you to his house and there has ordered you to kneel. You got on his knees and he calling you a bitch and fuck you cocksucker began in the mouth.'
						'<center><img src="images/pics/gostDT2.jpg"></center>'
						'Dima finally finished your mouth, you obediently swallowed and licked the remnants of sperm with his big cock.'

						act 'Go home':gt 'street'
					end

					if gostrand = 2:
						cla
						set sex += 1
						set anal += 1
						set cumass += 1
						set spank += 1
						set boom = 5
						set horny = 0
						'Dima has brought you to my house and right in the corridor began to kiss you and undress. After he stripped you he took you to the bathroom. There he sat in the bathroom and you unscrewing the showerhead put a water hose you in the ass. Quickly the feeling of fullness and Dima put you on the toilet. After an enema, he made you cancer and put you in the ass his big dick.'
						'<center><img src="images/pics/gostAnal2.jpg"></center>'
						'Dima long you fucked in the ass and beat his hands, you first it was painful, but gradually you got the taste and began to catch the buzz finally your ass filled with hot liquid and Dima moan grabbed your buttocks.'

						act 'Go home':gt 'street'
					end
				end
			end
		end
	end

	if hour >= 8 and hour <= 20:
		'<br>In store is crowd of shoppers.'

		if TorgPredZ > 0:
			if $loc = 'street':
				if StreetShopTPday ! day:
					act 'Arrange products':
						cls
						mtprand = rand(40, 130)
						minut += mtprand
						TorgPredZ -= 1
						TorgPredZV += 1
						StreetShopTPday = day
						gs 'stat'
						'<center><img src="images/etogame/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

			if $loc = 'Nord':
				if nordShopTPday ! day:
					act 'Arrange products':
						cls
						mtprand = rand(40, 130)
						minut += mtprand
						TorgPredZ -= 1
						TorgPredZV += 1
						nordShopTPday = day
						gs 'stat'
						'<center><img src="images/etogame/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

			if $loc = 'down':
				if downShopTPday ! day:
					act 'Arrange products':
						cls
						mtprand = rand(40, 130)
						minut += mtprand
						TorgPredZ -= 1
						TorgPredZV += 1
						downShopTPday = day
						gs 'stat'
						'<center><img src="images/etogame/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
		end
	else
		'The store is closed.'
	end

	act 'Leave the store':gt $loc

end

if $ARGS[0] = 'food':
	cla
	*clr
	set minut += 1

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	$buyfood = {
		if hour >= 8 and hour <= 20:
			if money >= 50:
				cla
				*clr
				set minut += 15
				portion = input ("How many servings you want to buy?")

				if portion <= 0:portion = 1

				if portion * 50 > money:
					'You do not have enough money.'
				else
					set eda += portion
					set money -= portion*50
					'<center><img src="images/etogame/kassa.jpg"></center>'
					'You bought food and paid the money to the cashier.'
				end

				act 'Move away from the counter':gt 'shop', 'food'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	$buyfood2 = {
		if hour >= 8 and hour <= 20:
			if money >= 250:
				cla
				*clr
				set minut += 15
				portion = input ("How many servings you want to buy?")

				if portion <= 0:portion = 1

				if portion * 250 > money:
					'You do not have enough money.'
				else
					set edaD += portion
					set money -= portion*250
					'<center><img src="images/etogame/kassa.jpg"></center>'
					'You bought food and paid the money to the cashier.'
				end

				act 'Move away from the counter':gt 'shop', 'food'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'<center><b><font color="maroon">Grocery deparment</font></b></center>'
	'<center><img src="images/etogame/shop1.jpg"></center>'
	'<a href="exec:dynamic $buyfood">One serving of food - 50 rubles</a>'
	'<a href="exec:dynamic $buyfood2">One serving of diet food - 250 rubles</a>'
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

	act 'Get out of the department':gt 'shop', 'start'

	if money >= 300:
		act 'Buy tea biscuits (300 rubles)':
			cls
			money -= 300
			pranik += 10
			'You bought a bag of cookies that will last you for ten times.'
			act 'Leave the department':gt 'shop', 'food'
		end
	end

	if money >= 50 and bottle = 0 and bag > 0:
		act 'Buy a bottle of water (50 rubles)':
			cls
			money -= 50
			bottle = 1
			'You bought a bottle of water and put it in her purse.'
			act 'Leave the department':gt 'shop', 'food'
		end
	end

	if money >= 100 and buterbrod = 0 and bag > 0:
		act 'Buy a sandwich (100 rubles)':
			cls
			money -= 100
			buterbrod = 1
			'You bought a sandwich and put it in her purse.'
			act 'Leave the department':gt 'shop', 'food'
		end
	end

	if money >= 500 and wine = 0 and bag > 0:
		act 'Buy a bottle of wine (500 rubles)':
			cls
			money -= 500
			wine = 1
			'You bought a bottle of wine and put it in her purse.'

			act 'Get out of the department':gt 'shop', 'food'
		end
	end
end

if $ARGS[0] = 'cosm':
	cla
	*clr
	set minut += 1

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	$buykosm = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")
			if portion <= 0:portion = 1

			if portion *1000 > money:
				'You do not have enough money.'
			else
				set kosmetica += portion * 50
				set money -= portion * 1000
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You pay the cashier and bought cosmetics.'
			end

			act 'Move away from the counter':gt 'shop', 'cosm'
		else
			'Section closed'
		end
	}

	$buystanok = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")
			if portion <= 0:portion = 1

			if portion * 500 > money:
				'You do not have enough money.'
			else
				set stanok += portion * 10
				set money -= portion * 500
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You pay the cashier and bought razor.'
			end

			act 'Move away from the counter':gt 'shop', 'cosm'
		else
			'Section closed'
		end
	}

	$buykrem = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")

			if portion <= 0:portion = 1

			if portion * 500 > money:
				'You do not have enough money.'
			else
				set krem += portion * 20
				set money -= portion * 500
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You pay the cashier and bought sunblock.'
			end

			act 'Move away from the counter':gt 'shop', 'cosm'
		else
			'Section closed'
		end
	}


	$buytampon = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")

			if portion <= 0:portion = 1

			if portion * 200 > money:
				'You do not have enough money.'
			else
				set tampon += portion * 20
				set money -= portion * 200
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You pay the cashier and bought tampons.'
			end

			act 'Move away from the counter':gt 'shop', 'cosm'
		else
			'Section closed'
		end
	}

	$buyshampoo = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")

			if portion <= 0:portion = 1

			if portion * 500 > money:
				'You do not have enough money.'
			else
				set shampoo += portion * 30
				set money -= portion * 500
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You pay the cashier and bought shampoo.'
			end

			act 'Move away from the counter':gt 'shop', 'cosm'
		else
			'Section closed'
		end
	}

	!!! Maruda Hair Mod
	$buyhscrunch = {
	if hour >= 8 and hour <= 20:
		cla
		*clr
		portion = input ("How much you want to buy?")
		if portion <= 0:portion = 1

		if portion * 80 > money:
			'You do not have enough money.'
		else
			set hscrunch = portion * 10
			set money -= portion * 80
			'<center><img src="images/etogame/kassa.jpg"></center>'
			'You pay the cashier and bought the small box.'
		end
		act 'Move away from the counter':gt 'shop', 'cosm'
	else
		'Section closed'
	end
	}

	$buyhpingrip = {
	if hour >= 8 and hour <= 20:
		cla
		*clr
		portion = input ("How much you want to buy?")
		if portion <= 0:portion = 1

		if portion * 100 > money:
			'You do not have enough money.'
		else
			set hpingrip = portion * 12
			set money -= portion * 100
			'<center><img src="images/etogame/kassa.jpg"></center>'
			'You pay the cashier and bought the small box.'
		end
		act 'Move away from the counter':gt 'shop', 'cosm'
	else
		'Section closed'
	end
	}
	!!! Maruda Hair Mod

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'<center><b><font color="maroon">Cosmetics Department</font></b></center>'
	'<center><img src="images/etogame/shop2.jpg"></center>'
	'<a href="exec:dynamic $buykosm">Cosmetics - 1,000 rubles</a>'
	'<a href="exec:dynamic $buystanok">A box of razors - 500 rubles</a>'
	'<a href="exec:dynamic $buykrem">A bottle of sunblock - 500 rubles</a>'
	'<a href="exec:dynamic $buytampon">A box of tampons - 200 rubles</a>'
	'<a href="exec:dynamic $buyshampoo">A bottle of shampoo - 500 rubles</a>'
	!!! Maruda Hair Mod
	'<a href="exec:dynamic $buyhscrunch">A Box of 10 Hairscrunchies (80 rubles)</a>'
	'<a href="exec:dynamic $buyhpingrip">A Box of 12 Hairpins, -clips and -grips (100 rubles)</a>'
	!!! Maruda Hair Mod
	'Handbag - 5,000 rubles'
	'Wipes - 100 rubles'
	'Portable Makeup - 1,000 rubles'
	'Comb - 150 rubles'

	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

	act 'Get out of the department':gt 'shop', 'start'

	if money >= 100 and bag > 0:
		act 'Buy wipes (100 rubles)':
			cls
			money -= 100
			salfetka += 10
			'You bought wipes and put them in her purse.'
			act 'Get out of the department':gt 'shop', 'cosm'
		end
	end

	if money >= 1000 and bag > 0:
		act 'Buy a portable makeup (1,000 rubles)':
			cls
			money -= 1000
			kosmetitka += 10
			'You bought a portable makeup bag and put it in her purse.'
			act 'Get out of the department':gt 'shop', 'cosm'
		end
	end

	if money >= 150 and greben = 0 and bag > 0:
		act 'Buy a comb (150 rubles)':
			cls
			money -= 150
			greben = 1
			'You bought a comb and put it in her purse.'
			act 'Get out of the department':gt 'shop', 'cosm'
		end
	end

	if money >= 5000 and bag = 0:
		act 'Buy a handbag (5,000 rubles)':
			cls
			money -= 5000
			bag = 1
			'You bought a handbag.'
			act 'Get out of the department':gt 'shop', 'cosm'
		end
	end
end


if $ARGS[0] = 'hos':
	cla
	*clr
	set minut += 1

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	$buyfairy = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")

			if portion <= 0:portion = 1

			if portion * 100 > money:
				'You do not have enough money.'
			else
				set fairy += portion * 20
				set money -= portion * 100
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You pay the cashier and bought dishwashing detergent.'
			end

			act 'Move away from the counter':gt 'shop', 'hos'
		else
			'Section closed'
		end
	}

	$buyporoshok = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")

			if portion <= 0:portion = 1

			if portion * 250 > money:
				'You do not have enough money.'
			else
				set poroshok += portion * 30
				set money -= portion * 250
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You pay the cashier and bought detergent.'
			end

			act 'Move away from the counter':gt 'shop', 'hos'
		else
			'Section closed'
		end
	}


	$buycltarelka = {
		if hour >= 8 and hour <= 20:
			cla
			*clr
			portion = input ("How much you want to buy?")
			if portion <= 0:portion = 1

			if portion * 300 > money:
				'You do not have enough money.'
			else
				set cltarelka += portion * 5
				set money -= portion * 300
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You pay the cashier and bought a set of the 5-plates.'
			end
				act 'Move away from the counter':gt 'shop', 'hos'
		else
			'Section closed'
		end
	}

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'<center><b><font color="maroon">Division of household goods</font></b></center>'
	'<center><img src="images/etogame/shop3.jpg"></center>'
	'<a href="exec:dynamic $buyfairy">Dishwashing detergent - 100 rubles</a>'
	'<a href="exec:dynamic $buyporoshok">Washing powder - 250 rubles</a>'
	'<a href="exec:dynamic $buycltarelka">set of 5 plates - 300 rubles</a>'
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

	act 'Get out of the department':gt 'shop', 'start'
end

if $ARGS[0] = 'clo':
	cla
	*clr
	set minut += 5
	'<center><b><font color="maroon">Department of Women''s Clothing</font></b></center>'
	'<center><img src="images/etogame/shop4.jpg"></center>'
	'Underwear - 300 rubles'
	'All women´s clothing for 2,500 rubles'
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

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

	if money >= 300:
		act 'Buy underwear (300 rubles)':
			cla
			*clr
			portion = input ("How many you want to buy?")

			if portion <= 0:portion = 1
			if portion * 300 > money:'You do not have enough money.'

			if portion * 300 <= money:
				set clrbelo += portion
				set money -= portion * 300
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You pay the cashier and bought clothes.'
			end

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

		end
	end

	if money >= 2000:
		act 'Buy a set of underwear "Nedelka" (2,000 rubles)':
			cla
			*clr
			set money -= 2000
			set clrbelo += 7
			'<center><img src="images/etogame/kassa.jpg"></center>'
			'You pay the cashier and bought clothes.'

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

	if palto < 2:
		'Winter coats (10,000 rubles)'
		if money >= 10000:
			act 'Buy a winter coat':
				cla
				money -= 10000
				palto = 2
				$palto = 'winter coat'
				'You bought a coat.'

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

	if money >= 1000 and bikini < 1:
		'Swimsuit (1,000 rubles)'

		act 'Buy swimsuit (1,000 rubles)':
			cla
			*clr
			set money -= 1000
			set bikini = 1
			'<center><img src="images/etogame/kassa.jpg"></center>'
			'You pay the cashier and bought a swimsuit.'

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

	if money >= 2500:
		if profi[1] = 0:
			act 'Inspect office clothes number 1':
				cla
				*clr
				'<center><img src="images/clothes/profi1.jpg"></center>'
				'Office clothes.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set profi[1] = 1
					set profiH[1] = 60
					set profiB[1] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if profi[2] = 0:
			act 'Inspect office clothes number 2':
				cla
				*clr
				'<center><img src="images/clothes/profi2.jpg"></center>'
				'Office clothes.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set profi[2] = 1
					set profiH[2] = 60
					set profiB[2] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if sarafan[1] = 0:
			act 'Inspect colorful sundress':
				cla
				*clr
				'<center><img src="images/clothes/sarafan1.jpg"></center>'
				'Simple sundress, its main advantage is its dimensionless.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set sarafan[1] = 1
					set sarafanH[1] = 60
					gt 'shop', 'clo'
				end
			end
		end

		if sarafan[2] = 0:
			act 'Inspect light sundress':
				cla
				*clr
				'<center><img src="images/clothes/sarafan2.jpg"></center>'
				'Simple sundress, its main advantage is its dimensionless.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set sarafan[2] = 1
					set sarafanH[2] = 60
					gt 'shop', 'clo'
				end
			end
		end

		if short[1] = 0:
			act 'Inspect Black shorts with a purple T-shirt':
				cla
				*clr
				'<center><img src="images/clothes/short1.jpg"></center>'
				'Black shorts with a purple jersey.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set short[1] = 1
					set shortH[1] = 60
					set shortB[1] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if short[2] = 0:
			act 'Inspect Black shorts with a striped T-shirt':
				cla
				*clr
				'<center><img src="images/clothes/short2.jpg"></center>'
				'Black shorts with striped jersey.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set short[2] = 1
					set shortH[2] = 60
					set shortB[2] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if short[3] = 0:
			act 'Inspect Black shorts with black jersey':
				cla
				*clr
				'<center><img src="images/clothes/short3.jpg"></center>'
				'Black shorts with a black T-shirt.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set short[3] = 1
					set shortH[3] = 60
					set shortB[3] = bedra
					gt 'shop', 'clo'
					end
			end
		end

		if short[4] = 0:
			act 'Inspect pink shorts with pink jersey':
				cla
				*clr
				'<center><img src="images/clothes/short4.jpg"></center>'
				'pink shorts with the pink jersey.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set short[4] = 1
					set shortH[4] = 60
					set shortB[4] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if short[5] = 0:
			act 'Inspect the white shorts with a white bodice':
				cla
				*clr
				'<center><img src="images/clothes/short5.jpg"></center>'
				'white shorts with a white bodice.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set short[5] = 1
					set shortH[5] = 60
					set shortB[5] = bedra
					gt 'shop', 'clo'
					end
			end
		end

		if skirt[1] = 0:
			act 'Inspect the white skirt with a colorful blouse.':
				cla
				*clr
				'<center><img src="images/clothes/skirt1.jpg"></center>'
				'White skirt with a colorful blouse.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set skirt[1] = 1
					set skirtH[1] = 60
					set skirtB[1] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if skirt[2] = 0:
			act 'Inspect the black skirt with a red sweater.':
				cla
				*clr
				'<center><img src="images/clothes/skirt2.jpg"></center>'
				'Black skirt with a red sweater.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set skirt[2] = 1
					set skirtH[2] = 60
					set skirtB[2] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if skirt[3] = 0:
			act 'Inspect the white skirt with a striped shirt.':
				cla
				*clr
				'<center><img src="images/clothes/skirt3.jpg"></center>'
				'White skirt with a striped shirt.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set skirt[3] = 1
					set skirtH[3] = 60
					set skirtB[3] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if skirt[4] = 0:
			act 'Inspect the skin black skirt with a red blouse.':
				cla
				*clr
				'<center><img src="images/clothes/skirt4.jpg"></center>'
				'Black skirt under the skin with a red blouse.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set skirt[4] = 1
					set skirtH[4] = 60
					set skirtB[4] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if skirt[5] = 0:
			act 'Inspect the black skirt with a white blouse.':
				cla
				*clr
				'<center><img src="images/clothes/skirt5.jpg"></center>'
				'Black skirt with a white blouse.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set skirt[5] = 1
					set skirtH[5] = 60
					set skirtB[5] = bedra
				gt 'shop', 'clo'
				end
			end
		end

		if pants[1] = 0:
			act 'Inspect the pants with a blouse. Number 1':
				cla
				*clr
				'<center><img src="images/clothes/pants1.jpg"></center>'
				'Pants with a blouse.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set pants[1] = 1
					set pantsH[1] = 60
					set pantsB[1] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if pants[2] = 0:
			act 'Inspect the pants with a blouse. Number 2':
				cla
				*clr
				'<center><img src="images/clothes/pants2.jpg"></center>'
				'Pants with a blouse.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set pants[2] = 1
					set pantsH[2] = 60
					set pantsB[2] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if pants[3] = 0:
			act 'Inspect the pants with a blouse. Number 3':
				cla
				*clr
				'<center><img src="images/clothes/pants3.jpg"></center>'
				'Pants with a blouse.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set pants[3] = 1
					set pantsH[3] = 60
					set pantsB[3] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if pants[4] = 0:
			act 'Inspect the pants with a blouse. Number 4':
				cla
				*clr
				'<center><img src="images/clothes/pants4.jpg"></center>'
				'Pants with a blouse.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set pants[4] = 1
					set pantsH[4] = 60
					set pantsB[4] = bedra
					gt 'shop', 'clo'
				end
			end
		end

		if pants[5] = 0:
			act 'Inspect the pants with a blouse. Number 5':
				cla
				*clr
				'<center><img src="images/clothes/pants5.jpg"></center>'
				'Pants with a blouse.'
				'Costs 2,500 rubles.'

				act 'Leave':gt 'shop', 'clo'

				act 'Buy':
					cla
					set money -= 2500
					set pants[5] = 1
					set pantsH[5] = 60
					set pantsB[5] = bedra
					gt 'shop', 'clo'
				end
			end
		end
	end
end



if $ARGS[0] = 'teh':
	cla
	*clr
	set minut += 1

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	$buytv = {
		if hour >= 8 and hour <= 20:
			if money >= 5000 and TV < 1:
				cla
				*clr
				set money -= 5000
				set TV = 1
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You the money to the cashier and bought the TV'

				act 'Leave':gt 'shop', 'teh'
			elseif TV > 0:
				'Do you already have a TV'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	$buytv2 = {
		if hour >= 8 and hour <= 20:
			if money >= 35000 and TV < 2:
				cla
				*clr
				set money -= 35000
				set TV = 2
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You the money to the cashier and bought the TV'

				act 'Leave':gt 'shop', 'teh'
			elseif TV > 1:
				'Do you already have a TV'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	$buykomp = {
		if hour >= 8 and hour <= 20:
			if money >= 25000 and komp =0:
				cla
				*clr
				set money -= 25000
				set komp = 1
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You paid in cash and bought the computer'

				act 'Leave':gt 'shop', 'teh'
			elseif komp > 0:
				'Do you already have a computer'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	$buycd = {
		if hour >= 8 and hour <= 20:
			if money >= 500 and komp > 0 and GameCD = 0:
				cla
				*clr
				set money -= 500
				GameCD = 1
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You paid in cash and bought the game'

				act 'Leave':gt 'shop', 'teh'
			elseif komp = 0:
				'You do not have computer'
			elseif GameCD > 0:
				'You already have this game'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	$buycd2 = {
		if hour >= 8 and hour <= 20:
			if money >= 500 and komp > 0 and GameCD2 = 0:
				cla
				*clr
				set money -= 500
				GameCD2 = 1
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You paid in cash and bought the game'

				act 'Leave':gt 'shop', 'teh'
			elseif komp = 0:
				'You do not have computer'
			elseif GameCD2 > 0:
				'You already have this game'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	$buycd3 = {
		if hour >= 8 and hour <= 20:
			if money >= 500 and komp > 0 and GameCD3 = 0:
				cla
				*clr
				set money -= 500
				GameCD3 = 1
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You paid in cash and bought the game'

				act 'Leave':gt 'shop', 'teh'
			elseif komp = 0:
				'You do not have computer'
			elseif GameCD3 > 0:
				'You already have this game'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	$buyposudmoi = {
		if hour >= 8 and hour <= 20:
			if money >= 50000 and posudomashina = 0:
				cla
				*clr
				set money -= 50000
				posudomashina = 1
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You paid in cash and bought a dishwasher'

				act 'Leave':gt 'shop', 'teh'
			elseif posudomashina > 0:
				'You already have a dishwasher'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	$buystiralka = {
		if hour >= 8 and hour <= 20:
			if money >= 50000 and stiralka = 0:
				cla
				*clr
				set money -= 50000
				stiralka = 1
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You paid in cash and bought a washing machine'

				act 'Leave':gt 'shop', 'teh'
			elseif stiralka > 0:
				'You already have a washing machine'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	$buyzenit = {
		if hour >= 8 and hour <= 20:
			if money >= 10000 and zenit = 0:
				cla
				*clr
				set money -= 10000
				zenit = 1
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You paid in cash and bought a camera'

				act 'Leave':gt 'shop', 'teh'
			elseif zenit > 0:
				'Do you already have a camera'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}


	$buyminifoto = {
		if hour >= 8 and hour <= 20:
			if money >= 40000 and minifoto = 0:
				cla
				*clr
				set money -= 40000
				minifoto = 1
				'<center><img src="images/etogame/kassa.jpg"></center>'
				'You paid in cash and bought a mini camera'

				act 'Leave':gt 'shop', 'teh'
			elseif minifoto > 0:
				'You already have a mini camera'
			else
				'You do not have enough money'
			end
		else
			'Department closed'
		end
	}

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'<center><b><font color="maroon">Department of household appliances</font></b></center>'
	'<center><img src="images/etogame/shop5.jpg"></center>'
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

	if TV = 0:'<a href="exec:dynamic $buytv">A small TV with a picture tube (5,000 rubles)</a>'
	if TV ! 2:'<a href="exec:dynamic $buytv2">Large plasma TV (35,000 rubles)</a>'
	if komp = 0:'<a href="exec:dynamic $buykomp">Computer - (25,000 rubles)</a>'
	!!'<a href="exec:dynamic $buycd">Computer game Disopl (500 rubles)</a>'
	if GameCD2 = 0:'<a href="exec:dynamic $buycd2">Computer game Dead Sunset (500 rubles)</a>'
	!!'<a href="exec:dynamic $buycd3">Computer game Albida (500 rubles)</a>'
	if posudomashina = 0:'<a href="exec:dynamic $buyposudmoi">A dishwasher (50,000 rubles)</a>'
	if stiralka = 0:'<a href="exec:dynamic $buystiralka">Washing machine (50,000 rubles)</a>'
	if zenit = 0:'<a href="exec:dynamic $buyzenit">Camera can be bought (10,000 rubles)</a>'
	if minifoto = 0:'<a href="exec:dynamic $buyminifoto">Mini camera disguised as a cigarette pack (40,000 rubles)</a>'

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

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