grandpahelp.qsrc 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351
  1. # grandpahelp
  2. *clr & cla
  3. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
  4. 'You walk up to your grandfather and ask if he needs any help. Grandpa thinks for a moment and says:'
  5. menu_off = 1
  6. gs'stat'
  7. if $ARGS[0] = 'start':
  8. if month <= 4 or month >= 10:
  9. grandpaQW['chore_type'] = rand(0,5)
  10. elseif month = 5:
  11. grandpaQW['chore_type'] = rand(3,8)
  12. elseif month >= 6 and month <= 9:
  13. grandpaQW['chore_type'] = rand(3,14)
  14. end
  15. if grandpaQW['chore_type'] = 0:
  16. '"<<$pcs_nickname>>, could you run out to the barn and bring some firewood for the stove?"'
  17. grandpaQW['chore_fetch_firewood'] = 1
  18. act 'Tell him you will go get some in just a bit':gt 'gadhouse', 'grandpa'
  19. act 'Agree and go to fetch firewood (0:20)':
  20. *clr & cla
  21. if month >= 4 and month <= 10:
  22. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood.jpg"></center>'
  23. else
  24. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood_winter.jpg"></center>'
  25. end
  26. 'You put on some warm clothes and run over to the barn to collect some firewood. '
  27. '"I''ve brought some firewood grandfather," you said to your grandfather.'
  28. '"You are very quick <<$pcs_nickname>>." he replies with a smile. "That''s today''s youth for ya. There is no more work today."'
  29. grandpaQW['chore_fetch_firewood'] = 0
  30. minut += 20
  31. grandmaQW['help_amount'] += 1
  32. gs'stat'
  33. act 'Continue':gt 'gadhouse', 'start'
  34. end
  35. elseif grandpaQW['chore_type'] = 1:
  36. '"<<$pcs_nickname>>, I need you to go to the barn and feed Desperado."'
  37. grandpaQW['chore_feed_horse'] = 1
  38. act 'Tell him that you will get to it in a little bit':gt 'gadhouse', 'grandpa'
  39. act 'Agree and go to the barn (0:10)':
  40. *clr & cla
  41. if month >= 4 and month <= 10:
  42. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  43. else
  44. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  45. end
  46. 'You walk over to the barn where Desperado is kept.'
  47. minut += 10
  48. gs'stat'
  49. act 'Continue':gt'gadsarai','horse'
  50. end
  51. elseif grandpaQW['chore_type'] = 2:
  52. '"<<$pcs_nickname>>, go to the barn and feed the cow."'
  53. grandpaQW['chore_feed_cow'] = 1
  54. act 'Tell him that you will do it in a little while':gt 'gadhouse', 'grandpa'
  55. act 'Agree and go to the barn (0:10)':
  56. *clr & cla
  57. if month >= 4 and month <= 10:
  58. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  59. else
  60. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  61. end
  62. 'You walk over to the barn where the cows are kept.'
  63. minut += 10
  64. gs'stat'
  65. act 'Continue':gt'gadsarai','cow'
  66. end
  67. elseif grandpaQW['chore_type'] = 3:
  68. gt 'grandpahelp', 'cleanyard'
  69. elseif grandpaQW['chore_type'] = 4:
  70. gt 'grandpahelp', 'groomhorse'
  71. elseif grandpaQW['chore_type'] = 5:
  72. gt 'grandpahelp', 'feedhogs'
  73. elseif grandpaQW['chore_type'] = 6 and hour >= 6 and hour < 9:
  74. gt 'grandpahelp', 'grazehorse'
  75. elseif grandpaQW['chore_type'] = 7 and hour >= 6 and hour < 9:
  76. gt 'grandpahelp', 'leadcows'
  77. elseif grandpaQW['chore_type'] = 8 and hour >= 6 and hour < 9:
  78. gt 'grandpahelp', 'grazecows'
  79. elseif grandpaQW['chore_type'] = 9 and temper >= 15 and sunWeather = 1 and week > 5 and ARRSIZE('swimwear') > 0:
  80. gt 'grandpahelp', 'washhorse'
  81. elseif grandpaQW['chore_type'] = 10 and boletus_stored <= 18:
  82. gt 'grandpahelp', 'pickforest_mushrooms'
  83. elseif grandpaQW['chore_type'] = 11 and bilberry_stored <= 18:
  84. gt 'grandpahelp', 'pickforest_berries'
  85. elseif grandpaQW['chore_type'] = 12 and ((boletus_stored + bilberry_stored) <= 16):
  86. gt 'grandpahelp', 'pickforest_both'
  87. elseif grandpaQW['chore_type'] = 13 and temper >= 15 and sunWeather = 1 and hour >= 6 and hour < 9:
  88. '"<<$pcs_nickname>>, we need to help out with baling hay today. We have to go to the field to meet the others."'
  89. '"Okay, grandfather," you replied.'
  90. grandpaQW['chore_bale_hay'] = 1
  91. act 'Tell him you will head over there soon':gt 'gadhouse', 'grandpa'
  92. act 'Grab a rake and head to the field (0:40)':
  93. *clr & cla
  94. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_gadfield.jpg"></center>'
  95. 'With the rake in your hand, you go to meet up with the other local residents at the field.'
  96. minut += 40
  97. gs'stat'
  98. act 'Continue':gt'gadfield','field'
  99. end
  100. else
  101. if hour >= 9:
  102. randmsg = rand(0,5)
  103. if randmsg = 0:
  104. '"You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
  105. elseif randmsg = 1:
  106. '"You can rest today child, there is nothing to do."'
  107. elseif randmsg = 2:
  108. '"You can rest today <<$pcs_nickname>>, there is nothing to do."'
  109. elseif randmsg = 3:
  110. '"There''s no work today <<$pcs_nickname>>, go and rest up."'
  111. elseif randmsg = 4:
  112. '"You can rest today my dear granddaughter."'
  113. else
  114. '"You can take the day off to rest up."'
  115. end
  116. else
  117. randmsg = rand(0,1)
  118. if randmsg = 0:
  119. '"You don''t need to help out today <<$pcs_nickname>>."'
  120. else
  121. '"You can take the day off."'
  122. end
  123. end
  124. act 'Continue':gt 'gadhouse', 'grandpa'
  125. end
  126. end
  127. if $ARGS[0] = 'cleanyard':
  128. '"Of course <<$pcs_nickname>>, I need your help in the yard. Bring a garden tool with you."'
  129. grandpaQW['chore_clean_yard'] = 1
  130. act 'Tell him that you''ll do it in a minute':gt 'gadhouse', 'grandpa'
  131. act 'Agree and go clean up the yard (1:00)':
  132. *clr & cla
  133. if month >= 4 and month <= 10:
  134. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
  135. '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.'
  136. else
  137. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
  138. '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.'
  139. end
  140. minut += 60
  141. grandpaQW['chore_clean_yard'] = 2
  142. if month >= 4 and month <= 10:
  143. fat -= rand(1,3)
  144. else
  145. stren_exp += 1
  146. fat -= rand(1,5)
  147. end
  148. gs'stat'
  149. act 'Continue':gt'gaddvor'
  150. act 'Return back to your grandfather': minut += 1 & gt 'gadhouse', 'grandpa'
  151. end
  152. end
  153. if $ARGS[0] = 'feedhogs':
  154. '"<<$pcs_nickname>>, could you go to the barn and feed the hog?"'
  155. grandpaQW['chore_feed_boar'] = 1
  156. act 'Tell him you will get to it soon':gt 'gadhouse', 'grandpa'
  157. act 'Agree and go to the barn (0:10)':
  158. *clr & cla
  159. if month >= 4 and month <= 10:
  160. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  161. else
  162. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  163. end
  164. 'You walk over to the barn where the hogs are kept.'
  165. minut += 10
  166. gs'stat'
  167. act 'Continue':gt'gadsarai','boar'
  168. end
  169. end
  170. if $ARGS[0] = 'washhorse':
  171. '"It''s good weather today. Take Desperado to the river and give him a bath."'
  172. grandpaQW['chore_bathe_horse'] = 1
  173. act 'Tell him you will do it in a little while':gt 'gadhouse', 'grandpa'
  174. act 'Agree and go to the barn (0:10)':
  175. *clr & cla
  176. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  177. 'You walk over to the barn where Desperado is kept.'
  178. minut += 10
  179. gs'stat'
  180. act 'Continue':gt'gadsarai','horse'
  181. end
  182. end
  183. if $ARGS[0] = 'groomhorse':
  184. '"Of course <<$pcs_nickname>>, I need your help to groom Desperado."'
  185. grandpaQW['chore_brush_horse'] = 1
  186. act 'Tell him you will do it in a bit':gt 'gadhouse', 'grandpa'
  187. act 'Agree and go to the barn (0:10)':
  188. *clr & cla
  189. if month >= 4 and month <= 10:
  190. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  191. else
  192. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  193. end
  194. 'You walk over to the barn where Desperado is kept.'
  195. minut += 10
  196. gs'stat'
  197. act 'Continue':gt'gadsarai','horse'
  198. end
  199. end
  200. if $ARGS[0] = 'grazehorse':
  201. '"<<$pcs_nickname>>, take Desperado to the field, my legs hurt so I need to rest for a bit. I''ll retrieve the horse up in the evening."'
  202. grandpaQW['chore_lead_horse_to_field'] = 1
  203. act 'Tell him you will do it soon':gt 'gadhouse', 'grandpa'
  204. act 'Agree and go to the barn (0:10)':
  205. *clr & cla
  206. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  207. 'You walk over to the barn where Desperado is kept.'
  208. minut += 10
  209. gs'stat'
  210. act 'Continue':& gt'gadsarai','horse'
  211. end
  212. end
  213. if $ARGS[0] = 'grazecows':
  214. if grandpaQW['chore_herd_cattle_experience'] = 0:
  215. '"<<$pcs_nickname>>, we need to let the cows graze on the field today. Grab something to eat and lead the herd to the field. I''ll meet you there."'
  216. else
  217. '"<<$pcs_nickname>>, it''s our turn to look out for the cows grazing on the field today. So grab something to eat quickly, and stop by the field where the herd is. I''ll bring them back home."'
  218. end
  219. grandpaQW['chore_herd_cattle'] = 1
  220. act 'Tell him you will meet him there':gt 'gadhouse', 'grandpa'
  221. act 'Agree and go to the field (0:40)':
  222. *clr & cla
  223. if grandpaQW['chore_herd_cattle_experience'] = 0:
  224. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  225. 'You take a little nibble of a sandwich and go to the shed where the herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
  226. else
  227. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_field.jpg"></center>'
  228. 'You have a quick bite and go to the field where the village herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
  229. end
  230. pcs_mood += 20
  231. pcs_health += 10
  232. minut += 40
  233. if bottle = 0: bottle = 1
  234. if buterbrod = 0: buterbrod = 1
  235. gs'stat'
  236. act 'Continue':gt'gadfield','cow'
  237. end
  238. end
  239. if $ARGS[0] = 'leadcows':
  240. '"I have sore feet today, <<$pcs_nickname>>. My dear granddaughter, could you lead the cow to the field and tell the herders to drive her home at the end of the day?"'
  241. grandpaQW['chore_lead_cow_to_field'] = 1
  242. act 'Tell him you will soon':gt 'gadhouse', 'grandpa'
  243. act 'Agree and go to the barn (0:10)':
  244. *clr & cla
  245. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  246. 'You walk over to the barn where the cows are kept.'
  247. minut += 10
  248. gs'stat'
  249. act 'Continue':gt'gadsarai','cow'
  250. end
  251. end
  252. if $ARGS[0] = 'pickforest_mushrooms':
  253. grandpaQW['chore_gather_mushrooms'] = 1
  254. grandpaQW['chore_mushroom_quantity'] = rand(1,2)
  255. '"<<$pcs_nickname>>, could you go to the forest and pick mushrooms? I''m craving fried mushrooms."'
  256. '"How much should I pick, grandpa?", you ask.'
  257. '"<<grandpaQW[''chore_mushroom_quantity'']>> kilos will be enough," grandfather replies. "Be careful so you don''t get lost."'
  258. act 'Tell him you will go get some soon':gt 'gadhouse', 'grandpa'
  259. act 'Agree and go to the forest (1:00)':
  260. *clr & cla
  261. if hour >= 6 and hour < 22:
  262. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
  263. else
  264. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
  265. end
  266. 'You agree to help your grandfather, grabbing a basket and setting out on the road to the forest.'
  267. minut += 60
  268. act 'Continue': gt 'gadforest', 'forest_edge'
  269. end
  270. end
  271. if $ARGS[0] = 'pickforest_berries':
  272. grandpaQW['chore_gather_berries'] = 1
  273. grandpaQW['chore_berry_quantity'] = rand(1,2)
  274. '"<<$pcs_nickname>>, could you go to the forest to pick some berries? Grandma wants to make homemade fruit jam."'
  275. '"How much should I pick, grandpa?" you ask.'
  276. '"<<grandpaQW[''chore_berry_quantity'']>> kilos will be enough," grandfather replies. "Just be careful so you don''t get lost."'
  277. act 'Tell him you will go get some soon':gt 'gadhouse', 'grandpa'
  278. act 'Agree and go to the forest (1:00)':
  279. *clr & cla
  280. if hour >= 6 and hour < 22:
  281. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
  282. else
  283. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
  284. end
  285. 'You agree to help your grandfather, grabbing a basket and setting out on the road to the forest.'
  286. minut += 60
  287. act 'Continue': gt 'gadforest', 'forest_edge'
  288. end
  289. end
  290. if $ARGS[0] = 'pickforest_both':
  291. grandpaQW['chore_gather_both'] = 1
  292. grandpaQW['chore_mushroom_quantity'] = rand(1,2)
  293. grandpaQW['chore_berry_quantity'] = rand(1,2)
  294. '"<<$pcs_nickname>>, can you go to the forest and pick some berries and mushrooms? Your grandmother wants to make a mushroom soup, and I have a craving for some fresh berries."'
  295. '"How much should I pick, grandpa?"'
  296. '"<<grandpaQW[''chore_mushroom_quantity'']>> kilos of mushrooms and <<grandpaQW[''chore_berry_quantity'']>> kilos of berries will be enough," grandfather replies. "Just don''t get lost."'
  297. act 'Tell him you will go get some soon':gt 'gadhouse', 'grandpa'
  298. act 'Agree and go to the forest (1:00)':
  299. *clr & cla
  300. if hour >= 6 and hour < 22:
  301. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad.jpg"></center>'
  302. else
  303. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/gadroad_night.jpg"></center>'
  304. end
  305. 'You agree to help your grandfather, grabbing a basket and setting out on the road to the forest.'
  306. minut += 60
  307. act 'Continue': gt 'gadforest', 'forest_edge'
  308. end
  309. end
  310. --- grandpahelp ---------------------------------