sewing.qsrc 3.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485
  1. # sewing
  2. if $ARGS[0] = 'start':
  3. cla & *clr
  4. '<center><img <<$set_imgh>> src="images/pc/activities/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. elseif tkan = 1:
  10. 'You have 1 piece of sewing fabric left.'
  11. else
  12. 'You have no fabric left to use as material.'
  13. end
  14. act 'Leave':gt $loc, $loc_arg
  15. act 'Practice sewing (0:30)':
  16. minut += 30
  17. gs 'stat'
  18. cla & *clr
  19. '<center><img <<$set_imgh>> src="images/pc/activities/sewing/practice.jpg"></center>'
  20. if pcs_sewng < 40:
  21. sewng_exp += 2
  22. 'You practice your sewing skills.'
  23. else
  24. 'You spend some time practicing stitches and other sewing techniques, but you don''t feel like you''re getting any better.'
  25. *nl
  26. 'You think you need real projects to work on to increase your skill, either in a class or on your own.'
  27. end
  28. act'Finish':gt 'sewing', 'start'
  29. end
  30. act 'Sew trinkets (0:30)':
  31. minut += 30
  32. gs 'stat'
  33. cla & *clr
  34. act 'Finish':gt 'sewing', 'start'
  35. if tkan < 1:
  36. 'You do not have any material to sew anything. You should buy some from the supermarket.'
  37. else
  38. sew_trinket_success = rand(1,240)
  39. tkan -= 1
  40. if pcs_sewng >= 40:sewng_exp += rand(pcs_intel/20, pcs_intel/10)
  41. if pcs_sewng < 40:sewng_exp += rand(pcs_intel/25, pcs_intel/15)
  42. if sew_trinket_success > pcs_sewng*4:
  43. '<center><img <<$set_imgh>> src="images/pc/activities/sewing/practice.jpg"></center>'
  44. '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 feel like you learned something.'
  45. else
  46. if tovarL >= 30 and (YouCanGar = 0 or GarTorgItem >= 100):
  47. '<center><img <<$set_imgh>> src="images/pc/activities/sewing/kit.jpg"></center>'
  48. 'You put together another trinket but then realize you have too many trinkets already. ' + iif(YouCanGar > 0, 'Even the space in your stepfather''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...'
  49. else
  50. '<center><img <<$set_imgh>> src="images/pc/activities/sewing/trinket.jpg"></center>'
  51. *p '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. '
  52. if tovarL < 30:
  53. tovarL += 1
  54. 'Storing it away, you figure you ' + iif(tovarL < 30, 'still have space for about <<30 - tovarL>>', 'probably don''t have room for any') + ' more of these in your room.' + iif(tovarL >= 30 and YouCanGar > 0, ' If you make any more of these, you''ll need to start storing them in your stepfather''s garage.', '')
  55. *nl
  56. 'You wonder if you can sell them somewhere.'
  57. else
  58. GarTorgItem += 1
  59. 'The storage space in your room is full, but you can still store it in your stepfather''s garage, ' + iif(GarTorgItem < 100, 'along with probably another <<100 - GarTorgItem>>.', 'though it doesn''t look like there''s space for any more beyond that there either.')
  60. *nl
  61. 'You wonder how many you can sell at the train station.'
  62. end
  63. end
  64. end
  65. end
  66. end
  67. act 'Resize some of your clothes':
  68. if tkan < 1:
  69. msg'You don''t have any sewing materials left to do this. Maybe you should buy some more.'
  70. else
  71. if pcs_sewng < 50:
  72. msg 'You aren''t good enough at sewing to do this.'
  73. else
  74. gt 'clothing', 'view_clothing_list', 'resize'
  75. end
  76. end
  77. end
  78. end
  79. --- sewing ---------------------------------