Gadgarden 6.7 KB

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