1
0

Gnpc.qsrc 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359
  1. # Gnpc
  2. menu_off = 1
  3. !!Guys
  4. GvstreBoyAfter[numnpc] = 0
  5. GvstreBoy = 0
  6. boyvstre[numnpc] += 1
  7. gs 'stat'
  8. '<center><h1><font color="maroon"><<$nameBoyfrend[numnpc]>></font></h1></center>'
  9. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/<<numnpc>>.jpg"></center>'
  10. $bfTitle[numnpc] = 'date'
  11. if boytimes[numnpc] = 0:
  12. $bfRelationship[numnpc] = 'He made a pretty good impression the first time you met so you gave him your phone number. This is your first date with him, you wonder how you''ll get along.'
  13. 'You spot a guy in the park. He looks like he''s waiting for someone. "Ah, yes, this must be <<$nameBoyfrend[numnpc]>>!", you think. <<$bfRelationship[numnpc]>>'
  14. elseif boytimes[numnpc] <= 4:
  15. $bfRelationship[numnpc] = 'You recently started dating him'
  16. if otnBoyFrend[numnpc] < 20:
  17. $bfRelationship[numnpc] += ', but you are already off to a bad start. You don''t get along at all.'
  18. elseif otnBoyFrend[numnpc] < 40:
  19. $bfRelationship[numnpc] += ', but there are already some tensions between you.'
  20. elseif otnBoyFrend[numnpc] < 60 and gnpcSex[numnpc] = 0:
  21. $bfRelationship[numnpc] += ', but you don''t know him that well yet.'
  22. elseif otnBoyFrend[numnpc] < 60 and gnpcSex[numnpc] > 0:
  23. $bfRelationship[numnpc] += ' and you don''t know him that well yet. But you like to occasionally blow off a little steam with him, no strings attached.'
  24. elseif otnBoyFrend[numnpc] < 80 and gnpcSex[numnpc] = 0:
  25. $bfRelationship[numnpc] += ' and you don''t know him that well yet, but you think you''re off to a good start.'
  26. elseif otnBoyFrend[numnpc] < 80 and gnpcSex[numnpc] > 0:
  27. $bfRelationship[numnpc] += '. You don''t know him that well yet, but you enjoy each others company and your sexual adventures.'
  28. elseif otnBoyFrend[numnpc] < 100 and gnpcSex[numnpc] = 0:
  29. $bfRelationship[numnpc] += ' and even though you don''t know him that long you think you found a wonderful friend in him.'
  30. elseif otnBoyFrend[numnpc] < 100 and gnpcSex[numnpc] > 0:
  31. $bfRelationship[numnpc] += ' and even though you don''t know him that long you have already strong feelings for him.'
  32. elseif otnBoyFrend[numnpc] >= 100 and gnpcSex[numnpc] = 0:
  33. $bfRelationship[numnpc] += ' and even though you don''t know him that long it feels like he''s already one of your best friends.'
  34. elseif otnBoyFrend[numnpc] >= 100 and gnpcSex[numnpc] > 0:
  35. $bfRelationship[numnpc] += ' and even though you don''t know him that long it feels like you found your soulmate. You are totally in love with him!'
  36. end
  37. 'You see <<$nameBoyfrend[numnpc]>> in the park, apparently waiting for you. <<$bfRelationship[numnpc]>>'
  38. elseif boytimes[numnpc] <= 16:
  39. $bfRelationship[numnpc] = 'You''ve been dating him for a while now'
  40. if otnBoyFrend[numnpc] < 20:
  41. $bfRelationship[numnpc] += ' and you don''t know why you''re still wasting your time with him. You don''t get along at all.'
  42. elseif otnBoyFrend[numnpc] < 40:
  43. $bfRelationship[numnpc] += ', but there are some tensions in your relationship.'
  44. elseif otnBoyFrend[numnpc] < 60 and gnpcSex[numnpc] = 0:
  45. $bfRelationship[numnpc] += ' and you get along pretty well.'
  46. $bfTitle[numnpc] = 'friend'
  47. elseif otnBoyFrend[numnpc] < 60 and gnpcSex[numnpc] > 0:
  48. $bfRelationship[numnpc] += 'and you like to occasionally blow off a little steam with him, no strings attached.'
  49. $bfTitle[numnpc] = 'lover'
  50. elseif otnBoyFrend[numnpc] < 80 and gnpcSex[numnpc] = 0:
  51. $bfRelationship[numnpc] += '. He''s a fun guy to hang around with.'
  52. $bfTitle[numnpc] = 'friend'
  53. elseif otnBoyFrend[numnpc] < 80 and gnpcSex[numnpc] > 0:
  54. $bfRelationship[numnpc] += '. You are friends with benefits.'
  55. $bfTitle[numnpc] = 'lover'
  56. elseif otnBoyFrend[numnpc] < 120 and gnpcSex[numnpc] = 0:
  57. $bfRelationship[numnpc] += '. He''s a good friend and you feel very comfortable around him.'
  58. $bfTitle[numnpc] = 'friend'
  59. elseif otnBoyFrend[numnpc] < 120 and gnpcSex[numnpc] > 0:
  60. $bfRelationship[numnpc] += ' and you consider him your boyfriend. You really like him a lot.'
  61. $bfTitle[numnpc] = 'boyfriend'
  62. elseif otnBoyFrend[numnpc] >= 120 and gnpcSex[numnpc] = 0:
  63. $bfRelationship[numnpc] += ' and he''s become one of your best friends by now.'
  64. $bfTitle[numnpc] = 'best friend'
  65. elseif otnBoyFrend[numnpc] >= 120 and gnpcSex[numnpc] > 0:
  66. $bfRelationship[numnpc] += ' and you enjoy every minute with your lovely boyfriend. You love him deeply.'
  67. $bfTitle[numnpc] = 'boyfriend'
  68. end
  69. 'You see <<$nameBoyfrend[numnpc]>> in the park, apparently waiting for you. <<$bfRelationship[numnpc]>>'
  70. else
  71. $bfRelationship[numnpc] = ''
  72. if otnBoyFrend[numnpc] < 20:
  73. $bfRelationship[numnpc] = 'For as long as it lasted, your relationship is now ruined. You can''t stand each other.'
  74. elseif otnBoyFrend[numnpc] < 40:
  75. $bfRelationship[numnpc] = 'You''ve been dating him pretty long, but there are tensions in your relationship.'
  76. elseif otnBoyFrend[numnpc] < 60 and gnpcSex[numnpc] = 0:
  77. $bfRelationship[numnpc] = 'You like to occasionally hang out with him.'
  78. $bfTitle[numnpc] = 'friend'
  79. elseif otnBoyFrend[numnpc] < 60 and gnpcSex[numnpc] > 0:
  80. $bfRelationship[numnpc] = 'You like to occasionally blow off some steam with him, no strings attached.'
  81. $bfTitle[numnpc] = 'lover'
  82. elseif otnBoyFrend[numnpc] < 80 and gnpcSex[numnpc] = 0:
  83. $bfRelationship[numnpc] = 'He''s been a good friend to you and you have fun hanging out with him.'
  84. $bfTitle[numnpc] = 'friend'
  85. elseif otnBoyFrend[numnpc] < 80 and gnpcSex[numnpc] > 0:
  86. $bfRelationship[numnpc] = 'One could consider you a couple for as long as you''ve been together now, but you both see yourselves more as friends with benefits.'
  87. $bfTitle[numnpc] = 'lover'
  88. elseif otnBoyFrend[numnpc] < 120 and gnpcSex[numnpc] = 0:
  89. $bfRelationship[numnpc] = 'He''s always been a very good friend and you love spending your time with him.'
  90. $bfTitle[numnpc] = 'friend'
  91. elseif otnBoyFrend[numnpc] < 120 and gnpcSex[numnpc] > 0:
  92. $bfRelationship[numnpc] = 'He''s your lovely boyfriend.'
  93. $bfTitle[numnpc] = 'boyfriend'
  94. elseif otnBoyFrend[numnpc] < 160 and gnpcSex[numnpc] = 0:
  95. $bfRelationship[numnpc] = 'He''s one of your best friends, you could talk with him about anything.'
  96. $bfTitle[numnpc] = 'best friend'
  97. elseif otnBoyFrend[numnpc] < 160 and gnpcSex[numnpc] > 0:
  98. $bfRelationship[numnpc] = 'You still feel lucky that you can call him your boyfriend. You love him deeply.'
  99. $bfTitle[numnpc] = 'boyfriend'
  100. elseif otnBoyFrend[numnpc] >= 160 and gnpcSex[numnpc] = 0:
  101. $bfRelationship[numnpc] = 'He''s your best friend, you would trust him with your life.'
  102. $bfTitle[numnpc] = 'best friend'
  103. elseif otnBoyFrend[numnpc] >= 160 and gnpcSex[numnpc] > 0:
  104. $bfRelationship[numnpc] = 'He''s your lovely boyfriend and the guy you want to marry someday. You absolutely adore him.'
  105. $bfTitle[numnpc] = 'boyfriend'
  106. end
  107. 'You see the familiar face of <<$nameBoyfrend[numnpc]>> in the park, obviously waiting for you. <<$bfRelationship[numnpc]>>'
  108. end
  109. *nl
  110. $bfGreeting = ''
  111. if boytimes[numnpc] > 0 and otnBoyFrend[numnpc] > 40:
  112. if (gnpcSex[numnpc] = 0 and otnBoyFrend[numnpc] > 80) or gnpcSex[numnpc] > 0:$bfGreeting += ' with a hug'
  113. if (gnpcSex[numnpc] = 0 and otnBoyFrend[numnpc] > 120) or (gnpcSex[numnpc] > 0 and otnBoyFrend[numnpc] < 80):
  114. $bfGreeting += ' and a kiss on the cheek'
  115. elseif gnpcSex[numnpc] > 0 and otnBoyFrend[numnpc] > 80:
  116. $bfGreeting += ' and a kiss on the lips'
  117. $orgasm_or = 'no'
  118. gs 'arousal', 'kiss', 1
  119. gs 'arousal', 'end'
  120. end
  121. end
  122. 'You approach <<$nameBoyfrend[numnpc]>> and greet him<<$bfGreeting>>.'
  123. act 'Apologize and leave':otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
  124. act 'Take a walk through the park':
  125. cla
  126. if pcs_hairbsh = 0:otnBoyFrend[numnpc] -= 5
  127. if pcs_hairbsh = 1:otnBoyFrend[numnpc] += 1
  128. if pcs_makeup = 2:otnBoyFrend[numnpc] += 1
  129. if pcs_makeup = 3:otnBoyFrend[numnpc] += 2
  130. if pcs_makeup = 4:otnBoyFrend[numnpc] -= 5
  131. if pcs_sweat > 19:
  132. otnBoyFrend[numnpc] -= 5
  133. elseif pcs_sweat < 10:
  134. otnBoyFrend[numnpc] += 1
  135. end
  136. if PCloSkirt > 2:otnBoyFrend[numnpc] += 3
  137. if PCloPants > 3:otnBoyFrend[numnpc] += 2
  138. minut += 15
  139. boytimes[numnpc] += 1
  140. pcs_mood += 10
  141. gs 'stat'
  142. $bfWalk = ''
  143. if otnBoyFrend[numnpc] > 80 and gnpcSex[numnpc] > 0:$bfWalk = ' hand in hand'
  144. 'You walk<<$bfWalk>> through the park while talking and having fun being together.'
  145. if kotovLoveQW > 0:
  146. otnBoyFrend[numnpc] = 0
  147. pcs_mood -= 10
  148. *nl
  149. 'You hear footsteps behind you and when you turn to look you see Vitek Kotov heading straight your way. <i>"Oh boy, he looks pissed!"</i>, you think to yourself just as he shouts, "Hey, dipshit!"'
  150. 'When <<$nameBoyfrend[numnpc]>> turns around to look who''s shouting Vitek slaps him so hard across the face that <<$nameBoyfrend[numnpc]>> immediately falls to the ground.'
  151. 'Vitek towers over him, his eyes glaring with rage, "Listen, you little fucker, this is MY girl! If I ever see you near her again I will bury you in the woods alive, do you understand?!"'
  152. '<<$nameBoyfrend[numnpc]>> stammers something and nods his head fearfully while crawling backwards. Then he jumps back on his feet und runs as fast as he can.'
  153. 'You doubt that you will ever see him again...'
  154. act 'Leave':gt $loc, $metka
  155. exit
  156. end
  157. gboyrand = rand(0, 1)
  158. if gboyrand = 0:
  159. '<<$nameBoyfrend[numnpc]>> offers to go to the movies.'
  160. act 'Apologize and leave':otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
  161. act 'Go to the cinema':gt 'Gnpc_cinema'
  162. elseif gboyrand = 1:
  163. '<<$nameBoyfrend[numnpc]>> suggests to drink some beers in the park.'
  164. act 'Apologize and leave':otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
  165. act 'Go for a beer':
  166. cla
  167. minut += 15
  168. gs 'stat'
  169. 'You head with <<$nameBoyfrend[numnpc]>> to the nearest kiosk. He buys a few a beers and some snacks and then you settle down on a secluded bench in the far corner of the park.'
  170. act 'Drink':
  171. cla
  172. minut += 30
  173. gs 'drugs', 'alcohol', 'beer'
  174. otnBoyFrend[numnpc] += 5
  175. gs 'stat'
  176. $bfDrinkSuffix = '.'
  177. if otnBoyFrend[numnpc] < 40:$bfDrinkSuffix = ', briefly forgetting the tensions in your relationship for the moment.'
  178. '<<$nameBoyfrend[numnpc]>> pours some beer into glasses and you both start drinking. He tells you many funny stories and you both laugh a lot while enjoying your drinks<<$bfDrinkSuffix>>'
  179. if boytimes[numnpc] <= 4:'You think you''ve got to know him a lot better now especially in a loose atmosphere like this.'
  180. act 'Continue':gt 'Gnpc2'
  181. end
  182. end
  183. end
  184. end
  185. if preg = 1 and pregchem <= 1920 and npc_pregtalk[numnpc] = 0 and gnpcSex[numnpc] > 0 and knowpreg = 1:
  186. if $father ! $nameBoyfrend[numnpc]:
  187. $pregLie = '(Lie) '
  188. else
  189. $pregLie = ''
  190. end
  191. act '<<$pregLie>>Tell him that he knocked you up':
  192. cla
  193. pcs_mood -= 50
  194. gs'stat'
  195. 'You tell <<$nameBoyfrend[numnpc]>> that he got you pregnant. His eyes nearly pop out of their sockets.'
  196. if $father ! $nameBoyfrend[numnpc]: pregLieRand = rand(1,5)
  197. if $father = $nameBoyfrend[numnpc] or ($father ! $nameBoyfrend[numnpc] and pregLieRand >= 4):
  198. 'He looks at his feet, unable to look you in the eyes. "Listen, I''m not ready to be a father or even to marry you." He hands you five thousand ₽. "Here, take this money and let us part."'
  199. act 'Dump him and take the money':
  200. cla
  201. pcs_dom += 2
  202. npc_pregtalk[numnpc] = 1
  203. otnBoyFrend[numnpc] = 0
  204. money += 5000
  205. gs 'stat'
  206. 'You furiously scream at him that you never want to see him again. Then you snatch the bills from his hand and leave.'
  207. act 'Leave':gt $loc, $metka
  208. end
  209. act 'Dump him and throw the money in his face':
  210. cla
  211. pcs_dom += 5
  212. npc_pregtalk[numnpc] = 1
  213. otnBoyFrend[numnpc] = 0
  214. gs 'stat'
  215. 'You furiously scream at him that you never want to see him again and throw the money in his face before storming off.'
  216. act 'Leave':gt $loc, $metka
  217. end
  218. else
  219. 'He snaps at you, "Yeah sure, you slut! Do you think I''m that stupid? You fuck around behind my back and now you want to pin the consequences on me? Go and find some other sorry ass who you can exploit!"'
  220. act 'Dump him':
  221. cla
  222. pcs_dom += 5
  223. npc_pregtalk[numnpc] = 1
  224. otnBoyFrend[numnpc] = 0
  225. gs 'stat'
  226. 'You furiously scream at him that you never want to see him again and storm off.'
  227. act 'Leave':gt $loc, $metka
  228. end
  229. end
  230. end
  231. end
  232. if GboyBalabol[numnpc] = 1:
  233. act 'Blame him for your bad reputation':
  234. cla
  235. gs 'stat'
  236. 'You accuse <<$nameBoyfrend[numnpc]>> that he blabbed about your sexual relationship and now and everyone thinks that you''re a <<$gnikname>>.'
  237. reaktrand = rand(0, 2)
  238. if reaktrand = 0:
  239. '<<$nameBoyfrend[numnpc]>> begins to apologize, he''s been drinking with a friend and accidentally told him about your sexual exploits together. He vows that this will never happen again.'
  240. elseif reaktrand = 1:
  241. '<<$nameBoyfrend[numnpc]>> tries to comfort you, "<<$pcs_nickname>>, I would never do such a thing. Just ignore what those idiots say. They will soon find someone else to gossip about."'
  242. elseif reaktrand = 2:
  243. '<<$nameBoyfrend[numnpc]>> grins, "Relax, <<$pcs_nickname>>. It''s a fact that you''re a <<$gnikname>>. So what?"'
  244. end
  245. act 'Break up with him':
  246. cla
  247. pcs_dom += 5
  248. GboyBalabol[numnpc] = 2
  249. otnBoyFrend[numnpc] = 0
  250. gs 'stat'
  251. 'You furiously scream at him that you never want to see him again and storm off.'
  252. act 'Leave':gt $loc, $metka
  253. end
  254. act 'Forgive him':
  255. cla
  256. sub += 5
  257. GboyBalabol[numnpc] = 2
  258. gs 'stat'
  259. 'You think about what he said. Because of the rumours, a lot of people have already a bad opinion about you and you don''t want to lose your <<$bfTitle[numnpc]>>, too. So you reluctantly decide to forgive him.'
  260. act 'Leave':gt $loc, $metka
  261. end
  262. end
  263. end
  264. if sub < 20 and ((boytimes[numnpc] <= 4 and otnBoyFrend[numnpc] < 100) or (boytimes[numnpc] > 4 and otnBoyFrend[numnpc] < 120)):
  265. act 'End the relationship':
  266. cla
  267. *nl
  268. 'You think about how you could approach your <<$bfTitle[numnpc]>> with this delicate matter...'
  269. *nl
  270. if otnBoyFrend[numnpc] < 40 or pcs_dom > 10:
  271. act 'Break up with him':
  272. cla
  273. pcs_dom += 5
  274. otnBoyFrend[numnpc] = 0
  275. gs 'stat'
  276. 'You tell <<$nameBoyfrend[numnpc]>> that it would be better if you don''t see each other again and that he should''t call you anymore. He just stares at you, so you decide to quickly leave before he overcomes his state of shock.'
  277. act 'Leave':gt $loc, $metka
  278. end
  279. end
  280. if otnBoyFrend[numnpc] >= 40 and gnpcSex[numnpc] > 0:
  281. act 'Just be friends':
  282. cla
  283. temprand = rand(0, 4)
  284. sub -= 5
  285. 'You nervously approach <<$nameBoyfrend[numnpc]>>, "Listen, <<$nameBoyfrend[numnpc]>>, I really like you, but I''m not ready for an intimate relationship right now. I think we should forget what happened between us and just be friends, okay?"'
  286. if boytimes[numnpc] > 4 and otnBoyFrend[numnpc] >= 80 and temprand = 0:
  287. otnBoyFrend[numnpc] -= 40
  288. gnpcSex[numnpc] = 0
  289. gs 'stat'
  290. '<<$nameBoyfrend[numnpc]>> looks totally dejected as you tell him the bad news. You really feel pity for him. When you finish your speech there''s a moment of painful silence.'
  291. 'Then <<$nameBoyfrend[numnpc]>> takes a deep breath, looks you in the eyes and says, "That''s really hard on me, <<$pcs_firstname>>. But I respect your feelings. I like you, too... very much in fact! That''s why I''m willing to be your friend, even if it means that we can''t be a couple."'
  292. 'Wow, you didn''t expect that! Still, you feel touched by his devotion and give him a bear hug, smiling from ear to ear. "Thank you, <<$nameBoyfrend[numnpc]>>! I''m so glad that you can understand me. I think we both need some time now to digest all that. Call me when you''re feeling better."'
  293. else
  294. otnBoyFrend[numnpc] = 0
  295. gs 'stat'
  296. '<<$nameBoyfrend[numnpc]>> narrows his eyes, "Just friends, huh? That''s a pretty lame excuse, <<$pcs_firstname>>, you know that? If you want to break up with me then why don''t you say so!"'
  297. 'You try to explain to him, "No, that''s not what I mean, <<$nameBoyfrend[numnpc]>>! I really like you..."'
  298. '"You know what? You can stuff your friendship! I''m outta here!", with these words he storms off.'
  299. end
  300. act 'Leave':gt $loc, $metka
  301. end
  302. end
  303. act 'Back down':gt 'Gnpc'
  304. end
  305. end
  306. --- Gnpc ---------------------------------