1
0

family.qsrc 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205
  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 = 'pav_commcenter':
  52. if week < 6:
  53. if hour >= 16 and hour < 18:
  54. 'Your sister <a href="exec:gt ''sister'', ''pav_commcenter''">Anya</a> is sitting with a group of boys and girls, drinking beer.'
  55. end
  56. elseif week >= 6:
  57. if hour >= 11 and hour < 18:
  58. 'Your sister <a href="exec:gt ''sister'', ''pav_commcenter''">Anya</a> is sitting with a group of boys and girls, drinking beer.'
  59. end
  60. end
  61. end
  62. end
  63. if indorf = 0:
  64. if $loc = 'bedrPar2':
  65. if moloc = 1:
  66. 'Your <<$npc_nickname[''A29'']>> and stepfather are sleeping on the bed.'
  67. end
  68. end
  69. if $loc = 'sitrPar' or ($loc = 'family' and $metka = 'sofa'):
  70. if hour < 7 and brothermorningsex = daystart:
  71. ocpd_room = 1
  72. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is getting ready for school.'
  73. elseif hour < 7 and brothermorningsex ! daystart:
  74. ocpd_room = 1
  75. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sleeping on the sofa.'
  76. elseif hour >= 23:
  77. ocpd_room = 1
  78. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sleeping on the sofa.'
  79. end
  80. if week < 6:
  81. if father_go = 0:
  82. if hour >= 16 and hour < 21:
  83. ocpd_room = 1
  84. 'Your <a href="exec:gt ''father''">stepfather</a> is sitting on the sofa, watching TV.'
  85. end
  86. end
  87. if hour >= 18 and hour < 20:
  88. if kanikuli > 0:
  89. ocpd_room = 1
  90. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, playing video games.'
  91. else
  92. ocpd_room = 1
  93. 'Your little brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting by the table and doing his homework.'
  94. end
  95. end
  96. if hour >= 20 and hour < 23:
  97. ocpd_room = 1
  98. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, playing video games.'
  99. end
  100. end
  101. if week >= 6:
  102. if father_go = 0:
  103. if hour >= 7 and hour < 21:
  104. ocpd_room = 1
  105. 'Your <a href="exec:gt ''father''">stepfather</a> is sitting on the sofa, watching TV.'
  106. end
  107. else
  108. if hour >= 7 and hour < 16:
  109. ocpd_room = 1
  110. 'Your <a href="exec:gt ''father''">stepfather</a> is sitting on the sofa, watching TV.'
  111. end
  112. end
  113. if hour >= 20 and hour < 23:
  114. ocpd_room = 1
  115. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, watching TV.'
  116. end
  117. end
  118. end
  119. if $loc = 'korrPar':
  120. !! for future code I guess
  121. end
  122. if $loc = 'pav_train':
  123. !! for future code I guess
  124. end
  125. if $loc = 'gschool_grounds':
  126. if week = 5 and hour >= 16 and hour <= 18:
  127. 'You wonder if your <a href="exec:gt ''brother'', ''start''">brother</a> is one of the kids yelling.'
  128. elseif (week < 6 and hour >= 14 and hour <= 17) or ((week >= 6 or kanikuli > 0) and hour >= 7 and hour <= 17):
  129. 'You see your <a href="exec:gt ''brother'', ''start''">brother</a> play football by the field near the school.'
  130. end
  131. end
  132. end
  133. end
  134. if $loc = 'sitrPar': act 'Sit on the sofa':gt 'family', 'sofa'
  135. if $loc = 'sitrPar' and ocpd_room = 0 and momloc ! 24:
  136. 'No one else is here right now, so you''re free to use the room how you like.'
  137. gs 'exercise','start'
  138. end
  139. if $ARGS[0]='sofa':
  140. $menu_loc = 'family'
  141. $menu_arg = 'sofa'
  142. menu_off = 0
  143. $metka = 'sofa'
  144. $loc = 'family'
  145. *clr & cla
  146. gs 'stat'
  147. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/sofa.jpg"></center>'
  148. ''
  149. '<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>'
  150. ''
  151. act 'Watch TV':gt 'TV','pav'
  152. if ocpd_room = 0 and pornMagazine > 0:
  153. '<br>There is a porn magazine under the sofa cushions'
  154. gs 'events', 'read_porn'
  155. if pcs_horny >= 50:
  156. act 'Masturbate':gt 'selfplay', 'start'
  157. end
  158. end
  159. gs 'events', 'read'
  160. gs 'family'
  161. if ocpd_room = 0:
  162. act 'Take a nap (1:00)':
  163. if pcs_sleep < 90:
  164. pcs_sleep += 10
  165. pcs_health += 5
  166. minut += 60
  167. gs 'stat'
  168. 'You sleep about an hour.'
  169. else
  170. minut += 5
  171. gs 'stat'
  172. 'You are not tired enough to sleep, even for a short nap.'
  173. end
  174. end
  175. end
  176. act 'Get up':gt 'sitrPar'
  177. end
  178. --- family ---------------------------------