glife/locations/film

# film
if $ARGS[0] = 'movie':
	cla
	clr
	gs 'stat'

	!!pfilmA
	if pfilmA >= 5:
		cla
		pfilmA = 0
		pfilm = 0
		film = film + 1
		'You dosnyal in the film.'

		act 'Approach to Peter':gt 'pornstudio', 'start'
		act 'Finish':gt 'down'
	end

	if hour >= 22 and pfilmA < 5:
		cla
		'Time is too late for filming'

		act 'Go home':gt 'down'
	elseif hour < 22 and pfilmA < 5 and pfilm > 0:
		cla
		minut += 60
		money += 1000

		if pfilmA = 0:guy+= 1

		stat['bj'] += 1
		pfilmA += 1
		gs 'stat'
		'You undress and start shooting.'
		prand = rand(1, 2)

		if prand = 1:
			picrand = rand(1, 12)

			'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<picrand>>.jpg"></center>'
			'You suck dick for an hour at the actor portraying the passion and lust. Really hard to concentrate when there are fixtures, Assistant, you continually shoved the camera to face.'
		elseif prand = 2:
			facial += 1
			picrand = rand(1, 10)

			'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/fa<<picrand>>.jpg"></center>'
			'You suck dick for an hour at the actor portraying the passion and lust. He ends up on your face, you lick the sperm. You every minute shoved the camera in person, running an assistant and illuminators.'
		end

		act 'Finish':gt 'down'

		if hour < 22:act 'Acting on':gt 'film', 'movie'
	end
end

if $ARGS[0] = 'movie2':
cla
clr
gs 'stat'

	!!pfilmB
	if pfilmB >= 10:
		cla
		pfilmB = 0
		pfilm = 0
		film = film + 1
		'You dosnyal in the film.'

		act 'Approach to Peter':gt 'pornstudio', 'start'
		act 'Go home':gt 'down'
	end

	if h >= 22 and pfilmB < 10:
		cla
		'Time is too late for filming'

		act 'Go home':gt 'down'
	elseif hour < 22 and pfilmB < 10 and pfilm > 0:
		cla
		minut += 60
		money += 3000

		if pfilmB = 0:guy += 1

		pfilmB += 1
		gs 'stat'
		'You undress and start shooting.'
		prand = rand(1, 3)

		if prand = 1:
			stat['bj'] += 1
			picrand = rand(1, 12)
			'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<picrand>>.jpg"></center>'
			'You suck dick for an hour at the actor portraying the passion and lust. Really hard to concentrate when there are fixtures, Assistant, you continually shoved the camera to face.'
		elseif prand = 2:
			pcs_ass += 1
			stat['anal'] += 1
			picrand = rand(1, 10)

			'<center><img <<$set_imgh>> src="images/shared/sex/anal/doggy/anal2<<picrand>>.jpg"></center>'
			'An hour you fucked in the ass for the camera, you do not pleasant, but you portray passion and pleasure. Finally, the actor does not stand up and fills your ass with his sperm. You every minute shoved the camera in person, running an assistant and illuminators.'
		elseif prand = 3:
			stat['vaginal'] += 1
			pcs_vag+= 1
			facial += 1

            picrand = rand(0, 1)

            if picrand = 0:
                picrand = rand(1, 5)
                '<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/vagcow<<picrand>>.jpg"></center>'
            else
                picrand = rand(1, 5)
                '<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/vagdog<<picrand>>.jpg"></center>'
            end

			'You have an hour before the camera, you portray passion and lust. He ends up on your face, you lick the sperm. You every minute shoved the camera in person, running an assistant and illuminators.'
		end

		act 'Go home':gt 'down'

		if hour < 22:act 'Acting on':gt 'film', 'movie2'
	end
end

--- film ---------------------------------