glife/locations/rinwork

# rinwork
if $ARGS[0] = 'start':
	$answerrin = {
		if tipred = pokti:
			if pokvnirand = 0:
				pokpay = rand(1000, 1200)
			elseif pokvnirand = 1:
				pokpay = rand(1200, 1500)
			elseif pokvnirand = 2:
				pokpay = rand(1500, 2000)
			end
		else
			$rinitog = '<<$poktip>> puts the thing in place and leaves'
			pokupatel = 0
		end
	}

	$answerrin2 = {
		act 'Name the price':
			cla
			prodpay = input ("Enter the selling price")

			if prodpay < 1000:prodpay = prodpayum

			'You a price in <<prodpay>> rubles'

			if prodpay <= pokpay:
				poknorand = rand(1, 100 + vnesh)

				if poknorand >= 10:
					rinmon += prodpay
					rinvesh += 1
					'Buyer collected and paid item <<prodpay>> rubles'

					act 'Trading on':gt 'rinwork', 'start'
				else
					'Buyer twirls thing in your hands <<prodpay>> RR is too expensive'
					dynamic $answerrin3

					act 'Less I can not (take the thing)':gt 'rinwork', 'start'
				end
			elseif prodpay > pokpay and prodpay <= pokpay + 100:
				poknorand = rand(1, 100 + vnesh)

				if poknorand >= 10:
					'Buyer twirls thing in your hands <<prodpay>> RR is too expensive'
					dynamic $answerrin3

					act 'Less I can not (take the thing)':gt 'rinwork', 'start'
				else
					'Buyer puts thing into place and leaves'

					act 'Trading on':gt 'rinwork', 'start'
				end
			elseif prodpay > pokpay + 100:
				'Buyer puts thing into place and leaves'

				act 'Trading on':gt 'rinwork', 'start'
			end
		end
	}

	$answerrin3 = {
		if prodpay >= 1100:
			act 'Reduce the price by 100 rubles':
				cla
				'You have reduced the price by 100 rubles.'
				poknorand = rand(1, 100 + vnesh)

				if poknorand >= 10:
					rinmon += prodpay - 100
					rinvesh += 1
					'Buyer collected and paid item <<prodpay - 100>> rubles'

					act 'Trading on':gt 'rinwork', 'start'
				else
					'Buyer puts thing into place and leaves'

					act 'Trading on':gt 'rinwork', 'start'
				end
			end
		elseif prodpay >= 1050:
			act 'Reduce the price by 50 rubles':
				cla
				'You have reduced the price by 50 rubles.'
				poknorand = rand(1, 100 + vnesh)

				if poknorand >= 30:
					rinmon += prodpay - 50
					rinvesh += 1
					'Buyer collected and paid item <<prodpay - 50>> rubles'

					act 'Trading on':gt 'rinwork', 'start'
				else
					'Buyer puts thing into place and leaves'

					act 'Trading on':gt 'rinwork', 'start'
				end
			end
		end
	}

	cla
	*clr
	gs 'stat'
	'<center><b><font color="maroon">Trade</font></b></center>'
	'<center><img src="images/etogame/rinok.jpg"></center>'
	'You stand in the tray with the clothes in anticipation of buyers.'
	'At the box office <<rinmon>> rubles, Sales <<rinvesh>> things.'
	'The average price on the market <<prodpayum>>'

	if hour = 14:
		'Arthur came to you and you started to calculate how much you should give to Arthur.'

		act 'Giving money to Arthur':
			cla
			*clr
			rinart = rinvesh * 1000
			rinmon -= rinart
			money += rinmon
			gs 'stat'
			'You gave Arthur <<rinart>> per sold <<rinvesh>> things.'
			'Today you have earned <<rinmon>> rubles'

			if rinart < arturplan:
				arturnoo += 1
				'Uh, <<$name>>, bad work, not enough money. You''re so razorish me completely.'
			else
				arturyes += 1
				'Maladets <<$name>>, good job.'
			end

			if arturnoo > arturyes:arturnoo = arturnoo - arturyes & arturyes = 0
			if arturyes > arturnoo:arturyes = arturyes - arturnoo & arturnoo = 0
			if arturnoo = arturyes:arturnoo = 0 & arturyes = 0

			rinmon = 0
			rinvesh = 0

			if arturnoo > 10:
				arturnoo = 0
				work = 0
				workrin = 0
				'Uh, you''ve fucked savsem. Here''s your labor. Hit the road that I did not see you anymore!'

				act 'Leave':gt 'street'

				exit
			end

			rinrand = rand(1, 100)

			if rinrand < vnesh and palevorin = 0 and rinhoz = 0:
				'(Arthur) - Wai <<$name>>, you and I have not even met properly. Come into the container, ate barbecue, drink and get acquainted.'

				act 'Refuse':
					cla
					'You have become excuses Arthur told you. Wai, why insult, you have here the tray is not cleaned, dust, dirt, I''m fine and I can take you.'

					act 'Okay, let''s go have a drink':gt 'RynokHoz', 'the_beginning'

					act 'No.':
						cla
						arturplan += 1000

						if money >= 1000:
							money -= 1000
							'Wai, you dirty things, to give a thousand rubles, which is fine. Arthur gave you money.'
						else
							'Okay, go already.'
						end

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

				act 'Come':gt 'RynokHoz', 'the_beginning'

				exit
			elseif rinrand < vnesh and palevorin = 0 and rinhoz = 1:
				'(Arthur) - Wai <<$name>>. Come into the container, ate barbecue, drink, rest. He walked right up to you and slapped on the ass with his hand.'

				act 'Refuse':
					cla
					'You become otnekivatsya Arthur told you. Wai, why insult, you have here the tray is not cleaned, dust, dirt, I''m fine and I can take you.'

					act 'Okay, let''s go have a drink':gt 'RynokHoz', 'the_beginning'

					act 'No':
						cla
						arturplan += 1000

						if money >= 1000:
							money -= 1000
							'Wai, you dirty things, to give a thousand rubles, which is fine. Arthur gave you money.'
						else
							'Okay, go already.'
						end

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

				act 'Come':gt 'RynokHoz', 'the_beginning'

				exit
			end

			act 'Leave work':gt 'street'
		end

		exit
	elseif hour < 14:
		pokrand = rand(0, 1)

		if pokrand = 0:
			$pokup = 'Buyers can not see.'
			pokupatel = 0
			''
			'Market is Aunt Katya with trolley in which it carries cakes and coffee.'
		else
			pokupatel = 1
			poktiprand = rand(0, 7)

			if poktiprand = 0:$pokup = 'To the tray approached middle-aged man.' & $poktip = 'Man' & pokti = 1
			if poktiprand = 1:$pokup = 'To the tray approached by a young man.' & $poktip = 'Guy' & pokti = 2
			if poktiprand = 2:$pokup = 'Guy came to the tray teenager.' & $poktip = 'Boy' & pokti = 3
			if poktiprand = 3:$pokup = 'A woman came up to the tray.' & $poktip = 'Woman' & pokti = 1
			if poktiprand = 4:$pokup = 'Girl came to the tray.' & $poktip = 'Girl' & pokti = 2
			if poktiprand = 5:$pokup = 'To the tray approached teen girl.' & $poktip = 'Girlfriend' & pokti = 3
			if poktiprand = 6:$pokup = 'Approached the old man to the tray.' & $poktip = 'Old man' & pokti = 0
			if poktiprand = 7:$pokup = 'Grandma went to the tray.' & $poktip = 'Granny' & pokti = 0
		end

		'<b><<$pokup>></b>'

		if pokupatel = 1:
			act 'What do you want?':
				cla
				minut += 15
				pokvnirand = rand(0, 2)

				if pokvnirand = 0:
					'<<$poktip>> without interest examines selling things.'
				elseif pokvnirand = 1:
					'<<$poktip>> with interest examining selling things.'
				elseif pokvnirand = 2:
					'<<$poktip>> picks up the item.'
				end

				!!dynamic $answerrin
				act 'Now it is very fashionable':
					cla
					tipred = 3
					dynamic $answerrin
					'<<$rinitog>>'

					if pokupatel = 0:act 'Further':gt 'rinwork', 'start'

					if pokupatel = 1:
						'<<$poktip>> asks you for a price'
						dynamic $answerrin2
					end
				end

				act 'Thing is very high quality and reliable':
					cla
					tipred = 1
					dynamic $answerrin
					'<<$rinitog>>'

					if pokupatel = 0:act 'Further':gt 'rinwork', 'start'

					if pokupatel = 1:
						'<<$poktip>> asks you for a price'
						dynamic $answerrin2
					end
				end

				act 'Give not expensive':
					cla
					tipred = 0
					dynamic $answerrin
					'<<$rinitog>>'

					if pokupatel = 0:act 'Further':gt 'rinwork', 'start'

					if pokupatel = 1:
						'<<$poktip>> asks you for a price'
						dynamic $answerrin2
					end
				end

				act 'You are very':
					cla
					tipred = 2
					dynamic $answerrin
					'<<$rinitog>>'

					if pokupatel = 0:act 'Further':gt 'rinwork', 'start'

					if pokupatel = 1:
						'<<$poktip>> asks you for a price'
						dynamic $answerrin2
					end
				end
			end
		end

		act 'Laze around (0:15)':
			minut += 15
			gt 'rinwork', 'start'
		end

		if hour = 9:
			rintakrand = rand(0, 5)

			if rintakrand = 0:
				$rintak = 'The tray in front of Hassan unloads clothes saleswoman Nadia.'

				act 'See Hassan and Nadia':
					cla
					minut += 15
					talkrand = rand(0, 2)

					if talkrand = 0:'Nadia Hassan utters. "Today you will sell more, and then the fine ladies, I need the money."'
					if talkrand = 1:'Hassan opens trunks and puts clothes on the counter.'
					if talkrand = 2:'Hassan drags trunks to his tray.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 1:
				$rintak = 'In the next tray Abdul talking loudly gives clothes saleswoman Anna.'

				act 'Look at Abdul and Anna':
					cla
					minut += 15
					talkrand = rand(0, 2)

					if talkrand = 0:'Abdul swears. "You''re fucked, you can not sell anything!" Anna retorts, "you told me so rotten shit for sale give, take it nobody wants."'
					if talkrand = 1:'Abdul slapped ass Anna, she pretended that nothing happened.'
					if talkrand = 2:'Abdul drags trunks to his tray.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 2:
				$rintak = 'Abdul Hassan and stand beside your tray and about something guttural talking.'

				act 'View on Caucasians':
					cla
					minut += 15
					talkrand = rand(0, 2)

					if talkrand = 0:'Abdul Hassan and continue to talk about something, you do not know the language, and what they say can not understand.'
					if talkrand = 1:'Abdul Hassan pyalyatsya you and discussing what is yuk.'
					if talkrand = 2:'Abdul looks at you and says Hassan, "Look what a girl, sponges persik, wah."'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 3:
				$rintak = 'Anna hanging clothes in the tray and shouting with Nadia.'

				act 'Chat with sex':
					cla
					annaQW += 1
					NadiaQW += 1
					minut += 15
					talkrand = rand(0, 2)

					if talkrand = 0:
						'Anya raskazyvaet that her skirt had to alter, so here is a Jew great tailor, he works in an office building.'

						if clener = 0:clener = 1
					else
						'Nadia tells her how the subway molested what that pervert ass rubbed against a member.'
					end

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 4:
				$rintak = 'Arthur is talking about something with Abdullah.'

				act 'View on Caucasians':
					cla
					minut += 15
					talkrand = rand(0, 2)

					if talkrand = 0:'Abdul and Arthur continue to talk about something, you do not know the language, and what they say can not understand.'
					if talkrand = 1:'Abdul and Arthur pyalyatsya you and discussing what is yuk.'
					if talkrand = 2:'Abdul looks at you and says Arthur, "Look what a girl, sponges persik, wah."'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 5:
				$rintak = 'Arthur, Abdul Hassan and neighing loudly and talk about something not on the plain language.'

				act 'View on Caucasians':
					cla
					minut += 15
					talkrand = rand(0, 2)

					if talkrand = 0:'Caucasians continue to talk about something, you do not know the language, and what they say can not understand.'
					if talkrand = 1:'Caucasians pyalyatsya you and discussing what is yuk.'
					if talkrand = 2:'Abdul looks at you and says other Caucasians, "Look what a girl, sponges persik, wah."'

					act 'Further':gt 'rinwork', 'start'
				end
			end

			'<<$rintak>>'
		elseif hour = 10:
			rintakrand = rand(0, 5)

			if rintakrand = 0:
				$rintak = 'Hassan sitting on a chair dejectedly cheburek chews and talks with his mouth full with a saleswoman Nadia.'

				act 'See Hasan':
					cla
					minut += 15
					'Hassan says Nadia "Nadia, zachem ti refuse? Encroach Shlyk, have some wine."'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 1:
				$rintak = 'The tray is sitting in front of Nadia and crossword puzzles.'

				act 'Chat with Nadia':
					cla
					!!annaQW += 1
					NadiaQW += 1
					minut += 15
					'Nadia leaves the crossword and willingly support the conversation about any nonsense.'

					if clener = 0:
						clener = 1
						'Nadia tells about a Jew tailor working in an office building.'
					end

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 2:
				$rintak = 'The tray in front of buyers came to Nadia and she fusses before laying them goods.'

				act 'Chat with Nadia':
					cla
					!!annaQW += 1
					NadiaQW -= 1
					minut += 15
					'Nadia is not happy, light, no distractions, I have buyers.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 3:
				$rintak = 'In the next tray Anna drinking coffee.'

				act 'Chat with Anna':
					cla
					annaQW += 1
					!!NadiaQW -= 1
					minut += 15
					'Anya support chat with you and tells you what nonsense.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 4:
				$rintak = 'In the next tray Anna tries vtyuhat buyers stale goods.'

				act 'Chat with Anna':
					cla
					annaQW -= 1
					!!NadiaQW -= 1
					minut += 15
					'Anya is not happy, light, no distractions, I have buyers.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 5:
				$rintak = 'Anna talks about trifles with Aunt Katya.'

				act 'Chat with Anna and Aunt Katya':
					cla
					annaQW += 1
					!!NadiaQW += 1
					tetaKataQW += 1
					minut += 15
					'Aunt Katya praises pies and Anya complains that it currently has on these patties Naela ass twice more than it was ..'

					act 'Further':gt 'rinwork', 'start'
				end
			end

			'<<$rintak>>'
		elseif hour = 11:
			rintakrand = rand(0, 5)

			if rintakrand = 0:
				$rintak = 'By Nadia approached by three Caucasian, Aslan, Camille and Mukhtar and began to molest her, and she swore at them and tried to dodge.'

				act 'Look at Nadia and Caucasians.':
					cla
					!!annaQW += 1
					!!NadiaQW += 1
					!!tetaKataQW += 1
					minut += 15
					'Caucasians seem to be leaning toward sex Nadia.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 1:
				$rintak = 'The tray is sitting in front of Nadia and eating cake.'

				act 'Chat with Nadia':
					cla
					!!annaQW += 1
					NadiaQW += 1
					minut += 15
					'Nadia leaves the crossword and willingly support the conversation about any nonsense.'

					if clener = 0:
						clener = 1
						'Nadia tells about a Jew tailor working in an office building.'
					end

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 2:
				$rintak = 'The tray in front of buyers came to Nadia and she fusses before laying them goods.'

				act 'Chat with Nadia':
					cla
					!!annaQW += 1
					NadiaQW -= 1
					minut += 15
					'Nadia is not happy, light, no distractions, I have buyers.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 3:
				$rintak = 'In the next tray Anna reading the newspaper.'

				act 'Chat with Anna':
					cla
					annaQW += 1
					!!NadiaQW -= 1
					minut += 15
					'Anya support chat with you and tells you what nonsense.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 4:
				$rintak = 'By Ana from a nearby tray approached buyers.'

				act 'Chat with Anna':
					cla
					annaQW -= 1
					!!NadiaQW -= 1
					minut += 15
					'Anya is not happy, light, no distractions, I have buyers.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 5:
				$rintak = 'By Ana approached by three Caucasian, Aslan, Camille and Mukhtar and began to molest her, she excuses and mostly scared silent.'

				act 'Look at Anya and Caucasians.':
					cla
					!!annaQW += 1
					!!NadiaQW += 1
					!!tetaKataQW += 1
					minut += 15
					'Caucasians seem to be leaning toward sex Anya.'

					act 'Further':gt 'rinwork', 'start'
				end
			end

			'<<$rintak>>'
		elseif hour = 12:
			rintakrand = rand(0, 5)

			if rintakrand = 0:
				$rintak = 'Hasan bought cheburek and eating it while sitting behind Nadi in the tray.'

				act 'Chat with Nadia':
					cla
					!!annaQW += 1
					NadiaQW -= 1
					minut += 15
					'Nadia shy to talk with Hassan.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 1:
				$rintak = 'Nadia Thorog with buyers.'

				act 'Chat with Nadia':
					cla
					!!annaQW += 1
					NadiaQW -= 1
					minut += 15
					'Nadia is not happy, light, no distractions, I have buyers.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 2:
				$rintak = 'Nadia talks with Anna.'

				act 'Chat with girls':
					cla
					annaQW += 1
					NadiaQW += 1
					minut += 15
					talkrand = rand(0, 2)

					if talkrand = 0:
						'Anya raskazyvaet that her skirt had to alter, so here is a Jew great tailor, he works in an office building.'

						if clener = 0:clener = 1

					elseif talkrand = 1:
						'Nadia tells her how the subway molested what that pervert ass rubbed against a member.'
					end

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 3:
				$rintak = 'Anya sells clothing buyers.'

				act 'Chat with Anna':
					cla
					annaQW -= 1
					!!NadiaQW -= 1
					minut += 15
					'Anya is not happy, light, no distractions, I have buyers.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 4:
				$rintak = 'Anya drinking coffee sitting at his tray.'

				act 'Chat with Anna':
					cla
					annaQW += 1
					!!NadiaQW -= 1
					minut += 15
					'Anya support chat with you and tells you what nonsense.'

					act 'Further':gt 'rinwork', 'start'
				end
			elseif rintakrand = 5:
				$rintak = 'Nadia idleness catches flies.'

				act 'Chat with Nadia':
					cla
					!!annaQW += 1
					NadiaQW += 2
					minut += 15
					'Nadia glad though what that entertainment and fun to chat with you.'

					act 'Further':gt 'rinwork', 'start'
				end
			end

			'<<$rintak>>'
		elseif hour = 13:
			rintakrand = rand(0, 5)

			if rintakrand = 0:
				$rintak = 'Hassan began to slowly collect the goods from Nadi.'
			elseif rintakrand = 1:
				$rintak = 'Anya sits and calculates profit per day.'
			elseif rintakrand = 2:
				$rintak = 'Nadia calculates profit per day.'
			elseif rintakrand = 3:
				$rintak = 'Abdul began to collect the goods from Ani.'
			elseif rintakrand = 4:
				$rintak = 'Past your tray was Arthur.'
			else
				$rintak = 'Aunt Katya ends trade pies and seems to leave.'
			end

			'<<$rintak>>'
		end

		if money >= 200:
			act 'Buy a snack (200 rubles) (0:15)':
				cla
				*clr
				gs 'stat'
				tetaKataQW += 1
				minut += 15
				health += 10
				manna += 20
				money -= 200
				'<center><img src="images/pics/food.jpg"></center>'
				if energy >= 30:
					fat += 5
					'You can no longer eat.'
				elseif energy >= 20 and energy < 30:
					fat += 3
					energy += 10
					'You pushed through the power of a meal.'
				elseif energy < 20:
					energy += 20
					!!fat += 1
					'You gladly ate cooked food.'
				end

				if water >= 20:
					'Coffee you no longer climbs.'
				elseif water < 20:
					water += 20
					'You gladly drank a mug of coffee.'

				end

				act 'Throw leftovers':gt 'rinwork', 'start'
			end
		end
	end
end

--- rinwork ---------------------------------