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 $clothingworntype ! 'nude':
			act 'Strip':
				cla
				*clr
				gs 'clothing', 'strip'
				selfPornVidTime += 5
				minut += 5
				selfPornVar += 5
				horny += 5
				clr
				'You spent five minutes stripping erotically.'

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


		act 'Fondle Breasts':dynamic $selfPorno_Fondle

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

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

		if $clothingworntype = 'nude' 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_Fondle = {
	cla
	*clr
	gs 'stat'
	minut += 5

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

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

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

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

		act 'Continue':gt 'selfPorno', 'start'
	else
		clr
		videoOrgasm += 1
		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'
	selfPornVidTime += 10
	minut += 10
	mastr += 1
	manna += 15
	willpower += 15
	horny += 15
	selfPornVar += 5

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

		act 'Continue':gt 'selfPorno', 'start'
	else
		clr
		videoOrgasm += 1
		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'
	selfPornDogTime = rand(10, 25)
	selfPornVidTime += selfPornDogTime
	minut += selfPornDogTime
	zoo += 1
	manna += 15
	willpower += 15
	horny += 15
	selfPornVar += selfPornDogTime

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

		act 'Continue':gt 'selfPorno', 'start'
	else
		videoOrgasm += 1
		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'
	webcamday = day

	if selfPornVidTime >= 0 and selfPornVidTime < 20:
		selfPornVidMoney = selfPornVar * 50 * videoOrgasm
		minut += 10
		selfPornVidTime = 0
		selfPornVar = 0
		videoOrgasm = 0
		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:
		selfPornVidMoney = selfPornVar * 100 * videoOrgasm
		minut += 10
		selfPornVidTime = 0
		selfPornVar = 0
		videoOrgasm = 0
		selfPornvid += 1
		cls
		'You put together your video and upload it to a site'

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

	if selfPornVidTime >= 120:
		selfPornVidMoney = selfPornVar * 75 * videoOrgasm
		minut += 10
		selfPornVidTime = 0
		selfPornVar = 0
		videoOrgasm = 0
		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'
	webcamday = day
	DVDDisk -= 1
	selfPornvidDVD += 1
	minut += 10
	selfPornVidTime = 0
	selfPornVar = 0
	videoOrgasm = 0
	'You burned your porn video to a DVD.'

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

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