# Grinok
$metka = $ARGS[0]
$loc = $CURLOC
clr
gs 'stat'
gs 'time'
'<center><h4>Market</h4></center>'
'<center><img src="images/pic/Grinok.jpg"></center>'
'This small market is location near the station.'

act 'Go back to the station':minut += 3 & gt 'vokzalG'

if hour < 12 or hour > 18:
	'There is no one in the market.'
	if arturQW = 1 and (week = 6 or week = 7) and hour < 12:
		act 'Wait for Arthur to arrive':hour = 12 & gt 'grinok'
	end
	exit
end

'In the market the sellers of goods are beckoning shoppers.'

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

	'You are strolling through the market looking for good deals.'
	if arturKnow = 0:
		temp = rand(0, 6)
	else
		temp = rand(0, 5)
	end

	if temp = 0:
		tovpay = rand(3, 8) * 100
		'You see that cosmetics are for sale for <<tovpay>> rubles.'

		if money >= tovpay:
			act 'Buy':
				cls
				minut += 15
				money -= tovpay
				kosmetica += rand(10, 40)
				gs 'stat'
				gt $curloc
			end
		end
	elseif temp = 1:
		tovpay = rand(2, 5) * 100
		'You see vitamins for sale for <<tovpay>> rubles.'

		if money >= tovpay:
			act 'Buy':
				cls
				minut += 15
				vitamin += 20
				money -= tovpay
				gt $curloc
			end
		end
	elseif temp = 2:
		tovpay = rand(2, 8) * 10
		'You see a booth selling condoms for <<tovpay>> rubles.'

		if money >= tovpay:
			act 'Buy':
				cls
				minut += 15
				prezik += 5
				money -= tovpay
				gt $curloc
			end
		end
	elseif temp = 3:
		tovpay = rand(5, 10) * 100
		'There is lip balm for sale for <<tovpay>> rubles.'

		if money >= tovpay:
			act 'Buy':
				cls
				minut += 15
				lipbalm += 20
				money -= tovpay
				gt $curloc
			end
		end
	elseif temp = 4:
		tovpay = rand(1, 5) * 1000
		'You see someone selling a handbag for <<tovpay>> rubles.'

		if bag = 0:
			if money >= tovpay:
				act 'Buy':
					cls
					minut += 15
					bag = 1
					money -= tovpay
					gt $curloc
				end
			end
		else
			'But you already have a bag, so you move on.'
		end
	elseif temp = 5:
		if pornmarkonce = 0:pornmarkonce = 1
		'Strolling through the market you accidentally wander into the far corner where they sell porn.'

		act 'Go to the area with the porn':gt 'Gpornmark'
	else
		'Suddenly you hail "Hey devyushka, want tangerine skyushat?"'

		act 'Look':gt 'arturRinok', 'start'
	end

	act 'Move on':gt $curloc
end

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

if arturKnow = 1 and arturQW = 0:
	act 'Go to Arthur':gt 'arturRinok', 'start'
elseif arturQW = 1 and (week = 6 or week = 7):
	if hour = 12 or hour = 13:
		act 'Go to Arthur':gt 'arturRinok', 'work_1'
	end
elseif arturQW = 2:
	if hour = 16 and minut <= 30:
		act 'Go to Arthur':gt 'arturRinok', 'work_2'
	elseif hour < 16:
		act 'Wait for Arthur to arrive':hour = 16 & minut = 0 & gt 'Grinok'
	end
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 fantasy book for 150 rubles.'

			act 'Leave':gt $curloc
		end
	end

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

			act 'Leave':gt $curloc
		end
	end

	act 'Leave':gt $curloc
end

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