# Gadsarai
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>cottage</H4></center>'
'<center><img src="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.'
	 end
	 if 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
end

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













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