1
0

ykamin 1.7 KB

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