krupo 2.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960
  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. else
  12. fcolor = rgb(0, 0, 0)
  13. bcolor = rgb(255, 255, 255)
  14. lcolor = rgb(106, 90, 205)
  15. end
  16. '<center><b><font color = maroon>Sewing circle</font></b></center>'
  17. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/krupo.jpg"></center>'
  18. if tkan >= 0:'Your cloth will suffice for <<tkan>> more lessons.'
  19. if pcs_sewng < 50:
  20. sewng_exp += rand(pcs_intel/20, pcs_intel/10)
  21. minut += 60
  22. 'You spend an hour learning different sewing techniques.'
  23. if pcs_sewng > 40:'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.'
  24. end
  25. if pcs_sewng >= 50 and tkan <= 0:
  26. 'The teacher reminds you, that in order to further improve your skills, you need to buy some fabric to work with.'
  27. if tkanfirst = 0:
  28. tkanfirst = 1
  29. tkan = 1
  30. 'She has some spare fabric and give it to you as it''s the first time you have forgotten, but she reminds you to bring some next time.'
  31. end
  32. end
  33. if tkan > 0 and pcs_sewng >= 50:
  34. minut += 60
  35. tkan -= 1
  36. sewng_exp += rand(pcs_intel/20, pcs_intel/10)
  37. 'For an hour you learn more advanced techniques and practice cutting and sewing the fabric you purchased.'
  38. end
  39. if pcs_sewng >= 100 and poTalk = 0:
  40. poTalk=1
  41. 'With a satisfied smile your teacher tells you, "Well done, now you can precisely alter clothes to fit your size. However, this does not mean that further studies are useless. With further lessons I feel that I can teach you how to embroider splendid tapestries, which would be highly desirable, although very laborious to make."'
  42. end
  43. if pcs_sewng >= 200 and poTalk = 1:
  44. 'The teacher quitely nods and tells you, "You have mastered simple tapestries, not without flaws, but good enough to be able to sell them and the quality will improve with your growing skills."'
  45. end
  46. *nl
  47. 'Your sewing skill is now <<pcs_sewng>>.'
  48. gs'stat'
  49. act 'Logout':gt'gdkkru'
  50. --- krupo ---------------------------------