'
if ymanrem[8] = 2:'Table'
act 'Leave the room':minut += 1 & gt 'ymans'
if gobelen>0:'You have <> completed tapestries.'
if poSkill>=50 and tkan>0:'You have enough fabric for <> lessons.'
if poSkill>=50 and tkan<=0:'You do not have any fabric.'
if poSkill>=200:
if newgobelen=0 and tkan>0:
act'Start a new tapestry':
cls
tkan-=1
newgobelen=1
minut+=15
gs'stat'
'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
act'Set the tapestry aside':gt $curloc
end
end
if newgobelen>=1:
'Your tapestry is <> percent finished.'
act'Work on the tapestry for an hour':
cls
minut+=60
poSkill+=rand(0,1000)
gobramax=poSkill/100
gobramin=poSkill/200
newgobelen+=rand(gobramin,gobramax)
gs'stat'
if newgobelen<1000:'You spent an hour working on your tapestry, which is now <> percent finished.'
if newgobelen>=1000:
newgobelen=0
gobelen+=1
'Your work on the tapestry is done.'
end
act'Set the tapestry aside':gt $curloc
end
end
end
--- ykamin ---------------------------------