glife/locations/svi

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

	if Venera >= 3:
		bfA = 0
		'<<$boyA>> you saw signs of venereal disease and dumped you.'

		act 'Leave':gt 'street'

		exit
	end

	if sweat > 1:
		!!sweating
		bfA -= 1

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

		act 'Leave':gt 'street'

		exit
	end

	if $clothingworntype = 'vatnik':
		!!quilted_jacket
		bfA -= 1

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

		act 'Leave':gt 'street'

		exit
	end

	if harakBoyA > 0 and izvrat = 0 and (cumface > 0 or cumlip > 0):
		bfA = 0
		'<<$boyA>> you saw traces of semen. He called you slut had severed relations with you.'

		act 'Leave':gt 'street'

		exit
	end

	if daya < 10 and boyonceA = 0:
		!!candy buketny period
		vstrand = rand(0, 2)

		if vstrand = 0:
			'<<$boyA>> offers a walk in the park.'

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

				act 'To invite':
					cla
					if dayA < 3:bfA -= 1
					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					gt 'street'
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				gt 'street'
			end
		elseif vstrand = 1:
			'<<$boyA>> offers to go to the cinema.'

			act 'Go to the cinema':
				cla
				minut += 60
				fat += 1
				bfA += 1
				'You went to the cinema for a new movie. <<$boyA>> hug you.'

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

					act 'To invite':
						cla
						if dayA < 3:bfA -= 1
						gt 'svidan', 'kvartA'
					end

					act 'Say goodbye and go home':
						cla
						bfA += 1
						gt 'street'
					end
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				gt 'street'
			end
		elseif vstrand = 2:
			'<<$boyA>> offers a drink pivasika in porch.'

			act 'Drink beer':
				cla
				minut += 60
				fat += 1
				bfA += 1
				'<<$boyA>> bought pivasika and crackers and you went with him to the porch, where drinking and fun chatting.'

				act 'To invite':
					cla

					if dayA < 3:bfA -= 1

					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					gt 'street'
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				gt 'street'
			end
		end
	elseif daya >= 10 and boyonceA = 0:
		'<<$boyA>> says he''s a grown man and he is not satisfied platonic relationship.'

		act 'Leave':
			cla
			bfA = 0
			gt 'street'
		end

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

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

		exit
	end

	if dayA > 15:gs 'boylove', 'haer'
	if dayA > 30:gs 'boylove', 'figure'
	if dayA > 60:gs 'boylove', 'tits'

	if boyonceA > 0:
		'<<$boyA>> offers to hang out in the stairwell with pivasikom.'

		act 'Potusit':
			cla
			minut += 60
			fat += 1
			bfA += 1
			'You drank beer in the stairwell with her boyfriend. <<$boyA>> 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
			bfA -= 1
			gt 'street'
		end
	end
end

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

	if Venera >= 3:
		bfA = 0
		'<<$boyA>> you saw signs of venereal disease and dumped you.'

		act 'Leave':gt 'street'

		exit
	end

	if sweat > 1:
		!!sweating
		bfA -= 1

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

		act 'Leave':gt 'street'

		exit
	end

	if $clothingworntype = 'vatnik':
		!!quilted_jacket
		bfA -= 1

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

		act 'Leave':gt 'street'

		exit
	end

	if harakBoyA > 0 and izvrat = 0 and (cumface > 0 or cumlip > 0):
		bfA = 0
		'<<$boyA>> you saw traces of semen. He called you slut had severed relations with you.'

		act 'Leave':gt 'street'

		exit
	end

	if daya < 10 and boyonceA = 0:
		!!candy buketny period
		vstrand = rand(0, 2)

		if vstrand = 0:
			'<<$boyA>> offers to go to the cafe.'

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

				act 'To invite':
					cla

					if dayA < 3:bfA -= 1

					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					gt 'street'
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				gt 'street'
			end
		elseif vstrand = 1:
			'<<$boyA>> offers to go to the cinema.'

			act 'Go to the cinema':
				cla
				minut += 60
				fat += 1
				bfA += 1
				'You went to the cinema for a new movie. <<$boyA>> hug you.'

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

					act 'To invite':
						cla

						if dayA < 3:bfA -= 1

						gt 'svidan', 'kvartA'
					end

					act 'Say goodbye and go home':
						cla
						bfA += 1
						gt 'street'
					end
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				gt 'street'
			end
		elseif vstrand = 2:
			'<<$boyA>> provides for a walk.'

			act 'Walk':
				cla
				minut += 60
				fat += 1
				bfA += 1
				'<<$boyA>> to take you by the arm and you were walking down the street talking.'

				act 'To invite':
					cla

					if dayA < 3:bfA -= 1

					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					gt 'street'
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				gt 'street'
			end
		end
	elseif daya >= 10 and boyonceA = 0:
		'<<$boyA>> says he''s a grown man and he is not satisfied platonic relationship.'

		act 'Leave':
			cla
			bfA = 0
			gt 'street'
		end

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

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

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

		exit
	end

	if dayA > 12 and skin < 2:bfA -= 1
	if dayA > 12:gs 'boylove', 'haer'
	if dayA > 24:gs 'boylove', 'figure'
	if dayA > 48:gs 'boylove', 'tits'
	if dayA > 22 and glaraz < 1:bfA -= 1
	if dayA > 40 and lip < 1:bfA -= 1

	if boyonceA > 0:
		'<<$boyA>> offers sit in a cafe.'

		act 'The cafe':
			cla
			minut += 60
			fat += 1
			bfA += 1
			'You came to the cafe <<$boyA>> ordered a full table and you sat talking and having fun. <<$boyA>> hugged you and said that he wants you.'

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

		act 'Refuse':
			cla
			bfA -= 1
			gt 'street'
		end
	end
end

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

	if Venera >= 3:
		bfA = 0
		'<<$boyA>> you saw signs of venereal disease and dumped you.'

		act 'Leave':gt 'street'

		exit
	end

	if sweat > 1:
		!!вsweating
		bfA -= 1

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

		act 'Leave':gt 'street'

		exit
	end

	if $clothingworntype = 'vatnik':
		!!quilted_jacket
		bfA -= 1

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

		act 'Leave':gt 'street'

		exit
	end

	if harakBoyA > 0 and izvrat = 0 and (cumface > 0 or cumlip > 0):
		bfA = 0
		'<<$boyA>> you saw traces of semen. He called you slut had severed relations with you.'

		act 'Leave':gt 'street'

		exit
	end

	if dayA > 5 and skin < 3:bfA -= 1
	if dayA > 10:gs 'boylove', 'haer'
	if dayA > 20:gs 'boylove', 'figure'
	if dayA > 30:gs 'boylove', 'tits'
	if dayA > 10 and glaraz < 2:bfA -= 1
	if dayA > 6 and lip < 2:bfA -= 1
	if dayA > 8 and resnic < 1:bfA -= 1

	if daya < 10 and boyonceA = 0:
		!!candy buketny period
		vstrand = rand(0, 2)

		if vstrand = 0:
			'<<$boyA>> offers to go to the cafe.'

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

				act 'To invite':
					cla

					if dayA < 3:bfA -= 1

					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					gt 'street'
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				gt 'street'
			end
		elseif vstrand = 1:
			'<<$boyA>> offers to go to the cinema.'

			act 'Go to the cinema':
				cla
				minut += 60
				fat += 1
				bfA += 1
				'You went to the cinema for a new movie. <<$boyA>> hug you.'

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

					act 'To invite':
						cla

						if dayA < 3:bfA -= 1

						gt 'svidan', 'kvartA'
					end

					act 'Say goodbye and go home':
						cla
						bfA += 1
						gt 'street'
					end
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				gt 'street'
			end
		elseif vstrand = 2:
			'<<$boyA>> offers to go to the restaurant.'

			act 'Go to the restaurant':
				cla
				minut += 60
				fat += 1
				bfA += 1
				'<<$boyA>> 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 dayA < 3:bfA -= 1

					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					gt 'street'
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				gt 'street'
			end
		end
	elseif daya >= 10 and boyonceA = 0:
		'<<$boyA>> says he''s a grown man and he is not satisfied platonic relationship.'

		act 'Leave':
			cla
			bfA = 0
			gt 'street'
		end

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

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

		exit
	elseif boyonceA > 0:
		'<<$boyA>> offers sit in a cafe.'

		act 'The cafe':
			cla
			minut += 60
			fat += 1
			bfA += 1
			'You came to the cafe <<$boyA>> ordered a full table and you sat talking and having fun. <<$boyA>> hugged you and said that he wants you.'

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

		act 'Refuse':
			cla
			bfA -= 1
			gt 'street'
		end
	end
end

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