ykamin 1.6 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/etogame/ynill.jpg"></center>'
  11. if ymanrem[8] = 1:'<center><img src="images/etogame/yrem.jpg"></center>'
  12. if ymanrem[8] = 2:'<center><img src="images/etogame/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 poSkill>=50 and tkan>0:'You have enough fabric for <<tkan>> lessons.'
  17. if poSkill>=50 and tkan<=0:'You do not have any fabric.'
  18. if poSkill>=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. poSkill+=rand(0,1000)
  36. gobramax=poSkill/100
  37. gobramin=poSkill/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 ---------------------------------