family 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184
  1. # family
  2. if day ! m_day:
  3. m_day = day
  4. father_go = rand(0, 1)
  5. mother_go = rand(0, 1)
  6. end
  7. indorf = 0
  8. if indorf_month ! month:
  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 sister_indorf = 1:sisterHere = 0
  29. if StoryLine = 1:
  30. if sisboytrio >= 5 and sisboyparty ! 0 and sisboyparty_day + 1 < daystart and randsbPartyDay <= daystart and week >= 4:
  31. if week = 4:randsbPartyDay = daystart + 4 & sisboyparty_day = daystart + rand(0, 2)
  32. if week = 5:randsbPartyDay = daystart + 3 & sisboyparty_day = daystart + rand(0, 1)
  33. if week = 6:randsbPartyDay = daystart + 2 & sisboyparty_day = daystart
  34. end
  35. if sisboyparty_day + 1 = daystart and sisboyparty = 2 and hour > 18 and sisboypartyQW = 1:
  36. cls
  37. minut += 5
  38. sisboyparty = -1
  39. gs 'stat'
  40. '<center><img src="images/qwest/alter/sisterQW/Party/sisboyQWParty_7.jpg"></center>'
  41. 'You have forgotten to come to a party in honor of the birthday Rex.'
  42. '- Oh well, I hope they are not offended me greatly...'
  43. act 'Move away':gt $loc, $metka
  44. exit
  45. end
  46. if sisboyparty_day + 1 = daystart and (sisboyparty = 2 or sisboyparty = 1) and hour > 18 and sisboypartyQW > 1:sisboyparty = -1
  47. if sister_indorf = 0:
  48. if $loc = 'bedrPar':
  49. sisterHere = 0
  50. if hour < 7:
  51. sisterHere = 1
  52. 'Your sister <a href="exec:gt ''sistersleep''">Anja</a> asleep in bed.'
  53. end
  54. if week < 6:
  55. if hour = 7:
  56. sisterHere = 2
  57. 'Your sister <a href="exec:gt ''sister'', ''home''">Anja</a> is going to work.'
  58. end
  59. end
  60. if week >= 6:
  61. if hour >= 7 and hour < 10:
  62. sisterHere = 1
  63. 'Your sister <a href="exec:gt ''sistersleep''">Anja</a> asleep in bed.'
  64. end
  65. if hour = 10:
  66. sisterHere = 2
  67. 'Your sister <a href="exec:gt ''sisterprogulka''">Anja</a> going for a walk.'
  68. end
  69. end
  70. if hour >= 18:
  71. sisterHere = 2
  72. 'Your sister <a href="exec:gt ''sister'', ''home''">Anja</a> sitting on bed and reading a book.'
  73. elseif sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  74. cls
  75. minut += 5
  76. gs 'stat'
  77. '<center><img src="images/qwest/alter/sisterQW/Party/sisboyQWParty_6_<<rand(1,7)>>.jpg"></center>'
  78. 'Drunk, disheveled Anja bursts into the room.'
  79. 'You notice that her hair, All clothes are smeared with sticky sperm.'
  80. 'In this form,, she falls on the bed and falls asleep instantly.'
  81. sisboyparty = 1
  82. act 'Move away':gt $loc
  83. exit
  84. elseif sisboyparty_day + 1 = daystart and hour >= 22:
  85. sisterHere = 1
  86. if sisboypartyQW = 1:sisboypartyQW = 2
  87. if sisboyparty = -1:sisboyparty = 1
  88. 'Your drunken sister Anja asleep in bed.'
  89. end
  90. end
  91. end
  92. if indorf = 0:
  93. if $loc = 'bedrPar2':
  94. if hour < 6 or hour >= 21:
  95. 'On the bed sleeping mom and stepfather.'
  96. if hour = 21:parsexrand = rand(0, 5)
  97. end
  98. end
  99. if $loc = 'sitrPar':
  100. if hour < 7 or hour >= 21:'Sleeps on the couch your younger brother Kolka.'
  101. if week < 6:
  102. if father_go = 0:
  103. if hour >= 16 and hour < 21:'Sitting on the couch <a href="exec:gt ''father''">stepfather</a> and watching TV.'
  104. end
  105. if hour >= 18 and hour < 20:'Sitting at the table your little brother <a href="exec:gt ''brother''">Kolka</a> and teaches lessons.'
  106. if hour = 20:'Sitting on the couch your younger brother <a href="exec:gt ''brother''">Kolka</a> and watching TV.'
  107. end
  108. if week >= 6:
  109. if father_go = 0:
  110. if hour >= 7 and hour < 21:'Sitting on the couch <a href="exec:gt ''father''">stepfather</a> watching TV.'
  111. else
  112. if hour >= 7 and hour < 16:'Sitting on the couch <a href="exec:gt ''father''">stepfather</a> watching TV.'
  113. end
  114. if hour >= 18 and hour <= 20:'Sitting on the couch your younger brother <a href="exec:gt ''brother''">Kolka</a> and watching TV.'
  115. end
  116. end
  117. if $loc = 'kuhrPar':
  118. if week < 6:
  119. if mother_go = 0:
  120. if hour >= 16 and hour < 21:'Stands near the stove <a href="exec:gt ''mother''">Mom</a> and that it cooks.'
  121. else
  122. if hour >= 17 and hour < 21:'Near the stove stands <a href="exec:gt ''mother''">Mom</a> and that it is preparing.'
  123. end
  124. end
  125. if week >= 6:
  126. if mother_go = 0:
  127. if hour >= 7 and hour < 21:'Stands near the stove <a href="exec:gt ''mother''">Mom</a> and that it cooks.'
  128. else
  129. if (hour >= 7 and hour < 16) or (hour >= 17 and hour < 21):'Near the stove stands <a href="exec:gt ''mother''">Mom</a> and that it is preparing.'
  130. end
  131. end
  132. end
  133. if $loc = 'korrPar':
  134. !! for future code I guess
  135. end
  136. if $loc = 'vokzalG':
  137. !! for future code I guess
  138. end
  139. if $loc = 'gdk':
  140. if week < 6:
  141. if hour >= 16 and hour < 18:'Your sister <a href="exec:gt ''sister'', ''drinking''">Anja</a> sitting in the company of beautiful girls and guys drinking beer.'
  142. end
  143. if week >= 6:
  144. if hour >= 11 and hour < 18:'Your sister <a href="exec:gt ''sister'', ''drinking''">Anja</a> sitting in the company of beautiful girls and guys drinking beer.'
  145. end
  146. end
  147. if $loc = 'gschool':
  148. if (week < 6 and hour >= 15 and hour <= 17) or ((week >= 6 or kanikuli > 0) and hour >= 7 and hour <= 17):
  149. if hour >= 15 and hour <= 17:'On the football field near the school your <a href="exec:gt ''brother''">brother</a> plays futbol.'
  150. end
  151. end
  152. end
  153. end
  154. --- family ---------------------------------