sewing.qsrc 4.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394
  1. # sewing
  2. if $ARGS[0] = 'start':
  3. cla & *clr
  4. '<center><img <<$set_imgh>> src="images/shared/accessories/sewing/kit.jpg"></center>'
  5. ' You pull your sewing kit out from under your bed.'
  6. *nl
  7. if tkan >= 1:
  8. 'You have <<tkan>> pieces of sewing fabric left.'
  9. else
  10. 'You have no fabric left to use as material.'
  11. end
  12. act'Leave':gt $loc, $loc_arg
  13. act'Practice sewing (0:30)':
  14. minut += 30
  15. gs 'stat'
  16. cla & *clr
  17. '<center><img <<$set_imgh>> src="images/shared/accessories/sewing/practice.jpg"></center>'
  18. if pcs_sewng < 40:
  19. sewng_exp += 2
  20. 'You practice your sewing skills.'
  21. act'Finish':gt 'sewing','start'
  22. else
  23. ' You spend some time practicing stitches and other sewing techniques but you don''t feel like you''re getting any better.'
  24. *nl
  25. ' You think you need to real projects to work on to increase your skill, either in a class or on your own.'
  26. act'Finish':gt 'sewing','start'
  27. end
  28. end
  29. act'Sew trinkets (0:30)':
  30. minut += 30
  31. gs 'stat'
  32. cla & *clr
  33. if tkan < 1:
  34. ' You do not have any material to sew anything. You should buy some from the supermarket.'
  35. act'Continue':gt 'sewing','start'
  36. else
  37. sew_trinket_success = rand(1,240)
  38. tkan -= 1
  39. if pcs_sewng >= 40:sewng_exp += rand(pcs_intel/20, pcs_intel/10)
  40. if pcs_sewng < 40:sewng_exp += rand(pcs_intel/25, pcs_intel/15)
  41. if sew_trinket_success > pcs_sewng*4:
  42. '<center><img <<$set_imgh>> src="images/shared/accessories/sewing/practice.jpg"></center>'
  43. ' You do your best trying to sew together a trinket at a quality you can sell but somewhere along the way you mess it up. The material is ruined and you''re frustrated as hell, but at least you felt like you learned something.'
  44. act'Finish':gt 'sewing','start'
  45. elseif tovarL = 30 and YouCanGar = 0:
  46. '<center><img <<$set_imgh>> src="images/shared/accessories/sewing/kit.jpg"></center>'
  47. ' You put together another trinket but then realize you have too many trinkets already. With a deep sense of regret, you throw it away, having no place to store it. At least you learned more about sewing...'
  48. act'Finish':gt 'sewing','start'
  49. elseif tovarL = 30 and GarTorgItem = 100:
  50. '<center><img <<$set_imgh>> src="images/shared/accessories/sewing/kit.jpg"></center>'
  51. ' You put together another trinket but then realize you have too many trinkets already. Even the space in your father''s garage is full. With a deep sense of regret, you throw it away, having no place to store it. At least you learned more about sewing...'
  52. act'Finish':gt 'sewing','start'
  53. elseif tovarL < 30:
  54. tovarL += 1
  55. '<center><img <<$set_imgh>> src="images/shared/accessories/sewing/trinket.jpg"></center>'
  56. ' You spend some time trying to sew something together. After a half hour, you find yourself rewarded for your effort with a small trinket that''s actually of decently high quality.'
  57. *nl
  58. ' You wonder if you can sell it somewhere?'
  59. act'Finish':gt 'sewing','start'
  60. elseif tovarL = 30 and GarTorgItem < 100:
  61. GarTorgItem += 1
  62. '<center><img <<$set_imgh>> src="images/shared/accessories/sewing/trinket.jpg"></center>'
  63. ' You spend some time trying to sew something together. After a half hour, you find yourself rewarded for your effort with a small trinket that''s actually of decently high quality. The storage space in your room is full but you can still store at least <<100 - GarTorgItem>> in your father''s garage.'
  64. *nl
  65. ' You wonder how many you can sell at the train station?'
  66. act'Finish':gt 'sewing','start'
  67. end
  68. end
  69. end
  70. if pcs_sewng >= 50:
  71. act'Resize some of your clothes':gt 'clothing', 'view_clothing_list', 'resize'
  72. elseif pcs_sewng < 50:
  73. act'Resize some of your clothes':msg' You aren''t good enough at sewing to do this.'
  74. elseif tkan < 1:
  75. act'Resize some of your clothes':msg' You don''t have any sewing materials left to do this. Maybe you should buy some more.'
  76. end
  77. end
  78. !!gt $loc, $loc_arg
  79. !!tovarL
  80. !!sewng_exp += rand(pcs_intel/20, pcs_intel/10)
  81. --- sewing ---------------------------------