family.qsrc 6.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257
  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 >= 16 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 mom 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 >= 18 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 father_go = 0:
  141. if hour >= 7 and hour < 21:
  142. ocpd_room = 1
  143. 'Your <a href="exec:gt ''father''">stepfather</a> is sitting on the sofa, watching TV.'
  144. end
  145. else
  146. if hour >= 7 and hour < 16:
  147. ocpd_room = 1
  148. 'Your <a href="exec:gt ''father''">stepfather</a> is sitting on the sofa, watching TV.'
  149. end
  150. end
  151. if hour >= 20 and hour < 23:
  152. ocpd_room = 1
  153. 'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, watching TV.'
  154. end
  155. end
  156. end
  157. if $loc = 'kuhrPar':
  158. gs 'dinmother'
  159. if mother_go = 0:
  160. if (week < 6 and hour >= 16 and hour < 21) or (week >= 6 and hour >= 7 and hour < 21):
  161. *pl dyneval($d_mother[rand(4,8)])
  162. end
  163. else
  164. if (week < 6 and hour >= 17 and hour < 21) or (week >= 6 and hour >= 7 and hour < 21 and hour ! 16):
  165. *pl dyneval($d_mother[rand(4,8)])
  166. end
  167. end
  168. end
  169. if $loc = 'korrPar':
  170. !! for future code I guess
  171. end
  172. if $loc = 'vokzalG':
  173. !! for future code I guess
  174. end
  175. if $loc = 'gschool_grounds':
  176. if (week < 6 and hour >= 14 and hour <= 17) or ((week >= 6 or kanikuli > 0) and hour >= 7 and hour <= 17):
  177. 'You see your <a href="exec:gt ''brother'', ''start''">brother</a> play football by the field near the school.'
  178. end
  179. end
  180. end
  181. end
  182. if $loc = 'sitrPar':
  183. act 'Sit on the sofa':gt 'family', 'sofa'
  184. end
  185. if $loc = 'sitrPar' and ocpd_room = 0:
  186. 'No one else is here right now, so I''m free to use the room how I like.'
  187. gs 'exercise','start'
  188. end
  189. if $ARGS[0]='sofa':
  190. $metka = 'sofa'
  191. $loc = 'family'
  192. *clr & cla
  193. gs 'stat'
  194. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/sofa.jpg"></center>'
  195. ''
  196. '<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>'
  197. ''
  198. act 'Watch TV':gt 'TV','pav'
  199. if ocpd_room = 0 and pornMagazine > 0:
  200. '<br>There is a porn magazine under the sofa cushions'
  201. gs 'events', 'read_porn'
  202. if pcs_horny >= 50:
  203. act 'Masturbate':gt 'selfplay', 'start'
  204. end
  205. end
  206. gs 'events', 'read'
  207. gs 'family'
  208. if ocpd_room = 0:
  209. act 'Take a nap (1:00)':
  210. if pcs_sleep < 90:
  211. pcs_sleep += 10
  212. pcs_health += 5
  213. minut += 60
  214. gs 'stat'
  215. 'You sleep about an hour.'
  216. else
  217. minut += 5
  218. gs 'stat'
  219. 'You are not tired enough to sleep, even for a short nap.'
  220. end
  221. end
  222. end
  223. act 'Get up':gt 'sitrPar'
  224. end
  225. --- family ---------------------------------