grandpahelp.qsrc 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737
  1. # grandpahelp
  2. menu_off = 1
  3. gs'stat'
  4. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
  5. 'You walk up to your grandfather and ask if he needs any help. Grandpa thinks for a moment and says:'
  6. if month = 1:grandpahelping = RAND(0,5)
  7. if month = 2:grandpahelping = RAND(0,5)
  8. if month = 3:grandpahelping = RAND(0,5)
  9. if month = 4:grandpahelping = RAND(0,5)
  10. if month = 5:grandpahelping = RAND(6,11)
  11. if month = 6:grandpahelping = RAND(12,21)
  12. if month = 7:grandpahelping = RAND(22,32)
  13. if month = 8:grandpahelping = RAND(22,32)
  14. if month = 9:grandpahelping = RAND(12,21)
  15. if month = 10:grandpahelping = RAND(0,4)
  16. if month = 11:grandpahelping = RAND(0,4)
  17. if month = 12:grandpahelping = RAND(0,4)
  18. !month >= 1 and month < 5 and month > 9
  19. if grandpahelping = 0:
  20. '"- Of course <<$pcs_nickname>>, I need your help in the yard. Bring a garden tool with you."'
  21. act 'Clean up the yard (1:00)':
  22. *clr & cla
  23. if month >= 4 and month <= 10:
  24. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
  25. '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.'
  26. else
  27. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
  28. 'Armed with a shovel, you begin clearing the yard from snow. You''re pleased with yourself seeing the courtyard is free from snow. You return the shovel to the shed and continue on with your business.'
  29. end
  30. minut += 60
  31. grandmahelp += 1
  32. if month >= 4 and month <= 10:
  33. fat -= RAND(1,3)
  34. else
  35. stren_exp += 1
  36. fat -= RAND(1,5)
  37. end
  38. gs'stat'
  39. act 'Go':gt'Gaddvor'
  40. end
  41. end
  42. if grandpahelping = 1:
  43. '"- <<$pcs_nickname>>, could you bring firewood for the stove?"'
  44. act 'Fetch firewood (0:15)':
  45. *clr & cla
  46. if month >= 4 and month <= 10:
  47. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood.jpg"></center>'
  48. else
  49. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/firewood_winter.jpg"></center>'
  50. end
  51. 'You put on some warm clothes and run over to the barn to collect some firewood. '
  52. '"- I''ve brought some firewood grandfather," you said to your grandfather.'
  53. '"- You are very quick <<$pcs_nickname>>." he replies with a smile. "- That''s today''s youth for ya. There is no more work today."'
  54. minut += 15
  55. grandmahelp += 1
  56. gs'stat'
  57. act 'Go':gt'Gadhouse'
  58. end
  59. end
  60. if grandpahelping = 2:
  61. '"- <<$pcs_nickname>>, I need you to go to the barn and feed Desperado."'
  62. act 'Go to the barn (0:15)':
  63. if month >= 4 and month <= 10:
  64. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  65. else
  66. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  67. end
  68. 'You went to the barn and fed the horse.'
  69. *clr & cla
  70. feed_horse = 1
  71. minut += 15
  72. gs'stat'
  73. act 'Further':gt'Gadsarai'
  74. end
  75. end
  76. if grandpahelping = 3:
  77. '"- <<$pcs_nickname>>, go to the barn to feed the cows."'
  78. act 'Go to the barn (0:15)':
  79. *clr & cla
  80. if month >= 4 and month <= 10:
  81. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  82. else
  83. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  84. end
  85. 'You went to the shed and fed the cows.'
  86. minut += 15
  87. feed_cow = 1
  88. gs'stat'
  89. act 'Further':gt'Gadsarai'
  90. end
  91. end
  92. if grandpahelping = 4:
  93. '"- Of course <<$pcs_nickname>>, I need your help to groom Desperado."'
  94. act 'Go to the barn (0:15)':
  95. *clr & cla
  96. if month >= 4 and month <= 10:
  97. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  98. else
  99. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  100. end
  101. 'You went to the barn, took out a brush and started grooming Desperado.'
  102. comb_horse = 1
  103. minut += 15
  104. gs'stat'
  105. act 'Further':gt'Gadsarai'
  106. end
  107. end
  108. if grandpahelping = 5:
  109. '"- <<$pcs_nickname>>, could you go to the barn and feed the hogs."'
  110. act 'Go to the barn (0:15)':
  111. *clr & cla
  112. if month >= 4 and month <= 10:
  113. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  114. else
  115. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  116. end
  117. 'You went to the barn and fed the hogs.'
  118. feed_boar = 1
  119. minut += 15
  120. gs'stat'
  121. act 'Further':gt'Gadsarai'
  122. end
  123. end
  124. !month = 5
  125. if grandpahelping = 6:
  126. '"- Of course <<$pcs_nickname>>, I need your help cleaning the yard. Bring a garden tool with you."'
  127. act 'Clean up the yard (1:00)':
  128. *clr & cla
  129. if month >= 4 and month <= 10:
  130. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
  131. '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.'
  132. else
  133. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
  134. 'Armed with a shovel, you begin clearing the yard from snow. You''re pleased with yourself seeing the courtyard is free from snow. You return the shovel to the shed and continue on with your business.'
  135. end
  136. minut += 60
  137. grandmahelp += 1
  138. if month >= 4 and month <= 10:
  139. fat -= RAND(1,3)
  140. else
  141. stren_exp += 1
  142. fat -= RAND(1,5)
  143. end
  144. gs'stat'
  145. act 'Go':gt'Gaddvor'
  146. end
  147. end
  148. if grandpahelping = 7:
  149. '"- <<$pcs_nickname>>, could you go to the barn and feed the hogs."'
  150. act 'Go to the barn (0:15)':
  151. *clr & cla
  152. if month >= 4 and month <= 10:
  153. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  154. else
  155. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  156. end
  157. 'You went to the barn and fed the hogs.'
  158. feed_boar = 1
  159. minut += 15
  160. gs'stat'
  161. act 'Further':gt'Gadsarai'
  162. end
  163. end
  164. if grandpahelping = 8 and week > 5:
  165. '"- Of course <<$pcs_nickname>>, I need your help to groom Desperado."'
  166. act 'Go to the barn (0:15)':
  167. *clr & cla
  168. if month >= 4 and month <= 10:
  169. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  170. else
  171. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  172. end
  173. 'You went to the barn, took out a brush and started grooming Desperado.'
  174. comb_horse = 1
  175. minut += 15
  176. gs'stat'
  177. act 'Further':gt'Gadsarai'
  178. end
  179. elseif grandpahelping = 8 and week <= 5:
  180. '"- You don''t need to help out today <<$pcs_nickname>>."'
  181. act 'Go':gt'Gadhouse'
  182. end
  183. if grandpahelping = 9 and hour >= 6 and hour < 9:
  184. '"- <<$pcs_nickname>>, take the horse to the field, my legs hurt so I need to rest for a bit. I`ll retrieve the horse up in the evening."'
  185. act 'Go to the barn (0:15)':
  186. *clr & cla
  187. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  188. 'You led the horse to the field.'
  189. horse_field = 1
  190. minut += 15
  191. gs'stat'
  192. act 'Further':& gt'Gadsarai'
  193. end
  194. elseif grandpahelping = 9 and hour >= 9:
  195. '"- You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
  196. act 'Go':gt'Gadhouse'
  197. end
  198. if grandpahelping = 10 and hour >= 6 and hour < 9:
  199. '"- I have sore feet today, <<$pcs_nickname>>. My dear granddaughter could you lead the cows on the field and tell the herders to drive them home at the end of the day."'
  200. act 'Go to the barn (0:15)':
  201. *clr & cla
  202. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  203. 'You went to the shed where the cows are and led the herd to the field.'
  204. cow_field = 1
  205. minut += 15
  206. gs'stat'
  207. act 'Further':gt'Gadsarai'
  208. end
  209. elseif grandpahelping = 10 and hour >= 9:
  210. '"- You can rest today child, there is nothing to do."'
  211. act 'Go':gt'Gadhouse'
  212. end
  213. if grandpahelping = 11 and hour >= 6 and hour < 9:
  214. if graze_cow_exp = 0: '"- <<$pcs_nickname>>, we need to let the cows graze on the field today. Grab something to eat, lead the herd to the field. I''ll meet you there."'
  215. if graze_cow_exp > 0: '"- <<$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 back them back home."'
  216. if graze_cow_exp = 0:
  217. act 'Go to the barn (0:20)':
  218. gs 'food', 'm_meal' &! use current one, *clr & cla will clear messages
  219. *clr & cla
  220. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  221. 'You took a little nibble of a sandwich and went to the shed where the herd was. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
  222. graze_cow = 1
  223. pcs_mood += 20
  224. pcs_health += 10
  225. minut += 20
  226. bottle += 1
  227. buterbrod += 1
  228. gs'stat'
  229. act 'Further':gt'Gadsarai'
  230. end
  231. else
  232. act 'Go to the field (0:20)':
  233. gs 'food', 'm_meal' &! use current one, *clr & cla will clear messages
  234. *clr & cla
  235. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_field.jpg"></center>'
  236. 'You had a quick bite and went to the field where the village herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
  237. graze_cow = 1
  238. pcs_mood += 20
  239. pcs_health += 10
  240. minut += 20
  241. bottle += 1
  242. buterbrod += 1
  243. gs'stat'
  244. act 'Further':gt'gadfield','cow'
  245. end
  246. end
  247. elseif grandpahelping = 11 and hour >= 9:
  248. '"- You can rest today <<$pcs_nickname>>, there is nothing to do."'
  249. act 'Go':gt'Gadhouse'
  250. end
  251. !month = 6 or month = 9
  252. if grandpahelping = 12:
  253. '"– I need your help cleaning the yard, bring the garden tools."'
  254. act 'Clean up the yard (1:00)':
  255. *clr & cla
  256. if month >= 4 and month <= 10:
  257. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
  258. '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.'
  259. else
  260. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
  261. 'Armed with a shovel, you begin clearing the yard from snow. You''re pleased with yourself seeing the courtyard is free from snow. You return the shovel to the shed and continue on with your business.'
  262. end
  263. minut += 60
  264. grandmahelp += 1
  265. if month >= 4 and month <= 10:
  266. fat -= RAND(1,3)
  267. else
  268. stren_exp += 1
  269. fat -= RAND(1,5)
  270. end
  271. gs'stat'
  272. act 'Go':gt'Gaddvor'
  273. end
  274. end
  275. if grandpahelping = 13:
  276. '"- <<$pcs_nickname>>, could you go to the barn and feed the pigs."'
  277. act 'Go to the barn (0:15)':
  278. *clr & cla
  279. if month >= 4 and month <= 10:
  280. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  281. else
  282. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  283. end
  284. 'You went to the barn to fed the pigs.'
  285. feed_boar = 1
  286. minut += 15
  287. gs'stat'
  288. act 'Further':gt'Gadsarai'
  289. end
  290. end
  291. if grandpahelping = 14 and week > 5:
  292. '"- <<$pcs_nickname>>, I need your help to groom Desperado."'
  293. act 'Go to the barn (0:15)':
  294. *clr & cla
  295. if month >= 4 and month <= 10:
  296. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  297. else
  298. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  299. end
  300. 'You went to the barn, took out a brush and started grooming Desperado.'
  301. comb_horse = 1
  302. minut += 15
  303. gs'stat'
  304. act 'Further':gt'Gadsarai'
  305. end
  306. elseif grandpahelping = 14 and week <= 5:
  307. '"- You can take the day off."'
  308. act 'Go':gt'Gadhouse'
  309. end
  310. if grandpahelping = 15 and hour >= 6 and hour < 9:
  311. '"- <<$pcs_nickname>>, take the horse to the field, my legs hurt so I need to rest for a bit. I`ll retrieve the horse up in the evening."'
  312. act 'Go to the barn (0:15)':
  313. *clr & cla
  314. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  315. 'You led the horse to the field.'
  316. horse_field = 1
  317. minut += 15
  318. gs'stat'
  319. act 'Further':& gt'Gadsarai'
  320. end
  321. elseif grandpahelping = 15 and hour >= 9:
  322. '"- There''s no work today <<$pcs_nickname>>, go and rest up."'
  323. act 'Go':gt'Gadhouse'
  324. end
  325. if grandpahelping = 16 and hour >= 6 and hour < 9:
  326. '"- I have sore feet today, <<$pcs_nickname>>. My dear granddaughter could you lead the cows on the field and tell the herders to drive them home at the end of the day."'
  327. act 'Go to the barn (0:15)':
  328. *clr & cla
  329. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  330. 'You went to the shed where the cows are and led the herd to the field.'
  331. cow_field = 1
  332. minut += 15
  333. gs'stat'
  334. act 'Further':gt'Gadsarai'
  335. end
  336. elseif grandpahelping = 16 and hour >= 9:
  337. '"- You can rest today my dear granddaughter."'
  338. act 'Go':gt'Gadhouse'
  339. end
  340. if grandpahelping = 17 and hour >= 6 and hour < 9:
  341. if graze_cow_exp = 0: '"- <<$pcs_nickname>>, we need to let the cows graze on the field today. Grab something to eat, lead the herd to the field. I''ll meet you there."'
  342. if graze_cow_exp > 0: '"- <<$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 back them back home."'
  343. if graze_cow_exp = 0:
  344. act 'Go to the barn (0:20)':
  345. gs 'food', 'm_meal'&!use current one, *clr & cla will clear messages
  346. *clr & cla
  347. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  348. 'You took a little nibble of a sandwich and went to the shed where the herd was. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
  349. graze_cow = 1
  350. pcs_mood += 20
  351. pcs_health += 10
  352. minut += 20
  353. bottle += 1
  354. buterbrod += 1
  355. gs'stat'
  356. act 'Further':gt'Gadsarai'
  357. end
  358. else
  359. act 'Go to the field (0:20)':
  360. gs 'food', 'm_meal'&!use current one, *clr & cla will clear messages
  361. *clr & cla
  362. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_field.jpg"></center>'
  363. 'You had a quick bite and went to the field where the village herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
  364. graze_cow = 1
  365. pcs_mood += 20
  366. pcs_health += 10
  367. minut += 20
  368. bottle += 1
  369. buterbrod += 1
  370. gs'stat'
  371. act 'Further':gt'gadfield','field'
  372. end
  373. end
  374. elseif grandpahelping = 17 and hour >= 9:
  375. '"- You can take the day off to rest up."'
  376. act 'Go':gt'Gadhouse'
  377. end
  378. if grandpahelping = 18 and temper >= 15 and sunWeather = 1 and week > 5:
  379. '"- It''s good weather today. Take Desperado to the river and give him a bath."'
  380. act 'Go to the barn (0:10)':
  381. *clr & cla
  382. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  383. 'You went and got the horse from the barn and led it to the river.'
  384. horse_river = 1
  385. minut += 10
  386. gs'stat'
  387. act 'Further':gt'Gadsarai'
  388. end
  389. elseif grandpahelping = 18 and week <= 5 or grandpahelping = 18 and temper < 15 or grandpahelping = 18 and sunWeather = 0:
  390. '"- You don''t need to help out today <<$pcs_nickname>>."'
  391. act 'Go':gt'Gadhouse'
  392. end
  393. if grandpahelping = 19 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
  394. grandpa_boletus = rand(2,3)
  395. go_in_boletus = 1
  396. '"- <<$pcs_nickname>>, could you go to the forest and pick mushrooms? I''m craving fried mushrooms."'
  397. '"- How much should I pick, grandpa?", you asked.'
  398. '"- <<grandpa_boletus>> kg will be enough," grandfather replied. "- Be careful so you don''t get lost."'
  399. act 'Go':gt'Gadhouse'
  400. elseif grandpahelping = 19 and go_in_boletus = 1 or grandpahelping = 19 and go_in_bilberry = 1 or grandpahelping = 19 and go_in_boletus_bilberry = 1:
  401. '"- You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
  402. act 'Go':gt'Gadhouse'
  403. end
  404. if grandpahelping = 20 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
  405. grandpa_bilberry = rand(3,5)
  406. go_in_bilberry = 1
  407. '"- <<$pcs_nickname>>, could you go to the forest to pick some berries? Grandma wants to make homemade fruit jam."'
  408. '"- How much should I pick, grandpa?" you asked.'
  409. '"- <<grandpa_bilberry>> kg will be enough," grandfather replied. "- Just be careful so you don''t get lost."'
  410. act 'Go':gt'Gadhouse'
  411. elseif grandpahelping = 20 and go_in_boletus = 1 or grandpahelping = 20 and go_in_bilberry = 1 or grandpahelping = 20 and go_in_boletus_bilberry = 1:
  412. '"- You can take the day off."'
  413. act 'Go':gt'Gadhouse'
  414. end
  415. if grandpahelping = 21 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
  416. grandpa_boletus = rand(2,3)
  417. grandpa_bilberry = rand(2,3)
  418. go_in_boletus_bilberry = 1
  419. '"- <<$pcs_nickname>>, can you go to the forest and pick some berries and mushrooms? Your grandmother wants to make a mushroom soup, and has a craving for some fresh berries."'
  420. '"- How much should I pick, grandpa?"'
  421. '"- <<grandpa_boletus>> kg mushrooms and <<grandpa_bilberry>> kg of berries will be enough," grandfather replied. "- Just don`t get lost."'
  422. act 'Go':gt'Gadhouse'
  423. elseif grandpahelping = 21 and go_in_boletus = 1 or grandpahelping = 21 and go_in_bilberry = 1 or grandpahelping = 21 and go_in_boletus_bilberry = 1:
  424. '"- There''s no work today <<$pcs_nickname>>, go and rest up."'
  425. act 'Go':gt'Gadhouse'
  426. end
  427. !month = 7 or month = 8
  428. if grandpahelping = 22:
  429. '"- Of course <<$pcs_nickname>>, I need your help in the yard. Bring a garden tool with you."'
  430. act 'Clean up the yard (1:00)':
  431. *clr & cla
  432. if month >= 4 and month <= 10:
  433. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
  434. '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.'
  435. else
  436. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
  437. 'Armed with a shovel, you begin clearing the yard from snow. You''re pleased with yourself seeing the courtyard is free from snow. You return the shovel to the shed and continue on with your business.'
  438. end
  439. minut += 60
  440. grandmahelp += 1
  441. if month >= 4 and month <= 10:
  442. fat -= RAND(1,3)
  443. else
  444. stren_exp += 1
  445. fat -= RAND(1,5)
  446. end
  447. gs'stat'
  448. act 'Go':gt'Gaddvor'
  449. end
  450. end
  451. if grandpahelping = 23:
  452. '"- <<$pcs_nickname>>, could you go to the barn and feed the hogs."'
  453. act 'Go to the barn (0:15)':
  454. *clr & cla
  455. if month >= 4 and month <= 10:
  456. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  457. else
  458. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  459. end
  460. 'You went to the barn and fed the hogs.'
  461. feed_boar = 1
  462. minut += 15
  463. gs'stat'
  464. act 'Further':gt'Gadsarai'
  465. end
  466. end
  467. if grandpahelping = 24 and week > 5:
  468. '"- Of course <<$pcs_nickname>>, I need your help to groom Desperado."'
  469. act 'Go to the barn (0:15)':
  470. *clr & cla
  471. if month >= 4 and month <= 10:
  472. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  473. else
  474. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
  475. end
  476. 'You went to the barn, took out a brush and started grooming Desperado.'
  477. comb_horse = 1
  478. minut += 15
  479. gs'stat'
  480. act 'Further':gt'Gadsarai'
  481. end
  482. elseif grandpahelping = 24 and week <= 5:
  483. '"- You don''t need to help out today <<$pcs_nickname>>."'
  484. act 'Go':gt'Gadhouse'
  485. end
  486. if grandpahelping = 25 and hour >= 6 and hour < 9:
  487. '"- <<$pcs_nickname>>, take the horse to the field, my legs hurt so I need to rest for a bit. I`ll retrieve the horse up in the evening."'
  488. act 'Go to the barn (0:10)':
  489. *clr & cla
  490. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  491. 'You led the horse to the field.'
  492. horse_field = 1
  493. minut += 10
  494. gs'stat'
  495. act 'Further':& gt'Gadsarai'
  496. end
  497. elseif grandpahelping = 25 and hour >= 9:
  498. '"- There''s no work today <<$pcs_nickname>>, go and rest up."'
  499. act 'Go':gt'Gadhouse'
  500. end
  501. if grandpahelping = 26 and hour >= 6 and hour < 9:
  502. '"- I have sore feet today, <<$pcs_nickname>>. My dear granddaughter could you lead the cows on the field and tell the herders to drive them home at the end of the day."'
  503. act 'Go to the barn (0:10)':
  504. *clr & cla
  505. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  506. 'You went to the shed where the cows are and led the herd to the field.'
  507. cow_field = 1
  508. minut += 10
  509. gs'stat'
  510. act 'Further':gt'Gadsarai'
  511. end
  512. elseif grandpahelping = 26 and hour >= 9:
  513. '"- You can rest today my dear granddaughter."'
  514. act 'Go':gt'Gadhouse'
  515. end
  516. if grandpahelping = 27 and hour >= 6 and hour < 9:
  517. if graze_cow_exp = 0: '"- <<$pcs_nickname>>, we need to let the cows graze on the field today. Grab something to eat, lead the herd to the field. I''ll meet you there."'
  518. if graze_cow_exp > 0: '"- <<$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 back them back home."'
  519. if graze_cow_exp = 0:
  520. act 'Go to the barn (0:20)':
  521. gs 'food', 'm_meal'&!use current one, *clr & cla will clear messages
  522. *clr & cla
  523. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  524. 'You took a little nibble of a sandwich and went to the shed where the herd was. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
  525. graze_cow = 1
  526. pcs_mood += 20
  527. pcs_health += 10
  528. minut += 20
  529. bottle += 1
  530. buterbrod += 1
  531. gs'stat'
  532. act 'Further':gt'Gadsarai'
  533. end
  534. else
  535. act 'Go to the field (0:20)':
  536. gs 'food', 'm_meal'&!use current one, *clr & cla will clear messages
  537. *clr & cla
  538. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_field.jpg"></center>'
  539. 'You had a quick bite and went to the field where the village herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
  540. graze_cow = 1
  541. pcs_mood += 20
  542. pcs_health += 10
  543. minut += 20
  544. bottle += 1
  545. buterbrod += 1
  546. gs'stat'
  547. act 'Further':gt'gadfield','field'
  548. end
  549. end
  550. elseif grandpahelping = 27 and hour >= 9:
  551. '"- You can take the day off to rest up."'
  552. act 'Go':gt'Gadhouse'
  553. end
  554. if grandpahelping = 28 and temper >= 15 and sunWeather = 1 and week > 5:
  555. '"- It''s good weather today. Take Desperado to the river and give him a bath."'
  556. act 'Go to the barn (0:10)':
  557. *clr & cla
  558. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
  559. 'You went and got the horse from the barn and led it to the river.'
  560. horse_river = 1
  561. minut += 10
  562. gs'stat'
  563. act 'Further':gt'Gadsarai'
  564. end
  565. elseif grandpahelping = 28 and week <= 5 or grandpahelping = 28 and temper < 15 or grandpahelping = 28 and sunWeather = 0:
  566. '"- You don''t need to help out today <<$pcs_nickname>>."'
  567. act 'Go':gt'Gadhouse'
  568. end
  569. if grandpahelping = 29 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
  570. grandpa_boletus = rand(2,3)
  571. go_in_boletus = 1
  572. '"- <<$pcs_nickname>>, could you go to the forest and pick mushrooms? I''m craving fried mushrooms."'
  573. '"- How much should I pick, grandpa?", you asked.'
  574. '"- <<grandpa_boletus>> kg will be enough," grandfather replied. "- Be careful so you don''t get lost."'
  575. act 'Go':gt'Gadhouse'
  576. elseif grandpahelping = 29 and go_in_boletus = 1 or grandpahelping = 29 and go_in_bilberry = 1 or grandpahelping = 29 and go_in_boletus_bilberry = 1:
  577. '"- You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
  578. act 'Go':gt'Gadhouse'
  579. end
  580. if grandpahelping = 30 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
  581. grandpa_bilberry = rand(3,5)
  582. go_in_bilberry = 1
  583. '"- <<$pcs_nickname>>, could you go to the forest to pick some berries? Grandma wants to make homemade fruit jam."'
  584. '"- How much should I pick, grandpa?" you asked.'
  585. '"- <<grandpa_bilberry>> kg will be enough," grandfather replied. "- Just be careful so you don''t get lost."'
  586. act 'Go':gt'Gadhouse'
  587. elseif grandpahelping = 30 and go_in_boletus = 1 or grandpahelping = 30 and go_in_bilberry = 1 or grandpahelping = 30 and go_in_boletus_bilberry = 1:
  588. '"- You can take the day off."'
  589. act 'Go':gt'Gadhouse'
  590. end
  591. if grandpahelping = 31 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
  592. grandpa_boletus = rand(2,3)
  593. grandpa_bilberry = rand(2,3)
  594. go_in_boletus_bilberry = 1
  595. '"- <<$pcs_nickname>>, can you go to the forest and pick some berries and mushrooms? Your grandmother wants to make a mushroom soup, and has a craving for some fresh berries."'
  596. '"- How much should I pick, grandpa?"'
  597. '"- <<grandpa_boletus>> kg mushrooms and <<grandpa_bilberry>> kg of berries will be enough," grandfather replied. "- Just don`t get lost."'
  598. act 'Go':gt'Gadhouse'
  599. elseif grandpahelping = 31 and go_in_boletus = 1 or grandpahelping = 31 and go_in_bilberry = 1 or grandpahelping = 31 and go_in_boletus_bilberry = 1:
  600. '"- There''s no work today <<$pcs_nickname>>, go and rest up."'
  601. act 'Go':gt'Gadhouse'
  602. end
  603. if grandpahelping = 32 and temper >= 15 and sunWeather = 1 and hour >= 6 and hour < 9:
  604. '"- <<$pcs_nickname>>, we need to help out with hay gathering today. We have to go to the field and help out."'
  605. '"- Okay, grandfather," you replied. You grabed a rake, and started walking towards the field.'
  606. act 'Go to the field (0:40)':
  607. *clr & cla
  608. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_gadfield.jpg"></center>'
  609. 'With the rake in your hand you met up with the other local residents at the field. All the present at the field got assigned to a task. You work hard gathering the hay.'
  610. haying_time = 1
  611. minut += 40
  612. gs'stat'
  613. act 'Further':gt'gadfield','field'
  614. end
  615. elseif grandpahelping = 32 and hour >= 9 or grandpahelping = 32 and temper < 15 or grandpahelping = 32 and sunWeather = 0:
  616. '"- You don''t need to help out today <<$pcs_nickname>>."'
  617. act 'Go':gt'Gadhouse'
  618. end
  619. --- grandpahelp ---------------------------------