# Grinok
$metka = $ARGS[0]
$loc = $CURLOC
'<center><h4>market</h4></center>'
'<center><img src="images/pic/Grinok.jpg"></center>'
'Located near the small market <a href="exec:minut += 3 & gt ''vokzalG''">station</a>'
clr
gs 'stat'
gs 'time'

if hour >= 12 and hour <= 18:
	'In the market the sellers of goods and beckoning shoppers.'

	act 'Wander through the market':
		cls
		minut += 15
		gs 'stat'

		'Stroll on the market for hot deals (0:15)'

		if intel = 100:rinmaxrand = 2
		if intel >= 75 and intel < 100:rinmaxrand = 4
		if intel >= 50 and intel < 75:rinmaxrand = 6
		if intel >= 25 and intel < 50:rinmaxrand = 8
		if intel < 25:rinmaxrand = 10

		rinevrand = rand(0, rinmaxrand)

		if rinevrand = 0:
			rinevtip = rand(0, 6)

			if rinevtip = 0:
				kosmpayrand = rand(3, 8)
				kosmpay = kosmpayrand * 100
				'You see that sell pretty cheap cosmetics for <<kosmpay>> rubles'

				if money >= kosmpay:
					act 'Buy':
						cls
						minut += 15
						money -= kosmpay
						kosmetica += rand(10, 40)
						gs 'stat'
						gt $curloc
					end
				end
			end

			if rinevtip = 1:
				tovpayrand = rand(2, 5)
				tovpay = tovpayrand * 100
				'You see that sell for Vitaminki <<tovpay>> rubles'

				if money >= tovpay:
					act 'Buy':
						cls
						minut += 15
						vitamin += 20
						money -= tovpay
						gt $curloc
					end
				end
			end

			if rinevtip = 2:
				tovpayrand = rand(2, 8)
				tovpay = tovpayrand * 10
				'You see that sell condoms <<tovpay>> rubles'

				if money >= tovpay:
					act 'Buy':
						cls
						minut += 15
						prezik += 5
						money -= tovpay
						gt $curloc
					end
				end
			end

			if rinevtip = 3:
				tovpayrand = rand(5, 10)
				tovpay = tovpayrand * 100
				'You see that sell lip balm for <<tovpay>> rubles'

				if money >= tovpay:
					act 'Buy':
						cls
						minut += 15
						lipbalm += 20
						money -= tovpay
						gt $curloc
					end
				end
			end

			if rinevtip = 4:
				tovpayrand = rand(1, 5)
				tovpay = tovpayrand * 1000
				'You see that sell for handbag <<tovpay>> rubles'

				if bag = 0:
					if money >= tovpay:
						act 'buy':
							cls
							minut += 15
							bag = 1
							money -= tovpay
							gt $curloc
						end
					end
				end

				if bag > 0:'Hmm, you already have a bag, why do you need another.'
			end

			if rinevtip = 5:
				if pornmarkonce = 0:pornmarkonce = 1
				'Strolling on the market you accidentally wander into the far corner where they sell porn.'

				act 'come_Up':gt 'Gpornmark'
			end

			if rinevtip = 6:
				if arturKnow = 0:
					'Suddenly you hail "Hey devyushka, want tangerine skyushat?"'

					act 'look':gt 'arturRinok'
				end

				if arturKnow > 0:
					'Suddenly you hail "Hey Svetsik, come here, skyushay tangerine."'

					act 'Go to Artur':gt 'arturRinok'
				end
			end
		else
			'Nothing unusual you do not come across, trash, buckets, granny gowns, sneakers, breeches and waistcoats with pockets.'
		end

		act 'Move on':gt $curloc
	end

	if pornmarkonce = 1:
		act 'Go to the area with porn':gt 'Gpornmark'
	end

	if arturKnow > 0:
		act 'Go to Arthur':gt 'arturRinok'
	end

	act 'Go to the book tray':
		cls
		minut += 15
		gs 'stat'
		'On the counter is a very entertaining fantasy book, which costs only 150 rubles and more are women`s novels in paperback standing 300 rubles.'

		if money >= 150:
			act 'Buy fantasy book (150 rubles)':
				cls
				minut += 15
				money -= 150
				f_book += 1
				gs 'stat'
				'You bought the book for fantasy 150 rubles.'

				act 'Leave':gt $curloc
			end
		end

		if money >= 300:
			act 'Buy ladies'' novel (300 rubles)':
				cls
				minut += 15
				money -= 300
				w_book += 1
				gs 'stat'
				'You bought a ladies'' novel for 300 rubles.'

				act 'Leave':gt $curloc
			end
		end

		act 'Leave':gt $curloc
	end
else
	'In the market there is no one.'
end

--- Grinok ---------------------------------