glife/locations/svi

# svi

if $ARGS[0] = 'poor':
	minut += 20

	if Venera >= 3:
		loverrelation[lover_number] = 0
		'<<$loverdesc[lover_number]>> you saw signs of venereal disease and dumped you.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if pcs_sweat > 24:
		!!sweating
		loverrelation[lover_number] -= 1

		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you would not hurt to wash.'
		if haraklover[lover_number] = 3:'<<$loverdesc[lover_number]>> tells you that it appeared urgent business.'
		if haraklover[lover_number] = 4:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that she appeared urgent business.'
		if haraklover[lover_number] = 5:'<<$loverdesc[lover_number]>> tells you that you would not hurt to wash.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if temper < 0 and defaultcoat = 5:
		!!quilted_jacket
		loverrelation[lover_number] -= 1

		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that they have any urgent matters.'
		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you are in rags like a scarecrow.'
		if haraklover[lover_number] = 3:'<<$loverdesc[lover_number]>> tells you that it appeared urgent business.'
		if haraklover[lover_number] = 4:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that she had her urgent business.'
		if haraklover[lover_number] = 5:'<<$loverdesc[lover_number]>> tells you that you are in rags like a scarecrow.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if haraklover[lover_number] > 0 and izvrat = 0 and cumloc[11] = 1:
		loverrelation[lover_number] = 0
		'<<$loverdesc[lover_number]>> you saw traces of semen. He called you slut had severed relations with you.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if loverdays[lover_number] < 10 and boyonce[lover_number] = 0:

		!!candy buketny period
		vstrand = rand(0, 2)

		if vstrand = 0:
			'<<$loverdesc[lover_number]>> offers a walk in the park.'

			act 'Walk in the park':
				cla
				minut += 60
				fat += 1
				loverrelation[lover_number] += 1
				'You walked in the park with a guy. <<$loverdesc[lover_number]>> telling stories and jokes hunted.'

				act 'To invite':
					cla
					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1

					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					loverrelation[lover_number] += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				loverrelation[lover_number] -= 1
				dynamic $brodilr
			end
		elseif vstrand = 1:
			'<<$loverdesc[lover_number]>> offers to go to the cinema.'

			act 'Go to the cinema':
				cla
				minut += 60
				fat += 1
				loverrelation[lover_number] += 1
				'You went to the cinema for a new movie. <<$loverdesc[lover_number]>> hug you.'

				act 'Hold his hand':
					cla
					loverrelation[lover_number] += 1
					'You watch a movie while holding hand. Finally the film ends.'

					act 'To invite':
						cla
						if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1

						gt 'svidan', 'kvartA'
					end

					act 'Say goodbye and go home':
						cla
						loverrelation[lover_number] += 1
						dynamic $brodilr
					end
				end
			end

			act 'Refuse':
				cla
				loverrelation[lover_number] -= 1
				dynamic $brodilr
			end
		elseif vstrand = 2:
			'<<$loverdesc[lover_number]>> offers beers on the porch.'

			act 'Drink beer':
				cla
				minut += 60
				fat += 1
				loverrelation[lover_number] += 1
				'<<$loverdesc[lover_number]>> bought beers and crackers and you went with him to the porch, where drinking and fun chatting.'

				act 'To invite':
					cla

					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1


					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					loverrelation[lover_number] += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				loverrelation[lover_number] -= 1
				dynamic $brodilr
			end
		end
	elseif loverdays[lover_number] >= 10 and boyonce[lover_number] = 0:

		'<<$loverdesc[lover_number]>> says he''s a grown man and he is not satisfied platonic relationship.'

		act 'Leave':
			cla
			loverrelation[lover_number] = 0
			dynamic $brodilr
		end

		act 'Agrees to have sex':
			cla
			*clr
			minut += 20
			'You agreed to have sex. <<$loverdesc[lover_number]>> happy.'

			act 'Go to your apartment':gt 'svidan', 'kvartA'
			act 'Go into the bushes':gt 'svidan', 'kustA'
		end

		exit
	end

	if loverdays[lover_number] > 15:gs 'boylove', 'haer'
	if loverdays[lover_number] > 30:gs 'boylove', 'figure'
	if loverdays[lover_number] > 60:gs 'boylove', 'tits'

	if boyonce[lover_number] > 0:

		'<<$loverdesc[lover_number]>> offers to hang out in the stairwell with pivasikom.'

		act 'Potusit':
			cla
			minut += 60
			fat += 1
			loverrelation[lover_number] += 1
			'You drank beer in the stairwell with her boyfriend. <<$loverdesc[lover_number]>> hugged you and said that he wants you.'

			act 'Go to your apartment':gt 'svidan', 'kvartA'
			act 'Go into the bushes':gt 'svidan', 'kustA'
		end

		act 'Refuse':
			cla
			loverrelation[lover_number] -= 1
			dynamic $brodilr
		end
	end
end

if $ARGS[0] = 'norm':
	minut += 20

	if Venera >= 3:
		loverrelation[lover_number] = 0
		'<<$loverdesc[lover_number]>> you saw signs of venereal disease and dumped you.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if pcs_sweat > 24:
		!!sweating
		loverrelation[lover_number] -= 1

		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you would not hurt to wash.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if temper < 0 and defaultcoat = 5:
		!!quilted_jacket
		loverrelation[lover_number] -= 1

		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that they have any urgent matters.'
		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you are in rags like a scarecrow.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if haraklover[lover_number] > 0 and izvrat = 0 and cumloc[11] = 1:
		loverrelation[lover_number] = 0
		'<<$loverdesc[lover_number]>> you saw traces of semen. He called you slut had severed relations with you.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if loverdays[lover_number] < 10 and boyonce[lover_number] = 0:

		!!candy buketny period
		vstrand = rand(0, 2)

		if vstrand = 0:
			'<<$loverdesc[lover_number]>> offers to go to the cafe.'

			act 'Go to the cafe':
				cla
				minut += 60
				fat += 1
				loverrelation[lover_number] += 1
				'You went to a cafe with a guy. <<$loverdesc[lover_number]>> telling stories and jokes hunted.'

				act 'To invite':
					cla

					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1


					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					loverrelation[lover_number] += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				loverrelation[lover_number] -= 1
				dynamic $brodilr
			end
		elseif vstrand = 1:
			'<<$loverdesc[lover_number]>> offers to go to the cinema.'

			act 'Go to the cinema':
				cla
				minut += 60
				fat += 1
				loverrelation[lover_number] += 1
				'You went to the cinema for a new movie. <<$loverdesc[lover_number]>> hug you.'

				act 'Hug his hand':
					cla
					loverrelation[lover_number] += 1
					'You watch a movie guy hugging hand. Finally the film ends.'

					act 'To invite':
						cla

						if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1


						gt 'svidan', 'kvartA'
					end

					act 'Say goodbye and go home':
						cla
						loverrelation[lover_number] += 1
						dynamic $brodilr
					end
				end
			end

			act 'Refuse':
				cla
				loverrelation[lover_number] -= 1
				dynamic $brodilr
			end
		elseif vstrand = 2:
			'<<$loverdesc[lover_number]>> provides for a walk.'

			act 'Walk':
				cla
				minut += 60
				fat += 1
				loverrelation[lover_number] += 1
				'<<$loverdesc[lover_number]>> to take you by the arm and you were walking down the street talking.'

				act 'To invite':
					cla

					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1


					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					loverrelation[lover_number] += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				loverrelation[lover_number] -= 1
				dynamic $brodilr
			end
		end
	elseif loverdays[lover_number] >= 10 and boyonce[lover_number] = 0:

		'<<$loverdesc[lover_number]>> says he''s a grown man and he is not satisfied with a platonic relationship.'

		act 'Leave':
			cla
			loverrelation[lover_number] = 0
			dynamic $brodilr
		end

		act 'Agrees to have sex':
			cla
			*clr
			minut += 20
			'You agreed to have sex. <<$loverdesc[lover_number]>> is happy.'

			act 'Go to your apartment':gt 'svidan', 'kvartA'

			act 'Go in his car':gt 'svidan', 'carA'
		end

		exit
	end

	if loverdays[lover_number] > 12 and pcs_skin < 40:loverrelation[lover_number] -= 1
	if loverdays[lover_number] > 12:gs 'boylove', 'haer'
	if loverdays[lover_number] > 24:gs 'boylove', 'figure'
	if loverdays[lover_number] > 48:gs 'boylove', 'tits'
	if loverdays[lover_number] > 22 and pcs_eyesize < 1:loverrelation[lover_number] -= 1
	if loverdays[lover_number] > 40 and pcs_lip < 1:loverrelation[lover_number] -= 1

	if boyonce[lover_number] > 0:

		'<<$loverdesc[lover_number]>> suggests going to a cafe.'

		act 'The cafe':
			cla
			minut += 60
			fat += 1
			loverrelation[lover_number] += 1
			'You find a table and <<$loverdesc[lover_number]>> orders for you both.  You enjoy some playful banter. <<$loverdesc[lover_number]>> hugs you and says that he wants you.'

			act 'Go to your apartment':gt 'svidan', 'kvartA'
			act 'Go in his car':gt 'svidan', 'carA'
		end

		act 'Refuse':
			cla
			loverrelation[lover_number] -= 1
			dynamic $brodilr
		end
	end
end

if $ARGS[0] = 'reach':
	minut += 20

	if Venera >= 3:
		loverrelation[lover_number] = 0
		'<<$loverdesc[lover_number]>> says you show signs of venereal disease and dumps you.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if pcs_sweat > 24:
		!!вsweating
		loverrelation[lover_number] -= 1

		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he has some urgent business.'
		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that he has some urgent business.'
		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that it would not hurt to wash.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if temper < 0 and defaultcoat = 5:
	!!quilted_jacket
		loverrelation[lover_number] -= 1

		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he has urgent business.'
		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that they have urgent matters to attend to.'
		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you look like a scarecrow in those rags.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if haraklover[lover_number] > 0 and izvrat = 0 and cumloc[11] = 1:
		loverrelation[lover_number] = 0
		'<<$loverdesc[lover_number]>> sees traces of semen. He calls you a Slut and severs relations with you.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if loverdays[lover_number] > 5 and pcs_skin < 60:loverrelation[lover_number] -= 1
	if loverdays[lover_number] > 10:gs 'boylove', 'haer'
	if loverdays[lover_number] > 20:gs 'boylove', 'figure'
	if loverdays[lover_number] > 30:gs 'boylove', 'tits'
	if loverdays[lover_number] > 10 and pcs_eyesize < 2:loverrelation[lover_number] -= 1
	if loverdays[lover_number] > 6 and pcs_lip < 2:loverrelation[lover_number] -= 1
	if loverdays[lover_number] > 8 and pcs_lashes < 1:loverrelation[lover_number] -= 1

	if loverdays[lover_number] < 10 and boyonce[lover_number] = 0:

		!!candy buketny period
		vstrand = rand(0, 2)

		if vstrand = 0:
			'<<$loverdesc[lover_number]>> offers to go to the cafe.'

			act 'Go to the cafe':
				cla
				minut += 60
				fat += 1
				loverrelation[lover_number] += 1
				'You go to a cafe with <<$loverdesc[lover_number]>> who entertains you with jokes and hunting stories.'

				act 'To invite':
					cla

					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1


					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					loverrelation[lover_number] += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				loverrelation[lover_number] -= 1
				dynamic $brodilr
			end
		elseif vstrand = 1:
			'<<$loverdesc[lover_number]>> offers to go to the cinema.'

			act 'Go to the cinema':
				cla
				minut += 60
				fat += 1
				loverrelation[lover_number] += 1
				'You went to the cinema for a new movie. <<$loverdesc[lover_number]>> hug you.'

				act 'Hold his hand':
					cla
					loverrelation[lover_number] += 1
					'You watch a movie guy holding hand. Finally the film ends.'

					act 'To invite':
						cla

						if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1


						gt 'svidan', 'kvartA'
					end

					act 'Say goodbye and go home':
						cla
						loverrelation[lover_number] += 1
						dynamic $brodilr
					end
				end
			end

			act 'Refuse':
				cla
				loverrelation[lover_number] -= 1
				dynamic $brodilr
			end
		elseif vstrand = 2:
			'<<$loverdesc[lover_number]>> offers to go to the restaurant.'

			act 'Go to the restaurant':
				cla
				minut += 60
				fat += 1
				loverrelation[lover_number] += 1
				'<<$loverdesc[lover_number]>> has led you to the restaurant. There waiter quickly covered table and you sat enjoying the food, wine and socializing'

				act 'To invite':
					cla

					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1


					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					loverrelation[lover_number] += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				loverrelation[lover_number] -= 1
				dynamic $brodilr
			end
		end
	elseif loverdays[lover_number] >= 10 and boyonce[lover_number] = 0:

		'<<$loverdesc[lover_number]>> says he''s a grown man and he is not satisfied with a platonic relationship.'

		act 'Leave':
			cla
			loverrelation[lover_number] = 0
			dynamic $brodilr
		end

		act 'Agree to sex':
			cla
			*clr
			minut += 20
			'You agree to have sex. <<$loverdesc[lover_number]>> happy.'

			act 'Go to your apartment':gt 'svidan', 'kvartA'
			act 'Go to him':gt 'svidan', 'hisA'
		end

		exit
	elseif boyonce[lover_number] > 0:
		'<<$loverdesc[lover_number]>> offers sit in a cafe.'

		act 'The cafe':
			cla
			minut += 60
			fat += 1
			loverrelation[lover_number] += 1
			'You came to the cafe <<$loverdesc[lover_number]>> ordered a full table and you sat talking and having fun. <<$loverdesc[lover_number]>> hugs you and says that he wants you.'

			act 'Go to your apartment':gt 'svidan', 'kvartA'
			act 'Go to him':gt 'svidan', 'hisA'
		end

		act 'Refuse':
			cla
			loverrelation[lover_number] -= 1
			dynamic $brodilr
		end
	end
end

--- svi ---------------------------------