1
0

gaddvor.qsrc 8.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236
  1. # gaddvor
  2. if $ARGS[0]='':
  3. music_loop = 0
  4. $loc_arg = ''
  5. $loc = 'gaddvor'
  6. $location_type = 'public_outdoors'
  7. $menu_loc = 'gaddvor'
  8. $menu_arg = ''
  9. menu_off = 0
  10. killvar '$locclass'
  11. gs 'stat'
  12. CLOSE ALL
  13. gs 'gadukino_event', 'sound'
  14. if StoryLine = 1:
  15. '<center><h4>Your grandparents'' yard</h4></center>'
  16. else
  17. '<center><h4>Old couple''s yard</h4></center>'
  18. end
  19. if month >= 4 and month <= 10:
  20. if hour >= 6 and hour < 22:
  21. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor.jpg"></center>'
  22. else
  23. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor_night.jpg"></center>'
  24. end
  25. else
  26. if hour >= 8 and hour < 18:
  27. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor_winter.jpg"></center>'
  28. else
  29. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor_winter_night.jpg"></center>'
  30. end
  31. end
  32. *nl
  33. 'A fenced yard behind your grandparents'' house. The yard contains a small barn, garden, root cellar, and banya where you can bathe.'
  34. if $clothingworntype = 'nude':
  35. *nl
  36. 'You are naked and can only go into your grandparent''s house to get dressed or go to the banya.'
  37. act 'Enter your grandparents'' house':minut += 1 & gt 'gadhouse', 'start'
  38. act 'Enter the banya':minut += 1 & gt 'gadbana'
  39. else
  40. if grandmaQW['chore_feed_chickens'] = 1 or (hour >= 6 and hour < 20 and month >= 4 and month <= 10):'In the yard there are several <a href="exec:gt ''gaddvor'',''chickens''">chickens</a> running around.'
  41. if mira_guest = 1: Miraloc = 7 & 'Your friend <a href="exec: gt ''miroslava'', ''Start''">Mira</a> stands next to you.'
  42. if MiraLoc ! 7: mira_guest = 0
  43. act '<b>Leave and go into the village</b>':minut += 5 & gt 'gadukino'
  44. if grandpaQW['chore_clean_yard'] = 1:
  45. act 'Clean up the yard for Grandpa (1:00)':
  46. *clr & cla
  47. if month >= 4 and month <= 10:
  48. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
  49. 'Armed with a rake, you begin cleaning the yard. You''re pleased seeing the yard clean. You return the rake to the shed and continue on with your business.'
  50. else
  51. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
  52. 'Armed with a shovel, you begin clearing the yard of snow. You''re pleased with yourself seeing the courtyard is free of snow. You return the shovel to the shed and continue on with your business.'
  53. end
  54. minut += 60
  55. grandpaQW['chore_clean_yard'] = 2
  56. if month >= 4 and month <= 10:
  57. fat -= rand(1,3)
  58. pcs_stam -= 5
  59. gs 'sweat', 'add', 10
  60. else
  61. stren_exp += 1
  62. fat -= rand(1,5)
  63. pcs_stam -= 10
  64. gs 'sweat', 'add', 5
  65. end
  66. gs'stat'
  67. act 'Finish':gt'gaddvor'
  68. act 'Return back to your grandfather': minut += 1 & gt 'gadhouse', 'grandpa'
  69. end
  70. end
  71. act 'Enter your grandparents'' house':minut += 1 & gt 'gadhouse', 'start'
  72. act 'Enter the banya':minut += 1 & gt 'gadbana'
  73. act 'Go to the barn':minut += 1 & gt 'gadsarai'
  74. act 'Go to the root cellar': minut += 1 & gt 'gaddvor', 'root_cellar'
  75. act 'Go to the garden':minut += 1 & gt'gadgarden','garden'
  76. if grandmaQW['chore_feed_chickens'] = 1 or (hour >= 6 and hour < 20 and month >= 4 and month <= 10):act 'Look at your grandparents'' chickens':gt 'gaddvor','chickens'
  77. mira_temp = rand(1,5)
  78. if mira_temp = 3 and hour >= 9 and hour <= 19 and npc_rel['A60'] >= 15 and Mira_no = 0 and sunWeather = 1 and mira_guestday ! daystart and (npc_QW['A63'] < 13 or npc_QW['A60'] >= 10 or mirasex > 1):
  79. *clr & cla
  80. menu_off = 1
  81. gs 'miroslava', 'miraclothes'
  82. 'You went out into the yard and noticed Mira standing there.'
  83. '"Oh, <<$pcs_nickname>> hi, hope you don’’t mind me visiting. I was bored being home alone." she said smiling.'
  84. mira_guestday = daystart
  85. minut += 5
  86. mira_guest = 1
  87. gs 'stat'
  88. act 'Continue':gt'gaddvor'
  89. end
  90. end
  91. clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
  92. if clothesAtLocation = 1:
  93. if $clothingworntype = 'nude':
  94. act 'Get dressed':
  95. gs 'clothing', 'recover_lost_clothes', 'gaddvor', 1
  96. gs 'underwear', 'wear'
  97. gt 'gaddvor'
  98. end
  99. else
  100. act 'Pick up your clothes':
  101. gs 'clothing', 'recover_lost_clothes', 'gaddvor'
  102. 'You picked up your clothes.'
  103. gt 'gaddvor'
  104. end
  105. end
  106. end
  107. end
  108. if $ARGS[0] = 'root_cellar':
  109. *clr & cla
  110. $loc_arg = 'root_cellar'
  111. '<center><h4>Root Cellar</h4></center>'
  112. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/root_cellar.jpg"></center>'
  113. *nl
  114. if boletus_stored + bilberry_stored >= 20:
  115. 'Your grandparents'' root cellar is full.'
  116. elseif boletus_stored + bilberry_stored > 0:
  117. 'Your grandparents'' root cellar is partially full.'
  118. else
  119. 'Your grandparents'' root cellar is empty.'
  120. end
  121. 'Even though your grandparents allow you to store extra mushrooms and berries you pick in here, they reserve the right to use them too, so you aren''t surprised if any go missing day to day.'
  122. if boletus_stored > 0: 'You currently are storing <b><<boletus_stored>></b> kg of raw mushrooms.'
  123. if bilberry_stored > 0: 'You currently are storing <b><<bilberry_stored>></b> kg of raw berries.'
  124. *nl
  125. if boletus + boletus_cooked + bilberry >= 5:
  126. 'Your basket is full and you cannot carry more.'
  127. elseif boletus + boletus_cooked + bilberry > 0:
  128. 'Your basket is partially full.'
  129. else
  130. 'Your basket is empty.'
  131. end
  132. if boletus > 0: 'You currently are carrying <b><<boletus>></b> kg of raw mushrooms.'
  133. if boletus_cooked > 0: 'You currently are carrying <b><<boletus_cooked>></b> kg of cooked mushrooms.'
  134. if bilberry > 0: 'You currently are carrying <b><<bilberry>></b> kg of raw berries.'
  135. act 'Go back to the yard': minut += 1 & gt 'gaddvor'
  136. if (boletus_stored + bilberry_stored < 20) and (boletus > 0 or bilberry > 0):
  137. act 'Store as many raw mushrooms and berries that will fit (Max 20 kgs):':
  138. :store_bb_loop
  139. if boletus > 0:
  140. boletus_stored += 1
  141. boletus -= 1
  142. if boletus_stored + bilberry_stored < 20: jump 'store_bb_loop'
  143. end
  144. if bilberry > 0:
  145. bilberry_stored += 1
  146. bilberry -= 1
  147. if boletus_stored + bilberry_stored < 20: jump 'store_bb_loop'
  148. end
  149. gt 'gaddvor', 'root_cellar'
  150. end
  151. if boletus > 0:
  152. act 'Store 1 kg of raw mushrooms':
  153. boletus_stored += 1
  154. boletus -= 1
  155. gt 'gaddvor', 'root_cellar'
  156. end
  157. end
  158. if bilberry > 0:
  159. act 'Store 1 kg of raw berries':
  160. bilberry_stored += 1
  161. bilberry -= 1
  162. gt 'gaddvor', 'root_cellar'
  163. end
  164. end
  165. end
  166. if (boletus_stored > 0 or bilberry_stored > 0) and (boletus + boletus_cooked + bilberry < 5):
  167. act 'Retrieve as many raw mushrooms and berries as you can carry (Max 5 kgs)':
  168. :retrieve_bb_loop
  169. if boletus_stored > 0:
  170. boletus += 1
  171. boletus_stored -= 1
  172. if boletus + boletus_cooked + bilberry < 5: jump 'retrieve_bb_loop'
  173. end
  174. if bilberry_stored > 0:
  175. bilberry += 1
  176. bilberry_stored -= 1
  177. if boletus + boletus_cooked + bilberry < 5: jump 'retrieve_bb_loop'
  178. end
  179. gt 'gaddvor', 'root_cellar'
  180. end
  181. if (boletus_stored > 0 and grandmaQW['chore_can_mushrooms'] ! 1) or (boletus_stored > 5 and grandmaQW['chore_can_mushrooms'] = 1):
  182. act 'Retrieve 1 kg of raw mushrooms':
  183. boletus += 1
  184. boletus_stored -= 1
  185. gt 'gaddvor', 'root_cellar'
  186. end
  187. end
  188. if (bilberry_stored > 0 and grandmaQW['chore_can_berries'] ! 1) or (bilberry_stored > 5 and grandmaQW['chore_can_berries'] = 1):
  189. act 'Retrieve 1 kg of raw berries':
  190. bilberry += 1
  191. bilberry_stored -= 1
  192. gt 'gaddvor', 'root_cellar'
  193. end
  194. end
  195. end
  196. end
  197. if $ARGS[0] = 'chickens':
  198. *clr & cla
  199. $loc_arg = 'chickens'
  200. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/chickens1.jpg"></center>'
  201. 'Ordinary chickens clucking about their pen.'
  202. minut += 1
  203. gs 'stat'
  204. act 'Leave': gt'gaddvor'
  205. !job Granny
  206. if grandmaQW['chore_feed_chickens'] = 1:
  207. act 'Feed the chickens':
  208. *clr & cla
  209. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/chickens2.jpg"></center>'
  210. 'You decide to feed the chickens. You pick up a bucket full of bird''s seed and grain mix and toss it on the ground. They immediately rush over and start to greedily eat. You watch them for a bit before you go about your business.'
  211. minut += 30
  212. grandmaQW['chore_feed_chickens'] = 2
  213. hndiwrk_exp += rand(0,3)
  214. gs 'stat'
  215. act 'Finish':gt'gaddvor'
  216. act 'Return back to your grandmother': minut += 1 & gt 'gadhouse', 'grandma'
  217. end
  218. end
  219. end
  220. --- gaddvor ---------------------------------