glife/locations/cafe3

# cafe3
if $ARGS[0] = 'house':
	cla
	*clr
	money += 100
	minut += 15
	gs 'stat'
	'<<$boydesc>> pays your bill and hails a taxi.'
	'You sit down with him in the backseat of the cab <<$boydesc>> puts his hand on your knee and begins stroking it slowly getting closer towards your pussy.'

	act 'Enjoy caresses':
		cla
		minut += 15
		pcs_horny += 15
		gs 'stat'
		dynamic $venerasiak
		'<<$boydesc>> made it to your pussy and starts to caress it with his fingers.'

		act 'Try to remove his hands':
			cla
			minut += 15
			pcs_horny += 10
			gs 'stat'
			'You try to remove his hands from your crotch, but <<$boydesc>> turns to you begins to fondle your breasts through your clothes with his hands.'

			act 'Come':BDcafe = 1 & gt 'BDsex', 'start'
		end

		act 'Caress his cock':
			cla
			minut += 15
			pcs_horny += 10
			gs 'stat'
			'You get into the guys pants and get hold of his <<dick>> centimeter dick and begin to caress it.'
			derand = rand(0, 100)

			if derand >= 95:
				'<<$boydesc>> groans and takes you by the neck, he then begins to move your face closer to his member.'

				act 'Suck it':
					cla
					*clr
					minut += 15
					pcs_horny += 10
					guy += 1
					stat['bj'] += 1
					gs 'stat'
					'<center><img src="images/studia/car.gif"></center>'
					'You bend, bringing your face to his groin and your lips wrap around his cock and you start sucking him.'
					gs 'oral', '0'
					'Finally, the guy fills your mouth with his hot sperm you have nowhere to go so you swallow it. The taxi stopped and <<$boydesc>> you puts you out on the street.'
					swallow += 1
					sexpartkno = 1
					spafinloc = 12
					gs 'cum_manage'

					act 'Leave':gt 'street'
				end

				act 'Try to remove his hands':
					cla
					minut += 15
					pcs_horny += 10
					gs 'stat'
					'You tried to remove the guys hands from your head, but <<$boydesc>> turns to you and begins to fondle your breasts through your clothes with his hands.'

					act 'Come':BDcafe = 1 & gt 'BDsex', 'start'
				end
			else
				act 'Come':BDcafe = 1 & gt 'BDsex', 'start'
			end
		end
	end

	act 'Try to remove his hands':
		cla
		minut += 15
		pcs_horny += 10
		gs 'stat'
		'You tried to remove his hands from your crotch, but <<$boydesc>> turns to you and begins to fondle your breasts through your clothes with his hands.'

		act 'Come':BDcafe = 1 & gt 'BDsex', 'start'
	end
end

if $ARGS[0] = '0':
	cla
	*clr
	minut += 15
	gs 'stat'
	gs 'dinsexFX'
	deyst = rand(1, 100)

	if deyst < 70:
		'<<$boydesc>> puts you on the bed and undresses.'
		dick = rand (8, 20)
		silavag = rand (0,2)
		deysts = rand(1, 3)

		if deysts = 1:
			guy += 1
			dynamic $vagstart
			picrand = rand(1, 5)
			'<center><img src="images/pics/vagmis<<picrand>>.jpg"></center>'

			pose = 0
			'<<$boydesc>> pushes your legs apart and enters you.'
			dynamic $vagend

			act 'Leave':gt 'street'
		elseif deysts = 2:
			guy += 1
			dynamic $vagstart
			!!'<<$boydesc>> pushes your legs and enters you.'
			picrand = rand(1, 5)
			'<center><img src="images/pics/vagdog<<picrand>>.jpg"></center>'
			'<<$boydesc>> helps you onto all fours and enters you.'

			pose = 1
			dynamic $vagend

			act 'Leave':gt 'street'
		elseif deysts = 3:
			guy += 1
			dynamic $vagstart
			picrand = rand(1, 5)
			'<center><img src="images/pics/vagcow<<picrand>>.jpg"></center>'
			'<<$boydesc>> lays down on the bed and pulls you on top of him, you feel his penis enter you.'
			'His cock goes into you and you start to pump up and down on it.'
			pose = 0
			dynamic $vagend

			act 'Leave':gt 'street'
		end
	elseif deyst < 85:
		'<<$boydesc>> tells you that he wants you to suck it'

		act 'Refuse':gt 'cafe3', '0'

		act 'Suck it':
			guy += 1
			stat['bj'] += 1
			throat += 1
			vaf += 1
			picrand = rand(1, 10)
			'<center><img src="images/pics/bj<<picrand>>.jpg"></center>'
			'<<$boydesc>> pulls out his dick'
			'You take his penis into your mouth and suck it.'
			'<<$boydesc>> moans that he''s about to finish.'

			act 'Remove from mouth':
				*clr
				cla
				bjrand = rand(1, 100)

				if bjrand < 50 and vaf > 100:'You have time to take his member out of your mouth, <<$boydesc>>s cum just misses you.'
				if bjrand >= 50 or vaf <= 100:
					sexpartkno = 1
					spafinloc = 11
					gs 'cum_manage'
					'<<$boydesc>> ends on your face.'
				end
				picrand = rand(1, 5)

				if bjrand >= 50 or repa = 6:'<center><img src="images/pics/facial<<picrand>>.jpg"></center>'

				'You try to wipe off the sperm of your face, but that just makes it worse.'

				act 'Leave':gt 'street'
			end

			act 'Suck on':
				*clr
				cla
				vaf += 1

				picrand = rand(1, 10)
				'<center><img src="images/pics/cum<<picrand>>.jpg"></center>'
				'You feel like a hot jet of sperm hits you in the throat. You have a mouth full of sperm.'
				act 'Swallow':
					cla
					vaf += 2
					sexpartkno = 1
					spafinloc = 12
					gs 'cum_manage'
					'<<$boydesc>> looks at you as you swallow his sperm.'

					act 'Leave':gt 'street'
				end

				act 'Spit out':
					cla
					'You go into the bathroom and spit the cum into the basin.'
					sexpartkno = 1
					spafinloc = 12
					sexvolume = 2
					gs 'cum_manage'
					
					act 'Leave':gt 'street'
				end
			end
		!!act 'Leave':gt 'street'
		end
	else
		'<<$boydesc>> tells you that he wants to make an ass omelette.'

		act 'Refuse':gt 'cafe3', '0'

		act 'Agree':
			cla
			guy += 1
			anal += 1
			anus += 1

			if lubri > 0:lubri = lubri - 1

			picrand = rand(1, 10)
			'<center><img src="images/pics/anal<<picrand>>.jpg"></center>'
			'<<$boydesc>> bends you over and lubricates your ass with some cream, you feel like it''s boiling down into your tight anus.'
			'With a sharp pain his penis easily enters. <<$boydesc>> fucks you in the ass smoothly, careful not to damage anything.'
			'You feel like your anus is filled with a warm liquid. You get yourself up and into the bathroom then you get dressed.'
			sexpartkno = 1
			spafinloc = 3
			gs 'cum_manage'
			
			act 'Leave':gt 'street'
		end
	end
end

if $ARGS[0] = 'toilet':
	cla
	gs 'dinsexFX'
	'You went to the toilet with a guy, <<$boydesc>> you began to kiss and caress. Then he offered you to suck it.'

	act 'Refuse':
		cla
		guy += 1
		dick = rand (8, 20)
		silavag = rand (0,2)
		dynamic $vagstart2
		'<center><img src="images/pics/vagtualet.jpg"></center>'
		'You attempt to abandon your hot lover but he refuses, he turns your back to him and bends you forwards.'
		'You feel <<$boydesc>> bare your ass and something solid against your vagina.'
		'You''re fucked doggy style in the outhouse.'
		dynamic $vagend

		act 'Leave':gt 'street'
	end

	act 'Suck it':
		cla
		vaf += 1
		guy += 1
		stat['bj']+= 1
		throat += 1
		dynamic $venerasiak
		picrand = rand(1, 10)
		'<center><img src="images/pics/bj<<picrand>>.jpg"></center>'
		'<<$boydesc>> pulls out his dick'
			'You take his penis in your mouth and suck it.'
			'<<$boydesc>> moans that he''s about to finish.'

			act 'Remove from mouth':
			cla
			*clr
			bjrand = rand(1, 100)

			if bjrand < 50 and vaf < 100:'You have time to take his member out of your mouth, <<$boydesc>>s cum just misses you.'
			if bjrand >= 50 or vaf <= 100:
				sexpartkno = 1
				spafinloc = 11
				gs 'cum_manage'
				'<<$boydesc>> ends on your face.'
			end
			
			picrand = rand(1, 5)

			if bjrand >= 50 or repa = 6:'<center><img src="images/pics/facial<<picrand>>.jpg"></center>'


			act 'Leave':gt 'street'
		end

		act 'Suck on':
			cla
			*clr
			vaf += 2
			picrand = rand(1, 10)
			'<center><img src="images/pics/cum<<picrand>>.jpg"></center>'
			'You feel like a hot jet of sperm hits you in the throat. You have a mouth full of sperm.'
			act 'Swallow':
				cla
				vaf += 2
				sexpartkno = 1
				spafinloc = 12
				gs 'cum_manage'
				'<<$boydesc>> looks at you as you swallow his sperm.'

				act 'Leave':gt 'street'
			end

			act 'Spit out':
				cla
				'You go into the bathroom and spit the cum into the basin.'
				sexpartkno = 1
				spafinloc = 12
				sexvolume = 2
				gs 'cum_manage'
				act 'Leave':gt 'street'
			end
		end
	end
end

if $ARGS[0] = 'kompashka':
	cla
	dynamic $venerasiak
	picrand = rand(1, 15)
	minut += 240
	'<center><img src="images/pics/gang<<picrand>>.jpg"></center>'
	'You are driving somewhere with the guys in a car. You''re drunk and you sit on the back seat with two guys finally, the machine stops and you get out of the car.'
	'They undress you, and you feel like you have been mislead. You try to say something but at this point a cock is inserted into your mouth.'
	'You are raped in all your holes and more than once. Heavily drunk, you can not concentrate and remember the details. With a vague feeling throughout your body, you remember hands and penises. Next thing you know you are outside your apartment.'
	$boydesc1 = $boydesc
	tempfindN = mid($boy, 2) & $tempfindL = mid($boy,1,1)
	if $tempfindL = 'A':
		temp[1] = Astat_dob[tempfindN]
	elseif $tempfindL = 'B':
		temp[1] = Bstat_dob[tempfindN]
	elseif $tempfindL = 'C':
		temp[1] = Cstat_dob[tempfindN]
	end
	temp[1] = (year - (temp[1] - (temp[1] mod 10000)) / 10000))
	guy += 3
	stat['vaginal'] += 1
	stat['bj']+= 1
	stat['anal'] += 1
	throat += 1
	temp = 4
	sexpartkno = 1
	:cafe3rapeloop
	gs 'cum_manage'
	sexvolume = 20
	spafinloc = 3
	gs 'cum_manage'
	sexvolume = 20
	spafinloc = 4
	gs 'cum_manage'
	sexvolume = 20
	spafinloc = 12
	gs 'cum_manage'
	sexvolume = 20
	spafinloc = 11
	gs 'cum_manage'
	temp -= 1
	gs 'npcgeneratec', 0, 'Rapist friend of <<$boydesc1>>', temp[1]
	gs 'boyStat', $npclastgenerated
	if temp > 0:
		jump 'cafe3rapeloop'
	end
	rape += 1
	gang += 1
	vagina += 1
	anus += 1

	act 'Leave':gt 'street'
end

if $ARGS[0] = 'coffee':
	cla
	dynamic $venerasiak
	minut += 20
	guy += 1
	gs 'stat'
	gs 'dinsexFX'
	dick = rand (8, 20)
	silavag = rand (0,2)
	picrand = rand(1, 5)
	'<center><img src="images/pics/vagmis<<picrand>>.jpg"></center>'
	'<<$boydesc>> agrees to your proposal. You bring him home, there''s a long embrace and you snuggle on the bed.'
	dynamic $vagstart
	'You gaze into <<$boydesc>>s eyes and he enters with all his manly force.'
	pose = 0
	dynamic $vagend

	act 'Show him out':gt 'Korr'
end

--- cafe3 ---------------------------------