family.qsrc 6.6 KB

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