# Gadsarai
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'
cottage
'
''
'Old barn that holds tools. Sitting near the barn dog named Pirate'
clr
gs'stat'
gs'time'
act'Go outside':minut+=5>'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 ---------------------------------