glife/locations/088_rinok

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

$rinbuy1 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 50 > money: 'You do not have enough money.'
if portion*50 <= money:
	set fairy += portion
	set money -= portion * 50
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought dishwashing detergent.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy2 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 150 > money: 'You do not have enough money.'
if portion*150 <= money:
	set poroshok += portion
	set money -= portion * 150
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought detergent.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy3 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 150 > money: 'You do not have enough money.'
if portion*150 <= money:
	set cltarelka += portion * 3
	set money -= portion * 150
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought plates.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy4 = {
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.'
if portion*500 <= money:
	set kosmetica += portion * 25
	set money -= portion * 500
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought cosmetics.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy5 = {
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.'
if portion*200 <= money:
	set stanok += portion * 10
	set money -= portion * 200
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought razor.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy6 = {
cla
*clr
portion = input ("How much you want to buy?")
if portion <= 0: portion = 1
if portion * 150 > money: 'You do not have enough money.'
if portion*150 <= money:
	set tampon += portion * 20
	set money -= portion * 150
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought tampons.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy7 = {
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.'
if portion*200 <= money:
	set clrbelo += portion
	set money -= portion * 200
	'<center><img src="images\etogame\kassa2.jpg"></center>'
	'You pay the cashier and bought clothes.'
	end
act 'Move away from the counter': gt 'rinok','start'
}
$rinbuy8 = {
if money >= 1000 and bikini < 1:
cla
*clr
set money -= 1000
set bikini = 1
'<center><img src="images\etogame\kassa2.jpg"></center>'
'You pay the cashier and bought a swimsuit.'
act 'Move away from the counter': gt 'rinok','start'
else
'You do not have enough money.'
end
}
$rinbuy9 = {
if money >= 1000 and umbrella < 1:
cla
*clr
set money -= 1000
set umbrella = 1
'<center><img src="images\etogame\kassa2.jpg"></center>'
'You pay the cashier and bought an umbrella.'
act 'Move away from the counter': gt 'rinok','start'
else
'You do not have enough money.'
end
}

$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
mag = 1

'<center><B><font color = maroon>Trade</font></B></center>'
'<center><img src="images\etogame\rinok.jpg"></center>'
'<a href="exec: dynamic $rinbuy1 ">dishwashing detergent - 50 rubles</a> <a href="exec: dynamic $rinbuy2 ">laundry detergent - 150 rubles</a> <a href="exec: dynamic $rinbuy3 ">a set of 3 plates - 150 rubles</a> <a href="exec: dynamic $rinbuy4 ">Cosmetics - 500 rubles</a> <a href="exec: dynamic $rinbuy5 ">razor - 200 rubles</a> <a href="exec: dynamic $rinbuy6 ">tampons - 100 rubles</a> <a href="exec: dynamic $rinbuy7 ">Underwear - 200 rubles</a>'
if bikini < 1: '<a href="exec: dynamic $rinbuy8 ">swimsuit - 1000 rubles</a>'
if umbrella < 1: '<a href="exec: dynamic $rinbuy9 ">umbrella - 1000 rubles</a>'
'On one of the tents hanging listing <a href="exec:GT ''loker2'',''start''">"Accept the things to implement"</a>'

if analplugIN = 1 and tanga = 0 and ski = 1 or analplugIN = 1 and tanga = 0 and glamur = 1:
	set nurand = RAND(0,100)
		if nurand >= 80:
		set manna -= 5
		set SUB += 1
		set horny += SUB
		set nudity += 1
		'You feel that someone gently touched <a href="exec:GT ''etoexhib'',''pos15''">your hand priests</a>'
		*nl
		end
	end

'<a href="exec:numdres = 1 & payclo = 1500 & GT ''loker'',''jeans''">Inspect jeans number 1</a> <a href="exec:numdres = 2 & payclo = 1500 & GT ''loker'',''jeans''">Inspect the jeans. Number 2</a> <a href="exec:numdres = 3 & payclo = 1500 & GT ''loker'',''jeans''">Inspect the jeans. Number 3</a> <a href="exec:numdres = 4 & payclo = 1500 & GT ''loker'',''jeans''">Inspect the jeans. Number 4</a> <a href="exec:numdres = 5 & payclo = 1500 & GT ''loker'',''jeans''">Inspect the jeans. Number 5</a>'
clr
gs 'stat'
gs 'time'
act 'QUIT':
	cla
	set minut += 5
	gt 'street'
	end
if workrin = 1:
	if week = 2 or week = 4 or week = 6:
		if hour < 9:
			'Arthur item is waiting for you.'
			act '<B>Accept goods.</B>':
				cla
				*clr
				hour = 9
				minut = 0
				prodpayum = 1200
				'Arthur unloaded stuff from his ushatannoy Shokhi to the tray and gave you. You started to hang clothes on the tent.'
				'Before leaving Arthur gives you instructions. "Sell what you want, but that night I would have given to each item sold by 1000. And to gain by selling no less than <<arturplan>> rubles."'
				act 'To work.': gt 'rinwork','start'
				end
			end
		end
	end
if workrin = 1:
	act 'Retire from work':
		cla
		work = 0
		workrin = 0
		'You retired from work and took labor.'
		act 'QUIT': gt 'rinok','start'
		end
	end
if work = 0:
	nl
	'On one of the tents hanging ad "Need females saleswomen. Paychecks big."'
	act 'Approach to a host of tents ad':
		cla
		*clr
		'Hi, my name is Arthur. I am the master of the tent, I need a saleswoman. I do not cope. Well? Will you?'
		'Paying a percentage of wages. Will operate on Tuesdays, Thursdays and Saturdays. With 8 to 14.'
		'Work on labor.'
		act 'QUIT': gt 'rinok','start'
		act 'Find a job':
			cla
			work = 1
			workrin = 1
			arturplan = 5000
			'You got a job to Arthur and gave him a career.'
			act 'QUIT': gt 'rinok','start'
			end
		end
	end
if palto < 1:
	'On the market sell for winter jackets. 5000 rubles'
	if money >= 5000:
		act 'Buy a down jacket':
			cla
			money -= 5000
			palto = 1
			$palto = 'Chinese wear'
			'You bought a down jacket.'
			act 'QUIT': gt 'rinok','start'
			end
		end
	end
end
--- rinok ---------------------------------