glife/locations/svi

# svi

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

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

		act 'Leave':dynamic $brodilr

		exit
	end

	if pcs_sweat > 24:
		!!sweating
		bfA -= 1

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

		act 'Leave':dynamic $brodilr

		exit
	end

	if temper < 0 and defaultcoat = 5:
		!!quilted_jacket
		bfA -= 1

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

		act 'Leave':dynamic $brodilr

		exit
	end

	if harakBoy[i] > 0 and izvrat = 0 and cumloc[11] = 1:
		bfA = 0
		'<<$boydesc[i]>> you saw traces of semen. He called you slut had severed relations with you.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if pcs_lovers_days[i] < 10 and boyonce[i] = 0:

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

		if vstrand = 0:
			'<<$boydesc[i]>> 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. <<$boydesc[i]>> telling stories and jokes hunted.'

				act 'To invite':
					cla
					if pcs_lovers_days[i] < 3:bfA -= 1

					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				dynamic $brodilr
			end
		elseif vstrand = 1:
			'<<$boydesc[i]>> 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. <<$boydesc[i]>> 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 pcs_lovers_days[i] < 3:bfA -= 1

						gt 'svidan', 'kvartA'
					end

					act 'Say goodbye and go home':
						cla
						bfA += 1
						dynamic $brodilr
					end
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				dynamic $brodilr
			end
		elseif vstrand = 2:
			'<<$boydesc[i]>> offers a drink pivasika in porch.'

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

				act 'To invite':
					cla

					if pcs_lovers_days[i] < 3:bfA -= 1


					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				dynamic $brodilr
			end
		end
	elseif pcs_lovers_days[i] >= 10 and boyonce[i] = 0:

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

		act 'Leave':
			cla
			bfA = 0
			dynamic $brodilr
		end

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

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

		exit
	end

	if pcs_lovers_days[i] > 15:gs 'boylove', 'haer'
	if pcs_lovers_days[i] > 30:gs 'boylove', 'figure'
	if pcs_lovers_days[i] > 60:gs 'boylove', 'tits'

	if boyonce[i] > 0:

		'<<$boydesc[i]>> 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. <<$boydesc[i]>> 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
			dynamic $brodilr
		end
	end
end

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

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

		act 'Leave':dynamic $brodilr

		exit
	end

	if pcs_sweat > 24:
		!!sweating
		bfA -= 1

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

		act 'Leave':dynamic $brodilr

		exit
	end

	if temper < 0 and defaultcoat = 5:
		!!quilted_jacket
		bfA -= 1

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

		act 'Leave':dynamic $brodilr

		exit
	end

	if harakBoy[i] > 0 and izvrat = 0 and cumloc[11] = 1:
		bfA = 0
		'<<$boydesc[i]>> you saw traces of semen. He called you slut had severed relations with you.'

		act 'Leave':dynamic $brodilr

		exit
	end

	if pcs_lovers_days[i] < 10 and boyonce[i] = 0:

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

		if vstrand = 0:
			'<<$boydesc[i]>> 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. <<$boydesc[i]>> telling stories and jokes hunted.'

				act 'To invite':
					cla

					if pcs_lovers_days[i] < 3:bfA -= 1


					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				dynamic $brodilr
			end
		elseif vstrand = 1:
			'<<$boydesc[i]>> 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. <<$boydesc[i]>> 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 pcs_lovers_days[i] < 3:bfA -= 1


						gt 'svidan', 'kvartA'
					end

					act 'Say goodbye and go home':
						cla
						bfA += 1
						dynamic $brodilr
					end
				end
			end

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

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

				act 'To invite':
					cla

					if pcs_lovers_days[i] < 3:bfA -= 1


					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				dynamic $brodilr
			end
		end
	elseif pcs_lovers_days[i] >= 10 and boyonce[i] = 0:

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

		act 'Leave':
			cla
			bfA = 0
			dynamic $brodilr
		end

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

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

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

		exit
	end

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

	if boyonce[i] > 0:

		'<<$boydesc[i]>> offers sit in a cafe.'

		act 'The cafe':
			cla
			minut += 60
			fat += 1
			bfA += 1
			'You came to the cafe <<$boydesc[i]>> ordered a full table and you sat talking and having fun. <<$boydesc[i]>> 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
			dynamic $brodilr
		end
	end
end

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

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

		act 'Leave':dynamic $brodilr

		exit
	end

	if pcs_sweat > 24:
		!!вsweating
		bfA -= 1

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

		act 'Leave':dynamic $brodilr

		exit
	end

	if temper < 0 and defaultcoat = 5:
	!!quilted_jacket
		bfA -= 1

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

		act 'Leave':dynamic $brodilr

		exit
	end

	if harakBoy[i] > 0 and izvrat = 0 and cumloc[11] = 1:
		bfA = 0
		'<<$boydesc[i]>> you saw traces of semen. He called you slut had severed relations with you.'

		act 'Leave':dynamic $brodilr

		exit
	end

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

	if pcs_lovers_days[i] < 10 and boyonce[i] = 0:

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

		if vstrand = 0:
			'<<$boydesc[i]>> 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. <<$boydesc[i]>> telling stories and jokes hunted.'

				act 'To invite':
					cla

					if pcs_lovers_days[i] < 3:bfA -= 1


					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				dynamic $brodilr
			end
		elseif vstrand = 1:
			'<<$boydesc[i]>> 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. <<$boydesc[i]>> 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 pcs_lovers_days[i] < 3:bfA -= 1


						gt 'svidan', 'kvartA'
					end

					act 'Say goodbye and go home':
						cla
						bfA += 1
						dynamic $brodilr
					end
				end
			end

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

			act 'Go to the restaurant':
				cla
				minut += 60
				fat += 1
				bfA += 1
				'<<$boydesc[i]>> 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 pcs_lovers_days[i] < 3:bfA -= 1


					gt 'svidan', 'kvartA'
				end

				act 'Say goodbye and go home':
					cla
					bfA += 1
					dynamic $brodilr
				end
			end

			act 'Refuse':
				cla
				bfA -= 1
				dynamic $brodilr
			end
		end
	elseif pcs_lovers_days[i] >= 10 and boyonce[i] = 0:

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

		act 'Leave':
			cla
			bfA = 0
			dynamic $brodilr
		end

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

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

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

		act 'The cafe':
			cla
			minut += 60
			fat += 1
			bfA += 1
			'You came to the cafe <<$boydesc[i]>> ordered a full table and you sat talking and having fun. <<$boydesc[i]>> 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
			dynamic $brodilr
		end
	end
end

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