family.qsrc 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264
  1. # family
  2. sisterAge = year - ((npc_dob['A33'] - (npc_dob['A33'] mod 10000)) / 10000)
  3. if daystart ! m_day:
  4. m_day = daystart
  5. father_go = rand(0,1)
  6. mother_go = rand(0,1)
  7. end
  8. indorf = 0
  9. !brother or father are in the livign room
  10. ocpd_room = 0
  11. if indorf_month ! month and week ! 7 and week ! 1:
  12. !!monthly
  13. indorf_month = month
  14. dostupindorf = 1
  15. end
  16. if week = 1 and dostupindorf = 1:dostupindorf = 0
  17. if dostupindorf = 1 and ((week = 6 and hour >= 12) or (week = 7 and hour < 20)):
  18. !!go to the village
  19. indorf = 1
  20. father_go = 0
  21. mother_go = 0
  22. end
  23. if indorf = 1 and sister_opr_indorf = 0:
  24. sister_opr_indorf = 1
  25. sister_indorf = rand(0, 1)
  26. end
  27. if indorf = 0:
  28. sister_opr_indorf = 0
  29. sister_indorf = 0
  30. end
  31. if sisboyparty_day + 1 = daystart:sister_indorf = 0
  32. if sister_indorf = 1:sisterHere = 0
  33. *nl
  34. if StoryLine = 1:
  35. if sisboyparty_day + 1 = daystart and hour > 18 and sisboypartyQW = 1:
  36. if sisboyparty = 1: sisboyparty = -1
  37. if sisboyparty = 2:
  38. *clr & cla
  39. menu_off = 1
  40. minut += 5
  41. sisboyparty = -1
  42. gs 'stat'
  43. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_7.jpg"></center>'
  44. 'You forgot to go to Rexs'' birthday party.'
  45. 'You brush it off thinking, <i>Oh well, hopefully he won''t be offended.</i>'
  46. act 'Move away':gt $loc, $metka
  47. exit
  48. end
  49. end
  50. if sister_indorf = 0:
  51. if $loc = 'bedrPar':
  52. sisterHere = 0
  53. sisterdialog = 1
  54. if hour < 7:
  55. sisterHere = 1
  56. 'Your sister <a href="exec:gt ''sistersleep''">Anya</a> is asleep in her bed.'
  57. end
  58. if week >= 6:
  59. if hour >= 7 and hour < 10:
  60. sisterHere = 1
  61. 'Your sister <a href="exec:gt ''sistersleep''">Anya</a> is asleep in her bed.'
  62. end
  63. if hour = 10:
  64. sisterHere = 2
  65. sisterdialog = 3
  66. 'Your sister <a href="exec:gt ''sister''">Anya</a> is getting ready to go for a walk.'
  67. end
  68. end
  69. if hour >= 18 and sisboyparty_day + 1 ! daystart:
  70. sisterHere = 2
  71. 'Your sister <a href="exec:gt ''sister''">Anya</a> is sitting on her bed, reading a book.'
  72. elseif sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  73. *clr & cla
  74. menu_off = 1
  75. minut += 5
  76. gs 'stat'
  77. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_6_<<rand(1,7)>>.jpg"></center>'
  78. 'Drunk and disheveled, Anya bursts into the room.'
  79. 'You notice that her hair, and all her clothes are smeared in sticky sperm.'
  80. 'In this state, she falls on the bed and instantly falls asleep.'
  81. sisboyparty = 1
  82. act 'Move away':gt $loc
  83. exit
  84. elseif sisboyparty_day + 1 = daystart and hour >= 22:
  85. sisterHere = 1
  86. if sisboypartyQW = 1:sisboypartyQW = 2
  87. if sisboyparty = -1:sisboyparty = 1
  88. 'Your drunken sister Anya is sound asleep in her bed.'
  89. end
  90. end
  91. if $loc = 'gdk':
  92. if week < 6:
  93. if hour >= 16 and hour < 18:
  94. 'Your sister <a href="exec:gt ''sister'', ''gdk''">Anya</a> is sitting with a group of boys and girls, drinking beer.'
  95. end
  96. elseif week >= 6:
  97. if hour >= 11 and hour < 18:
  98. 'Your sister <a href="exec:gt ''sister'', ''gdk''">Anya</a> is sitting with a group of boys and girls, drinking beer.'
  99. end
  100. end
  101. end
  102. end
  103. if indorf = 0:
  104. if $loc = 'bedrPar2':
  105. if hour < 6 or hour >= 21:
  106. 'Your <<$npc_nickname[''A29'']>> and stepfather are sleeping on the bed.'
  107. if hour = 21:parsexrand = rand(0, 5)
  108. end
  109. end
  110. if $loc = 'sitrPar' or ($loc = 'family' and $metka = 'sofa'):
  111. if hour < 7 and brothermorningsex = daystart:
  112. ocpd_room = 1
  113. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is getting ready for school.'
  114. elseif hour < 7 and brothermorningsex ! daystart:
  115. ocpd_room = 1
  116. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sleeping on the sofa.'
  117. elseif hour >= 23:
  118. ocpd_room = 1
  119. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sleeping on the sofa.'
  120. end
  121. if week < 6:
  122. if father_go = 0:
  123. if hour >= 16 and hour < 21:
  124. ocpd_room = 1
  125. 'Your <a href="exec:gt ''father''">stepfather</a> is sitting on the sofa, watching TV.'
  126. end
  127. end
  128. if hour >= 18 and hour < 20:
  129. if kanikuli > 0:
  130. ocpd_room = 1
  131. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, playing video games.'
  132. else
  133. ocpd_room = 1
  134. 'Your little brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting by the table and doing his homework.'
  135. end
  136. end
  137. if hour >= 20 and hour < 23:
  138. ocpd_room = 1
  139. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, playing video games.'
  140. end
  141. end
  142. if week >= 6:
  143. if father_go = 0:
  144. if hour >= 7 and hour < 21:
  145. ocpd_room = 1
  146. 'Your <a href="exec:gt ''father''">stepfather</a> is sitting on the sofa, watching TV.'
  147. end
  148. else
  149. if hour >= 7 and hour < 16:
  150. ocpd_room = 1
  151. 'Your <a href="exec:gt ''father''">stepfather</a> is sitting on the sofa, watching TV.'
  152. end
  153. end
  154. if hour >= 20 and hour < 23:
  155. ocpd_room = 1
  156. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, watching TV.'
  157. end
  158. end
  159. end
  160. if $loc = 'kuhrPar':
  161. gs 'dinmother'
  162. if mother_go = 0:
  163. if (week < 6 and hour >= 16 and hour < 21) or (week >= 6 and hour >= 7 and hour < 21):
  164. *pl dyneval($d_mother[rand(4,8)])
  165. end
  166. else
  167. if (week < 6 and hour >= 17 and hour < 21) or (week >= 6 and hour >= 7 and hour < 21 and hour ! 16):
  168. *pl dyneval($d_mother[rand(4,8)])
  169. end
  170. end
  171. end
  172. if $loc = 'korrPar':
  173. !! for future code I guess
  174. end
  175. if $loc = 'pavtrain':
  176. !! for future code I guess
  177. end
  178. if $loc = 'gschool_grounds':
  179. if week = 5 and hour >= 16 and hour <= 18:
  180. 'You wonder if your <a href="exec:gt ''brother'', ''start''">brother</a> is one of the kids yelling.'
  181. elseif (week < 6 and hour >= 14 and hour <= 17) or ((week >= 6 or kanikuli > 0) and hour >= 7 and hour <= 17):
  182. 'You see your <a href="exec:gt ''brother'', ''start''">brother</a> play football by the field near the school.'
  183. end
  184. end
  185. end
  186. end
  187. if $loc = 'sitrPar': act 'Sit on the sofa':gt 'family', 'sofa'
  188. if $loc = 'sitrPar' and ocpd_room = 0:
  189. 'No one else is here right now, so I''m free to use the room how I like.'
  190. gs 'exercise','start'
  191. end
  192. if $ARGS[0]='sofa':
  193. $menu_loc = 'family'
  194. $menu_arg = 'sofa'
  195. menu_off = 0
  196. $metka = 'sofa'
  197. $loc = 'family'
  198. *clr & cla
  199. gs 'stat'
  200. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/sofa.jpg"></center>'
  201. ''
  202. '<center>A small sofa bed, when not folded out into a bed, is just big enough for you to curl up on and take a nap.</center>'
  203. ''
  204. act 'Watch TV':gt 'TV','pav'
  205. if ocpd_room = 0 and pornMagazine > 0:
  206. '<br>There is a porn magazine under the sofa cushions'
  207. gs 'events', 'read_porn'
  208. if pcs_horny >= 50:
  209. act 'Masturbate':gt 'selfplay', 'start'
  210. end
  211. end
  212. gs 'events', 'read'
  213. gs 'family'
  214. if ocpd_room = 0:
  215. act 'Take a nap (1:00)':
  216. if pcs_sleep < 90:
  217. pcs_sleep += 10
  218. pcs_health += 5
  219. minut += 60
  220. gs 'stat'
  221. 'You sleep about an hour.'
  222. else
  223. minut += 5
  224. gs 'stat'
  225. 'You are not tired enough to sleep, even for a short nap.'
  226. end
  227. end
  228. end
  229. act 'Get up':gt 'sitrPar'
  230. end
  231. --- family ---------------------------------