# 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 & 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 ---------------------------------