# mod_bestmod_lake_dog

if $ARGS[0] = 'start':
	*clr & cla
	pcs_willpwr -= 5
	pcs_mood -= 5
	inhib_exp += rand(1,3)
	'<center><img <<$set_imgh>> src="images/beast/dogcaine.jpg"></center>'
	'As you lie down on your towel to catch some rays of sun and hopefully work on your tan a little, a stray dog appears out of nowhere. It keeps sniffing between your legs, which makes you feel very uncomfortable since you''re not wearing anything.'
	if bm_beast['exp'] = 0: 'You spend most of the hour trying to chase the dog away, but it comes back every time you think you got rid of it. You don''t get much sunbathing done as a result.'
	act 'Give up on sunbathing': gt'glake'
	!!if bm_beast['exp'] > 5: act 'Spread your legs a little...': gt 'mod_bestmod_lake_dog', 'ld1' 
end

!!if $ARGS[0] = 'ld1':
!!end

!!Generate lake dog here

--- mod_bestmod_lake_dog ---------------------------------