korrPar 6.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190
  1. # korrPar
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. clr
  7. popolaini = 0
  8. saunaYouRoom = 0
  9. boycherdaksex = 0
  10. frost = 0
  11. minut += 1
  12. bonusZ = 0
  13. gs 'stat'
  14. fcolor = rgb(0, 0, 0)
  15. bcolor = rgb(255, 255, 255)
  16. lcolor = rgb(106, 90, 205)
  17. if hour ! 18 and blockBedrPar = 1:blockBedrPar = 0
  18. if blockBedrPar = 0:
  19. if sisboyday + 1 = daystart and hour = 18 and sisboytrioQW = 1:
  20. act 'Go to your room':gt 'sisterQW', 'sisboytrioQW_bedroom', 'start'
  21. elseif sisboyday + 1 = daystart and hour = 18 and (sisboyQW = 3 or sisboyQW = 5 or sisboyQW = 7 or sisboyQW = 9):
  22. act 'Go to your room':gt 'sisterQW', 'sisboyQW_bedroom'
  23. else
  24. act 'Go to your room':gt 'bedrPar'
  25. end
  26. end
  27. act 'Go to my parents'' room':gt 'bedrPar2'
  28. act 'Going to the living room':gt 'sitrPar'
  29. act 'Go to the bathroom':gt 'vanrPar'
  30. act 'Go to the kitchen':gt 'kuhrPar'
  31. act '<b>Go to the street</b>':
  32. if $clothingworntype ! 'nude':
  33. gt 'gorodok'
  34. else
  35. msg 'You are not dressed.'
  36. gt $curloc
  37. end
  38. end
  39. '<center><b><font color="maroon">corridor</font></b></center>'
  40. '<center><img src="images/qwest/alter/korrPar.jpg"></center>'
  41. 'On the wall near the front door hanging <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
  42. if palto > 0:'Hanging on the hook <<$palto>>'
  43. gs 'family'
  44. if hour >= 16 and hour <= 20 and indorf = 0:
  45. if artemvbrosvid = 1 and artemhakday ! daystart and motherQW < 2 and mothervideotalk = 0:
  46. cls
  47. BJvideoPublic = 1
  48. manna = 0
  49. gs 'stat'
  50. '<center><b><font color="maroon">mom</font></b></center>'
  51. '<center><img src="images/qwest/alter/mother.jpg"></center>'
  52. 'Mom backed hips hands "I then tossed a video with you ....... I never smacked you ....yes see in vain ... You realize that maybe this video is not only my? What about you now will speak.. What about you ... about all our family ... I guess you need to teach you a lesson. Volodya!"'
  53. act 'Beg to do nothing':
  54. cls
  55. mothervideotalk = 2
  56. minut += 5
  57. sub += 50
  58. gs 'stat'
  59. '<center><b><font color="maroon">mom</font></b></center>'
  60. '<center><img src="images/qwest/alter/mother.jpg"></center>'
  61. 'You burst into tears: "Mommy !forgive! This will never happen again! I made ​​a fool that ''s what I ''ll never..never_..." You weep and kneel. Mother looks at you and shakes his head out.'
  62. act 'Move away':gt $curloc
  63. end
  64. act 'Be silent':
  65. cls
  66. mothervideotalk = 3
  67. minut += 5
  68. dom += 10
  69. spank += 1
  70. gs 'stat'
  71. '<center><img src="images/qwest/alter/artom/spank.jpg"></center>'
  72. 'You stand staring at the floor. And what can I say?'
  73. 'Mother takes you by the hand and leads into the room: "Take off your pants and bend over!" You shake my head. " Volodya - keep it!" Stepfather grabs you and keeps .mother pulls your underwear takes the belt and starts to flog you. Gritting her teeth . Lifting his head as you see through the open door behind it to watch your brother and sister.'
  74. act 'Move away':gt $curloc
  75. end
  76. if momslut >= 2:
  77. act 'Threaten':
  78. cls
  79. mothervideotalk = 1
  80. minut += 5
  81. gs 'stat'
  82. '<center><b><font color="maroon">A_Mother</font></b></center>'
  83. '<center><img src="images/qwest/alter/mother.jpg"></center>'
  84. '"Come on -come_on - call the father! I''ll tell you what his daughter! And who went!"'
  85. 'Mother is looking at you and spit on the floor leaves.'
  86. act 'Move away':gt $curloc
  87. end
  88. end
  89. exit
  90. end
  91. if artemvbrosvid=1 and artemhakday ! daystart and motherQW >= 2 and mothervideotalk = 0:
  92. cls
  93. BJvideoPublic = 1
  94. manna = 0
  95. gs 'stat'
  96. '<center><b><font color="maroon">Mom</font></b></center>'
  97. '<center><img src="images/qwest/alter/mother.jpg" ></center>'
  98. 'Mom backed hips hands "What''s this about a video of you? How could you be this careless? You DO realize this is going to reflect badly on the entire family..."'
  99. act 'Apologize':
  100. cls
  101. mothervideotalk = 1
  102. minut += 5
  103. mother -= 40
  104. gs 'stat'
  105. '<center><b><font color="maroon">mom</font></b></center>'
  106. '<center><img src="images/qwest/alter/mother.jpg" ></center>'
  107. !!placeholder I guess, I''m sure I can come up with something better
  108. '"I don''t know what to say, mom... I''m sorry"'
  109. 'Mother shakes her head, glaring at you, and walks away'
  110. act 'Move away':gt $curloc
  111. end
  112. exit
  113. end
  114. if schoolprogul > 2 and SchoolAtestat = 0:
  115. cls
  116. gs 'stat'
  117. '<center><b><font color="maroon">mom</font></b></center>'
  118. '<center><img src="images/qwest/alter/mother.jpg"></center>'
  119. if schoolPredupr = 2:
  120. schoolPredupr = 3
  121. SchoolBlock = 1
  122. ParHomeBlock = 1
  123. schoolprogul = 0
  124. if $clothingworntype = 'sforma':gs 'clothing', 'strip'
  125. 'In the corridor you vsrechaet mother, her eyes thundered. "Doprygat? Thee out of high school. All live the way you want, I am no longer a mother!" Mother gathered your things in a bag, put the bag in your hands and thrown by the scruff of the apartment.'
  126. act 'Leave':gt 'gorodok'
  127. exit
  128. elseif schoolPredupr = 1:
  129. schoolPredupr = 2
  130. schoolprogul = 0
  131. Suspeh -= 40
  132. 'In the corridor you vsrechaet mother, her eyes thundered. "That was the school. Again You absenteeism. You already want to exclude from school, I was literally on his knees begging the directors can not exclude you and give you one last chance to reform. More because of you I will not be humiliated and remember. Next time you Departure from school! And if you fly out of school, I will personally kick him out of the house if you do not understand a normal relationship, then get out, no one does not keep you here! "Mother angrily left the room.'
  133. elseif schoolPredupr = 0:
  134. schoolPredupr = 1
  135. mother = 0
  136. schoolprogul = 0
  137. Suspeh -= 20
  138. 'In the corridor you vsrechaet mother, her eyes thundered. "That was the school. You solid absenteeism. For the first time you have forgiven, but the next you just kicked. What are you doing, balbeska?" Mother angrily left the room.'
  139. end
  140. act 'Move away':gt $curloc
  141. exit
  142. end
  143. end
  144. if hour >= 15 and hour < 20:
  145. if Gcall = 0:
  146. numnpcboy = 0
  147. :markboyfrendcall
  148. numnpcboy += 1
  149. if otnBoyFrend[numnpcboy] >= 20 and boyinday[numnpcboy]!day:
  150. Gcall = 1
  151. jump 'markboyfrendcall2'
  152. end
  153. if numboyFrend > numnpcboy:jump 'markboyfrendcall'
  154. end
  155. else
  156. if Gcall > 0:Gcall = 0
  157. end
  158. :markboyfrendcall2
  159. if Gcall > 0:'In the hallway rings <a href="exec:gt ''gtelefon''">phone</a>.'
  160. if motherWorry = 1:gt 'mother'
  161. --- korrPar ---------------------------------