Gadgarden.qsrc 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234
  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. gs 'sweat', 'add', 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. gs 'sweat', 'add', 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. gs 'sweat', 'add', 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. cumspclnt = 2 & gs 'cum_cleanup' & pcs_breath = 0
  122. gs 'stat'
  123. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/eat_strawberries.jpg"></center>'
  124. '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.'
  125. act 'Finish':gt'Gadgarden','strawberry'
  126. end
  127. end
  128. !job Granny
  129. if collect_strawberries = 1:
  130. act 'Collect strawberries (3:00)':
  131. cla
  132. *clr
  133. menu_off = 1
  134. minut += 180
  135. gs 'sweat', 'add', 10
  136. collect_strawberries = 0
  137. grandmahelp += 5
  138. agil_exp += 1
  139. fat -= 1
  140. hndiwrk_exp += rand(3,9)
  141. gs 'stat'
  142. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/village/collect_strawberries.jpg"></center>'
  143. if CloSkirtShortness > 0 and $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/collect_strawberries_ski.jpg"></center>'
  144. if CloSkirtShortness > 0 and $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/collect_strawberries_tanga.jpg"></center>'
  145. 'You wander through the plot collecting ripe strawberries in the basket.'
  146. act 'Finish':gt'Gadgarden','strawberry'
  147. end
  148. end
  149. act 'Leave':minut += 1 & gt'Gadgarden','garden'
  150. end
  151. if $ARGS[0] = 'fruit_garden':
  152. $metka = 'fruit_garden'
  153. $loc = 'Gadgarden'
  154. $menu_loc = 'Gadgarden'
  155. $menu_arg = 'fruit_garden'
  156. menu_off = 0
  157. gs 'gadukino_event', 'sound'
  158. cls
  159. gs'stat'
  160. !gs'time'
  161. if hour >= 6 and hour < 21:
  162. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_garden.jpg"></center>'
  163. else
  164. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_garden_night.jpg"></center>'
  165. end
  166. 'There are apples and pears growing in the fruit orchard.'
  167. if month >= 7 and month <= 9 and fruitday ! daystart:
  168. act 'Eat the fruit (1:00)':
  169. cla
  170. *clr
  171. menu_off = 1
  172. fruitday = daystart
  173. minut += 60
  174. pcs_mood += 10
  175. pcs_hydra += 20
  176. pcs_energy += 30
  177. cumspclnt = 2 & gs 'cum_cleanup' & pcs_breath = 0
  178. gs 'stat'
  179. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/eat_fruit.jpg"></center>'
  180. 'You spend some time wandering around the orchard munching on the ripe fruit.'
  181. act 'Finish':gt 'Gadgarden','fruit_garden'
  182. end
  183. end
  184. !job Granny
  185. if fruit_collect = 1:
  186. act 'Collect fruit (3:00)':
  187. cla
  188. *clr
  189. menu_off = 1
  190. minut += 180
  191. gs 'sweat', 'add', 10
  192. fruit_collect = 0
  193. grandmahelp += 5
  194. agil_exp += 1
  195. fat -= rand(1,3)
  196. hndiwrk_exp += rand(3,9)
  197. gs 'stat'
  198. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_collect.jpg"></center>'
  199. if CloSkirtShortness > 0 and $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_collect_ski.jpg"></center>'
  200. if CloSkirtShortness > 0 and $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_collect_tanga.jpg"></center>'
  201. 'You walk around the orchard and pick the ripe fruit hanging from the trees.'
  202. act 'Finish':gt 'Gadgarden','fruit_garden'
  203. end
  204. end
  205. act 'Leave':minut += 1 & gt'Gadgarden','garden'
  206. end
  207. --- Gadgarden ---------------------------------