family.qsrc 6.9 KB

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