Gadgarden.qsrc 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236
  1. # Gadgarden
  2. if $ARGS[0] = 'garden':
  3. $location_type = 'secluded'
  4. $metka = 'garden'
  5. $loc = 'Gadgarden'
  6. $menu_loc = 'Gadgarden'
  7. $menu_arg = 'garden'
  8. menu_off = 0
  9. gs 'gadukino_event', 'sound'
  10. cls
  11. gs'stat'
  12. !gs'time'
  13. if month >= 4 and month <= 10:
  14. if hour >= 6 and hour < 21:
  15. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/garden.jpg"></center>'
  16. else
  17. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/garden_night.jpg"></center>'
  18. end
  19. else
  20. if hour >= 8 and hour < 18:
  21. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/garden_winter.jpg"></center>'
  22. else
  23. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/garden_winter_night.jpg"></center>'
  24. end
  25. end
  26. 'A large vegetable garden that your grandparents are very proud of.'
  27. if month >= 4 and month <= 10:'A small land plot is dedicated to a <a href="exec: gt ''Gadgarden'',''strawberry'' ">strawberry plot</a> and a <a href="exec: gt ''Gadgarden'',''fruit_garden'' ">fruit orchard</a>.'
  28. !job Granny
  29. if work_garden = 1:
  30. act 'Work in the garden (3:00)':
  31. cla
  32. *clr
  33. menu_off = 1
  34. minut += 180
  35. pcs_sweat += 10
  36. work_garden = 0
  37. grandmahelp += 3
  38. stren_exp += 1
  39. fat -= RAND(1,5)
  40. hndiwrk_exp += rand(3,9)
  41. gs 'stat'
  42. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/work_garden'+rand(1,5)+'.jpg"></center>'
  43. 'You spend some time doing some gardening.'
  44. act 'Finish':gt'Gadgarden','garden'
  45. end
  46. end
  47. !job Granny
  48. if water_garden = 1:
  49. act 'Water the garden (1:00)':
  50. cla
  51. *clr
  52. menu_off = 1
  53. pcs_sweat += 10
  54. minut += 60
  55. water_garden = 0
  56. grandmahelp += 1
  57. vital_exp += 1
  58. fat -= RAND(1,2)
  59. hndiwrk_exp += rand(0,3)
  60. gs 'stat'
  61. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/water_garden.jpg"></center>'
  62. 'You spend an hour watering the garden.'
  63. act 'Finish':gt'Gadgarden','garden'
  64. end
  65. end
  66. !job Granny
  67. if harvest_garden = 1:
  68. act 'Harvest (3:00)':
  69. cla
  70. *clr
  71. menu_off = 1
  72. minut += 180
  73. pcs_sweat += 10
  74. harvest_garden = 0
  75. grandmahelp += 3
  76. stren_exp += 1
  77. fat -= RAND(1,3)
  78. hndiwrk_exp += rand(3,9)
  79. gs 'stat'
  80. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/harvest_garden'+rand(1,5)+'.jpg"></center>'
  81. 'You spend a few hours harvesting vegetables in the garden.'
  82. act 'Finish':gt'Gadgarden','garden'
  83. end
  84. end
  85. act 'Leave':minut += 1 & gt'Gaddvor'
  86. end
  87. if $ARGS[0] = 'strawberry':
  88. $metka = 'strawberry'
  89. $loc = 'Gadgarden'
  90. $menu_loc = 'Gadgarden'
  91. $menu_arg = 'strawberry'
  92. menu_off = 0
  93. gs 'gadukino_event', 'sound'
  94. cls
  95. gs'stat'
  96. !gs'time'
  97. if month = 6 or month = 7:
  98. if hour >= 6 and hour < 21:
  99. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/strawberry1.jpg"></center>'
  100. else
  101. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/strawberry_night.jpg"></center>'
  102. end
  103. else
  104. if hour >= 6 and hour < 21:
  105. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/strawberry2.jpg"></center>'
  106. else
  107. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/strawberry_night.jpg"></center>'
  108. end
  109. end
  110. 'It''s strawberry season, you approach the field where the strawberries grow, searching for some ripe strawberries.'
  111. if month >= 6 and month <= 7 and strawberriesday ! daystart:
  112. act 'Eat the strawberries (1:00)':
  113. cla
  114. *clr
  115. menu_off = 1
  116. strawberriesday = daystart
  117. minut += 60
  118. pcs_mood += 10
  119. pcs_hydra += 40
  120. pcs_energy += 15
  121. pcs_willpwr += willpowermax/10
  122. cumspclnt = 2 & gs 'cum_cleanup' & pcs_breath = 0
  123. gs 'stat'
  124. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/eat_strawberries.jpg"></center>'
  125. 'You spend some time wandering through the plot searching for ripe strawberries. As soon as you notice a strawberry, you immediately pick it up and eat as many as you can.'
  126. act 'Finish':gt'Gadgarden','strawberry'
  127. end
  128. end
  129. !job Granny
  130. if collect_strawberries = 1:
  131. act 'Collect strawberries (3:00)':
  132. cla
  133. *clr
  134. menu_off = 1
  135. minut += 180
  136. pcs_sweat += 10
  137. collect_strawberries = 0
  138. grandmahelp += 5
  139. agil_exp += 1
  140. fat -= 1
  141. hndiwrk_exp += rand(3,9)
  142. gs 'stat'
  143. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/village/collect_strawberries.jpg"></center>'
  144. if CloSkirtShortness > 0 and $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/collect_strawberries_ski.jpg"></center>'
  145. if CloSkirtShortness > 0 and $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/collect_strawberries_tanga.jpg"></center>'
  146. 'You wander through the plot collecting ripe strawberries in the basket.'
  147. act 'Finish':gt'Gadgarden','strawberry'
  148. end
  149. end
  150. act 'Leave':minut += 1 & gt'Gadgarden','garden'
  151. end
  152. if $ARGS[0] = 'fruit_garden':
  153. $metka = 'fruit_garden'
  154. $loc = 'Gadgarden'
  155. $menu_loc = 'Gadgarden'
  156. $menu_arg = 'fruit_garden'
  157. menu_off = 0
  158. gs 'gadukino_event', 'sound'
  159. cls
  160. gs'stat'
  161. !gs'time'
  162. if hour >= 6 and hour < 21:
  163. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_garden.jpg"></center>'
  164. else
  165. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_garden_night.jpg"></center>'
  166. end
  167. 'There are apples and pears growing in the fruit orchard.'
  168. if month >= 7 and month <= 9 and fruitday ! daystart:
  169. act 'Eat the fruit (1:00)':
  170. cla
  171. *clr
  172. menu_off = 1
  173. fruitday = daystart
  174. minut += 60
  175. pcs_mood += 10
  176. pcs_hydra += 20
  177. pcs_energy += 30
  178. pcs_willpwr += willpowermax/10
  179. cumspclnt = 2 & gs 'cum_cleanup' & pcs_breath = 0
  180. gs 'stat'
  181. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/eat_fruit.jpg"></center>'
  182. 'You spend some time wandering around the orchard munching on the ripe fruit.'
  183. act 'Finish':gt 'Gadgarden','fruit_garden'
  184. end
  185. end
  186. !job Granny
  187. if fruit_collect = 1:
  188. act 'Collect fruit (3:00)':
  189. cla
  190. *clr
  191. menu_off = 1
  192. minut += 180
  193. pcs_sweat += 10
  194. fruit_collect = 0
  195. grandmahelp += 5
  196. agil_exp += 1
  197. fat -= RAND(1,3)
  198. hndiwrk_exp += rand(3,9)
  199. gs 'stat'
  200. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_collect.jpg"></center>'
  201. if CloSkirtShortness > 0 and $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_collect_ski.jpg"></center>'
  202. if CloSkirtShortness > 0 and $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_collect_tanga.jpg"></center>'
  203. 'You walk around the orchard and pick the ripe fruit hanging from the trees.'
  204. act 'Finish':gt 'Gadgarden','fruit_garden'
  205. end
  206. end
  207. act 'Leave':minut += 1 & gt'Gadgarden','garden'
  208. end
  209. --- Gadgarden ---------------------------------