glife_beastfert/locations/arturHome.qsrc

# arturHome

menu_off = 1
arturKnow = 1
frost = 0
minut += 15
gs 'stat'
'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/arthur/artur.jpg"></center>'
'Arthur leads you to the parking lot where his black Priora is parked. You get into the car and Arthur drives you to a neighborhood you''ve never ventured into, but you recognize it as an Armenian area of town.' 
'"I eat real food for lunch, meat on skewers, not the rubbish in the cafe. And real jam." He says proudly. You continue to make small talk while driving towards your destination.'

act 'Go to his home':
	*clr & cla
	minut += 60
	gs 'drugs', 'alcohol', 'vodka', 2
	gs 'boyStat', 'A73'
	$boydesc = $npc_usedname['A73']
	silavag = npc_sexskill['A73']
	dick = npc_dick['A73']
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/arthur/artur.jpg"></center>'
	'Arthur has generously set the table with food and you eat meat wrapped in grape leaves and roasted on skewers. You drink strong Chacha with your food and quickly find yourself getting tipsy. Once you''re nearly done with your meal Arthur turns on some music before approaching, a look of lust on his face. "Come to me girl." He says authoritatively'

	act 'Go with him':arturTimes += 1 & gt 'arturSex'
	if condomtalkartur = 0 and arturSex > 0:
		act 'Ask him to wear a condom':
			*clr & cla
			condomtalkartur = 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/arthur/artur.jpg"></center>'
			'You ask Arthur to wear a condom. He scoffs loudly at the suggestion and shakes his head."What? Sex with a condom is like breathing through a mask. No!"'
			! Choosing to give Artur a little accent to emphasize that he is not from the same ethnic group as the rest of town. AB

			act 'Go with him':arturTimes += 1 & gt 'arturSex'
			gs 'willpower', 'sex', 'resist', 'hard'
			if will_cost <= pcs_willpwr:
				act 'Leave (<<will_cost>> Willpower)':
					gs 'willpower', 'sex', 'resist', 'hard'
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					
					gt 'pavCommercial'
				end
			else
				act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
	end
	gs 'willpower', 'sex', 'resist', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Leave (<<will_cost>> Willpower)':
			gs 'willpower', 'sex', 'resist', 'hard'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			
			gt 'pavCommercial'
		end
	else
		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
end

--- arturHome ---------------------------------