glife-shopfix/locations/arturdin

# arturdin

if $ARGS[0] = 'facefuck':
	artfacefucktimes += 1
	artbj += 1
	picrand = rand(0, 5)
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/facefuck<<picrand>>.jpg"></center>'
	'<<$artbef>> Arthur grabbed you by the hair and pushed his huge dick into your mouth.'

	if pcs_throat < dick:
		'You choke when his member presses into your throat dousing it with fire. You gag and twist, unable to swallow his huge dick.'
		gs 'arousal', 'bj', 5, 'rough', 'sub'
		gs 'stat'
	else
		'Your throat burns with fire, then he pushes his cock again, and again. Then you relax and his huge member enters your throat until your nose rests on Arthur''s curly pubic hair. Your throat no longer burns. '
		gs 'arousal', 'bj', 5, 'rough', 'sub'
		gs 'stat'
	end

	if artfacefucktimes < 4:
		tipsexart = rand(0, 1)

		if tipsexart = 0:act 'Continue': gt 'arturdin', 'artlick'
		if tipsexart = 1:act 'Continue': gt 'arturdin', 'artchik'
	elseif artfacefucktimes >= 4:
		tipsexart = rand(0, 1)

		if tipsexart = 0:act 'Continue': gt 'arturdin', 'bed'
		if tipsexart = 1:act 'Continue': gt 'arturdin', 'bedmiss'
	end
end

if $ARGS[0] = 'artlick':
	cls
	artbj += 1
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/lick.jpg"></center>'
	'Arthur pulls his dick out of your mouth and starts to beat you on the lips, you extend your tongue to lick the head. Then the huge dick bangs into your lips and cheeks.'
	gs 'arousal', 'bj', 5, 'rough', 'sub'
	gs 'stat'
	
	act 'Continue':
		cls
		$artbef = ''
		gt 'arturdin', 'facefuck'
	end
end

if $ARGS[0] = 'artchik':
	cls
	artbj += 1
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/chik.jpg"></center>'
	'Arthur puts his dick between your cheek and teeth and easily palm strikes you on the cheek.'
	gs 'arousal', 'bj', 5, 'rough', 'sub' 
	gs 'stat'
	
	act 'Continue':
		cls
		$artbef = ''
		gt 'arturdin', 'facefuck'
	end
end

if $ARGS[0] = 'bed':
	cls
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/bed.jpg"></center>'
	'Arthur puts you on the bed with your booty upward and your had pressed down. '
	gs 'arousal', 5, 'foreplay'
	gs 'stat'
	
	if artfucktimes < 4:
		artrand = rand(0, 2)

		if artrand = 0:act 'Continue': gt 'arturdin', 'sexdog'
		if artrand = 1:act 'Continue': gt 'arturdin', 'anal'
		if artrand = 2:act 'Continue': gt 'arturdin', 'fist'
	elseif artfucktimes >= 4:
		artrand = rand(0, 2)

		if artrand = 0:act 'Continue': gt 'arturdin', 'sexdog_cum'
		if artrand = 1:act 'Continue': gt 'arturdin', 'cum'
		if artrand = 2:act 'Continue': gt 'arturdin', 'anal_cum'
	end
end

if $ARGS[0] = 'bedmiss':
	cls
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/bedmiss.jpg"></center>'
	'Arthur puts you on the bed and pushes your legs apart.'
	gs 'arousal', 5, 'foreplay'
	gs 'stat'

	if artfucktimes < 4:
		act 'Continue': gt 'arturdin', 'sexmiss'
	elseif artfucktimes >= 4:
		artrand = rand(0, 1)

		if artrand = 0:act 'Continue': gt 'arturdin', 'sexmiss_cum'
		if artrand = 1:act 'Continue': gt 'arturdin', 'cum'
	end
end

if $ARGS[0] = 'sexmiss':
	cls
	pose = 0
	artfucktimes += 1
	artsex += 1
	if pcs_vag < dick:pcs_vag += 1
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/sexmiss.jpg"></center>'
	'Arthur moves between your legs and you feel his hard cock rest on your pussy, then press inside. '
	gs 'arousal', 'vaginal', 5
	gs 'stat'
	
	dynamic $sexstart4
	tipsexart = rand(0, 1)

	if tipsexart = 0:act 'Continue': gt 'arturdin', 'bed'
	if tipsexart = 1:act 'Continue': gt 'arturdin', 'bedmiss'
end

if $ARGS[0] = 'sexmiss_cum':
	cls
	pose = 0
	artfucktimes += 1
	artsex += 1
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/sexmiss.jpg"></center>'
	'Arthur is between your legs and you feel his hard cock moving in and out of your pussy.'
	gs 'arousal', 'vaginal', 5
	gs 'arousal', 'end'
	gs 'stat'
	
	dynamic $sexstart4
	dynamic $sexcum

	act 'Continue':gt 'arturend'
end

if $ARGS[0] = 'sexdog':
	cls
	artfucktimes += 1
	pose = 1
	artsex += 1
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/sexdog.jpg"></center>'
	'Arthur grabs your ass with his palms and pulls your butt cheeks apart, then you feel his hard cock press into your pussy. '
	gs 'arousal', 'vaginal', 5
	gs 'stat'
	
	dynamic $sexstart4
	tipsexart = rand(0, 1)

	if tipsexart = 0:act 'Continue': gt 'arturdin', 'bed'
	if tipsexart = 1:act 'Continue': gt 'arturdin', 'bedmiss'
end

if $ARGS[0] = 'sexdog_cum':
	cls
	artfucktimes += 1
	pose = 1
	artsex += 1
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/sexdog.jpg"></center>'
	'Arthur grabs your hips. His hard cock plunges in and out of your pussy. Your whole body is pushed forward into the bed with each thrust. '
	gs 'arousal', 'vaginal', 5
	gs 'arousal', 'end'
	gs 'stat'
	
	dynamic $sexstart4
	dynamic $sexcum

	act 'Continue':gt 'arturend'
end

if $ARGS[0] = 'anal':
	cls
	artfucktimes += 1
	pose = 1
	artanal += 1
	if pcs_ass < dick:pcs_ass += 1
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/anal.jpg"></center>'
	'Arthur grabs your butt with his hand ands spreads your ass cheeks wide.  You feel his hard cock press into your anus.'
	gs 'arousal', 'anal', 5
	gs 'stat'
	
	dynamic $analsex2
	tipsexart = rand(0, 1)

	if tipsexart = 0:act 'Continue': gt 'arturdin', 'bed'
	if tipsexart = 1:act 'Continue': gt 'arturdin', 'bedmiss'
end

if $ARGS[0] = 'anal_cum':
	cls
	artfucktimes += 1
	pose = 1
	artanal += 1
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/anal.jpg"></center>'
	'Arthur grabs your hips and pushes you backward and forward with each thrust. His hard cock plunges deeply into your anus.'
	gs 'arousal', 'anal', 5
	gs 'stat'
	
	dynamic $analsex2

	act 'Continue':
		cls
		lubonus = 0
		spafinloc = 3
		'<center><img src="images/characters/pavlovsk/resident/arthur/sex/analcreampi.jpg"></center>'
		'In a few moments <<$boydesc>> groaned and you feel like your ass is filled with heat.'
		gs 'arousal', 'anal', 5
		gs 'arousal', 'end'
		gs 'cum_manage'
		gs 'stat'
		
		act 'Continue':gt 'arturend'
	end
end

if $ARGS[0] = 'cum':
	cls
	minut += 5
	spafinloc = 11
	gs 'cum_manage'
	facial += 1
	gs 'stat'
	'<center><img src="images/characters/pavlovsk/resident/arthur/sex/cum0.jpg"></center>'
	'Arthur suddenly almost knocks you out of bed and pushes you to your knees. A jet of sperm hits you in the face. '

	act 'Continue':
		cls
		minut += 1
		gs 'stat'
		'<center><img src="images/characters/pavlovsk/resident/arthur/sex/cum1.jpg"></center>'
		'Then another jet of sperm gets in your face.'

		act 'Continue':
			cls
			minut += 1
			spafinloc = 12
			gs 'cum_manage'
			gs 'stat'
			'<center><img src="images/characters/pavlovsk/resident/arthur/sex/cum2.jpg"></center>'
			'The next jet of sperm gets you on the lips and in the mouth.'

			act 'Continue':
				cls
				minut += 1
				'<center><img src="images/characters/pavlovsk/resident/arthur/sex/cum3.jpg"></center>'
				'Arthur finally stops after covering almost all of your face with his hot sperm.'
				gs 'arousal', 'end'
				gs 'stat'

				act 'Continue':gt 'arturend'
			end
		end
	end
end

if $ARGS[0] = 'fist':
	cls

	if pcs_ass < 30:pcs_ass += 3
	if artfucktimes > 0:artfucktimes -= 1

	gs 'stat'

	if pcs_ass >= 20:
		'<center><img src="images/characters/pavlovsk/resident/arthur/sex/fist2.jpg"></center>'
		'Arthur puts two fingers in your ass, then adds another finger, and another.'
		gs 'arousal', 'anal__fist', 5, 'sub'
		gs 'stat'
	end

	if pcs_ass < 20:
		'<center><img src="images/characters/pavlovsk/resident/arthur/sex/fist.jpg"></center>'
		'Arthur puts a finger in your ass and begins to fuck it vigorously.'
		gs 'arousal', 'anal_finger', 5, 'rough', 'sub'
		gs 'stat'
	end

	tipsexart = rand(0, 1)

	if tipsexart = 0:act 'Continue': gt 'arturdin', 'bed'
	if tipsexart = 1:act 'Continue': gt 'arturdin', 'bedmiss'
end

--- arturdin ---------------------------------