ykamin.qsrc 1.9 KB

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