glife/locations/098_shop

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

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

	$icecreem = {
	if hour >= 8 and hour <= 20:
		cls
		set minut += 3
		'Ice cream offer 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 'Withdrawing money':
				cla
				set minut += 5
				kartaOUT = input ("How much money you want to withdraw?")

					if kartaOUT <= 0 or kartaOUT > karta:
						'Invalid operation.'
					else
						set karta -= kartaOUT
						set money += kartaOUT
						'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
					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>'
	'The hall stands <a href="exec: dynamic $sobank ">ATM</a>, from which you can withdraw the money unless you have it in the bank.'
	'The greatest place in the supermarket takes <a href="exec: dynamic $sofood ">food hall</a>, but the store has more divisions <a href="exec: dynamic $socosm ">cosmetics</a>, <a href="exec: dynamic $sohos ">hardware</a>, <a href="exec: dynamic $soclo ">Clothing</a>, and department <a href="exec: dynamic $soteh ">household appliances</a>. Not far from the entrance stands <a href="exec: dynamic $icecreem ">counter with 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:
		'In store crowd of buyers.'

		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
			'Section 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
			'Section closed'
		end
	}

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

	'<center><B><font color = maroon>Food Division</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 'Get out of 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 'Get out of 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 '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>Department cosmetics</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 ">Razor - 500 rubles</a>'
	'<a href="exec: dynamic $buykrem ">Sunblock - 500 rubles</a>'
	'<a href="exec: dynamic $buytampon ">Tampons - 200 rubles</a>'
	'<a href="exec: dynamic $buyshampoo ">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 >= 80 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>'
	'Lingerie - 300 rubles'
	'All women´s clothing for 2500 rubles'
	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	act 'WITHDRAW FROM THE DIVISION': gt 'shop','start'

	if money >= 300:
		act 'Buy lingerie 300 rubles.':
			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.'

			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" 2000 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:
		'The store sells a winter coat. 10000 rubles'
		if money >= 10000:
			act 'Buy a winter coat':
				cla
				money -= 10000
				palto  = 2
				$palto = 'winter coat'
				'You bought a coat.'
				act 'QUIT': gt 'shop','clo'
			end
		end
	end

	if money >= 1000 and bikini < 1:
		act 'Buy swimsuit 1000 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 2500 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 paid the money to the cashier and bought TV'
				act 'Leave': gt 'shop','teh'
			elseif TV > 0:
				'Do you already have a TV'
			else
				'You do not have enough money'
			end
		else
			'Section 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 paid the money to the cashier and bought TV'
				act 'Leave': gt 'shop','teh'
			elseif TV > 1:
				'Do you already have a TV'
			else
				'You do not have enough money'
			end
		else
			'Section 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 get paid in cash and bought a computer'
				act 'Leave': gt 'shop','teh'
			elseif komp > 0:
				'Do you already have a computer'
			else
				'You do not have enough money'
			end
		else
			'Section 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 get 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
			'Section 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 get 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
			'Section 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 get 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
			'Section 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 get 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
			'Section 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 get 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
			'Section 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 get 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
			'Section 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 get 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
			'Section closed'
		end
	}


	$buyWebCam = {
		if hour >= 8 and hour <= 20:
			if money >= 80000 and webCam = 0:
				cla
				*clr
				set money -= 80000
				webCam     = 1
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought a web-camera'
				act 'Leave': gt 'shop','teh'
			elseif webCam > 0:
				'You already have a web-camera'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


	$buyDVDDisk = {
		if hour >= 8 and hour <= 20:
			if money >= 4000 :
				cla
				*clr
				set money   -= 4000
				set DVDDisk += 20
				'<center><img src="images\etogame\kassa.jpg"></center>'
				'You get paid in cash and bought 20 burnable DVD disks.'
				act 'Leave': gt 'shop','teh'
			else
				'You do not have enough money'
			end
		else
			'Section closed'
		end
	}


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

	'<center><B><font color = maroon>Division 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 ">Not a big TV with a picture tube can be bought for 5,000 rubles</a>'
	if TV ! 2: '<a href="exec: dynamic $buytv2 ">Large plasma TV can be bought for 35,000 rubles</a>'
	if komp = 0: '<a href="exec: dynamic $buykomp ">Computer worth 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 webCam = 0: '<a href="exec: dynamic $buyWebCam ">Computer webcam 80,000 rubles</a>'
	if DVDDisk >= 0: '<a href="exec: dynamic $buyDVDDisk ">Burnable DVDs 4,000 rubles</a>'
	if posudomashina = 0: '<a href="exec: dynamic $buyposudmoi ">The dishwasher can be bought for 50,000 rubles</a>'
	if stiralka = 0: '<a href="exec: dynamic $buystiralka ">washing machine can be bought for 50,000 rubles</a>'
	if zenit = 0: '<a href="exec: dynamic $buyzenit ">The camera can be bought for 10,000 rubles</a>'
	if minifoto = 0: '<a href="exec: dynamic $buyminifoto ">Mini camera disguised as a cigarette pack can be purchased for 40,000 rubles</a>'
	act 'Get out of the department': gt 'shop','start'
end
--- shop ---------------------------------