1
0

Gadgarden 5.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217
  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 src="images/qwest/gadukino/new/garden.jpg"></center>'
  13. else
  14. '<center><img src="images/qwest/gadukino/new/garden_night.jpg"></center>'
  15. end
  16. else
  17. if hour >= 8 and hour < 18:
  18. '<center><img src="images/qwest/gadukino/new/garden_winter.jpg"></center>'
  19. else
  20. '<center><img src="images/qwest/gadukino/new/garden_winter_night.jpg"></center>'
  21. end
  22. end
  23. 'A large garden which is growing almost everything.'
  24. if month >= 4 and month <= 10:'A little way there <a href="exec: gt ''Gadgarden'',''strawberry'' ">strawberry plot</a> and <a href="exec: gt ''Gadgarden'',''fruit_garden'' ">orchard</a>.'
  25. !job Granny
  26. if work_garden = 1:
  27. act 'Working in the garden':
  28. cla
  29. *clr
  30. minut += 180
  31. sweat += 10
  32. work_garden = 0
  33. grandmahelp += 3
  34. pcs_stren += 1
  35. fat -= RAND(1,5)
  36. gs 'stat'
  37. '<center><img src="images/qwest/gadukino/new/work_garden'+rand(1,5)+'.jpg"></center>'
  38. 'You some time working in the garden.'
  39. act 'Finish':gt'Gadgarden','garden'
  40. end
  41. end
  42. !job Granny
  43. if water_garden = 1:
  44. act 'Watering the garden':
  45. cla
  46. *clr
  47. sweat += 10
  48. minut += 60
  49. water_garden = 0
  50. grandmahelp += 1
  51. pcs_vital += 1
  52. fat -= RAND(1,2)
  53. gs 'stat'
  54. '<center><img src="images/qwest/gadukino/new/water_garden.jpg"></center>'
  55. 'You techenie hours watering the beds in the garden.'
  56. act 'Finish':gt'Gadgarden','garden'
  57. end
  58. end
  59. !job Granny
  60. if harvest_garden = 1:
  61. act 'Harvest':
  62. cla
  63. *clr
  64. minut += 180
  65. sweat += 10
  66. harvest_garden = 0
  67. grandmahelp += 3
  68. pcs_stren += 1
  69. fat -= RAND(1,3)
  70. gs 'stat'
  71. '<center><img src="images/qwest/gadukino/new/harvest_garden'+rand(1,5)+'.jpg"></center>'
  72. 'You techenii a few hours, pick 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 src="images/qwest/gadukino/new/strawberry1.jpg"></center>'
  88. else
  89. '<center><img src="images/qwest/gadukino/new/strawberry_night.jpg"></center>'
  90. end
  91. else
  92. if hour >= 6 and hour < 21:
  93. '<center><img src="images/qwest/gadukino/new/strawberry2.jpg"></center>'
  94. else
  95. '<center><img src="images/qwest/gadukino/new/strawberry_night.jpg"></center>'
  96. end
  97. end
  98. 'Strawberry field where, in season, you can grow some strawberries.'
  99. if month >= 6 and month <= 7 and strawberriesday ! daystart:
  100. act 'To eat strawberries':
  101. cla
  102. *clr
  103. strawberriesday = daystart
  104. minut += 60
  105. manna += mannamax/10
  106. water += 40
  107. energy += 15
  108. willpower += willpowermax/10
  109. cumspclnt = 2 & gs 'cum_cleanup' & fbreath = 0
  110. gs 'stat'
  111. '<center><img src="images/qwest/gadukino/new/eat_strawberries.jpg"></center>'
  112. 'You some time wandering through the plot collecting ripe berries immediately throwing them in my mouth.'
  113. act 'Finish':gt'Gadgarden','strawberry'
  114. end
  115. end
  116. !job Granny
  117. if collect_strawberries = 1:
  118. act 'To collect the strawberries':
  119. cla
  120. *clr
  121. minut += 180
  122. sweat += 10
  123. collect_strawberries = 0
  124. grandmahelp += 5
  125. pcs_agil += 1
  126. fat -= 1
  127. gs 'stat'
  128. if CloSkirtShortness = 0:'<center><img src="images/qwest/gadukino/new/collect_strawberries.jpg"></center>'
  129. if CloSkirtShortness > 0 and tanga = 1:'<center><img src="images/qwest/gadukino/new/collect_strawberries_ski.jpg"></center>'
  130. if CloSkirtShortness > 0 and tanga = 0:'<center><img src="images/qwest/gadukino/new/collect_strawberries_tanga.jpg"></center>'
  131. 'You wander through the plot collecting ripe berries 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 src="images/qwest/gadukino/new/fruit_garden.jpg"></center>'
  146. else
  147. '<center><img src="images/qwest/gadukino/new/fruit_garden_night.jpg"></center>'
  148. end
  149. 'The orchard in which grow Apple and pear.'
  150. if month >= 7 and month <= 9 and fruitday ! daystart:
  151. act 'To eat fruit':
  152. cla
  153. *clr
  154. fruitday = daystart
  155. minut += 60
  156. manna += mannamax/10
  157. water += 20
  158. energy += 30
  159. willpower += willpowermax/10
  160. cumspclnt = 2 & gs 'cum_cleanup' & fbreath = 0
  161. gs 'stat'
  162. '<center><img src="images/qwest/gadukino/new/eat_fruit.jpg"></center>'
  163. 'You have some time wander around the garden munching on 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':
  170. cla
  171. *clr
  172. minut += 180
  173. sweat += 10
  174. fruit_collect = 0
  175. grandmahelp += 5
  176. pcs_agil += 1
  177. fat -= RAND(1,3)
  178. gs 'stat'
  179. if CloSkirtShortness = 0:'<center><img src="images/qwest/gadukino/new/fruit_collect.jpg"></center>'
  180. if CloSkirtShortness > 0 and tanga = 1:'<center><img src="images/qwest/gadukino/new/fruit_collect_ski.jpg"></center>'
  181. if CloSkirtShortness > 0 and tanga = 0:'<center><img src="images/qwest/gadukino/new/fruit_collect_tanga.jpg"></center>'
  182. 'You gather in the garden of ripe fruit.'
  183. act 'Finish':gt 'Gadgarden','fruit_garden'
  184. end
  185. end
  186. act 'Go':minut += 5 & gt'Gadgarden','garden'
  187. end
  188. --- Gadgarden ---------------------------------