family.qsrc 6.8 KB

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