korrPar 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310
  1. # korrPar
  2. music_loop = 0
  3. CLOSE ALL
  4. if sound = 0:PLAY 'sound/korr.mp3',30
  5. $metkaM = $ARGS[0]
  6. $locM = $CURLOC
  7. $metka = $ARGS[0]
  8. $loc = $CURLOC
  9. $location_type = 'private'
  10. clr
  11. popolaini = 0
  12. saunaYouRoom = 0
  13. boycherdaksex = 0
  14. minut += 1
  15. bonusZ = 0
  16. curr_home = 1
  17. gs 'stat'
  18. if night_mode = 1:
  19. fcolor = rgb(255, 255, 255)
  20. bcolor = rgb(0, 0, 0)
  21. lcolor = rgb(106, 90, 205)
  22. else
  23. fcolor = rgb(0, 0, 0)
  24. bcolor = rgb(255, 255, 255)
  25. lcolor = rgb(106, 90, 205)
  26. end
  27. if hour ! 18 and blockBedrPar = 1:blockBedrPar = 0
  28. if blockBedrPar = 0:
  29. if sisboyday + 1 = daystart and hour = 18 and sisboytrioQW = 1:
  30. act 'Go to your room':gt 'sisterQW', 'sisboytrioQW_bedroom', 'start'
  31. elseif sisboyday + 1 = daystart and hour = 18 and (npc_QW['A33'] = 3 or npc_QW['A33'] = 5 or npc_QW['A33'] = 7 or npc_QW['A33'] = 9):
  32. act 'Go to your room':gt 'sisterQW', 'sisboyQW_bedroom'
  33. else
  34. act 'Go to your room':gt 'bedrPar'
  35. end
  36. end
  37. act 'Go to your parents'' room':gt 'bedrPar2'
  38. act 'Go to the living room':gt 'sitrPar'
  39. act 'Go to the bathroom':gt 'vanrPar'
  40. act 'Go to the kitchen':gt 'kuhrPar'
  41. act '<font color = maroon>Leave the apartment and go to the stairwell</font>':
  42. if $clothingworntype ! 'nude':
  43. gt'pod_ezd','etaj_2'
  44. else
  45. msg'<b><font color = red>You need to get dressed.</font></b>'
  46. gt 'korrPar'
  47. end
  48. end
  49. act '<font color = maroon><b>Leave the apartment and go outside</b></font>':
  50. if $clothingworntype ! 'nude':
  51. if hour < 4 and motherWorry = 0 and age < 18:
  52. '<font color=red>Are you sure? Your mother will worry if you go out at this time.</font>'
  53. cla
  54. act '<font color=red>Yes, go outside</font>':gt'pavResidential'
  55. act 'No, stay inside':gt 'korrPar'
  56. else
  57. gt'pavResidential'
  58. end
  59. else
  60. msg'<b><font color = red>You need to get dressed.</font></b>'
  61. gt 'korrPar'
  62. end
  63. end
  64. '<center><h1><font color="maroon">Corridor</font></h1></center>'
  65. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/korrpar.jpg"></center>'
  66. *nl
  67. 'The corridor of your parent''s apartment. There are several doors which lead to the other rooms of the apartment, as well as the front door which leads outside to the stairwell.'
  68. 'A <a href="exec:gt ''mirror'', ''start''">mirror</a> hangs on the wall near the front door, besides that are the <a href="exec:gt ''cloakroom'', ''view_coat_list''">coat hooks</a>.'
  69. gs 'family'
  70. if indorf = 1:'With your parents being away to visit your grandparents, the apartment seems quiet and empty.'
  71. !to add a counter if you avoid Dimka
  72. if nodimkaK >= rand(7,10) and DimkaWarnedToday = 0:
  73. if hour >= 14 and hour < 24 and week <=5 and DimkaWarnedToday = 0: gt 'DimkaWarning'
  74. if hour >= 9 and hour < 24 and week >=6 and DimkaWarnedToday = 0: gt 'DimkaWarning'
  75. end
  76. $korrParMomHeader = '<center><h1><font color="maroon">Mom</font></h1></center><center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/mother.jpg"></center><br />'
  77. if hour >= 16 and hour <= 20 and indorf = 0:
  78. if artemvbrosvid = 1 and artemhakday ! daystart and npc_QW['A29'] < 2 and mothervideotalk = 0 or BrotherNo = 1 and BrotherNoDay ! daystart:
  79. cls
  80. BJvideoPublic = 1
  81. BrotherNo = 0
  82. BrotherNoDay = daystart
  83. pcs_mood = 5
  84. npc_rel['A29'] -= 40
  85. gs 'stat'
  86. *pl $korrParMomHeader
  87. 'Your mother stands in the hallway waiting for you, clearly angry. As soon as she sees you, she grabs your ear and pinches it hard, making you wince in pain. "I just saw this video of you sucking some guy''s dick! What the hell were you thinking!? Your stepfather and I worked so hard to raise you properly, and then you do this. Do you realize that maybe this video was sent to others too? What will the people in town think of us now? I oughta teach you a lesson. What do you have to say for yourself!? Speak up!"'
  88. act 'Beg her to do nothing':
  89. cla
  90. mothervideotalk = 2
  91. minut += 5
  92. sub += 5
  93. gs 'stat'
  94. *nl
  95. 'You burst into tears: "Mommy, please forgive me! It will will never happen again! I made a stupid mistake, I''m sorry... I didn''t mean to... please... I don''t... sorry..." You fall to your knees sobbing uncontrollably, hoping she will have mercy on you. Your mother looks down at you, still angry but not quite sure what to do. She lets out an exasperated gasp, shakes her head and walks away.'
  96. act 'Get back on your feet':gt $curloc
  97. end
  98. act 'Be silent':
  99. cls
  100. mothervideotalk = 3
  101. minut += 5
  102. pcs_dom += 10
  103. spank += 1
  104. gs 'pain', 5, 'asscheeks', 'spank'
  105. gs 'stat'
  106. '<center><h1><font color="maroon">Mom</font></h1></center>'
  107. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/spank.jpg"></center>'
  108. *nl
  109. 'You stand in the hallway staring at the floor, too embarrassed to say anything. What is there to say, anyway?'
  110. 'Your mother grabs you by the arm and pulls you into the living room: "Take off your pants and bend over!" You shake your head, not liking where this is going at all. Getting even angrier by your refusal, she shouts: "Vladimir, come and hold her down!"'
  111. 'A few seconds later your stepfather enters the living room and immediately pulls you down and keeps you in place, while your mother pulls away your clothing. She then grabs a belt and starts to flog your bare ass with it, not holding back at all.'
  112. 'You take your punishment as good as you can, but towards the end you''re in tears and your cries are heard throughout the apartment. When it''s finally over, you raise your head just in time to catch the startled faces of your brother and sister in the doorway.'
  113. act 'Stand up and straighten your clothes':gt $curloc
  114. end
  115. if momslut >= 2:
  116. act 'Threaten her':
  117. cla
  118. mothervideotalk = 1
  119. npc_rel['A29'] -= 10
  120. minut += 5
  121. gs 'stat'
  122. *nl
  123. 'You slap away her hand with a defiant look in your eyes. "Oh, really? You''re no angel yourself either, Mom... does Dad know what YOU have been up to lately? Why don''t we go ask him, while we''re on this subject?"'
  124. 'Your mother looks at you furiously, but is at a loss for words. After a few seconds of awkward silence she storms off, slamming the door shut behind her.'
  125. act 'Continue':gt $curloc
  126. end
  127. end
  128. exit
  129. end
  130. if artemvbrosvid=1 and artemhakday ! daystart and npc_QW['A29'] >= 2 and mothervideotalk = 0:
  131. cls
  132. BJvideoPublic = 1
  133. pcs_mood = 5
  134. gs 'stat'
  135. *pl $korrParMomHeader
  136. 'When you enter the hallway, you find your mother waiting there for you. "What''s all this I hear about a video of you sucking some guy''s dick? How could you be so careless, <<$pcs_nickname>>? You do realize this makes our whole family look bad..."'
  137. act 'Apologize':
  138. cla
  139. mothervideotalk = 1
  140. minut += 5
  141. npc_rel['A29'] -= 40
  142. gs 'stat'
  143. *nl
  144. '"I don''t know what to say, mom... I''m really sorry."'
  145. 'Your mother is clearly very upset with you. After a short discussion, she walks away.'
  146. act 'Continue':gt $curloc
  147. end
  148. exit
  149. end
  150. if schoolprogul > 2 and SchoolAtestat = 0:
  151. cls
  152. gs 'stat'
  153. *pl $korrParMomHeader
  154. if belgangQW=10000:
  155. belgangQW=10001
  156. schoolprogul = 0
  157. GspravkaT = 2
  158. motherKnowSpravka = 1
  159. '"Oh, my darling, where have you been? We have been so worried."'
  160. 'You go into the kitchen with your mom and spend some time explaining what happened to you. Many of the details are difficult to talk about, and you cry and hug your mom as you tell your story.'
  161. 'Your mom tells you she will sort out everything with the school and makes you a bowl of chicken soup.'
  162. if pcs_energy >= 30:
  163. 'You are too full to eat it.'
  164. elseif pcs_energy >= 20 and pcs_energy < 30:
  165. if water < 20:
  166. water += 20
  167. cumspclnt = 2
  168. gs 'cum_cleanup'
  169. pcs_breath = 0
  170. end
  171. fat += 3
  172. pcs_energy += 10
  173. 'You have some of the chicken soup, but can''t finish it.'
  174. elseif pcs_energy < 20:
  175. if water < 20:
  176. water += 20
  177. cumspclnt = 2
  178. gs 'cum_cleanup'
  179. pcs_breath = 0
  180. end
  181. pcs_energy += 20
  182. 'You gladly eat it all.'
  183. end
  184. act 'Leave':gt 'kuhrPar'
  185. exit
  186. elseif schoolPredupr = 2:
  187. schoolPredupr = 3
  188. SchoolBlock = 1
  189. ParHomeBlock = 1
  190. schoolprogul = 0
  191. if $clothingworntype = 'school' and clothingwornnumber = 6:gs 'clothing', 'strip'
  192. 'As you enter the hallway, you find your mother there waiting for you. You have never seen her this furious. "<<$pcs_nickname>>? I just got off the phone with the school, they told me you didn''t show up yet again and expelled you. I''ve had it with you! I''ve warned you so many times! Go ahead, live your irresponsible life the way you want. You''re no longer welcome here." She already packed up all your things from your room before you got home, and roughly shoves the bag into your hands. After that, she pushes you out the door and slams it shut in your face.'
  193. act 'Leave':gt 'pavResidential'
  194. exit
  195. elseif schoolPredupr = 1:
  196. schoolPredupr = 2
  197. schoolprogul = 0
  198. pcs_grades -= 40
  199. 'As you enter the hallway, you find your mother there waiting for you. She seems very angry with you. "School called, they said you didn''t show up for class again. They wanted to expel you! I had to go over there and beg the principal to give you one last chance. I''ve never felt so humiliated! This is the last straw for me, <<$pcs_nickname>>. You will not embarrass me any further. If you miss one more day of school, they will kick you out. And if you get kicked out of school, I will personally kick you out of the house. If you cannot be responsible and behave like a normal person, then get out, no one is forcing you to stay." Having said her piece, your mother turns around and leaves.'
  200. elseif schoolPredupr = 0:
  201. schoolPredupr = 1
  202. npc_rel['A29'] = 0
  203. schoolprogul = 0
  204. pcs_grades -= 20
  205. 'As you enter the hallway, you find your mother there waiting for you. "<<$pcs_nickname>>? The school called, they said you weren''t at school today. You know they''re very unforgiving when it comes to absenteeism, they said they would expel you if it happens again. What are you doing with your life? Get it together!" Your mother angrily leaves the room, leaving you to your thoughts.'
  206. end
  207. act 'Continue':gt $curloc
  208. exit
  209. end
  210. end
  211. if hour >= 15 and hour < 20:
  212. if Gcall = 0:
  213. numnpcboy = 0
  214. :markboyfrendcall
  215. numnpcboy += 1
  216. if otnBoyFrend[numnpcboy] >= 20 and boyinday[numnpcboy]!daystart:
  217. Gcall = 1
  218. 'You hear the <a href="exec:gt ''gtelefon''">phone</a> ringing in the hallway.'
  219. elseif numboyFrend > numnpcboy:
  220. jump 'markboyfrendcall'
  221. end
  222. end
  223. else
  224. if Gcall > 0:Gcall = 0
  225. end
  226. if motherWorry = 1 and indorf = 0:
  227. gt'mother'
  228. elseif motherWorry = 1 and indorf > 0:
  229. motherWorry = 0
  230. end
  231. if notathomesleep > 7 and hour >= 16 and hour < 21 and mother_go = 0:
  232. notathomesleep = 0
  233. cls
  234. *pl $korrParMomHeader
  235. if npc_rel['A29'] < 40:
  236. 'You run into your mother in the hallway. "Well well, look who decided to come home for once.'
  237. act '<B>Continue</B>':gt 'korrPar'
  238. end
  239. if npc_rel['A29'] >= 40:
  240. 'You run into your mother in the hallway. She looks happy to see you. "What a surprise! Welcome home, honey! I missed you.'
  241. act '<B>Continue</B>':gt 'korrPar'
  242. end
  243. end
  244. !------------------------------------------!
  245. !gg whore if she had given herself to boys in the stairwell, then customers hammering at the door: !
  246. gs'pod_whore'
  247. pod_client = RAND(0,100)
  248. if pod_whore_countQW <= 15:
  249. if pod_client <= 5 and hour >= 10 and hour <= 23 and pav_slut >= 150 and podwhoreQW >=3:
  250. play 'sound/door1.mp3',100
  251. 'Someone is at the door: <a href="exec: gt ''pod_whore'', ''client_talk''">Answer</a>'
  252. end
  253. elseif pod_whore_countQW > 15:
  254. if pod_client <= 20 and hour >= 10 and hour <= 23 and pav_slut >= 150 and podwhoreQW >=3:
  255. play 'sound/door1.mp3',100
  256. 'Someone is at the door: <a href="exec: gt ''pod_whore'', ''client_talk''">Answer</a>'
  257. end
  258. end
  259. !'<<$pod_client>>'
  260. !==========================================!
  261. if grad_miss > daystart:
  262. SchoolAtestat = 1
  263. intel_exp += 10
  264. grad_miss = 0
  265. gs 'stat'
  266. 'Your diploma from school has arrived in the post.'
  267. end
  268. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  269. --- korrPar ---------------------------------