# stol
if $ARGS[0] = 'start':
	cla
	clr
	gs 'stat'
	'Oddments drawer.'

	if prezik > 0:'Packing condoms, it <<prezik>> pc.'
	if tabletki > 0:'Birth control pills <<tabletki>> pc.'
	if lubri > 0:'Lubricant, enough for <<lubri>> time.'
	if krem > 0:'Sunblock <<krem>>'
	if abonement > 0:'Subscription is valid for <<abonement>> Occupation'
	if dildo > 0:'Realistic Dildo'

	act 'Close the drawer':
		cla
		gt 'stol', 'fin'
	end

	if money > 0:
		act 'Put your money in the drawer':
			cla
			stolIN = input ("How much money you want to put in the desk drawer? (Your purse contains <<money>> rubles.)")

			if stolIN <= 0 or stolIN > money:
				!!'Not correct operation.'
			else
				set stolmoney += stolIN
				set money -= stolIN
			end

			gt 'stol', 'start'
		end
	end

	if stolmoney > 0:
		act 'Take money from the desk.':
			cla
			stolOUT = input ("How much money do you want place in your purse? (There is <<stolmoney>> rubles here.)")

			if stolOUT <= 0 or stolOUT > stolmoney:
				!!'Not correct operation.'
			else
				set stolmoney -= stolOUT
				set money += stolOUT
				!!'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
			end

			gt 'stol', 'fin'
		end
	end
end

if $ARGS[0] = 'fin':
	cla
	gt $locM, $metkaM

	!'if housr = 1 and housrA = 1:
	set housrA = 0
	gt 'sitr'
	end'!
end

--- stol ---------------------------------
