family 5.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195
  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. if indorf_month ! month and week ! 7 and week ! 1:
  9. !!monthly
  10. indorf_month = month
  11. dostupindorf = 1
  12. end
  13. if week = 1 and dostupindorf = 1:dostupindorf = 0
  14. if dostupindorf = 1 and ((week = 6 and hour >= 12) or (week = 7 and hour < 20)):
  15. !!go to the village
  16. indorf = 1
  17. father_go = 0
  18. mother_go = 0
  19. end
  20. if indorf = 1 and sister_opr_indorf = 0:
  21. sister_opr_indorf = 1
  22. sister_indorf = rand(0, 1)
  23. end
  24. if indorf = 0:
  25. sister_opr_indorf = 0
  26. sister_indorf = 0
  27. end
  28. if sisboyparty_day + 1 = daystart:sister_indorf = 0
  29. if sister_indorf = 1:sisterHere = 0
  30. ''
  31. if StoryLine = 1:
  32. if sisboyparty_day + 1 = daystart and hour > 18 and sisboypartyQW = 1:
  33. if sisboyparty = 1:sisboyparty = -1
  34. if sisboyparty = 2:
  35. cls
  36. minut += 5
  37. sisboyparty = -1
  38. gs 'stat'
  39. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_7.jpg"></center>'
  40. 'You have forgotten to go to a Rexs'' birthday party.'
  41. 'You think, "Oh well, I hope they are not greatly offended."'
  42. act 'Move away':gt $loc, $metka
  43. exit
  44. end
  45. end
  46. if sister_indorf = 0:
  47. if $loc = 'bedrPar':
  48. sisterHere = 0
  49. sisterdialog = 1
  50. if hour < 7:
  51. sisterHere = 1
  52. 'Your sister <a href="exec:gt ''sistersleep''">Anya</a> is asleep in bed.'
  53. end
  54. if week < 6:
  55. if hour = 7:
  56. sisterHere = 2
  57. sisterdialog = 2
  58. 'Your sister <a href="exec:GT ''sister''">Anya</a> is getting ready for work.'
  59. end
  60. end
  61. if week >= 6:
  62. if hour >= 7 and hour < 10:
  63. sisterHere = 1
  64. 'Your sister <a href="exec:gt ''sistersleep''">Anya</a> is asleep in bed.'
  65. end
  66. if hour = 10:
  67. sisterHere = 2
  68. sisterdialog = 3
  69. 'Your sister <a href="exec:GT ''sister''">Anya</a> is getting ready to go for a walk.'
  70. end
  71. end
  72. if hour >= 18 and sisboyparty_day + 1 ! daystart:
  73. sisterHere = 2
  74. 'Your sister <a href="exec:gt ''sister''">Anya</a> is sitting on her bed, reading a book.'
  75. elseif sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  76. cls
  77. minut += 5
  78. gs 'stat'
  79. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_6_<<rand(1,7)>>.jpg"></center>'
  80. 'Drunk and disheveled, Anya bursts into the room.'
  81. 'You notice that her hair, and all over her clothes she is smeared in sticky sperm.'
  82. 'In this state, she falls on the bed and instantly falls asleep.'
  83. sisboyparty = 1
  84. act 'Move away':gt $loc
  85. exit
  86. elseif sisboyparty_day + 1 = daystart and hour >= 22:
  87. sisterHere = 1
  88. if sisboypartyQW = 1:sisboypartyQW = 2
  89. if sisboyparty = -1:sisboyparty = 1
  90. 'Your drunken sister Anya asleep in her bed.'
  91. end
  92. end
  93. if $loc = 'gdk':
  94. if week < 6:
  95. if hour >= 16 and hour < 18:
  96. 'Your sister <a href="exec:GT ''sister'', ''gdk''">Anya</a> is sitting in a group of boys and girls, drinking beer.'
  97. end
  98. elseif week >= 6:
  99. if hour >= 11 and hour < 18:
  100. 'Your sister <a href="exec:GT ''sister'', ''gdk''">Anya</a> is sitting in a group of boys and girls, drinking beer.'
  101. end
  102. end
  103. end
  104. end
  105. if indorf = 0:
  106. if $loc = 'bedrPar2':
  107. if hour < 6 or hour >= 21:
  108. 'On the bed sleeps your mom and stepfather.'
  109. if hour = 21:parsexrand = rand(0, 5)
  110. end
  111. end
  112. if $loc = 'sitrPar':
  113. if hour < 7 or hour >= 21:
  114. 'Sleeping on the couch, your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a>.'
  115. end
  116. if week < 6:
  117. if father_go = 0:
  118. if hour >= 16 and hour < 21:
  119. 'Sitting on the couch is your <a href="exec:gt ''father''">stepfather</a> watching TV.'
  120. end
  121. end
  122. if hour >= 18 and hour < 20:
  123. if kanikuli > 0:
  124. 'Sitting on the couch your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is watching TV.'
  125. else
  126. 'Sitting at the table your little brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is doing his homework.'
  127. end
  128. end
  129. if hour = 20:
  130. 'Sitting on the couch your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is watching TV.'
  131. end
  132. end
  133. if week >= 6:
  134. if father_go = 0:
  135. if hour >= 7 and hour < 21:'Sitting on the couch is your <a href="exec:gt ''father''">stepfather</a> watching TV.'
  136. else
  137. if hour >= 7 and hour < 16:'Sitting on the couch is your <a href="exec:gt ''father''">stepfather</a> watching TV.'
  138. end
  139. if hour >= 18 and hour <= 20:'Sitting on the couch your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is watching TV.'
  140. end
  141. end
  142. if $loc = 'kuhrPar':
  143. gs 'dinmother'
  144. if mother_go = 0:
  145. if (week < 6 and hour >= 16 and hour < 21) or (week >= 6 and hour >= 7 and hour < 21):
  146. *pl dyneval($d_mother[rand(4,8)])
  147. end
  148. else
  149. if (week < 6 and hour >= 17 and hour < 21) or (week >= 6 and hour >= 7 and hour < 21 and hour ! 16):
  150. *pl dyneval($d_mother[rand(4,8)])
  151. end
  152. end
  153. end
  154. if $loc = 'korrPar':
  155. !! for future code I guess
  156. end
  157. if $loc = 'vokzalG':
  158. !! for future code I guess
  159. end
  160. if $loc = 'gschool_grounds':
  161. if (week < 6 and hour >= 14 and hour <= 17) or ((week >= 6 or kanikuli > 0) and hour >= 7 and hour <= 17):
  162. 'On the field near the school your <a href="exec:gt ''brother'', ''start''">brother</a> plays football.'
  163. end
  164. end
  165. end
  166. end
  167. --- family ---------------------------------