# Gadsarai
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><h4>Cottage</h4></center>'
'<center><img src="images/qwest/gadukino/sarai.jpg"></center>'
'Old barn that holds tools. Sitting near the barn <a href="exec:gt ''pirat''">dog named Pirate</a>'
clr
gs 'stat'
gs 'time'

act 'Go outside':minut += 5 & gt 'Gaddvor'

act 'Picking in the barn':
	cls
	minut += 15
	gs 'stat'
	poiskrand = rand(0, 5)

	if card > 0 and poiskrand = 0 or poiskrand > 0:
		'In the locker old magazines Health, Equipment Youth and dusty yellowed books.'
	elseif card = 0 and poiskrand = 0:
		card = 1
		'"Hmm, what''s this?" think you''ve found a deck of cards.'
	end

	act 'Put in place':gt $curloc
end

if card > 0:
	act 'Take a deck of cards':gt 'card'
end

if horny >= 50:
	act 'Masturbate':gt 'selfplay'
end

if piratHorny >= 20 and piratfrend >= 10:gt 'pirat'

--- Gadsarai ---------------------------------