glife/locations/238_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 ---------------------------------