1
0

krupo.qsrc 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869
  1. # krupo
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $location_type = 'event'
  5. frost = 0
  6. gs'stat'
  7. if night_mode = 1:
  8. fcolor = rgb(255, 255, 255)
  9. bcolor = rgb(0, 0, 0)
  10. lcolor = rgb(106, 90, 205)
  11. elseif night_mode = 2:
  12. fcolor = rgb(255, 255, 255)
  13. bcolor = rgb(20, 20, 20)
  14. lcolor = rgb(106, 90, 205)
  15. else
  16. fcolor = rgb(0, 0, 0)
  17. bcolor = rgb(255, 255, 255)
  18. lcolor = rgb(106, 90, 205)
  19. end
  20. '<center><b><font color = maroon>Sewing circle</font></b></center>'
  21. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/krupo.jpg"></center>'
  22. if pcs_sewng < 40:
  23. sewng_exp += rand(pcs_intel/20, pcs_intel/10)
  24. minut += 60
  25. 'You spend an hour learning different sewing techniques.'
  26. end
  27. if pcs_sewng >= 40:
  28. if tkanfirst = 0:
  29. minut += 60
  30. sewng_exp += rand(pcs_intel/20, pcs_intel/10)
  31. 'She has some spare fabric for you as it''s the first time you need some, but she tells you to bring some next time.'
  32. msg 'The teacher tells you that you will need to bring in fabric for further studies, you can buy some in the hardware department at the supermarket.'
  33. tkanfirst = 1
  34. elseif tkan <= 0:
  35. msg 'The teacher reminds you, that in order to further improve your skills, you need to buy some fabric to work with.'
  36. 'You can''t do your lesson without fabric so there is nothing you can do here now.'
  37. else
  38. minut += 60
  39. tkan -= 1
  40. sewng_exp += rand(pcs_intel/20, pcs_intel/10)
  41. 'For an hour you learn more advanced techniques and practice cutting and sewing the fabric you purchased.'
  42. if pcs_sewng >= 60 and poTalk = 0:
  43. poTalk = 1
  44. *nl
  45. 'With a satisfied smile your teacher tells you, "Well done, now you can alter clothes to fit your size perfectly! However, this does not mean that any further studies would be useless. With further lessons I feel that I can teach you how to embroider splendid tapestries, which would be highly sought after, although very laborious to make."'
  46. end
  47. if pcs_sewng >= 80 and poTalk = 1:
  48. *nl
  49. 'The teacher nods quietly and says, "You have mastered simple tapestries. It''s not without flaws, but good enough to be able to sell them and as your skills continue to grow, the quality will improve as well."'
  50. end
  51. end
  52. end
  53. *nl
  54. 'Your sewing skill is now <<pcs_sewng>>.'
  55. *nl
  56. if tkan >= 0:'Your cloth will suffice for <<tkan>> more lessons.'
  57. gs'stat'
  58. act 'Leave':gt'gdkkru'
  59. --- krupo ---------------------------------