glife/locations/selfPorno

# selfPorno
if $ARGS[0] = 'start':
	clr
	gs 'stat'
	'You have spent <<selfPornVidTime>> minutes on your film and had <<videoOrgasm>> orgasms on camera.'

	if selfPornVidTime < 300:
		if nude ! 1:
			act 'Strip':dynamic $selfPorno_Strip
		end


		act 'Fondle Breasts':dynamic $selfPorno_Fondle

		if nude = 1:
			act 'Masturbate':dynamic $selfPorno_Masturbate
		end

		if nude = 1 and dildo > 0:
			act 'Masturbate with dildo':dynamic $selfPorno_Dildo
		end

		if nude = 1 and zoo >= 1:
			act 'Fuck your dog':dynamic $selfPorno_Dog
		end
	else
		'You have spent over five hours on a single video, your done with it.'
	end

	if selfPornVidTime > 0 and DVDDisk > 0:act 'Finish Video and burn to disk':dynamic $selfPorno_Disk
	if selfPornVidTime > 0:act 'Finish Video and upload to site':dynamic $selfPorno_Finish

	act 'Leave webcam program':gt 'Komp', 'start'
end

$selfPorno_Strip = {
	cla
	*clr
	set nude = 1
	set odedosna = numdress
	set numdress = 0
	set selfPornVidTime += 5
	set minut += 5
	set selfPornVar += 5
	set horny += 5
	clr
	!!gs 'stat'
	'You spent five minutes stripping erotically.'

	act 'Continue':gt 'selfPorno', 'start'
}

$selfPorno_Fondle = {
	cla
	*clr
	gs 'stat'
	set minut += 5

	if nude ! 1:
		set selfPornVidTime += 5
		set selfPornVar += 3
		set horny += 7
		clr
		'You spent five minutes fondling your breasts through your clothes.'
	else
		set selfPornVidTime += 5
		set selfPornVar += 5
		set horny += 10
		clr
		'You spent five minutes fondling your breasts.'
	end

	act 'Continue':gt 'selfPorno', 'start'
}

$selfPorno_Masturbate = {
	cla
	*clr
	gs 'stat'
	set selfPornVidTime += 10
	set minut += 10
	set mastr += 1
	set manna += 15
	set willpower += 15
	set horny += 10

	if horny <= 90:
		clr
		set selfPornVar += 5
		'You spend ten minutes masturbating for the camera.'

		act 'Continue':gt 'selfPorno', 'start'
	else
		clr
		set videoOrgasm += 1
		set selfPornVar += 8
		'You spend ten minutes masturbating for the camera and end up orgasming.'

		act 'Continue':gt 'selfPorno', 'start'
	end
}

$selfPorno_Dildo = {
	cla
	*clr
	gs 'stat'
	set selfPornVidTime += 10
	set minut += 10
	set mastr += 1
	set manna += 15
	set willpower += 15
	set horny += 15
	set selfPornVar += 5

	if horny <= 85:
		set selfPornVar += 10
		clr
		'You spend ten minutes masturbating for the camera with a dildo.'

		act 'Continue':gt 'selfPorno', 'start'
	else
		clr
		set videoOrgasm += 1
		set selfPornVar += 15
		'You spend ten minutes masturbating for the camera with a dildo and end up orgasming.'

		act 'Continue':gt 'selfPorno', 'start'
	end
}

$selfPorno_Dog = {
	cla
	*clr
	gs 'stat'
	set selfPornDogTime = rand(10, 25)
	set selfPornVidTime += selfPornDogTime
	set minut += selfPornDogTime
	set zoo += 1
	set manna += 15
	set willpower += 15
	set horny += 15
	set selfPornVar += selfPornDogTime

	if horny <= 85:
		set selfPornVar += 10
		clr
		'You spend <<selfPornDogTime>> minutes having sex with your dog on camera.'

		act 'Continue':gt 'selfPorno', 'start'
	else
		set videoOrgasm += 1
		set selfPornVar += 15
		clr
		'You spend <<selfPornDogTime>> minutes having sex with your dog on camera and end up orgasming.'

		act 'Continue':gt 'selfPorno', 'start'
	end
}

$selfPorno_Finish = {
	clr
	gs 'stat'
	set webcamday = day

	if selfPornVidTime >= 0 and selfPornVidTime < 20:
		set selfPornVidMoney = selfPornVar * 50 * videoOrgasm
		set minut += 10
		set selfPornVidTime = 0
		set selfPornVar = 0
		set videoOrgasm = 0
		set selfPornvid += 1
		cls
		'You put together your video and upload it to a site'

		act 'Continue':gt 'Komp', 'start'
	end

	if selfPornVidTime >= 20 and selfPornVidTime < 120:
		set selfPornVidMoney = selfPornVar*100*videoOrgasm
		set minut += 10
		set selfPornVidTime = 0
		set selfPornVar = 0
		set videoOrgasm = 0
		set selfPornvid += 1
		cls
		'You put together your video and upload it to a site'

		act 'Continue':gt 'Komp', 'start'
	end

	if selfPornVidTime >= 120:
		set selfPornVidMoney = selfPornVar*75*videoOrgasm
		set minut += 10
		set selfPornVidTime = 0
		set selfPornVar = 0
		set videoOrgasm = 0
		set selfPornvid += 1
		cls
		'You put together your video and upload it to a site'

		act 'Continue':gt 'Komp', 'start'
	end
}

$selfPorno_Disk = {
	clr
	gs 'stat'
	set webcamday = day
	set DVDDisk -= 1
	set selfPornvidDVD += 1
	set minut += 10
	set selfPornVidTime = 0
	set selfPornVar = 0
	set videoOrgasm = 0
	'You burned your porn video to a DVD.'

	act 'Continue':gt 'Komp', 'start'
}

--- selfPorno ---------------------------------