1
0

ykamin 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354
  1. # ykamin
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. clr
  5. gs 'stat'
  6. '<center><b><font color="maroon">Lounge</font></b></center>'
  7. '<center>The lounge, where you can work on your tapestry and relax in front of the fireplace.</center>'
  8. if ymanrem[8] = 0:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/ynill.jpg"></center>'
  9. if ymanrem[8] = 1:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/yrem.jpg"></center>'
  10. if ymanrem[8] = 2:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/ykamin.jpg"></center>'
  11. if ymanrem[8] = 2:'There''s a <a href="exec:gt ''stol'', ''start''">table</a> which you can sit at.'
  12. act 'Leave the room':minut += 1 & gt 'ymans'
  13. if gobelen>0:'You have completed <<gobelen>> tapestries.'
  14. if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> more uses.'
  15. if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
  16. if pcs_sewng >= 80:
  17. if newgobelen = 0 and tkan > 0:
  18. act'Start a new tapestry':
  19. cls
  20. tkan -= 1
  21. newgobelen = 1
  22. minut += 15
  23. gs'stat'
  24. 'You spend 15 minutes on the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  25. act'Set the tapestry aside':gt $curloc
  26. end
  27. end
  28. if newgobelen >= 1:
  29. 'Your tapestry is <<newgobelen/10>> percent finished.'
  30. act'Work on the tapestry for an hour':
  31. cls
  32. minut += 60
  33. sewng_exp += rand(pcs_intel/10, pcs_intel/5)
  34. gobramax = (pcs_sewng - 70) * 6
  35. gobramin = (pcs_sewng - 70) * 2
  36. newgobelen += rand(gobramin,gobramax)
  37. gs'stat'
  38. if newgobelen < 1000:'You spend an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  39. if newgobelen >= 1000:
  40. newgobelen = 0
  41. gobelen+=1
  42. 'Your work on the tapestry is done. You feel pretty satisfied having finished a piece.'
  43. end
  44. act'Set the tapestry aside':gt $curloc
  45. end
  46. end
  47. end
  48. --- ykamin ---------------------------------