# stolPar
if BakaGHomework = 0:
	gs 'stat'

	!'<center><img src="images\pics\telek.jpg"></center>'
	'Old desk, your parents bought back in the distant 90´s. Two side drawer with locks: your and your sister.'

	if Stolprezik > 0:
		'In the drawer are <<Stolprezik>> condoms'
	end

	if Stoltabletki > 0:
		'In the drawer are <<Stoltabletki>> birth control pills.'
	end

	if Stollubri> 0:
		'In the drawer is anal lubricant, enough for <<Stollubri>> uses.'
	end

	if krem >  0:
		'There are <<krem>> uses of suntan lotion.'
	end

	if abonement> 0:
		'subscription is valid for <<abonement>> Occupation'
	end

	if dildo > 0:
		'Realistic dildo'
	end

	act 'Get up from the table':
		gt $locM, $metkaM
	end

	if prezik > 0:
		act 'Remove condoms from purse':
			stolIN = input ("How many condoms to put in desk drawer? (Your purse contains <<prezik>> condoms.)")

			if stolIN <= 0 or stolIN > prezik:
			else
				set stolprezik += stolIN
				set prezik -= stolIN
			end

			gt 'stolPar'
		end
	end

	if Stolprezik > 0:
		act 'Get condoms from desk':
			stolOUT = input ("How many condoms to place in purse? (Desk has <<stolprezik>> condoms.)")

			if stolOUT <= 0 or stolOUT > stolprezik:
			else
				set stolprezik -= stolOUT
				set prezik += stolOUT
			end

			gt 'stolPar'
		end
	end

	if tabletki > 0:
		act 'Remove pills from purse':

			stolIN = input ("How many birth control pills to put in desk drawer? (Your purse contains <<tabletki>> pills.)")

			if stolIN <= 0 or stolIN > tabletki:
			else
				set Stoltabletki += stolIN
				set tabletki -= stolIN
			end

			gt 'stolPar'
		end
	end

	if Stoltabletki > 0:
		act 'Get pills from desk':
			stolOUT = input ("How many birth control pills to place in purse? (Desk has <<Stoltabletki>> pills.)")

			if stolOUT <= 0 or stolOUT > Stoltabletki:
			else
				set Stoltabletki -= stolOUT
				set tabletki += stolOUT
			end

			gt 'stolPar'
		end
	end

	if lubri > 0:
		act 'Remove lubricant from purse':
			stolIN = input ("How many uses lubricant to put in desk drawer? (Your purse contains <<lubri/5>> uses.)")

			if stolIN <= 0 or stolIN > lubri/5:
			else
				set Stollubri += stolIN * 5
				set lubri -= stolIN * 5
			end

			gt 'stolPar'
		end
	end

	if Stollubri > 0:
		act 'Get lubricant from desk':
			stolOUT = input ("How many uses of lubricant to place in purse? (Desk contains <<Stollubri/5>> uses.)")

			if stolOUT <= 0 or stolOUT > Stollubri/5:
			else
				set Stollubri -= stolOUT * 5
				set lubri += stolOUT * 5
			end

			gt 'stolPar'
		end
	end

	if lernHome > 0:
		act 'Learning lessons':
			cls

			if lernHome <= 2:
				minut += 60 * lernHome
				lernHome = 0
				lern += 1
			end

			if lernHome > 2:
				minut += 60 * 2
				lernHome = 0
			end

			gs 'stat'

			'Sitting for a long time you learned yet they were able to learn.'

			act 'Get up from the table':
				gt $locM, $metkaM
			end
		end
	end
end

!' $homework = {
	'You have <<lernHome>> sheets of homework left to complete.'

	act 'Do homework':
		cls
		:loopHomework
		set lernHome -= 1
		set lern += rand(1, 3)
		set lernSkill += rand(0, 1)
		set lernTime = (20 + rand(10, 20)) - lernSpeed
		set minut += lernTime

		if lernHome > 0:
			jump 'loopHomework'
		else
			gs 'stat'
			'You have finished all your homework.'

			act 'Stretch and relax':
				gt 'stolPar'
			end
		end
	end
}

$study = {
	'You have no more homework left to complete. You can study in the meanwhile.'

	act 'Study':
		cls
		set lern += rand(1,3)
		set lernSkill += rand(1,2)
		set lernTime = (20 + rand(10,20)) - lernSpeed
		set minut += lernTime

		gs 'stat'

		'You spent some time studying.'

		act 'Stretch and relax':
			gt 'stolPar'
		end
	end
}

if BakaGHomework = 1:
	cla
	*clr
	gs 'stat'
	!'<center><img src="images\pics\telek.jpg"></center>'
	'You are sitting down at the desk.'
	set lernSpeed = (intel/5) * 1

	act 'Get up':
		gt $locM, $metkaM
	end

	if lernHome > 0:
		dynamic $homework
	end

	if lernHome < 1:
		dynamic $study
	end
end '
--- stolPar ---------------------------------

