glife/locations/340_svidan

# svidan
if $ARGS[0] = 'start':
	if svidanieA = 1 and svidanieB = 1 and svidanieC = 1:
	set bfA = 0
	set bfB = 0
	set bfC = 0
	set svidanieA = 0
	set svidanieB = 0
	set svidanieC = 0
	set manna = 0
	set willpower -= 30
	'<<$boyA>>, <<$boyB>> and <<$boyC>> come up to you, then look at each other in bewilderment. They understand everything and go. <<$boyC>> throws you goodbye "Well, you whore!"'
	act 'Leave.': gt 'street'
	exit
	end

	if svidanieA = 1 and svidanieB = 1 and svidanieC = 0:
	set bfA -= 1
	set bfB = 0
	!set bfC = 0
	set svidanieA = 0
	set svidanieB = 0
	set svidanieC = 0
	set manna -= 10
	set willpower -= 20
	'<<$boyA>> and <<$boyB>> come up to you, then look at each other in bewilderment. <<$boyA>> asked what kind of bloke you pinned. At that <<$boyB>> is outraged that he´s your guy and not this half-wit.'
		if bfA > 0: '<<$boybodyA>> <<$boybodA>> <<$boyA>> punches his rival´s face. <<$boyB>> falls to the ground with a broken face. <<$boyA>> defeated opponent says, "see you again beside my girls all fucking kill."'
		if bfA <= 0: '<<$boyA>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$boyB>> looks at what is happening and leaves without saying a word.'
	act 'Leave.': gt 'street'
	exit
	end

	if svidanieA = 1 and svidanieB = 0 and svidanieC = 1:
	set bfA -= 1
	!set bfB = 0
	set bfC = 0
	set svidanieA = 0
	set svidanieB = 0
	set svidanieC = 0
	set manna -= 10
	set willpower -= 20
	'<<$boyA>> and <<$boyC>> come up to you, then look at each other in bewilderment. <<$boyA>> asked what the dick from the mountain to you pinned. At that <<$boyC>> is outraged that he´s your guy and not this half-wit.'
		if bfA > 0: '<<$boybodyA>> <<$boybodA>> <<$boyA>> punches his rival´s face. <<$boyC>> falls to the ground with a broken face. <<$boyA>> defeated opponent says, "see you again beside my girls all fucking kill."'
		if bfA <= 0: '<<$boyA>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$boyC>> looks at what is happening and leaves without saying a word.'
	act 'Leave.': gt 'street'
	exit
	end

	if svidanieA = 0 and svidanieB = 1 and svidanieC = 1:
	set bfB -= 1
	!set bfB = 0
	set bfC = 0
	set svidanieA = 0
	set svidanieB = 0
	set svidanieC = 0
	set manna -= 10
	set willpower -= 20
	'<<$boyB>> and <<$boyC>> come up to you, then look at each other in bewilderment. <<$boyB>> asked what the dick from the mountain to you pinned. At that <<$boyC>> is outraged that he´s your guy and not this half-wit.'
		if bfb > 0: '<<$boybodyB>> <<$boybodB>> <<$boyB>> punches his rival´s face. <<$boyC>> falls to the ground with a broken face. <<$boyB>> defeated opponent says, "see you again beside my girls all fucking kill."'
		if bfb <= 0: '<<$boyB>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$boyC>> looks at what is happening and leaves without saying a word.'
	act 'Leave.': gt 'street'
	exit
	end

	if svidanieA = 1 and svidanieB = 0 and svidanieC = 0:
	set dayA += 1
	set svidanieA = 0
	set willpower += RAND(5,10)
	set manna += RAND(5,10)
		if harakBoy = 0:
			if mop <= 2 and mop > 0: set bfA += 1
			if mop = 4: set bfA -= 1
		end
		if harakBoy = 1:
			if mop <= 3 and mop > 0: set bfA += 1
			if mop = 4: set bfA -= 1
		end
		if harakBoy = 2:
			if mop = 4: set bfA += 1
			if mop <= 2 and mop > 0: set bfA -= 1
		end
	'<<$boybodyA>> <<$boybodA>> <<$boyA>> comes up to you and kisses you welcoming.'
		if dayA >= 30:
		set giftrand = RAND(0,2)
			if giftrand <= financeA:
			set gift = RAND(bfa * 10, bfa * 50)
			set money += gift
			'<<$boyA>> made a gift to you <<gift>> rubles.'
			end
		end
	act 'Kiss.': gt 'svidan','a'
		act 'Avoid kissing.':
		cla
		set bfA -= 1
		gt 'svidan','a'
		end
	exit
	end

	if svidanieA = 0 and svidanieB = 1 and svidanieC = 0:
	set dayB += 1
	set svidanieB = 0
	'<<$boybodyb>> <<$boybodb>> <<$boyb>> comes up to you and kisses you welcoming.'
	act 'Kiss.': gt 'svidan','b'
	exit
	end

	if svidanieA = 0 and svidanieB = 0 and svidanieC = 1:
	set dayc += 1
	set svidaniec = 0
	'<<$boybodyc>> <<$boybodc>> <<$boyc>> comes up to you and kisses you welcoming.'
	act 'Kiss.': gt 'svidan','c'
	exit
	end
end

if $ARGS[0] = 'a':
	if financeA = 0: gt 'svi','poor'
	if financeA = 1: gt 'svi','norm'
	if financeA = 2: gt 'svi','reach'
end


if $ARGS[0] = 'kustA':
*clr
set minut += 20
'You hid in the corner and ukromnoi <<$boyA>> pulled out his penis.'
	act 'Take by mouth':
	cla
	*clr
	set bfA += 1
		if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
	set bj += 1
	set dick = dickA
	set harakBoy = harakBoyA
	set minut += 30
	set $nameV = $boyA
	'<center><img src="images\picV\bj.jpg"></center>'
	'You kneel and <<$nameV>> pulled out his penis and offered it to your face.'
	gs 'oral','start'
		act 'Continue to suck.':
		cla
		*clr
		set swallow += 1
		set cumlip += 1
		'<center><img src="images\picV\swallow.jpg"></center>'
		'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
			act 'Leave.':
			cla
			gt 'street'
			end
		end

		act 'Remove the mouth.':
		cla
		*clr
			if harakBoyA = 0:
			'<center><img src="images\picV\hand.jpg"></center>'
			'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
			end
			if harakBoyA = 1:
			set tiprand = RAND(0,3)
				if tiprand < 3:
				'<center><img src="images\picV\hand.jpg"></center>'
				'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
				end
				if tiprand = 3:
				set facial += 1
				set cumface += 1
				'<center><img src="images\picV\facial.jpg"></center>'
				'You took out a member and at this point <<$nameV>> is dead right on your face, covering it with warm and sticky cum.'
				end
			end
			if harakBoyA = 2:
			set facial += 1
			set cumface += 1
			'<center><img src="images\picV\facial.jpg"></center>'
			'<<$nameV>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
			end

			act 'Leave.':
			cla
			gt 'street'
			end
		end
	end
end

if $ARGS[0] = 'carA':
*clr
set minut += 20
'You got in the car and <<$boyA>> hug you and started kissing.'
	act 'Sex':
	cla
	*clr
	set bfA += 1
		if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
	set sex += 1
	set minut += 30
	set pose = 0
	set $nameV = $boyA
	set dick = dickA
	set silavag = silavagA
	'<center><img src="images\picV\vag.jpg"></center>'
	'<<$nameV>> you put on your back and spread your legs.'
	gs 'orgazm','start'
		act 'Leave.':
		cla
		gt 'street'
		end
	end

	act 'Take by mouth':
	cla
	*clr
	set bfA += 1
		if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
	set bj += 1
	set dick = dickA
	set harakBoy = harakBoyA
	set minut += 30
	set $nameV = $boyA
	'<center><img src="images\picV\bj.jpg"></center>'
	'You kneel and <<$nameV>> pulled out his penis and offered it to your face.'
	gs 'oral','start'
		act 'Continue to suck.':
		cla
		*clr
		set swallow += 1
		set cumlip += 1
		'<center><img src="images\picV\swallow.jpg"></center>'
		'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
			act 'Leave.':
			cla
			gt 'street'
			end
		end

		act 'Remove the mouth.':
		cla
		*clr
			if harakBoyA = 0:
			'<center><img src="images\picV\hand.jpg"></center>'
			'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
			end
			if harakBoyA = 1:
			set tiprand = RAND(0,3)
				if tiprand < 3:
				'<center><img src="images\picV\hand.jpg"></center>'
				'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
				end
				if tiprand = 3:
				set facial += 1
				set cumface += 1
				'<center><img src="images\picV\facial.jpg"></center>'
				'You took out a member and at this point <<$nameV>> is dead right on your face, covering it with warm and sticky cum.'
				end
			end
			if harakBoyA = 2:
			set facial += 1
			set cumface += 1
			'<center><img src="images\picV\facial.jpg"></center>'
			'<<$nameV>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
			end

			act 'Leave.':
			cla
			gt 'street'
			end
		end
	end
end

if $ARGS[0] = 'hisA':
*clr
set minut += 20
'Once you have entered the apartment <<$boyA>> hug you and started kissing.'
	act 'Sex':
	cla
	*clr
	set bfA += 1
		if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
	set sex += 1
	set minut += 30
	set pose = 0
	set $nameV = $boyA
	set dick = dickA
	set silavag = silavagA
	'<center><img src="images\picV\vag.jpg"></center>'
	'<<$nameV>> you put on your back and spread your legs.'
	gs 'orgazm','start'
		act 'Leave.':
		cla
		gt 'street'
		end
	end

	act 'Take by mouth':
	cla
	*clr
	set bfA += 1
		if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
	set bj += 1
	set dick = dickA
	set harakBoy = harakBoyA
	set minut += 30
	set $nameV = $boyA
	'<center><img src="images\picV\bj.jpg"></center>'
	'You kneel and <<$nameV>> pulled out his penis and offered it to your face.'
	gs 'oral','start'
		act 'Continue to suck.':
		cla
		*clr
		set swallow += 1
		set cumlip += 1
		'<center><img src="images\picV\swallow.jpg"></center>'
		'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
			act 'Leave.':
			cla
			gt 'street'
			end
		end

		act 'Remove the mouth.':
		cla
		*clr
			if harakBoyA = 0:
			'<center><img src="images\picV\hand.jpg"></center>'
			'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
			end
			if harakBoyA = 1:
			set tiprand = RAND(0,3)
				if tiprand < 3:
				'<center><img src="images\picV\hand.jpg"></center>'
				'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
				end
				if tiprand = 3:
				set facial += 1
				set cumface += 1
				'<center><img src="images\picV\facial.jpg"></center>'
				'You took out a member and at this point <<$nameV>> is dead right on your face, covering it with warm and sticky cum.'
				end
			end
			if harakBoyA = 2:
			set facial += 1
			set cumface += 1
			'<center><img src="images\picV\facial.jpg"></center>'
			'<<$nameV>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
			end

			act 'Leave.':
			cla
			gt 'street'
			end
		end
	end
end

if $ARGS[0] = 'kvartA':
*clr
if housr > 0: set housrA = 1 & set housrMir = 0
set minut += 20
'Once you have entered the apartment <<$boyA>> hug you and started kissing.'
	if husband = 0:
		act 'Sex':
		cla
		*clr
		set bfA += 1
			if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
		set sex += 1
		set minut += 30
		set pose = 0
		set $nameV = $boyA
		set dick = dickA
		set silavag = silavagA
		'<center><img src="images\picV\vag.jpg"></center>'
		'<<$nameV>> you put on your back and spread your legs.'
		gs 'orgazm','start'
			act 'Hold up doors.':
			cla
			gt 'mirror','fin'
			end
		end


		act 'Take by mouth':
		cla
		*clr
		set bfA += 1
			if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
		set bj += 1
		set dick = dickA
		set harakBoy = harakBoyA
		set minut += 30
		set $nameV = $boyA
		'<center><img src="images\picV\bj.jpg"></center>'
		'You kneel and <<$nameV>> pulled out his penis and offered it to your face.'
		gs 'oral','start'
			act 'Continue to suck.':
			cla
			*clr
			set swallow += 1
			set cumlip += 1
			'<center><img src="images\picV\swallow.jpg"></center>'
			'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$nameV>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
				act 'Hold up doors.':
				cla
				gt 'mirror','fin'
				end
			end

			act 'Remove the mouth.':
			cla
			*clr
				if harakBoyA = 0:
				'<center><img src="images\picV\hand.jpg"></center>'
				'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
				end
				if harakBoyA = 1:
				set tiprand = RAND(0,3)
					if tiprand < 3:
					'<center><img src="images\picV\hand.jpg"></center>'
					'You remove a member from his mouth and <<$nameV>> you are finished in hand.'
					end
					if tiprand = 3:
					set facial += 1
					set cumface += 1
					'<center><img src="images\picV\facial.jpg"></center>'
					'You took out a member and at this point <<$nameV>> is dead right on your face, covering it with warm and sticky cum.'
					end
				end
				if harakBoyA = 2:
				set facial += 1
				set cumface += 1
				'<center><img src="images\picV\facial.jpg"></center>'
				'<<$nameV>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
				end

				act 'Hold up doors.':
				cla
				gt 'mirror','fin'
				end
			end
		end

		act 'Masturbate him':
		cla
		*clr
			if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
		set DOM += 1
		set hj += 1
		set minut += 30
		set horny += DOM
		'<center><img src="images\picV\hand1.jpg"></center>'
		'You stripped and put the guy on the bed, while they themselves sat next to him and began to fondle his penis hands.'
		'Soon, your skillful movements guy finished you in her hands.'
		if harakBoyA = 0: set bfA -= 1
		if harakBoyA = 1: set bfA -= 5
		if harakBoyA = 2: set bfA -= 10
			act 'Wipe your hands and hold up to the door.':
			cla
			gt 'mirror','fin'
			end
		end

		if DOM > 1 and kunday ! day and mesec <= 0:
			act 'Cooney':
			cla
			*clr
			set kunday = day
				if boyonceA = 0: set boyonceA = 1 & set guy += 1 & set vneshBoyA += 10
			set DOM += 1
			set kuni += 1
			set minut += 30
			set horny += DOM + (silaVag * 2 + 5)
			'<center><img src="images\picV\kuni.jpg"></center>'
			'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
			'<<$boyA>> lay down between your legs and began to work the tongue on your pussy.'
			if harakBoyA = 0: set bfA -= 1
			if harakBoyA = 1: set bfA -= 5
			if harakBoyA = 2: set bfA -= 10
				if horny >= 90:
				set horny = 0
				set manna += 15
				set willpower += 15
				set orgasm += 1
				'Man of skillful actions you covered orgasm.'
				else
				'Actions Man though they were exciting, but they started to bore you.'
				end

				act 'Further.':
				cla
				gt 'svidan','kvartA'
				end
			end

		end

	end
end
--- svidan ---------------------------------