1
0

Gadgarden 6.8 KB

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