korrPar.qsrc 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505
  1. # korrPar
  2. !! Date refactored: 31st March, 2024
  3. !! Author: Myles
  4. !!
  5. !! Version: .01 - Initial refactoring
  6. !! Version: .02 - Bug fixes and further code refactoring
  7. !!
  8. !! Desc: Family home kitchen links to family flat corridor
  9. !! Set location header - img path is set in init
  10. if $default_img_path = '': $default_img_path = 'locations/pavlovsk/resident/apartment/home'
  11. $setloc['StageTitle'] = 'Corridor'
  12. $setloc['StageImage'] = '<<$default_img_path>>/korrpar.jpg'
  13. !! Call in location default actions
  14. gs 'home_family_init', 'init'
  15. !! Set location vars:
  16. killvar '$locclass'
  17. !! Unique vars - unknown status, legacy code
  18. !! TODO: Follow up and determine what these do and if they can be removed.
  19. popolaini = 0
  20. saunaYouRoom = 0
  21. boycherdaksex = 0
  22. bonusZ = 0
  23. display_bb = 0
  24. !! Set up game location data
  25. gs 'shortgs', 'setloc', 'korrPar'
  26. !! Set up location trackers
  27. gs 'home_family_init', 'trackers'
  28. !! Enable location audio
  29. if sound = 0 and pavhome_enter = 1:
  30. PLAY 'sound/korr.mp3',30
  31. pavhome_enter = 0
  32. end
  33. !! Location default description:
  34. *nl
  35. '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.'
  36. *nl
  37. 'A <a href="exec:gt ''mirror'', ''start''">mirror</a> hangs on the wall near the front door.'
  38. *nl
  39. !! End default Description
  40. !! Additional location content:
  41. if locat['Fam_inGad'] = 1:'With your parents away visiting your grandparents, the apartment seems quiet and empty.'
  42. gs 'courtletter'
  43. if (hour ! 16 or hour ! 17) and blockBedrPar = 1:blockBedrPar = 0
  44. if locat['Mother'] = 1 and hour = 22 and minut < 30 and motherQW['con_steal_talk'] + 4 < daystart and prezikday + 4 > daystart and rand(1,5) = 1: gt 'mother', 'condom_steal', 'talk'
  45. !! check clothes
  46. gs 'core_library', 'clothing_status'
  47. if $apparel['status'] = 'nude':
  48. act 'Leave':
  49. msg'<b><font color = red>You need to get dressed.</font></b>'
  50. gt 'korrPar'
  51. end
  52. else
  53. act '<b>Leave and go to the stairwell</b>':
  54. killvar '$default_img_path'
  55. killvar '$mother_img_path'
  56. minut += 5
  57. gt'pod_ezd','etaj_2'
  58. end
  59. if hour < 5 and motherWorry = 0 and age < 18 and locat['Fam_inGad'] = 0:
  60. '<font color=red>Are you sure? Your mother will worry.</b></font>'
  61. cla
  62. act '<font color=red><b>Yes, go outside</b></font>':
  63. minut += 5
  64. !! Reset vars - temp until other parts of game migrated
  65. killvar '$default_img_path'
  66. killvar '$mother_img_path'
  67. gt'pav_complex', 'start'
  68. end
  69. act 'No, stay inside':gt 'korrPar'
  70. else
  71. act '<b>Leave and go to the courtyard</b>':
  72. minut += 5
  73. !! Reset vars - temp until other parts of game migrated
  74. killvar '$default_img_path'
  75. killvar '$mother_img_path'
  76. gt'pav_complex', 'start'
  77. end
  78. end
  79. end
  80. if blockBedrPar = 0:
  81. if locat['Anya'] = 11 and sisboytrioQW = 1 and sisThank ! 1:
  82. act 'Go to your room':gt 'sisterQW', 'sisboytrioQW_bedroom'
  83. elseif locat['Anya'] = 11 and sisboytrioQW ! 1 and (npc_QW['A33'] = 3 or npc_QW['A33'] = 5 or npc_QW['A33'] = 7 or npc_QW['A33'] >= 9):
  84. act 'Go to your room':gt 'sisterQW', 'sisboyQW_bedroom'
  85. else
  86. act 'Go to your room':gt 'bedrPar'
  87. end
  88. end
  89. if locat['Mother'] = 3:
  90. act 'Knock on your parents'' door':
  91. cla & *clr
  92. minut += 2
  93. gs 'stat'
  94. '<center><img <<$set_imgh>> src="images/pc/activities/spy/peep3.jpg"></center>'
  95. 'You knock on the door and wait for a few minutes. Your <<$npc_nickname[''A29'']>> opens the door looking like she just got out of the shower. "I don''t have time right now. Go wake up your brother." She then closes the door in your face.'
  96. act 'Leave':gt 'korrPar'
  97. act 'Go wake up Kolka':
  98. cla & *clr
  99. minut += 5
  100. gs 'stat'
  101. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/sleeping.jpg"></center>'
  102. 'You walk down the hall and into the living room, where you find Kolka still sound asleep on the couch.'
  103. act 'Leave': gt 'sitrPar'
  104. end
  105. end
  106. elseif locat['Mother'] = 1:
  107. if hour = 22 and parsexrand ! daystart and parentsexday ! daystart:
  108. parsexrand = daystart
  109. if rand(0, 5) = 0:
  110. act 'Go to your parents'' room': gt 'bedrPar2', 'peek'
  111. else
  112. act 'Go to your parents'' room': msg'Your parents are probably asleep. You shouldn''t go in right now.'
  113. end
  114. else
  115. act 'Go to your parents'' room': msg'Your parents are probably asleep. You shouldn''t go in right now.'
  116. end
  117. else
  118. act 'Go to your parents'' room':gt 'bedrPar2'
  119. end
  120. act 'Go to the living room':gt 'sitrPar'
  121. if locat['Mother'] = 2:
  122. if vanrPar_suction_dildo > 0:
  123. motherQW['dildo_shower_discovery'] = 1
  124. gt'mother','bathroom_dildo_shriek1'
  125. end
  126. act 'Go to the bathroom':msg'You try to open the bathroom door, but it immediately stops and bangs against the latch. You hear the water running and your mother shouting at the door. "Doesn''t anybody in this family know how to knock?!"'
  127. elseif locat['Stepdad'] = 5 or locat['Stepdad'] = 11:
  128. if locat['Stepdad'] = 5:
  129. act 'Go to the bathroom':msg'You try to open the bathroom door, but it immediately stops and bangs against the latch. You hear your stepfather say "I''m shaving right now, be out in a few minutes."'
  130. else
  131. act 'Go to the bathroom':msg'You try to open the bathroom door, but it immediately stops and bangs against the latch. You hear the water running and your stepfather shout "I''m in the shower!"'
  132. end
  133. elseif locat['Kolka'] = 10:
  134. act 'Go to the bathroom':msg'You try to open the bathroom door, but it immediately stops and bangs against the latch. You hear the water running and your brother shout "I''m in the shower!"'
  135. elseif locat['Anya'] = 5:
  136. act 'Go to the bathroom':msg'You try to open the bathroom door, but it immediately stops and bangs against the latch. You hear the water running and your sister yell "I''ll be done in a few minutes!"'
  137. else
  138. act 'Go to the bathroom':minut += 1 & gt 'vanrPar', 'start'
  139. end
  140. if motherQW['bathroom_dildos'] > 0 and locat['Mom_athome'] = 1: gt'mother_sextalk','bathroom_dildos1'
  141. act 'Go to the kitchen':gt 'kuhrPar'
  142. !to add a counter if you avoid Dimka
  143. if nodimkaK >= rand(7,10) and DimkaWarnedToday = 0 and DimaRudeBlock = 0:
  144. nodimkaK = 0
  145. if hour >= 14 and hour < 24 and week <=5 and DimkaWarnedToday = 0: gt 'dimaEv', 'Dimka_warning'
  146. if hour >= 9 and hour < 24 and week >=6 and DimkaWarnedToday = 0: gt 'dimaEv', 'Dimka_warning'
  147. end
  148. !! Natasha Belova quest checks
  149. !!gs 'natbel_init', 'quests'
  150. if NatbelQW['QWstage'] >= 4 and week < 6 and (hour = 6 or hour = 7) and kanikuli = 0 and SchoolAtestat = 0 and SchoolBlock = 0 and (PCloStyle2 = 4 or Enable_sforma = 1):
  151. *nl
  152. 'You could go to Natasha''s apartment and get her to carry your books to school.'
  153. act 'Go to Natasha''s apartment': gt 'natbel_cp_1', 'carrybooks'
  154. end
  155. if func('homes_properties', 'is_current_home') = 0:
  156. act 'Set this apartment as your main home':
  157. if func('homes_properties', 'can_live_here') = 0: gs 'homes_properties', 'give_access'
  158. gs 'homes_properties', 'set_home'
  159. gt 'korrPar'
  160. end
  161. else
  162. if $status['dog'] ! 'blocked' and menu_off = 0 and rex['owned'] = 1:
  163. if rex['status'] = 0:
  164. gt 'pet_dog', 'name'
  165. elseif hour > 5:
  166. '<br>Your dog <a href="exec: gt ''pet_dog'', ''start''"><<$rex[''name'']>></a> is lying on the floor.<br>'
  167. elseif hour < 6:
  168. '<br><<$rex[''name'']>> is sleeping in his dog basket.<br>'
  169. end
  170. end
  171. end
  172. $korrParMomHeader = '<center><h1><font color="maroon"><<$npc_nickname[''A29'']>></font></h1></center><center><img <<$set_imgh>> src="<<$mother_img_path>>mother.jpg"></center><br />'
  173. if hour >= 16 and hour <= 20 and locat['Fam_inGad'] = 0:
  174. if artemvbrosvid = 1 and artemhakday ! daystart and npc_QW['A29'] < 2 and mothervideotalk = 0 or BrotherNo = 1 and BrotherNoDay ! daystart and BJvideoPublic = 0:
  175. *clr & cla
  176. menu_off = 1
  177. BJvideoPublic = 1
  178. BrotherNo = 0
  179. BrotherNoDay = daystart
  180. pcs_mood = 5
  181. npc_rel['A29'] -= 40
  182. gs 'stat'
  183. *pl $korrParMomHeader
  184. '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 this video was sent to others too? What will the people in town think of us now? I should teach you a lesson. What do you have to say for yourself!? Speak up!"'
  185. act 'Beg her to do nothing':
  186. cla
  187. mothervideotalk = 2
  188. minut += 5
  189. gs 'stat'
  190. *nl
  191. 'You burst into tears. "<<$npc_nickname[''A29'']>>, please forgive me! It will never happen again! I made a stupid mistake, I''m sorry... I didn''t mean to... Please... I don''t... I''m 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.'
  192. act 'Get back on your feet':gt $curloc
  193. end
  194. act 'Be silent':
  195. *clr & cla
  196. mothervideotalk = 3
  197. minut += 5
  198. spank += 1
  199. gs 'pain', 5, 'asscheeks', 'spank'
  200. gs 'stat'
  201. '<center><h1><font color="maroon"><<$npc_nickname[''A29'']>></font></h1></center>'
  202. '<center><img <<$set_imgh>> src="<<$mother_img_path>>spank.jpg"></center>'
  203. *nl
  204. 'You stand in the hallway staring at the floor, too embarrassed to say anything.'
  205. '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!"'
  206. '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.'
  207. '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.'
  208. act 'Stand up and straighten your clothes':gt $curloc
  209. end
  210. if momslut >= 2:
  211. act 'Threaten her':
  212. cla
  213. mothervideotalk = 1
  214. npc_rel['A29'] -= 10
  215. minut += 5
  216. gs 'stat'
  217. *nl
  218. 'You slap away her hand with a defiant look in your eyes. "Oh really? Well you''re no angel yourself either, <<$npc_nickname[''A29'']>>! Does Vladimir know what YOU have been up to lately? Why don''t we go ask him?"'
  219. '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.'
  220. act 'Continue':gt $curloc
  221. end
  222. end
  223. exit
  224. end
  225. if artemvbrosvid=1 and artemhakday ! daystart and npc_QW['A29'] >= 2 and mothervideotalk = 0 and BJvideoPublic = 0:
  226. *clr & cla
  227. menu_off = 1
  228. BJvideoPublic = 1
  229. pcs_mood = 5
  230. gs 'stat'
  231. *pl $korrParMomHeader
  232. 'When you enter the hallway, you find your mother waiting 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?"'
  233. act 'Apologize':
  234. cla
  235. mothervideotalk = 1
  236. minut += 5
  237. npc_rel['A29'] -= 40
  238. gs 'stat'
  239. *nl
  240. '"I don''t know what to say <<$npc_nickname[''A29'']>>... I''m really sorry."'
  241. 'Your mother is clearly very upset with you. After a short discussion, she walks away.'
  242. act 'Continue':gt $curloc
  243. end
  244. exit
  245. end
  246. if schoolprogul > 2 and SchoolAtestat = 0 and schoolPredupr < 3:
  247. *clr & cla
  248. gs 'stat'
  249. *pl $korrParMomHeader
  250. if npc_QW['A113'] = 10000:
  251. menu_off = 1
  252. npc_QW['A113'] = 10001
  253. schoolprogul = 0
  254. GspravkaT = 2
  255. motherKnowSpravka = 1
  256. gs 'stat'
  257. '"Oh my darling, where have you been? We''ve been so worried!"'
  258. 'You go into the kitchen with your <<$npc_nickname[''A29'']>> and spend some time explaining what happened to you. Many of the details are difficult to talk about, and you cry and hug your <<$npc_nickname[''A29'']>> as you tell your story.'
  259. 'Your <<$npc_nickname[''A29'']>> tells you she will sort out everything with the school and makes you a bowl of chicken soup.'
  260. if pcs_energy >= 30:
  261. 'You are too full to eat it.'
  262. elseif pcs_energy >= 20 and pcs_energy < 30:
  263. if pcs_hydra < 20:
  264. pcs_hydra += 20
  265. cumspclnt = 2
  266. gs 'cum_cleanup'
  267. pcs_breath = 0
  268. end
  269. fat += 3
  270. pcs_energy += 10
  271. 'You have some of the chicken soup, but can''t finish it.'
  272. elseif pcs_energy < 20:
  273. if pcs_hydra < 20:
  274. pcs_hydra += 20
  275. cumspclnt = 2
  276. gs 'cum_cleanup'
  277. pcs_breath = 0
  278. end
  279. pcs_energy += 20
  280. 'You gladly eat it all.'
  281. end
  282. act 'Leave':gt 'kuhrPar'
  283. exit
  284. elseif npc_rel['A29'] >= 40:
  285. if schoolPredupr = 2:
  286. schoolPredupr = 3
  287. npc_rel['A29'] = 0
  288. SchoolBlock = 1
  289. schoolprogul = 0
  290. gs 'grades', 'grade_award', 'school', 'math', -100
  291. gs 'grades', 'grade_award', 'school', 'rus', -100
  292. gs 'grades', 'grade_award', 'school', 'lit', -100
  293. gs 'grades', 'grade_award', 'school', 'art', -100
  294. gs 'grades', 'grade_award', 'school', 'bio', -100
  295. gs 'grades', 'grade_award', 'school', 'pe', -100
  296. gs 'grades', 'grade_award', 'school', 'eng', -100
  297. gs 'grades', 'grade_award', 'school', 'geo', -100
  298. gs 'grades', 'grade_award', 'school', 'sci', -100
  299. gs 'grades', 'grade_award', 'school', 'shop', -100
  300. gs 'grades', 'grade_award', 'school', 'comp', -100
  301. gs 'grades', 'grade_award', 'school', 'mus', -100
  302. gs 'grades', 'grade_award', 'school', 'his', -100
  303. 'You find your mother waiting for you when you enter the hallway. You have never seen her this furious before. "<<$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''m extremely disappointed with you! I''ve warned you so many times! If you want to keep sleeping under this roof, then you better start pulling your weight around here! Right now, I want you to go out and find a job!" She pushes you out the door and slams it shut in your face.'
  304. act 'Leave': gt 'pav_residential'
  305. exit
  306. elseif schoolPredupr = 1:
  307. schoolPredupr = 2
  308. npc_rel['A29'] = 0
  309. schoolprogul = 0
  310. gs 'grades', 'grade_award', 'school', 'math', -40
  311. gs 'grades', 'grade_award', 'school', 'rus', -40
  312. gs 'grades', 'grade_award', 'school', 'lit', -40
  313. gs 'grades', 'grade_award', 'school', 'art', -40
  314. gs 'grades', 'grade_award', 'school', 'bio', -40
  315. gs 'grades', 'grade_award', 'school', 'pe', -40
  316. gs 'grades', 'grade_award', 'school', 'eng', -40
  317. gs 'grades', 'grade_award', 'school', 'geo', -40
  318. gs 'grades', 'grade_award', 'school', 'sci', -40
  319. gs 'grades', 'grade_award', 'school', 'shop', -40
  320. gs 'grades', 'grade_award', 'school', 'comp', -40
  321. gs 'grades', 'grade_award', 'school', 'mus', -40
  322. gs 'grades', 'grade_award', 'school', 'his', -40
  323. 'You find your mother waiting for you when you enter the hallway. She seems very angry with you. "The school called saying 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 your last chance <<$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, life is going to get a lot tougher for you, especially around here!" Having said her piece, your mother turns around and leaves.'
  324. elseif schoolPredupr = 0:
  325. schoolPredupr = 1
  326. npc_rel['A29'] = 0
  327. schoolprogul = 0
  328. gs 'grades', 'grade_award', 'school', 'math', -20
  329. gs 'grades', 'grade_award', 'school', 'rus', -20
  330. gs 'grades', 'grade_award', 'school', 'lit', -20
  331. gs 'grades', 'grade_award', 'school', 'art', -20
  332. gs 'grades', 'grade_award', 'school', 'bio', -20
  333. gs 'grades', 'grade_award', 'school', 'pe', -20
  334. gs 'grades', 'grade_award', 'school', 'eng', -20
  335. gs 'grades', 'grade_award', 'school', 'geo', -20
  336. gs 'grades', 'grade_award', 'school', 'sci', -20
  337. gs 'grades', 'grade_award', 'school', 'shop', -20
  338. gs 'grades', 'grade_award', 'school', 'comp', -20
  339. gs 'grades', 'grade_award', 'school', 'mus', -20
  340. gs 'grades', 'grade_award', 'school', 'his', -20
  341. 'You find your mother waiting for you when you enter the hallway. "<<$pcs_nickname>>? The school called saying 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.'
  342. end
  343. elseif npc_rel['A29'] < 40:
  344. if schoolPredupr = 2:
  345. schoolPredupr = 3
  346. npc_rel['A29'] = 0
  347. SchoolBlock = 1
  348. gs 'homes_properties', 'block_access', 'parents_home'
  349. schoolprogul = 0
  350. gs 'grades', 'grade_award', 'school', 'math', -100
  351. gs 'grades', 'grade_award', 'school', 'rus', -100
  352. gs 'grades', 'grade_award', 'school', 'lit', -100
  353. gs 'grades', 'grade_award', 'school', 'art', -100
  354. gs 'grades', 'grade_award', 'school', 'bio', -100
  355. gs 'grades', 'grade_award', 'school', 'pe', -100
  356. gs 'grades', 'grade_award', 'school', 'eng', -100
  357. gs 'grades', 'grade_award', 'school', 'geo', -100
  358. gs 'grades', 'grade_award', 'school', 'sci', -100
  359. gs 'grades', 'grade_award', 'school', 'shop', -100
  360. gs 'grades', 'grade_award', 'school', 'comp', -100
  361. gs 'grades', 'grade_award', 'school', 'mus', -100
  362. gs 'grades', 'grade_award', 'school', 'his', -100
  363. 'You find your mother waiting for you when you enter the hallway. You have never seen her this furious before. "<<$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 has already packed up all your things and roughly shoves the bag into your hands before she pushes you out the door and slams it shut in your face.'
  364. act 'Leave': gt 'pav_residential'
  365. exit
  366. elseif schoolPredupr = 1:
  367. schoolPredupr = 2
  368. npc_rel['A29'] = 0
  369. schoolprogul = 0
  370. gs 'grades', 'grade_award', 'school', 'math', -40
  371. gs 'grades', 'grade_award', 'school', 'rus', -40
  372. gs 'grades', 'grade_award', 'school', 'lit', -40
  373. gs 'grades', 'grade_award', 'school', 'art', -40
  374. gs 'grades', 'grade_award', 'school', 'bio', -40
  375. gs 'grades', 'grade_award', 'school', 'pe', -40
  376. gs 'grades', 'grade_award', 'school', 'eng', -40
  377. gs 'grades', 'grade_award', 'school', 'geo', -40
  378. gs 'grades', 'grade_award', 'school', 'sci', -40
  379. gs 'grades', 'grade_award', 'school', 'shop', -40
  380. gs 'grades', 'grade_award', 'school', 'comp', -40
  381. gs 'grades', 'grade_award', 'school', 'mus', -40
  382. gs 'grades', 'grade_award', 'school', 'his', -40
  383. 'You find your mother waiting for you when you enter the hallway. She seems very angry with you. "The school called saying 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 your last chance <<$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.'
  384. elseif schoolPredupr = 0:
  385. schoolPredupr = 1
  386. npc_rel['A29'] = 0
  387. schoolprogul = 0
  388. gs 'grades', 'grade_award', 'school', 'math', -20
  389. gs 'grades', 'grade_award', 'school', 'rus', -20
  390. gs 'grades', 'grade_award', 'school', 'lit', -20
  391. gs 'grades', 'grade_award', 'school', 'art', -20
  392. gs 'grades', 'grade_award', 'school', 'bio', -20
  393. gs 'grades', 'grade_award', 'school', 'pe', -20
  394. gs 'grades', 'grade_award', 'school', 'eng', -20
  395. gs 'grades', 'grade_award', 'school', 'geo', -20
  396. gs 'grades', 'grade_award', 'school', 'sci', -20
  397. gs 'grades', 'grade_award', 'school', 'shop', -20
  398. gs 'grades', 'grade_award', 'school', 'comp', -20
  399. gs 'grades', 'grade_award', 'school', 'mus', -20
  400. gs 'grades', 'grade_award', 'school', 'his', -20
  401. 'You find your mother waiting for you when you enter the hallway. "<<$pcs_nickname>>? The school called saying 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.'
  402. end
  403. end
  404. act 'Continue':gt $curloc
  405. exit
  406. end
  407. end
  408. if hour >= 15 and hour < 20:
  409. if Gcall = 0:
  410. numnpcboy = 0
  411. :markboyfrendcall
  412. numnpcboy += 1
  413. if otnBoyFrend[numnpcboy] >= 20 and boyinday[numnpcboy]!daystart:
  414. Gcall = 1
  415. 'You hear the <a href="exec:gt ''gtelefon''">phone</a> ringing in the hallway.'
  416. elseif numboyFrend > numnpcboy:
  417. jump 'markboyfrendcall'
  418. end
  419. end
  420. else
  421. if Gcall > 0:Gcall = 0
  422. end
  423. if motherWorry = 1 and locat['Fam_inGad'] = 0 and motherworry[1] ! daystart:
  424. gt'mother'
  425. elseif motherWorry = 1 and locat['Fam_inGad'] > 0:
  426. motherWorry = 0
  427. end
  428. if sleepVars['notathomesleep'] > 7 and hour >= 16 and hour < 21 and locat['Mom_athome'] = 1:
  429. sleepVars['notathomesleep'] = 0
  430. *clr & cla
  431. *pl $korrParMomHeader
  432. if npc_rel['A29'] < 40:
  433. 'You run into your mother in the hallway. "Well well, look who decided to come home for once."'
  434. act 'Continue':gt 'korrPar'
  435. end
  436. if npc_rel['A29'] >= 40:
  437. 'You run into your mother in the hallway. She looks happy to see you. "What a surprise! Welcome home, honey! I''ve missed you."'
  438. act 'Continue':gt 'korrPar'
  439. end
  440. end
  441. !If she has given herself to boys in the stairwell, customers start hammering at the door:
  442. if hour >= 10 and hour <= 23 and fame['pav_slut'] >= 250 and podwhoreQW >= 3:
  443. pod_client = rand(0,100)
  444. if pod_whore_countQW <= 15 and pod_client <= 5:
  445. play 'sound/door1.mp3',100
  446. 'Someone is at the door: <a href="exec: gt ''pod_whore'', ''client_talk''">Answer</a>'
  447. elseif pod_whore_countQW > 15 and pod_client <= 20:
  448. play 'sound/door1.mp3',100
  449. 'Someone is at the door: <a href="exec: gt ''pod_whore'', ''client_talk''">Answer</a>'
  450. end
  451. end
  452. !!if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  453. --- korrPar ---------------------------------