Gadhouse.qsrc 40 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754
  1. # Gadhouse
  2. if $ARGS[0]='' or $ARGS[0] = 'Start':
  3. $location_type = 'indoors'
  4. $metka = ''
  5. $loc = 'Gadhouse'
  6. $menu_loc = 'Gadhouse'
  7. $menu_arg = ''
  8. menu_off = 0
  9. $locclass = 'singleroom'
  10. curr_home = 2
  11. cla
  12. *clr
  13. frost = 0
  14. CLOSE ALL
  15. mira_temp = rand(1,5)
  16. !125s
  17. !execute before everything
  18. if monthbabkapay ! month and monthgrandmahelp ! month and hour >= 6 and hour < 22:
  19. monthbabkapay = month
  20. monthgrandmahelp = month
  21. if grandmahelp > 0: money += grandmahelp*50
  22. money += 2000
  23. minut += 10
  24. gs 'stat'
  25. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/grandmahelp.jpg"></center>'
  26. if gadstay = 0:
  27. 'Upon entering the house, you let out a screech as you catch sight of your grandmother, throwing yourself at her, wrapping your arms around her neck. She embraces you tightly. She starts by saying "Dear <<$pcs_nickname>>, you''re only skin and bones, but don''t worry, a few months here and you''ll be looking your usual self again ."'
  28. '"But look at you, you sure have grown up. A young woman." she says proudly. She continues "Grandpa and I keep getting older and older and need some help around the house. What do you say youngling? You will not have to do much. Here''s the deal, you lend us a helping hand on the farm as much as possible, and we will pay you for each chore you do. It will be a great life lesson, you will learn about hard work. What do you say?"'
  29. '"Of course I`ll help out, Grandma." you answer.'
  30. '"I''m glad to hear that <<$pcs_nickname>>, here is little something upfront so you know we are serious," Grandma says and hands over 2000 rubels.'
  31. '"Thanks Babushka!" you kiss her on the cheek before you head on out.'
  32. else
  33. 'When you got out of bed, your grandmother called you over to her.'
  34. '"I imagine you''ve spent all your allowance on sweets so lets see what we can do to give you some more pocket money, hmmmm?" she says as she opens her purse.'
  35. if grandmahelp > 0:
  36. '"You were quite helpful over the last few weeks, so here''s <<2000+grandmahelp*50>> rubles." she starts to hand you the money, then lifts it away with a stern look, "But you can always do more work, young lady!" she scolds gently then smiles as she gives you the money.'
  37. else
  38. '"We really could have used your help last month." she says mournfully as she counts out some bills, "Maybe this month you''ll do more to help us?" She looks at you sternly as she hands you 2000 rubles.'
  39. end
  40. grandmahelp = 0
  41. gs 'stat'
  42. end
  43. act 'Further': gt 'Gadhouse', 'Start'
  44. elseif go_in_boletus = 1 and boletus >= grandpa_boletus and hour >= 6 and hour < 22:
  45. cla
  46. *clr
  47. grandmahelp += 1
  48. boletus -= grandpa_boletus
  49. minut += 5
  50. go_in_boletus = 0
  51. gs 'stat'
  52. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
  53. 'Upon entering the house you immediately walk up to grandpa.'
  54. '"Grandpa, here are the mushrooms!"'
  55. '"Thank you <<$pcs_nickname>>, you''ve made an old man very happy," your grandfather replies with a smile. "The mushrooms are in a part of the forest that is difficult to reach."'
  56. '"I can still go and gather more mushrooms, if you want?"'
  57. '"There''s no need <<$pcs_nickname>>." - said your grandpa. "But if I need some help, I''ll be sure to let you know."'
  58. 'You kiss your grandfather on the cheek and get on with your day.'
  59. act 'Further': grandpa_boletus = 0 & gt 'Gadhouse', 'Start'
  60. elseif go_in_boletus_bilberry = 1 and boletus >= grandpa_boletus and bilberry >= grandpa_bilberry and hour >= 6 and hour < 22:
  61. cla
  62. *clr
  63. grandmahelp += 1
  64. boletus -= grandpa_boletus
  65. bilberry -= grandpa_bilberry
  66. minut += 5
  67. go_in_boletus_bilberry = 0
  68. gs 'stat'
  69. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
  70. 'Upon entering the house you immediately walk up to grandpa.'
  71. '"Grandpa, here are the mushrooms and berries!"'
  72. '"Oh, thank you <<$pcs_nickname>>." you grandpa replied.'
  73. '"If you want, I can go out for an another run."'
  74. '"You don''t need to do that <<$pcs_nickname>>," your grandpa said. "But I''ll be sure to let you know if something comes up."'
  75. 'You give your grandpa a smooch on the cheek and go on with your day.'
  76. act 'Further': grandpa_boletus = 0 & grandpa_bilberry = 0 & gt 'Gadhouse', 'Start'
  77. elseif go_in_bilberry = 1 and bilberry >= grandpa_bilberry and hour >= 6 and hour < 22:
  78. cla
  79. *clr
  80. grandmahelp += 1
  81. bilberry -= grandpa_bilberry
  82. minut += 5
  83. go_in_bilberry = 0
  84. gs 'stat'
  85. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
  86. 'Upon entering the house you immediately walk up to grandpa.'
  87. '"Grandpa, here are the berries!"'
  88. '"Oh, thank you, nicely done," grandpa replied. "It''s hard for your grandmother to gather the berries, and the berries are needed so she can make jam for the winter."'
  89. '"If you need some more berries I''ll be glad to go out and gather some more."'
  90. '"There''s no need <<$pcs_nickname>>," your grandpa said. "But if your grandma need some more berries, I''ll let you know."'
  91. 'You kiss your grandfather on the cheek, you go on with your business.'
  92. act 'Further': grandpa_bilberry = 0 & gt 'Gadhouse', 'Start'
  93. elseif mira_temp = 1 and hour >= 9 and hour <= 19 and npc_rel['A60'] >= 15 and Mira_no = 0 and sunWeather = 0 and mira_guestday ! daystart and (npc_QW['A63'] < 13 or miragopQW >= 10 or mirasex > 1):
  94. cla
  95. *clr
  96. mira_guestday = daystart
  97. minut += 5
  98. mira_guest = 1
  99. gs 'stat'
  100. gs 'Miroslava', 'miraclothes'
  101. 'You notice Mira coming towards your grandparents home.'
  102. 'You step out on the porch and greet Mira. She replies "Hi <<$pcs_nickname>>, I was really bored being all alone at home. Do you want to do something?"'
  103. act 'Further':gt'Gadhouse', 'Start'
  104. else
  105. gt 'Gadhouse', 'Main'
  106. end
  107. end
  108. !125e
  109. if $ARGS[0] = 'Main':
  110. $metkaM = 'Main'
  111. $locM = 'Gadhouse'
  112. $locclass = 'livingr'
  113. $menu_loc = 'Gadhouse'
  114. $menu_arg = 'Main'
  115. menu_off = 0
  116. *clr
  117. cla
  118. gs 'stat'
  119. '<center><H4>Your Grandparents'' Cottage</H4></center>'
  120. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/izba.jpg"></center>'
  121. 'A fairly simple cottage in the village of Gadukino which your grandparents call home. In the main room there is a huge <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing), and a <a href="exec:gad = 1 & gt ''bed'', ''start''">bed</a> where you can rest. The bed is more comfortable than it looks.'
  122. 'There is an old <a href="exec:gt ''TV'',''gad''">television</a> in the living room. It''s positioned next to a body length <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
  123. 'You can check your weight on your grandma''s old mechanical <a href="exec:msg ''<center>Your weight is <<pcs_weight>> kg<br>Your body mass index (BMI) is <<bmi_calc>>.<br><<$bmi_desc>></center>''">scales</a>.'
  124. if hour < 8:
  125. temp = RAND(0,9)
  126. if temp = 0:'In a box filled with scraps of cloth, <a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> is curled up sleeping peacefully.'
  127. elseif hour >= 8 and hour < 12 and sunWeather = 1:
  128. temp = RAND(0,2)
  129. if temp = 1:'On the table by the window <a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> is busy cleaning himself with his tongue.'
  130. if temp = 2:'On the table by the window <a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> lies lazily, soaking up some sunshine rays.'
  131. elseif hour >= 8 and hour < 12 and sunWeather = 0:
  132. temp = rand(0,1)
  133. if temp = 0: 'In a box filled with scraps of cloth, <a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> is curled up sleeping peacefully.'
  134. if temp = 1: 'On the table by the window <a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> is staring in disgust at the rain outside.'
  135. elseif hour >= 12 and hour < 18:
  136. temp = RAND(0,5)
  137. if temp = 3:'Next to the table by the window <a href="exec:feedcat = 1 & gt ''Gadhouse'',''villagecat''">Boniface</a> stretches and meows loudly, it''s time for dinner.'
  138. if temp = 4 and sunWeather = 1: 'On the table by the window <a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> lies lazily, soaking up some sunshine rays.'
  139. if temp = 4 and sunWeather = 0: 'In a box filled with scraps of cloth, <a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> is curled up sleeping peacefully.'
  140. elseif hour >= 18 and hour < 22 and catout ! 2:
  141. temp = RAND(0,3)
  142. if temp = 0:'<a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> is stalking around the main floor, looking for a nice juicy mouse to play with.'
  143. if temp = 1 and catout = 0: catout = 1 &'<a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> twines around your ankles then goes to the door meowing pitifully.'
  144. elseif hour >= 22:
  145. temp = RAND(0,2)
  146. if temp = 1:'In a box filled with scraps of cloth, <a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> is curled up sleeping peacefully.'
  147. end
  148. if hour >= 6 and hour < 22:
  149. 'Your <a href="exec: gt ''Gadhouse'',''grandma'' ">grandmother</a> is sitting on her bed. She looks a bit confused, as if she''s not sure where to go.'
  150. 'Your <a href="exec: gt ''Gadhouse'',''grandpa'' ">grandfather</a> slowly shuffles across the room, using his cane for support.'
  151. else
  152. 'Your grandparents sleep in separate beds. It''s quite strange since they''re still madly in love with eachother.'
  153. end
  154. if mira_guest = 1: MiraLoc = 6 & '<a href="exec: gt ''Miroslava'', ''Start''">Mira</a> is sitting next to you.'
  155. clr
  156. gs 'stat'
  157. gs 'themes', 'indoors'
  158. !125s
  159. !{
  160. !New family system, skip for now.
  161. gs 'zz_family', 'father_sheduler'
  162. if $father['location'] = $curloc:
  163. 'Your parents room.'
  164. gs 'gadukino_event', 'go_home'
  165. end
  166. }
  167. if week = 6 and hour > 12 and family_trip_month ! month: indorf = 1
  168. if indorf = 1:
  169. 'Your parents are relaxing inside.'
  170. if staygad ! daystart: gs 'gadukino_event', 'go_home'
  171. end
  172. if $clothingworntype ! 'nude':
  173. act 'Go outside':minut += 1 & gt 'Gaddvor'
  174. elseif $clothingworntype = 'nude':
  175. act 'Go outside naked':
  176. *clr & cla
  177. menu_off = 1
  178. minut += 1
  179. inhib_exp += rand(0,2)
  180. grandma_trouble += rand(1,3)
  181. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
  182. 'It''s certainly risky leaving the hosue like this, and while it''s unlikely anyone saw you go outside naked, there''s a thrill in almost getting caught'
  183. gs 'arousal', 'voyeur', 10, 'exhibitionism'
  184. gs 'arousal', 'end'
  185. gs 'stat'
  186. act 'Continue': gt 'Gaddvor'
  187. end
  188. elseif $clothingworntype = 'nude' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
  189. act 'Go outside in your underwear':
  190. *clr & cla
  191. menu_off = 1
  192. minut += 1
  193. inhib_exp += rand(0,2)
  194. grandma_trouble += rand(1,3)
  195. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>''It''s certainly risky leaving the hosue like this, and while it''s unlikely anyone saw you go outside in your underwear, there''s a thrill in almost getting caught'
  196. gs 'arousal', 'voyeur', 10, 'exhibitionism'
  197. gs 'arousal', 'end'
  198. gs 'stat'
  199. act 'Continue': gt 'Gaddvor'
  200. end
  201. end
  202. act 'Prepare a full meal (0:30)':gs 'food', 'm_meal'
  203. act 'Prepare a light meal (0:25)':gs 'food', 's_meal'
  204. act 'Have a snack (0:15)':gs 'food', 'snack'
  205. act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
  206. act 'Have a cup of tea (0:05)':
  207. *clr & cla
  208. minut += 5
  209. if pcs_hydra >= 100:
  210. 'There is no need for tea. You''re not thirsty.'
  211. else
  212. pcs_hydra += 80
  213. cumspclnt = 2
  214. gs 'cum_cleanup'
  215. pcs_breath = 0
  216. 'You make a cup of tea, quenching your thirst.'
  217. end
  218. gs 'stat'
  219. act 'Get up from the table':gt 'Gadhouse', 'Main'
  220. end
  221. if pranik > 0:
  222. 'You have <<pranik>> tea biscuits on the plate.'
  223. act 'Drink tea with biscuits (0:05)':
  224. cla
  225. *clr
  226. menu_off = 1
  227. minut += 5
  228. pranik -= 1
  229. pcs_health += 30
  230. pcs_mood += 20
  231. pcs_energy += 80
  232. if pcs_hydra >= 100:
  233. pcs_hydra += 30
  234. else
  235. pcs_hydra += 60
  236. end
  237. cumspclnt = 2
  238. gs 'cum_cleanup'
  239. pcs_breath = 0
  240. fat += 4
  241. frost = 0
  242. gs 'stat'
  243. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  244. 'You enjoy a cup of tea while you eat some of the tea biscuits. They''re too sweet and can''t be good for your figure, but they taste so good!'
  245. act 'Get up from the table':gt 'Gadhouse', 'Main'
  246. end
  247. end
  248. if edaD > 0:
  249. act 'Prepare a diet meal (0:30)':
  250. cla
  251. *clr
  252. menu_off = 1
  253. frost = 0
  254. minut += 30
  255. pcs_health += 10
  256. pcs_mood += 20
  257. edaD -= 1
  258. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  259. if pcs_energy >= 100:
  260. 'You prepare a diet meal and try to eat it, but you''re full. You don''t even take a bite.'
  261. elseif pcs_energy >= 80:
  262. pcs_energy += 40
  263. 'You try to enjoy the meal, but half-way you realize you weren''t all that hungry. You manage to finish the meal, but feel like it was kind of a waste to prepare it.'
  264. else
  265. pcs_energy += 80
  266. 'The diet meal is tasty, and you enjoy eating it.'
  267. end
  268. if pcs_hydra >= 100:
  269. 'You''re not thirsty.'
  270. else
  271. pcs_hydra += 100
  272. cumspclnt = 2
  273. gs 'cum_cleanup'
  274. pcs_breath = 0
  275. 'You make a cup of tea, quenching your thirst.'
  276. end
  277. act 'Get up from the table':gt 'Gadhouse', 'Main'
  278. end
  279. end
  280. dynamic $fatdel
  281. if lekarstvo > 0:
  282. 'You have <<lekarstvo>> tablet(s).'
  283. if sick > 0 and lekarday ! daystart:
  284. act 'Take a pill (0:05)':
  285. cla
  286. *clr
  287. menu_off = 1
  288. minut += 5
  289. lekarday = daystart
  290. lekarstvo -= 1
  291. sick -= sick * 20 / 100
  292. if pcs_hydra >= 100:
  293. pcs_hydra += 25
  294. else
  295. pcs_hydra += 50
  296. end
  297. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/lekr<<picrand>>.jpg"></center>'
  298. 'You swallow the pill, and shortly after you feel a bit better.'
  299. act 'Continue':gt 'Gadhouse', 'Main'
  300. end
  301. end
  302. end
  303. if vitamin > 0:
  304. 'You have <<vitamin>> vitamin pills.'
  305. if vitaminday ! daystart:
  306. act 'Take vitamins (0:05)':
  307. cla
  308. *clr
  309. menu_off = 1
  310. minut += 5
  311. vitaminday = daystart
  312. vitamin -= 1
  313. frost = 0
  314. if pcs_hydra >= 100:
  315. pcs_hydra += 25
  316. else
  317. pcs_hydra += 50
  318. end
  319. if KandidozOnce = 1:Kandidoz -= 2
  320. if GerpesOnce = 1:Gerpes -= 2
  321. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  322. pcs_skin += 1
  323. 'You swallow a vitamin pill to stay healthy.'
  324. act 'Continue':gt 'Gadhouse', 'Main'
  325. end
  326. end
  327. end
  328. gs 'events', 'read'
  329. gs 'subkid'
  330. if gobelen>0:'You have <<gobelen>> completed tapestries.'
  331. if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
  332. if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
  333. if pcs_sewng >= 80:
  334. if newgobelen = 0 and tkan > 0:
  335. act'Start a new tapestry':
  336. *clr & cla
  337. menu_off = 1
  338. tkan -= 1
  339. newgobelen = 1
  340. minut += 15
  341. gs'stat'
  342. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  343. act'Set the tapestry aside':gt 'Gadhouse', 'Main'
  344. end
  345. end
  346. if newgobelen >= 1:
  347. 'Your tapestry is <<newgobelen/10>> percent finished.'
  348. act'Work on the tapestry for an hour':
  349. *clr & cla
  350. menu_off = 1
  351. minut += 60
  352. sewng_exp += rand(pcs_intel/10, pcs_intel/5)
  353. gobramax = (pcs_sewng - 70) * 6
  354. gobramin = (pcs_sewng - 70) * 2
  355. newgobelen += rand(gobramin,gobramax)
  356. gs'stat'
  357. if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  358. if newgobelen >= 1000:
  359. newgobelen = 0
  360. gobelen+=1
  361. 'Your work on the tapestry is done.'
  362. end
  363. act'Set the tapestry aside':gt 'Gadhouse', 'Main'
  364. end
  365. end
  366. end
  367. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  368. act 'Relax on your bed': gt 'bed', 'start'
  369. end
  370. if $ARGS[0]='grandma':
  371. *clr & cla
  372. menu_off = 1
  373. minut += 2
  374. if grandmatalkday ! daystart: grandmatalk = 0
  375. gs 'stat'
  376. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
  377. 'Your grandma is extremely old, and almost never leaves the house. Most of the time she just sits on her bed watching TV, or is slowly cleaning.'
  378. if $clothingworntype = 'nude':
  379. 'Grandma looks a little shocked but its nothing she hasn''t seen before.'
  380. '"Go put some clothes on dear, you''ll give your poor grandpa a heart attack if he sees you."'
  381. act 'Maybe you should get dressed before talking to her':gt 'Gadhouse', 'Start'
  382. else
  383. if grigory_flower > 0 and grigory_flower < 10:
  384. act 'Talk to her about the flowers': gt 'grigory', 'flower4'
  385. end
  386. if grandmahelpday ! daystart:
  387. act 'Offer to help out': grandmahelpday = daystart & gt'grandmahelp'
  388. end
  389. !125s
  390. if grandmatalkgad = 0:
  391. act 'Ask about the village (0:10)':
  392. cla
  393. *clr
  394. grandmatalkgad = 1
  395. minut += 10
  396. pcs_mood += 5
  397. gs 'stat'
  398. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
  399. 'You sit next to grandma, eager to have her tell you more about the village.'
  400. '"Don''t you remember <<$pcs_nickname>>? You''ve visited us many times," said grandma.'
  401. '"The last time I visited here I was really young. I remember some of the houses, but the clearest memory I have is going swimming with Mitya." you reply.'
  402. '"And look how big you''ve become! Just look at you." grandma smiled.'
  403. 'She begins telling you about the village.'
  404. '"The village is small, as you know. You’’ll probably find Mitya by the river or the beach where you can go swimming and sunbathe. There are still some fishermen here in the village if you want to go fishing, ask around after Stepan, he’’ll lend you a fishing rod."'
  405. '"There is nothing interesting in the village itself. Oh yes... I just remembered... recently a new family moved in, a single parent with his daughter. Could you imagine that, someone new moving in? The girl is about your age. Her father works in the city and from the rumors I''ve heard he''s hardly here because his work forces him to stay in the city most of the time. You''ll probably meet her while you take a walk in the village."'
  406. '"In the outskirts of the village is the field where the cattle graze and beyond the field is the forest. You''ll usually find our local hunter Andrew in the forest. He often brings along his friends to hunt, they often stay there for days. They say he built a hut somewhere in the forest. So, if you meet Andrew and his friends out there, don''t be afraid. If you want to go to the forest make sure to ask grandfather first."'
  407. '"If you like running, you can take a run on the road leading into the forest. Or you can take a ride on our old bike. I''m pretty sure the bike is in the shed. Make sure to look for it if you''re interested. And if you want to watch your figure, then go to the garden, have some fruit, it''s as healthy as the diet meals you''re eating, if not more healthier."'
  408. '"That''s about it my dear granddaughter. Now run along, don''t bother me anymore. My soap opera "Santa Barbara" is about to begin, I don''t want to miss a second of it."'
  409. act 'Finish':gt 'Gadhouse', 'Start'
  410. end
  411. end
  412. !125e
  413. if hour >= grandmatalk + 3:
  414. act 'Chat with your grandmother (0:10)':
  415. cla
  416. *clr
  417. grandmatalk = hour
  418. grandmatalkday = daystart
  419. minut += 10
  420. pcs_mood += RAND(5,10)
  421. gs 'stat'
  422. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
  423. 'You spend some time talking with your grandmother. She''s sometimes difficult to understand. Her nearly toothless mouth makes the pronunciation of words difficult for her. Most of what she says boils down to the same thing, life is much more fun when you''re young!'
  424. act 'Continue':gt 'Gadhouse', 'Start'
  425. end
  426. end
  427. if grandmastory ! daystart:
  428. act 'Ask her to tell you a story (0:20)':
  429. cla
  430. *clr
  431. grandmastory = daystart
  432. minut += 20
  433. pcs_mood += RAND(10,15)
  434. gs 'stat'
  435. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/babushka.jpg"></center>'
  436. 'When you ask your grandmother to tell you a story, she mumbles something. Nevertheless, after a brief second or two, she decides on a story to share with you today, she begins to talk slowly.'
  437. temp = RAND(0,7)
  438. if temp = 0:
  439. '"There was this one time my parents allowed me to stay at my friend''s home for the night. During the night, a lot of snow fell... and we heard a soft knock on the door!" she says in an ominous voice.'
  440. '"We listened more closely, but could only hear the wind whistling through the trees... so we decided to go back to sleep. Then we heard the knocking again!"'
  441. '"We both ran quickly to the window, but couldn''t see anything other than snow. The knocking became more persistent, and the voice of a small girl begged us to open the door! My friend and I moved to the middle of the room, tightly hugging one another... we were terrified!"'
  442. '"The knocking continued into the morning, even when the blizzard stopped. It sounded like someone was panicking, but when we told her parents in the morning, they didn''t believe us. When we went outside... there was no tracks on the snow! As if it never happened!"'
  443. '"We never heard the voice or the knocking ever again after that, but I still feel bad for not going downstairs to answer the door. What if some girl was actually there, begging for our help? I hope she''s okay..."'
  444. elseif temp = 1:
  445. '"I had a friend when I was younger." she says, in an ominous voice. "Her husband died at her house, he was a drunken bastard. He got drunk one day and died of alcohol poisoning in the very house."'
  446. '"One day she came home from work, and the floor boards all of a sudden started creaking! And through the glass panes in the door in the hallway, she could see the silhouette of a man. It looked remarkably like her late husband!"'
  447. '"She was terrified! She quickly left her house, and only went back when I promised to go with her... but of course, we found nothing. Do you believe in ghosts, <<$pcs_nickname>>? Because ever since then, I do..."'
  448. elseif temp = 2:
  449. '"I wasn''t born in Gadukino, I grew up in a different village", your grandmother begins. "This is a true story, by the way!"'
  450. '"When I was still a little girl, one of our neighbors died. Then, less than two weeks later, one of his brothers died too! And as the legend goes, death comes in threes..."'
  451. '"His one surviving sister was terrified. She was a friend of mine, but her parents wouldn''t let her leave the house."'
  452. '"It was well into the winter season then, and people could only go to other towns by sleigh. For forty days, they waited... just when they were about to accept that the legend might not be true, they found one of her relatives. Dead. Muzhik I believe his name was, he was found frozen solid, basically a block of ice! He''d tried to attend his cousin''s funeral, but it cost him his life!"'
  453. '"Death is not to be trifled with, <<$pcs_nickname>>... her parents were smart to hide her, otherwise she might''ve died instead!"'
  454. elseif temp = 3:
  455. '"This really happened!" your grandmother reassures you. "When I was young, basically your age... it was just after the war. No one believed in superstition or anything like that. Those were tough times, all anyone cared about was how to get their next meal on the table for their family."'
  456. '"We all went to bed, but our cat kept meowing at me! It just wouldn''t let me sleep, for hours and hours!"'
  457. '"When I finally caught some sleep and woke up the next morning, my father was next to my bed. He said when he cleaned out the furnace of ashes, he found the remains of our dead cat in there!"'
  458. 'You see her eyes tear up. "No one knew how she got there... no one noticed anything! Except for me. To this day I believe she was trying to warn me, asking for my help..."'
  459. 'Your grandmother shrugs, wiping a tear from her eye. You put your hand on her knee reassuringly, but don''t really know what to say to comfort her.'
  460. !125s
  461. elseif temp = 4:
  462. '"I will tell you a story about an event that happened in the village I was brought up. One day a woman from a place far up in the northern Soviet Union moved to our village."'
  463. '"The woman lived alone with this gorgeous dog, it was of white color, quite large and quiet as a mouse. After a while the dog died and the woman did''nt want to bury it."'
  464. '"She always said it''s a shame to throw away the pelt since it was so furry. She spent some time thinking about what she could make of this pelt. After a while she decided to make a fur collar of the pelt."'
  465. '"It took about two months and she got really sick... I among others visited her, and everything looked fine at the first glance. But as soon as I closed the door she started acting erratic and was hallucinating, these were the characteristics of a rabies. Since she was living alone no one noticed it before it was too late to save her life..."'
  466. elseif temp = 5:
  467. '"One evening during the Christmas holidays in my younger days I was hanging out with my girlfriends in the kitchen. It was my school friends, so we were always up to some mischief all the time."'
  468. '"We were home alone, and one of my friends persuades us to do a séance. She tells us that a fortune-teller had explained to her how one could summon a spirit. So we light some candles and began chanting for the spirits to show themself."'
  469. '"I managed to summon the profile of a male figure. He was holding something resembling a bouquet of flowers. My second friend summoned a kettle looking object while my last friend managed to summon an infant which frightened us."'
  470. '"Not being discouraged we decided to try again excited by what we would manage to summon this time. This time I summoned a large steamer. My second friend didn''t summon anything special, but my third friend summoned the same infant again, the difference this time was that the infant was in a stroller."'
  471. '"We ended the séance and went back doing ordinary stuff. All of a sudden we heard a knock on the door, it was the young man from the séance. He pulled out a beautiful bouquet of roses for me and gave them to me. I asked him what the reason was but he just answered that he got a feeling that he should deliver flowers to a girl in this specific village. I got the chills, because I remembered the man with a bouquet of flowers from the séance."'
  472. '"The most interesting thing that happened was a few months after our séance, my friend that summoned the baby got pregnant. And by the end of the year she had a baby by the young age of 15. So beware when you meet a fortune-teller you never know what might happen..."'
  473. elseif temp = 6:
  474. '"I remember sitting down as we are right now," your grandma starts, but suddenly as if she remembered something, she sadly sighs "There are no more matches..."'
  475. 'You look at her perplexed, questioning what she''s talking about. "We do have matches in the kitchen or if you want I can run over to the store to buy some."'
  476. '"You don''t get it, <<$pcs_nickname>>. The matches today are not as good as those made long time ago. I miss those matches we had during the Great Patriotic War, before they had to move the factory to the far east... Those matches were magical, not like this crap we have now... Ugh..."'
  477. !Keep the word brigade if you want to change the text. It''s what the people working on the kolkhoz were called.
  478. elseif temp = 7:
  479. '"One day my mother, rest her soul, sent us four siblings out to the forest for berry gathering", your grandma begins. "We took our berry collectors and headed out. We reached the entrance of the forest pretty quickly and decided that it would be best to split up to complete the task faster. Since we were familiar with the area we all dispersed to our cherished spots and began gathering berries."'
  480. '"My favorite spot was a plot surrounded by dense bushes and in the middle of the plot there was a huge stump. It’’s was really a great spot and as I approached I noticed very large number of ripe strawberries. I was rejoicing over the thought that I would gather more than my brothers, slowly gathering the berries and putting them in my berry collector. All of a sudden I hear some rustling behind the bushes. I turn towards the sound, but I''m met with silence. I didn''t notice anyone but I still couldn''t get rid of the eerie feeling."'
  481. '"I shook off the eerie feeling and go back gathering strawberries again. All of a sudden I get this strange feeling... I look up and I see a person squatting on the stump. He''s completely still and just stares at me. I got really scared and ran away screaming and crying towards my brothers. They tried to stop and calm me down, but I just kept on running. My brothers started running after me, trying to keep up. I could hear my oldest brother shouting to run towards the kolkhoz. You see <<$pcs_nickname>> long time ago we had central collective farms that were called kolkhoz, your grandma explains."'
  482. '"We were lucky that the farms were close to the forest and didn''t have to run through the woods for long. I kept looking back if this person was following us but there was no sign of him. We knew we were safe when we see the farmers belonging to the brigade. My brothers and I ran up to the foreman and explained to him what had happened. He immediately grabbed the phone and called someone. The other farmers reassured us that we were safe now. After we had calmed down we got sent home. Our mother met as at home, she fed us and comforted me."'
  483. '"The following day we were informed that not far from the train station Ratomka some people found dismantled railroad rails. Apparently it was done by the same man that I came across in the forest. I didn''t know it then but before the war our area was prone to sabotage by infiltrators, and staying hidden was easy, as the territory is covered by forest, stretching all the way to the border."'
  484. '"Ever since that day the fear I experienced never disappeared, as I''ve felt it through my whole life. I’ll carry on this fear for the remaining days of my life…"'
  485. end
  486. !125e
  487. act 'You thank your grandmother for the story':gt 'Gadhouse', 'Start'
  488. end
  489. end
  490. act 'Leave her alone':gt 'Gadhouse', 'Start'
  491. end
  492. end
  493. if $ARGS[0]='grandpa':
  494. *clr & cla
  495. menu_off = 1
  496. minut += 2
  497. if grandpatalkday ! daystart:grandpatalk = 0
  498. gs 'stat'
  499. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa.jpg"></center>'
  500. 'Your grandfather is a grumpy old man, who is always complaining about the village elders and how they have neglected the village to barely being fit to live in. He can walk, but requires a cane. He doesn''t really leave the house any more, unless he really has to.'
  501. if $clothingworntype = 'nude':
  502. 'Grandpa looks shocked but it doesn''t stop him from having a good look at you.'
  503. '"My God <<$pcs_nickname>>! Are you trying to give me a heart attack? Go and put some clothes on!"'
  504. act 'Maybe you should get dressed before talking to him':gt 'Gadhouse', 'Start'
  505. else
  506. if grigory_flower > 0 and grigory_flower < 10:
  507. act 'Talk to him about the flowers': gt 'grigory', 'flower3'
  508. end
  509. if go_in_boletus = 1:'You promise to bring grandpa <<grandpa_boletus>> kg of mushrooms.'
  510. if go_in_bilberry = 1:'You promise to bring grandpa <<grandpa_bilberry>> kg of berries.'
  511. if go_in_boletus_bilberry = 1:'You promise to bring grandpa <<grandpa_boletus>> kg mushrooms and <<grandpa_bilberry>> kg of berries.'
  512. !125s
  513. if grandpahelpday ! daystart:act 'Offer to help':grandpahelpday = daystart & gt'grandpahelp'
  514. if grandpatalkforest = 0:
  515. act 'Ask about the forest (0:10)':
  516. cla
  517. *clr
  518. grandpatalkforest = 1
  519. minut += 10
  520. pcs_mood += 5
  521. goforest += 1
  522. gs 'stat'
  523. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
  524. '"Listen carefully <<$pcs_nickname>>. You want to explore the forest and that''s great. But be sure of your surroundings, without having any knowledge of the forest you may easily get lost. Don''t go exploring too deep in the forest, because the mushrooms and berries can be found at the edge of the forest. If you choose to explore the forest you''ll find a swamp in the middle of the forest. You can find mushrooms and berries there too... Going into the forest at night is not recommended, wild boars may attack, and you might end up really hurt."'
  525. '"If you manage to get lost and can''t find your way out of the forest before it gets dark, then light a fire and sit still there until morning. The beasts in the forest are afraid of the fire, so they won''t approach you."'
  526. '"There''s one more thing... While you''re in the woods, avoid dressing yourself up in fancy clothes. You might damage them. It''s better to dress in more comfortable clothes instead..."'
  527. '"Well, I think that''s everything <<$pcs_nickname>>, run along now, and remember what I''ve told you."'
  528. act 'Finish':gt 'Gadhouse', 'Start'
  529. end
  530. end
  531. !125e
  532. if hour >= grandpatalk + 3:
  533. act 'Chat with your grandfather (0:10)':
  534. cla
  535. *clr
  536. grandpatalk = hour
  537. grandpatalkday = daystart
  538. minut += 10
  539. pcs_mood += RAND(5,10)
  540. gs 'stat'
  541. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
  542. 'Your grandfather stops complaining and smiles at you, he loves telling stories. He has lived a rich and eventful life, and you enjoy listening to his stories and talking to him. He mostly reminisces about his past, and reflects on his earlier life.'
  543. act 'Continue':gt 'Gadhouse', 'Start'
  544. end
  545. end
  546. act 'Leave him alone':gt 'Gadhouse', 'Start'
  547. end
  548. end
  549. if $ARGS[0]='villagecat':
  550. *clr & cla
  551. menu_off = 1
  552. minut += 2
  553. gs 'stat'
  554. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/villcat.jpg"></center>'
  555. 'Your grandparents'' fat tomcat, Boniface, is aware of you approaching him, even though his eyes are closed. He tracks you with his ears and simply ignores you.'
  556. act 'Pet Boniface':
  557. cla
  558. *clr
  559. minut += 5
  560. pcs_mood += RAND(1,4)
  561. gs 'stat'
  562. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/villcat1.jpg"></center>'
  563. 'You gently pet Boniface, giving him a good scratch behind the ears. You hear him start to purr. As soon as you stop scratching him, the purring stops too. That lazy bastard... he''s living the good life!'
  564. act 'Continue':minut += 2 & gt 'Gadhouse', 'Start'
  565. end
  566. if feedcat = 1:
  567. act 'Feed Boniface':
  568. cla
  569. *clr
  570. minut +=5
  571. gs 'stat'
  572. feedcat = 2
  573. '<center><video autoplay loop src="images/locations/gadukino/grandparents/feedboniface.mp4"></video></center>'
  574. 'When Boniface sees you moving towards the cupboard, he jumps down off of the table and runs to his food dish. It is obvious that he feels that you are moving far too slowly and rattles his bowl to make sure you understand that he is starving while you dawdle.'
  575. act 'Continue': gt 'Gadhouse', 'Start'
  576. end
  577. end
  578. if catout = 1:
  579. act 'Let Boniface Out':
  580. if sunWeather = 0:
  581. cla
  582. *clr
  583. minut += 10
  584. gs 'stat'
  585. 'You open the door for Boniface who saunters around you only to stop in the doorway as he becomes aware that it is raining out. He glares up at you as if the rain was your fault. He stares out into the wet for another moment then sedately turns around and goes back to his box.'
  586. act 'Continue': gt 'Gadhouse', 'Start'
  587. else
  588. cla
  589. *clr
  590. minut +=10
  591. gs 'stat'
  592. catout = 2
  593. 'You open the door for Boniface who saunters around you only to stop in the doorway as he stops to consider if he really wants to go outside. After considering all the pros and cons, he finally decides to go out.'
  594. act 'Continue': gt 'Gadhouse', 'Start'
  595. end
  596. end
  597. end
  598. act 'Leave Boniface alone':minut += 2 & gt 'Gadhouse', 'Start'
  599. end
  600. if $ARGS[0] = 'intro':
  601. cla & *clr
  602. $metka = ''
  603. $loc = 'Gadhouse'
  604. $temp_nickname = '<<$npc_nickname[''A29'']>>'
  605. monthbabkapay = month
  606. menu_off = 1
  607. hour = 6
  608. gs 'stat'
  609. '<center><H4>Your Grandparents'' Cottage</H4></center>'
  610. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  611. *nl
  612. 'All of a sudden you hear a familiar voice yell out, "<<$pcs_nickname>>, time to get up. You can''t spend the whole day laying around!"'
  613. wait 2000
  614. $npc_nickname['A29'] = input('<center>What name do you address your mother by?<br>Mother (default), Mum, Mom, Mama, etc.</center>')
  615. if $npc_nickname['A29'] = '':$npc_nickname['A29'] = '<<$temp_nickname>>'
  616. killvar '$temp_nickname'
  617. act 'Continue':
  618. cla & *clr
  619. minut += 2
  620. gs 'stat'
  621. '<center><H4>Your Grandparents'' Cottage</H4></center>'
  622. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  623. *nl
  624. 'You tiredly open your eyes seeing your <<$npc_nickname[''A29'']>> standing over you, "Fifteen more minutes..."'
  625. 'Your <<$npc_nickname[''A29'']>> lets out a loud sigh, "No, up now!" as she yanks the cover off...'
  626. '"<<$npc_nickname[''A29'']>>!" you exclaim, as you feel a slight cold breeze hit your body.'
  627. '"Listen!, I''m heading back to Pavlovsk this morning, and I don''t want to hear excuses, <<$pcs_nickname>>. The summer holidays will be over soon and you need to get used to waking up early, for when school starts. So, from now on set your alarm, so you can wake up at a reasonable time." <<$npc_nickname[''A29'']>> says as she stares at you expectantly.'
  628. act 'Get up':
  629. cla & *clr
  630. minut += 2
  631. gs 'stat'
  632. '<center><H4>Your Grandparents'' Cottage</H4></center>'
  633. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  634. *nl
  635. 'As soon as you get off your now coverless bed, your <<$npc_nickname[''A29'']>> is quick to resume her nagging, telling you again what you already heard from her a few moments ago. "Summer is almost over, you can''t sleep in anymore, not even for another fifteen minutes." She''s not even looking at you while she talks, but luckily for you that means she misses you rolling your eyes.'
  636. '"What are you going to do when school starts, or when you get a job? You better get into the habit of setting your alarm so you can wake up bright and early."'
  637. act 'Continue':
  638. cla & *clr
  639. minut += 2
  640. gs 'stat'
  641. '<center><H4>Your Grandparents'' Cottage</H4></center>'
  642. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  643. *nl
  644. 'You let out an exasperated sigh, "Yeah, yeah I know, you told me that already. So, how early are we talking?"'
  645. 'Your <<$npc_nickname[''A29'']>> shoots you a sharp look and you know to fix your attitude or else. "Well, depends on what you plan to do in the morning. There''s showering and brushing your teeth, doing your hair and then makeup and shaving if you really need to. If I remember right...Anya used to wake up at 06:00 for school. Besides, while you are staying at your grandparents house, you should be up extra early helping them tend to the farm, this isn''t a holiday camp!"'
  646. act 'Continue':
  647. cla & *clr
  648. minut += 2
  649. gs 'stat'
  650. '<center><H4>Your Grandparents'' Cottage</H4></center>'
  651. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  652. *nl
  653. '"You want me to wake up that early?!" You huff. "Can''t I wake up at like... 07:00?"'
  654. 'Your <<$npc_nickname[''A29'']>> shrugs. "You could, but then you might have to cut corners or even end up running late to school, and I won''t be having any of that. Your teachers won''t either," she warns you before making her way outside. "Oh, don''t forget; when you get back to Pavlovsk, you need to head down to the clinic and see the gynecologist for a check up. Not just once, but every month," she adds quickly.'
  655. act 'But why do I--':
  656. cla & *clr
  657. minut += 2
  658. gs 'stat'
  659. '<center><H4>Your Grandparents'' Cottage</H4></center>'
  660. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  661. *nl
  662. 'Before you can finish, she cuts you off. "I''m not going to have you running around town like so many of those other girls I see! Opening their legs for any boy that comes around..." She shakes her head in disgust. "I want a referral every month and it better tell me you''re still a virgin or else, understand?" <<$npc_nickname[''A29'']>> says as she storms off towards your grandparent''s outside door. "Don''t forget to talk to your grandparent''s and ask if they need help!" she says loudly. Without waiting for your response, she closes the door, and with that, she''s gone.'
  663. act 'I understand...':gt 'budilnik', 'start'
  664. end
  665. end
  666. end
  667. end
  668. end
  669. end
  670. --- Gadhouse ---------------------------------