1
0

Gnpc2.qsrc 55 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306
  1. # Gnpc2
  2. !!TODO: Fix boyfriend system
  3. $boydesc = $nameBoyfrend[numnpc]
  4. $din_gboy_end_to_disco = {
  5. !!:markgoondisco
  6. music_loop = 0
  7. close all
  8. discofirsttime += 1
  9. gs 'stat'
  10. if gnpcSex[numnpc] = 0:
  11. gdeystboyrand = rand(0, 1)
  12. if gdeystboyrand = 0:
  13. '<<$boydesc>> invites you to his home.'
  14. dynamic $din_gboy_go_to_boyhome
  15. gs 'willpower', 'sex', 'resist', 'easy'
  16. if will_cost <= pcs_willpwr:
  17. act 'Decline and go home (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & otnBoyFrend[numnpc] -= 10 & gt 'pavResidential'
  18. else
  19. act 'Decline and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  20. end
  21. elseif gdeystboyrand = 1:
  22. '<<$boydesc>> offers to accompany you home.'
  23. act 'go home':gt 'pavResidential'
  24. end
  25. elseif gnpcSex[numnpc] > 0:
  26. '<<$boydesc>> invites you to his home.'
  27. dynamic $din_gboy_go_to_boyhome
  28. gs 'willpower', 'sex', 'resist', 'easy'
  29. if will_cost <= pcs_willpwr:
  30. act 'Decline and go home (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & otnBoyFrend[numnpc] -= 10 & gt 'pavResidential'
  31. else
  32. act 'Decline and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  33. end
  34. end
  35. }
  36. $din_gboy_go_to_disco = {
  37. act 'Go to the club':
  38. cls
  39. if music_on = 1:
  40. $track_loop = 'sound/komb.mp3'
  41. volume = 100
  42. music_loop = 1
  43. pl '<a href="exec: music_on = 0 & gt $loc">Turn off the music</a>'
  44. else
  45. music_loop = 0
  46. close all
  47. pl '<a href="exec: music_on = 1 & gt $loc">Play music</a>'
  48. end
  49. minut += 120
  50. if pcs_danc < 50 and pcs_agil >= pcs_danc:danc_exp += 1
  51. pcs_mood += 10
  52. gs 'stat'
  53. diskoIvrand = rand(0, 100)
  54. if discofirsttime = 0:diskoIvrand = 0
  55. set $clubDescription = '<h1><center><b><font color="maroon">Inside the club</font></b></center></h1><center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_yaho.jpg"></center><br />'
  56. *pl $clubDescription
  57. 'You accompany <<$boydesc>> and when you reach the club he pays the entrance fee and you both walk in. Together with your <<$bfTitle[numnpc]>> you head to the dance floor and start dancing.'
  58. if diskoIvrand >= 80:
  59. diskoIvTiperand = rand(0, 1)
  60. if diskoIvTiperand = 0:
  61. 'While you are dancing with <<$boydesc>> a drunk kid in sweatpants and sweatshirt approaches.'
  62. gs 'npcgeneratec', 0, 'Gopnik', rand((age - 1),(age + 1))
  63. gs 'boyStat', $npclastgenerated, 1
  64. if pav_slut < 75:
  65. 'The Gopnik pushes <<$boydesc>> to the side and grabs you by the waist. "Let''s dance, babe!"'
  66. *nl
  67. gs 'willpower', 'misc', 'resist', 'easy'
  68. if will_cost <= pcs_willpwr:
  69. act 'Resist (<<will_cost>> Willpower)':
  70. cla
  71. gs 'willpower', 'pay', 'resist'
  72. tiprand = rand(0, 100)
  73. 'You escape from the clutches of the Gopnik. <<$boydesc>> pushes the drunk kid away who immediately goes to his Gopnik buddies who were standing nearby. It didn''t take them long to approach your <<$bfTitle[numnpc]>> and an argument starts. The Gopnik raises his fists, showing your <<$bfTitle[numnpc]>> that he wants to fight.'
  74. if tiprand <= 70:
  75. 'Fortunately, <<$boydesc>> manages to win the fight verbally, accusing the Gopnik of grabbing you, his girlfriend. But the evening was spoiled and finally <<$boydesc>> suggests that it would be better if you both head home.'
  76. act 'Go home':gt 'pavResidential'
  77. elseif tiprand <= 85:
  78. otnBoyFrend[numnpc] -= 20
  79. 'The Gopnik quickly pounces on your guy and punches him in the face. It seems that <<$boydesc>> doesn''t stand a chance against the three Gopniks and before he gets completely beaten up he offers all his money to the angry Gopniks and apologizes repeatedly before all of them. You quickly leave the dance floor and <<$boydesc>> suggests that you both head home.'
  80. act 'Go home':gt 'pavResidential'
  81. else
  82. 'The discussion escalates quickly into a fight and soon the Gopniks charge at your <<$bfTitle[numnpc]>> in the middle of the club.'
  83. *nl
  84. set $bfDiscoBadEnd = 'The Gopniks meanwhile drag <<$boydesc>> into the streets, where they beat him some more and steal all his money. Then they take off his shoes and throw him into the bushes.<br />Once you get back to your feet you start looking for your <<$bfTitle[numnpc]>> and find him outside the club, still lying in the bushes. You help him up and bring him home. His face is covered in blood and bruises everywhere.'
  85. set $stumble = 'You stumble and come crashing down to the floor, hitting your head hard.'
  86. set $looseTooth = 'You are dazed, bells are ringing in your head and you realize that you are lying on the floor. You start to feel severe pain on your jaw and your mouth is full of blood. You spit on the floor and see that they <b>knocked out one of your teeth</b>.'
  87. gs 'willpower', 'skill', 'force', 'stren_lvl'
  88. if will_cost <= pcs_willpwr:
  89. act 'Separate them (<<will_cost>> Willpower)':
  90. cls
  91. gs 'willpower', 'pay', 'force'
  92. *pl $clubDescription
  93. if pcs_stren < 60:
  94. pcs_mood -= 20
  95. gs 'pain', 6, 'head', 'hit'
  96. gs 'stat'
  97. 'You try to push the Gopnik, but someone pushes you roughly away from the fight.'
  98. *pl $stumble
  99. *pl $bfDiscoBadEnd
  100. act 'Go home':gt 'pavResidential'
  101. else
  102. 'You push back the Gopnik with all your strength and he stumbles backwards, hitting his head on the floor. But the second Gopnik turns to you and swings his fist towards your face.'
  103. if pcs_agil < 60:
  104. pcs_mood -= 30
  105. pcs_teeth += 1
  106. gs 'pain', 8, 'mouth', 'hit'
  107. gs 'stat'
  108. *pl $looseTooth
  109. *pl $bfDiscoBadEnd
  110. act 'Go home':gt 'pavResidential'
  111. else
  112. 'You react just in time and quickly move your head to the side barely avoiding his punch.'
  113. *nl
  114. set $discoScratch1 = 'You dig your nails into the punk''s face and begin to gouge and rip into it. The Gopnik is in so much pain that he stops attacking <<$boydesc>>. Your <<$bfTitle[numnpc]>> meanwhile topples one of the Gopniks and then manages to punch a second, again and again. The Gopnik falls to the floor like a sack.'
  115. set $discoScratch2 = 'The Gopnik with the scratched face seems to be recovering already because he tries to pounce on your <<$bfTitle[numnpc]>> again. Luckily he fails miserably with all this blood flooding his eyes from your handiwork. <<$boydesc>> punches him in the face knocking him down on his ass. In the meantime, the previous Gopnik got back up. "Okay, motherfucker, we''ll leave for now. We''ll get you and your bitch when you least expect it!"'
  116. set $discoScratch3 = '<<$boydesc>> puts his arm around your shoulders and you both leave the club.'
  117. act 'Punch him in his face':
  118. cla
  119. if pcs_agil >= 40:
  120. pcs_mood -= 30
  121. pcs_teeth += 1
  122. gs 'pain', 8, 'mouth', 'hit'
  123. gs 'pain', 6, 'face', 'hit'
  124. gs 'pain', 6, 'nose', 'hit'
  125. gs 'pain', 6, 'lips', 'hit'
  126. gs 'stat'
  127. 'You swing at the Gopnik and hit him right on the nose. He staggers briefly and then yells angrily at you, "Oh, you bitch!". He charges quickly at you and then a barrage of punches comes raining down on you.'
  128. $looseTooth
  129. *pl $bfDiscoBadEnd
  130. act 'Go home':gt 'pavResidential'
  131. else
  132. pcs_mood -= 20
  133. gs 'pain', 6, 'head', 'hit'
  134. gs 'stat'
  135. 'You try to hit the hooligan with a punch to the face but your blow is too slow. The Gopnik dodges your weak attempt and pushes you roughly away.'
  136. $stumble
  137. *pl $bfDiscoBadEnd
  138. act 'Go home':gt 'pavResidential'
  139. end
  140. end
  141. act 'Kick him in his face':
  142. cla
  143. if pcs_agil >= 60:
  144. 'You manage to give the punk a good kick in his face. His head swings back violently and then he grabs his face. "Shit! Fucking bitch, you broke my nose! Now I will break your whole fucking face!"'
  145. 'At this point <<$boydesc>> comes from the side and punches the hooligan hard on his already broken nose. The poor guy flies backwards and comes crashing down to the floor. Two other Gopniks used the distraction to grab onto your <<$bfTitle[numnpc]>> and try to pin his arms.'
  146. *nl
  147. act 'Scratch one of the Gopnik''s face':
  148. cla
  149. otnBoyFrend[numnpc] += 5
  150. GopWin[numnpc] += 1
  151. *pl $discoScratch1
  152. *pl $discoScratch2
  153. *pl $discoScratch3
  154. act 'Go home':gt 'pavResidential'
  155. end
  156. else
  157. 'You try to kick the hooligan in his face but he is faster than you and manages to shove you away before you even got your leg up.'
  158. *pl $stumble
  159. *pl $bfDiscoBadEnd
  160. pcs_mood -= 20
  161. gs 'pain', 6, 'head', 'hit'
  162. gs 'stat'
  163. act 'Go home':gt 'pavResidential'
  164. end
  165. end
  166. act 'Kick him in his balls':
  167. cla
  168. set $badKick = 'You try to kick the hooligan between his legs but he saw it coming. He blocks your kick and shoves you roughly away.'
  169. if pcs_agil >= 70:
  170. bollrand = rand(0, 1)
  171. if bollrand = 0:
  172. 'You kick your foot directly in the Gopnick''s crotch, hitting his balls hard. He flops down on his knees howling and clutching his crotch. Two Gopniks grab your <<$bfTitle[numnpc]>> and try to hold his arms.'
  173. *nl
  174. act 'Scratch one of the Gopnik''s face':
  175. cla
  176. otnBoyFrend[numnpc] += 5
  177. GopWin[numnpc] += 1
  178. *pl $discoScratch1
  179. *pl $discoScratch2
  180. *pl $discoScratch3
  181. act 'Go home':gt 'pavResidential'
  182. end
  183. else
  184. pcs_mood -= 20
  185. gs 'pain', 6, 'head', 'hit'
  186. gs 'stat'
  187. *pl $badKick
  188. *pl $stumble
  189. *pl $bfDiscoBadEnd
  190. act 'Go home':gt 'pavResidential'
  191. end
  192. else
  193. pcs_mood -= 20
  194. gs 'pain', 6, 'head', 'hit'
  195. gs 'stat'
  196. *pl $badKick
  197. *pl $stumble
  198. *pl $bfDiscoBadEnd
  199. act 'Go home':gt 'pavResidential'
  200. end
  201. end
  202. end
  203. end
  204. end
  205. else
  206. act 'Separate them (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  207. end
  208. act 'Watch them fight':
  209. cls
  210. otnBoyFrend[numnpc] -= 20
  211. gs 'stat'
  212. '<<$boydesc>> can''t escape the attacks of the three Gopniks and soon falls under a barrage of punches. The Gopniks drag him into the streets where they steal all his money, take off his shoes, and throw him into the bushes.'
  213. 'Once they left, you help your <<$bfTitle[numnpc]>> to his feet and manage to get him back home. His face is covered in blood and bruises everywhere.'
  214. act 'Go home':gt 'pavResidential'
  215. end
  216. end
  217. end
  218. else
  219. act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  220. end
  221. act 'Dance with the Gopnik':
  222. cla
  223. otnBoyFrend[numnpc] = 0
  224. DPtipe = 2
  225. gs 'stat'
  226. 'You decide to dance with the Gopnik. For a moment <<$boydesc>> is staring at you in disbelieve, then he approaches the guy and grabs his shoulder. "Hey you! That''s my girl!" Suddenly a couple of Gopniks grab your <<$bfTitle[numnpc]>> and keep him from interrupting the hooligan dancing with you.'
  227. 'After a few minutes <<$boydesc>> stops struggling and the Gopniks let him free. He curses and glares angrily at you, while you are still dancing with the Gopnik, and then stomps out of the club.'
  228. 'The Gopnik dancing with you is grinning and suggests that you should dump your <<$bfTitle[numnpc]>>. His hands wander down to your ass as he offers you to go outside and have some fun.'
  229. *nl
  230. act 'Have fun':
  231. cla
  232. gs 'boyStat', $npclastgenerated
  233. 'Your <<$bfTitle[numnpc]>> is unlikely to come back, so why not have some fun with this guy? You give him a slinky smile, grab his hands and move towards the exit.'
  234. act 'Leave':gt 'EvgopBuh'
  235. end
  236. act 'Leave alone':
  237. cla
  238. 'You have already done enough damage. You tell him that you need to use the restroom, untangle yourself from his clutches and then move towards the exit.'
  239. act 'Leave':gt 'gdk'
  240. end
  241. end
  242. else
  243. otnBoyFrend[numnpc] = 0
  244. pcs_mood -= 10
  245. gs 'pain', 4, 'cheeks', 'slap'
  246. gs 'stat'
  247. 'The Gopnik takes one look at you and then starts laughing, "Listen, buddy. Why are you wasting your time dancing with her? <<$pcs_nickname>> is a <<$gnikname>>. Just take her into the bushes out back, but don''t hurt her mouth. That sweet set of lips can really smack when sucking dick." You blush scarlet red from the Gopnik''s words, deeply embarrassed. <<$boydesc>> rushes up to the guy, "What did you say? Come again!" But the hooligan just went back to join his friends. "Listen, boy, no need to argue. Everyone in the neighborhood knows she is a <<$gnikname>>." <<$boydesc>> looks at you in surprise. "Is this true?" The boys laugh "Well, everyone except you." <<$boydesc>> glares angrily at you and then he slaps you hard across the face. "Go fuck yourself, slut!" He abruptly leaves the dance floor.'
  248. act 'Rub your cheek':gt 'gdkin'
  249. end
  250. elseif diskoIvTiperand = 1:
  251. 'You enjoy dancing with your <<$bfTitle[numnpc]>>. After a while <<$boydesc>> says that he could do with a beer and invites you to a drink.'
  252. gs 'willpower', 'drink', 'resist', 'easy'
  253. if will_cost <= pcs_willpwr:
  254. act 'Decline his offer and keep dancing (<<will_cost>> Willpower)':
  255. cla
  256. gs 'willpower', 'pay', 'resist'
  257. if pcs_danc < 50 and pcs_agil >= pcs_danc:danc_exp += 1
  258. minut += 5
  259. gs 'stat'
  260. 'Your <<$bfTitle[numnpc]>> gets himself a beer at the bar and in the meantime you continue to dance.'
  261. if pav_slut >= 75:
  262. 'Someone walks up to you "Hey, I''ve been watching you having fun with your boyfriend here. He still does''t know that you are a <<$gnikname>>? Maybe I should tell him?"'
  263. *nl
  264. set $bfBreakup = 'You tell the guy to go to hell and he walks away with a sullen look on his face. At this point, <<$boydesc>> comes back and asks, "What did that guy want from you?" You quickly lie, "He wanted to dance with me, but I turned him down." Unfortunately, the guy comes back and pulls your <<$bfTitle[numnpc]>> to the side. After a while, <<$boydesc>> returns and says "We''re through. Based on the shit I was just told, I won''t waste another minute on the likes of a whore like you!"'
  265. gs 'willpower', 'misc', 'self'
  266. if will_cost <= pcs_willpwr:
  267. act 'Tell him to piss off (<<will_cost>> Willpower)':
  268. cla
  269. gs 'willpower', 'pay', 'self'
  270. pcs_mood -= 10
  271. otnBoyFrend[numnpc] = 0
  272. gs 'stat'
  273. *pl $bfBreakup
  274. act 'Watch him leave':gt 'gdkin'
  275. end
  276. else
  277. act 'Tell him to piss off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  278. end
  279. act 'Beg him not to tell':
  280. cla
  281. sub += 1
  282. gs 'stat'
  283. 'You plead with the guy not to say anything to your <<$bfTitle[numnpc]>>. He chuckles, "Well, if you keep your mouth closed sucking on my dick, I''ll keep my mouth closed as well and won''t tell him."'
  284. *nl
  285. gs 'willpower', 'bj', 'resist'
  286. if will_cost <= pcs_willpwr:
  287. act 'Tell him to piss off (<<will_cost>> Willpower)':
  288. cla
  289. gs 'willpower', 'pay', 'resist'
  290. pcs_mood -= 10
  291. otnBoyFrend[numnpc] = 0
  292. gs 'stat'
  293. *pl $bfBreakup
  294. act 'Watch him leave':gt 'gdkin'
  295. end
  296. else
  297. act 'Tell him to piss off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  298. end
  299. act 'Agree':
  300. cls
  301. gs 'npcgeneratec', 0, 'Gopnik', rand((age - 1),(age + 1))
  302. $boy[1] = $boy
  303. gs 'boyStat', $npclastgenerated
  304. pcs_mood -= 5
  305. gs 'stat'
  306. '<h1><center><b><font color="maroon">Men''s Room</font></b></center></h1>'
  307. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/bathroom_entrance.jpg"></center>'
  308. *nl
  309. 'You agree to the blowjob and the guy leads you to the toilets. You start feeling depressed. The toilets in the club are something of a thoroughfare, someone smoking here, someone else defecating in booths over there, with little privacy. The guy walks with you into the men''s room. When you open the door, you see some drunk guys standing in a cloud of smoke. In one of the booths you hear the sound of someone puking.'
  310. 'The boys look at you bewildered, "Did you make a mistake? This is the men''s room." The guy who brought you smiles "Nah, She''s with me." He turns to you, "Okay, cocksucker, get your mouth working." You look at the other guys and ask, "What, right here?" The Boys laugh, "C''mon. You''re not embarrassed, are you?"'
  311. act 'Suck his cock':
  312. cls
  313. gs 'arousal', 'bj', 5
  314. spafinloc = 12
  315. gs 'cum_manage'
  316. swallow += 1
  317. gs 'stat'
  318. '<h1><center><b><font color="maroon">Men''s room</font></b></center></h1>'
  319. '<center><img <<$set_imgh>> src="images/shared/sex/blowjob/public.jpg"></center>'
  320. *nl
  321. 'You squat in front of the guy and unbutton his pants to pull out his stiff dick. The other boys continue smoking and watch the scene. You begin to lick the purple head of his swollen cock and then you open your <<$liptalk>> and take the cock in your mouth. The Boys start laughing and commenting at what they see, "Look how she smacks those lips." Another echoed, "Where did you find such a cocksucker?" Unfortunately, there''s someone who knows you. "Hey that''s <<$pcs_nickname>> <<$pcs_lastname>>. Hot Damn!"'
  322. 'You blush and your face burns with shame, sucking this dick in front of other guys. Finally the guy starts to cum in your mouth and you try as quickly as possible to swallow his warm sperm. When his cock finally goes limp he tucks it back in his pants. You get up from the floor and begin to wipe your mouth, knowing it now smells like cum. One of the guys chuckled, "Great blowjob, I wouldn''t mind one myself."'
  323. gs 'boyStat', $boy[1]
  324. act 'Slip out of the restroom':
  325. cls
  326. gs 'stat'
  327. *pl $clubDescription
  328. 'You try to ignore the guys as you slip out of the restroom and walk back to the dance floor. <<$boydesc>> has been looking for you. He comes up to you and asks, "Where have you been? I looked everywhere for you." You say the first thing that comes to your mind, "I went to the toilet." <<$boydesc>> asks "Why are you wiping your mouth?"'
  329. *nl
  330. gs 'willpower', 'misc', 'force', 'easy'
  331. if will_cost <= pcs_willpwr:
  332. act 'Suggest to leave (<<will_cost>> Willpower)':
  333. gs 'willpower', 'pay', 'force'
  334. cla
  335. 'You suggest to your <<$bfTitle[numnpc]>> to leave the club. <<$boydesc>> shrugs and you both walk out to the exit.'
  336. act 'Leave':
  337. cls
  338. dynamic $din_gboy_end_to_disco
  339. end
  340. end
  341. else
  342. act 'Suggest to leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  343. end
  344. act 'Dance':
  345. cla
  346. otnBoyFrend[numnpc] = 0
  347. pcs_mood -= 10
  348. gs 'pain', 3, 'cheeks', 'slap'
  349. gs 'stat'
  350. 'You continue to dance with your <<$bfTitle[numnpc]>>. A few minutes pass and then you see the guys that watched your whole blowjob scene coming out of the toilet. They also see you and guffaw, noisily discussing something. <<$boydesc>> looks at them puzzled, "What''s with them?" The boys shout to him, "While you were wandering around the place, your girlfriend was in the toilet sucking on a dick!" <<$boydesc>> comes up to them, "Are you crazy?"'
  351. 'The Boys start to tell him how you just sucked off a guy in front of them. <<$boydesc>> rushes back over to you and slaps you across the face "Get the fuck out, slut! I don''t want to see you ever again!"'
  352. act 'Leave':gt 'gdk'
  353. end
  354. end
  355. end
  356. gs 'willpower', 'bj', 'resist'
  357. if will_cost <= pcs_willpwr:
  358. act 'Change your mind (<<will_cost>> Willpower)':
  359. cls
  360. gs 'willpower', 'pay', 'resist'
  361. gs 'boyStat', $boy[1]
  362. gs 'stat'
  363. *pl $clubDescription
  364. pcs_mood -= 10
  365. otnBoyFrend[numnpc] = 0
  366. gs 'stat'
  367. *nl
  368. 'You angrily spit at him, "Go fuck yourself, asshole!", and storm out of the restroom. Just as you reach the dance floor you see that <<$boydesc>> is returning from the bar. You quickly grab his hands and begin dancing with him, still a little furious about the incident.'
  369. '<<$boydesc>> notices your bad mood and asks, "What''s wrong, <<$pcs_nickname>>?". At this moment, you see the guy from the restrooms returning. He walks up to your <<$bfTitle[numnpc]>> and pulls him to the side. After a while, <<$boydesc>> returns and says "We''re through. Based on the shit I was just told, I won''t waste another minute on the likes of a whore like you!"'
  370. act 'Watch him leave':gt 'gdkin'
  371. end
  372. else
  373. act 'Change your mind (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  374. end
  375. end
  376. end
  377. else
  378. 'While <<$boydesc>> went for a beer another guy comes up to you and asks for a dance.'
  379. *nl
  380. act 'Accept':
  381. cla
  382. otnBoyFrend[numnpc] -= 20
  383. pcs_mood -= 10
  384. gs 'stat'
  385. 'You start to dance with him. A few minutes later <<$boydesc>> comes up to you and pulls you by the hand, dragging you away from the other guy. "What the fuck is wrong with you? I leave for a minute, and you''re already dancing with someone else!" He angrily leaves the club.'
  386. act 'Stand there and watch him leave':gt 'gdkin'
  387. end
  388. gs 'willpower', 'misc', 'resist', 'easy'
  389. if will_cost <= pcs_willpwr:
  390. act 'Decline (<<will_cost>> Willpower)':
  391. cla
  392. gs 'willpower', 'pay', 'resist'
  393. otnBoyFrend[numnpc] += 5
  394. pcs_mood += 5
  395. gs 'stat'
  396. 'You politely refuse his invitation. The guy looks dejected but leaves without making any fuss. A few minutes later <<$boydesc>> returns to the dance floor, a beer in his hand. You have a fun time dancing with your <<$bfTitle[numnpc]>> and soon after he finishes his beer he suggests to leave.'
  397. act 'Leave':
  398. cls
  399. dynamic $din_gboy_end_to_disco
  400. end
  401. end
  402. else
  403. act 'Decline (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  404. end
  405. end
  406. end
  407. else
  408. act 'Decline his offer and keep dancing (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  409. end
  410. act 'Have a drink with him':
  411. cla
  412. gs 'drugs', 'alcohol', 'beer'
  413. minut += 3
  414. pcs_horny += 5
  415. gs 'stat'
  416. 'You head to the bar and <<$boydesc>> orders your drinks. When you finally get them you move to the outdoor area and find a secluded place to enjoy your drinks.'
  417. ! TODO: update to something more appropriate, like 'kiss', if it ever gets included
  418. gs 'willpower', 'sex', 'self', 'easy'
  419. if will_cost <= pcs_willpwr:
  420. act 'Kiss (<<will_cost>> Willpower)':
  421. cls
  422. gs 'willpower', 'pay', 'self'
  423. gs 'arousal', 'kiss', 5
  424. kissBoyFrend[numnpc] += 1
  425. gs 'stat'
  426. '<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
  427. 'You tenderly embrace <<$boydesc>> and began to kiss his lips.'
  428. if gnpcSex[numnpc] > 0:
  429. '<<$boydesc>> whispered in your ear, "<<$pcs_nickname>> want to do something right here?"'
  430. act 'Jerk guy':
  431. cls
  432. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  433. dick = dickBoyFrend[numnpc]
  434. gs 'arousal', 'hj', 5
  435. hja += 1
  436. pav_sex += rand(0,5)
  437. gs 'stat'
  438. '<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
  439. 'You got his hard and hot cock out of his pants and wrapped your hand around it. You started kissing him at the same time you masturbate his penis. Finally the guy groaned and you watch his cock shoot off his sperm.'
  440. act 'Further':
  441. cls
  442. dynamic $din_gboy_end_to_disco
  443. end
  444. end
  445. act 'Take by mouth':
  446. cls
  447. gs 'arousal', 'bj', 5
  448. bja += 1
  449. dick = dickBoyFrend[numnpc]
  450. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  451. pav_sex += rand(0,8)
  452. GboyBalabol[numnpc] = 1
  453. gs 'stat'
  454. '<center><img <<$set_imgh>> src="images/shared/sex/blowjob/cocksucker.jpg"></center>'
  455. 'You squatted in front of him and bring your face to his cock.'
  456. gs 'dinSex', 'bj_random'
  457. 'Soon <<$boydesc>> groaned "<<$pcs_nickname>>, I''m going to come."'
  458. act 'Suck on':
  459. cls
  460. gs 'arousal', 'bj', 5
  461. spafinloc = 12
  462. gs 'cum_manage'
  463. swallow += 1
  464. gs 'stat'
  465. '<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum49.jpg"></center>'
  466. gs 'dinsex', 'bj_swallow_random'
  467. act 'Further':
  468. cls
  469. dynamic $din_gboy_end_to_disco
  470. end
  471. end
  472. act 'Remove from the mouth':
  473. cls
  474. gs 'arousal', 'bj', 5
  475. spafinloc = 11
  476. gs 'cum_manage'
  477. facial += 1
  478. gs 'stat'
  479. '<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial21.jpg"></center>'
  480. 'You remove his member from your mouth just as a stream of hot sperm hits your face, then another and another and finally he stopped dumping his thick cum on your face.'
  481. act 'Further':
  482. cls
  483. dynamic $din_gboy_end_to_disco
  484. end
  485. end
  486. end
  487. else
  488. 'You feel your guy''s hands caress your breasts.'
  489. gs 'arousal', 'foreplay', -1
  490. act 'Stop':
  491. cls
  492. dynamic $din_gboy_end_to_disco
  493. end
  494. act 'Let him':
  495. cls
  496. gs 'arousal', 'foreplay', 3
  497. gs 'stat'
  498. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/tits.jpg"></center>'
  499. '<<$boydesc>> pulls your <<$titsize>> breast out of your top and begins to knead your boobs and kiss on them. He takes your hand and puts it against his groin, and you feel that he''s got a hard cock.'
  500. act 'Caress his cock through his pants':
  501. cls
  502. gs 'arousal', 'foreplay', 3
  503. gs 'stat'
  504. '<center><img <<$set_imgh>> src="images/shared/sex/grab/cock.jpg"></center>'
  505. 'You start stroking his crotch, feeling his dick bulging as it expands in his pants.'
  506. if pcs_horny < 80:
  507. act 'Remove hands':
  508. cls
  509. minut += 5
  510. otnBoyFrend[numnpc] -= 10
  511. gs 'stat'
  512. 'You remove his hands from your exposed breasts, and he looks puzzled, not sure why.'
  513. act 'Further':
  514. cls
  515. dynamic $din_gboy_end_to_disco
  516. end
  517. end
  518. end
  519. act 'Go into your guy''s pants':
  520. cls
  521. gs 'arousal', 'hj', 3
  522. gs 'stat'
  523. '<center><img <<$set_imgh>> src="images/shared/sex/grab/cock2.jpg"></center>'
  524. 'You slide your hand into his pants and wrap your fingers around his hard cock.'
  525. gs 'willpower', 'hj', 'self', 'easy'
  526. if will_cost <= pcs_willpwr:
  527. act 'Jerk him off (<<will_cost>> Willpower)':
  528. cls
  529. gs 'willpower', 'pay', 'self'
  530. gs 'arousal', 'hj', 5
  531. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  532. dick = dickBoyFrend[numnpc]
  533. hja += 1
  534. pav_sex += rand(0,5)
  535. gs 'stat'
  536. '<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
  537. 'You got his hard and hot cock out of his pants and hold it in your hand. You start kissing him at the same time you stroke his penis. Finally the guy lets out a groan and you watch as loads of cum shoot out of his cock.'
  538. act 'Further':
  539. cls
  540. dynamic $din_gboy_end_to_disco
  541. end
  542. end
  543. else
  544. act 'Jerk him off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  545. end
  546. act 'Take by mouth':
  547. cls
  548. gs 'arousal', 'bj', 5
  549. bja += 1
  550. dick = dickBoyFrend[numnpc]
  551. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  552. pav_sex += rand(0,8)
  553. GboyBalabol[numnpc] = 1
  554. gs 'stat'
  555. '<center><img <<$set_imgh>> src="images/shared/sex/blowjob/cocksucker.jpg"></center>'
  556. 'You squat in front of your guy and bring your face to his cock.'
  557. gs 'dinSex', 'bj_random'
  558. 'Soon <<$boydesc>> groaned "<<$pcs_nickname>>, I''m going to come."'
  559. act 'Suck on':
  560. cls
  561. gs 'arousal', 'bj', 5
  562. spafinloc = 12
  563. gs 'cum_manage'
  564. swallow += 1
  565. gs 'stat'
  566. '<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum49.jpg"></center>'
  567. gs 'dinsex','bj_swallow_random'
  568. act 'Further':
  569. cls
  570. dynamic $din_gboy_end_to_disco
  571. end
  572. end
  573. act 'Remove it from the mouth':
  574. cls
  575. gs 'arousal', 'bj', 5
  576. spafinloc = 11
  577. gs 'cum_manage'
  578. facial += 1
  579. gs 'stat'
  580. '<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial21.jpg"></center>'
  581. 'You remove his member from your mouth and then a stream of hot sperm hits your face, then another and another and finally your guy stops shooting his thick cum on your face.'
  582. act 'Further':
  583. cls
  584. dynamic $din_gboy_end_to_disco
  585. end
  586. end
  587. end
  588. end
  589. end
  590. gs 'willpower', 'mast', 'resist', 'easy'
  591. if will_cost <= pcs_willpwr:
  592. act 'Resist (<<will_cost>> Willpower)':
  593. cls
  594. gs 'willpower', 'pay', 'resist'
  595. gs 'arousal', 'foreplay', 3
  596. gs 'stat'
  597. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/petting.jpg"></center>'
  598. 'You remove your hand from his pants and then your guy sticks his hand into your pants, and you feel his fingers caress your wet pussy.'
  599. gs 'willpower', 'mast', 'resist', 'easy'
  600. if will_cost <= pcs_willpwr:
  601. act 'Remove his hand (<<will_cost>> Willpower)':
  602. cls
  603. gs 'willpower', 'pay', 'resist'
  604. minut += 5
  605. otnBoyFrend[numnpc] -= 10
  606. gs 'stat'
  607. 'You take his hand out of your pants, and he shakes his head, not understanding.'
  608. act 'Further':
  609. cls
  610. dynamic $din_gboy_end_to_disco
  611. end
  612. end
  613. else
  614. act 'Remove his hand (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  615. end
  616. act 'Enjoy':
  617. cls
  618. gs 'arousal', 'vaginal_finger', 5
  619. gs 'stat'
  620. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/petting.jpg"></center>'
  621. 'You cease to resist and just relax feeling the pleasant warmth as your guy caresses your pussy. <<$boydesc>> begins to undress you and soon you are naked.'
  622. act 'Surrender':
  623. cls
  624. minut += 5
  625. pcs_horny += 10
  626. sexa += 1
  627. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  628. gs 'boyStat', $nameBoyfrend[numnpc]
  629. pav_sex += rand(0,8)
  630. GboyBalabol[numnpc] = 1
  631. gs 'stat'
  632. '<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
  633. 'He quickly takes off his clothes and lays down on top of you.'
  634. gs 'dinsex', 'boy_puts_condom'
  635. gs 'dinsex','vaginal_sex',10
  636. gs 'dinsex','sexcum'
  637. act 'Further':
  638. cls
  639. dynamic $din_gboy_end_to_disco
  640. end
  641. end
  642. gs 'willpower', 'anal', 'self'
  643. if will_cost <= pcs_willpwr:
  644. act 'Substitute ass (<<will_cost>> Willpower)':
  645. cls
  646. gs 'willpower', 'pay', 'self'
  647. gs 'arousal', 'anal', 15
  648. spafinloc = 3
  649. gs 'cum_manage'
  650. anala += 1
  651. gs 'boyStat', $nameBoyfrend[numnpc]
  652. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  653. pav_sex += rand(0,8)
  654. GboyBalabol[numnpc] = 1
  655. gs 'stat'
  656. '<center><img <<$set_imgh>> src="images/shared/sex/anal/doggy/anal31.jpg"></center>'
  657. gs 'dinsex', 'boy_puts_condom'
  658. gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
  659. 'Finally the guy finishes and you feel something warm fill your ass.'
  660. act 'Further':
  661. cls
  662. dynamic $din_gboy_end_to_disco
  663. end
  664. end
  665. else
  666. act 'Substitute ass (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  667. end
  668. end
  669. end
  670. else
  671. act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  672. end
  673. end
  674. end
  675. end
  676. else
  677. act 'Kiss (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  678. end
  679. act 'Leave the club':
  680. cls
  681. dynamic $din_gboy_end_to_disco
  682. end
  683. end
  684. elseif diskoIvTiperand = 2:
  685. *pl
  686. elseif diskoIvTiperand = 3:
  687. *pl
  688. end
  689. exit
  690. end
  691. if kissBoyFrend[numnpc] > 0:
  692. *pl
  693. elseif kissBoyFrend[numnpc] = 0:
  694. *pl
  695. end
  696. dynamic $din_gboy_end_to_disco
  697. end
  698. }
  699. $din_gboy_tits = {
  700. '<<$boydesc>> began to get your <<$titsize>> breasts out of the garment.'
  701. act 'Let him':
  702. cls
  703. gs 'arousal', 'foreplay', 3
  704. gs 'stat'
  705. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/tits.jpg"></center>'
  706. '<<$boydesc>> pulls your <<$titsize>> breasts outside and begins to knead your breasts and kiss them. Guy takes your hand and puts it on the groin, you feel that he''s got a hard cock.'
  707. act 'Caress his cock through his pants':
  708. cls
  709. gs 'arousal', 'foreplay', 3
  710. gs 'stat'
  711. '<center><img <<$set_imgh>> src="images/shared/sex/grab/cock.jpg"></center>'
  712. 'You start stroking your guy''s crotch, feeling the hardness of his member pressing against the cloth of his trousers.'
  713. gs 'willpower', 'mast', 'resist'
  714. if will_cost <= pcs_willpwr:
  715. act 'Remove his hand (<<will_cost>> Willpower)':
  716. cls
  717. gs 'willpower', 'pay', 'resist'
  718. minut += 5
  719. otnBoyFrend[numnpc] -= 10
  720. gs 'stat'
  721. 'You take his hand out of your pants, and he shakes his head, not understanding.'
  722. act 'Go home':gt 'pavResidential'
  723. end
  724. else
  725. act 'Remove his hand (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  726. end
  727. act 'Going into the guy''s pants':
  728. cls
  729. gs 'arousal', 'hj', 3
  730. gs 'stat'
  731. '<center><img <<$set_imgh>> src="images/shared/sex/grab/cock2.jpg"></center>'
  732. 'You slide your hand inside his pants, enfolding your fingers around his hard hot cock.'
  733. gs 'willpower', 'hj', 'self', 'easy'
  734. if will_cost <= pcs_willpwr:
  735. act 'Jerk him off (<<will_cost>> Willpower)':
  736. cls
  737. gs 'willpower', 'pay', 'self'
  738. gs 'arousal', 'hj', 5
  739. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  740. dick = dickBoyFrend[numnpc]
  741. hja += 1
  742. gs 'stat'
  743. '<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
  744. 'You pull his hard and hot cock out of his pants and wrap your hand around it. You start kissing him while stroking his penis. Finally the guy groans and you watch as loads of his sperm erupt again and again from his cock.'
  745. act 'Go home':gt 'pavResidential'
  746. end
  747. else
  748. act 'Jerk him off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  749. end
  750. act 'Take by mouth':
  751. cls
  752. gs 'arousal', 'bj', 5
  753. bja += 1
  754. dick = dickBoyFrend[numnpc]
  755. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  756. pav_sex += rand(0,8)
  757. GboyBalabol[numnpc] = 1
  758. gs 'stat'
  759. '<center><img <<$set_imgh>> src="images/shared/sex/blowjob/cocksucker.jpg"></center>'
  760. 'You squat in front of your guy and bring your face to his cock.'
  761. gs 'dinSex', 'bj_random'
  762. 'Soon <<$boydesc>> groaned "<<$pcs_nickname>>, I''m going to come."'
  763. act 'Suck on':
  764. cls
  765. minut += 5
  766. pcs_horny += 10
  767. spafinloc = 12
  768. gs 'cum_manage'
  769. swallow += 1
  770. gs 'stat'
  771. '<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum49.jpg"></center>'
  772. gs 'dinsex','bj_swallow_random'
  773. act 'Go home':gt 'pavResidential'
  774. end
  775. act 'Remove it from your mouth':
  776. cls
  777. minut += 5
  778. pcs_horny += 10
  779. spafinloc = 11
  780. gs 'cum_manage'
  781. facial += 1
  782. gs 'stat'
  783. '<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial21.jpg"></center>'
  784. 'You remove his member from your mouth just as a stream of hot sperm hits you in the face, then another and another until he eventually finished coating your face with his cum.'
  785. act 'Go home':gt 'pavResidential'
  786. end
  787. act 'Surrender':
  788. cls
  789. minut += 5
  790. pcs_horny += 10
  791. sexa += 1
  792. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  793. gs 'boyStat', $nameBoyfrend[numnpc]
  794. pav_sex += rand(0,8)
  795. GboyBalabol[numnpc] = 1
  796. gs 'stat'
  797. '<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
  798. 'He quickly takes off his clothes and lays down on top of you.'
  799. gs 'dinsex', 'boy_puts_condom'
  800. gs 'dinsex','vaginal_sex',10
  801. gs 'dinsex','sexcum'
  802. act 'Go home':gt 'pavResidential'
  803. end
  804. gs 'willpower', 'anal', 'self'
  805. if will_cost <= pcs_willpwr:
  806. act 'Substitute ass (<<will_cost>> Willpower)':
  807. cls
  808. gs 'willpower', 'pay', 'self'
  809. gs 'arousal', 'anal', 15
  810. spafinloc = 3
  811. gs 'cum_manage'
  812. anala += 1
  813. gs 'boyStat', $nameBoyfrend[numnpc]
  814. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  815. pav_sex += rand(0,8)
  816. GboyBalabol[numnpc] = 1
  817. gs 'stat'
  818. '<center><img <<$set_imgh>> src="images/shared/sex/anal/doggy/anal31.jpg"></center>'
  819. gs 'dinsex', 'boy_puts_condom'
  820. gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
  821. 'Finally he reaches his peak and you feel something warm filling your ass.'
  822. act 'Leave.':gt 'pavResidential'
  823. end
  824. else
  825. act 'Substitute ass (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  826. end
  827. end
  828. end
  829. end
  830. gs 'willpower', 'mast', 'resist', 'easy'
  831. if will_cost <= pcs_willpwr:
  832. act 'Resist (<<will_cost>> Willpower)':
  833. cls
  834. gs 'willpower', 'pay', 'resist'
  835. gs 'arousal', 'foreplay', 3
  836. gs 'stat'
  837. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/petting.jpg"></center>'
  838. 'You remove your hand from his pants and he immediately reaches his hand into your pants, as you feel his fingers caress your wet pussy.'
  839. gs 'willpower', 'mast', 'resist', 'easy'
  840. if will_cost <= pcs_willpwr:
  841. act 'Remove his hand (<<will_cost>> Willpower)':
  842. cls
  843. gs 'willpower', 'pay', 'resist'
  844. minut += 5
  845. otnBoyFrend[numnpc] -= 10
  846. gs 'stat'
  847. 'You pull his hand from your pussy, and he just looks at you, slightly confused.'
  848. act 'Go home':gt 'pavResidential'
  849. end
  850. else
  851. act 'Remove his hand (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  852. end
  853. act 'Enjoy':
  854. cls
  855. gs 'arousal', 'vaginal_finger', 5
  856. pcs_horny += 10
  857. gs 'stat'
  858. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/petting.jpg"></center>'
  859. 'You cease to resist and just relax feeling that pleasant warmth of a guy caressing your pussy with his fingers. <<$boydesc>> begins to undress you and soon you are completely naked.'
  860. act 'Surrender':
  861. cls
  862. sexa += 1
  863. if gnpcSex[numnpc] = 0:gnpcSex[numnpc] = 1 & guy += 1
  864. gs 'boyStat', $nameBoyfrend[numnpc]
  865. pav_sex += rand(0,8)
  866. GboyBalabol[numnpc] = 1
  867. gs 'stat'
  868. '<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
  869. 'He quickly takes off his clothes and lays down on top of you.'
  870. gs 'dinsex', 'boy_puts_condom'
  871. gs 'dinsex', 'vaginal_sex', 15
  872. gs 'dinsex', 'sexcum'
  873. act 'Go home':gt 'pavResidential'
  874. end
  875. gs 'willpower', 'anal', 'self'
  876. if will_cost <= pcs_willpwr:
  877. act 'Substitute ass (<<will_cost>> Willpower)':
  878. cls
  879. gs 'willpower', 'pay', 'self'
  880. gs 'arousal', 'anal', 15
  881. spafinloc = 3
  882. gs 'cum_manage'
  883. anala += 1
  884. gs 'boyStat', $nameBoyfrend[numnpc]
  885. if gnpcSex[numnpc] = 0: gnpcSex[numnpc] = 1 & guy += 1
  886. pav_sex += rand(0,8)
  887. GboyBalabol[numnpc] = 1
  888. gs 'stat'
  889. '<center><img <<$set_imgh>> src="images/shared/sex/anal/doggy/anal31.jpg"></center>'
  890. gs 'dinsex', 'boy_puts_condom'
  891. gs 'dinSex', 'boy_wants_anal','lubri' & gs 'dinsex', 'analsex'
  892. 'Finally he reaches his peak and you feel something warm filling your ass.'
  893. act 'Leave.':gt 'pavResidential'
  894. end
  895. else
  896. act 'Substitute ass (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  897. end
  898. end
  899. end
  900. else
  901. act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  902. end
  903. end
  904. gs 'willpower', 'mast', 'resist'
  905. if will_cost <= pcs_willpwr:
  906. act 'Remove his hand (<<will_cost>> Willpower)':
  907. cls
  908. gs 'willpower', 'pay', 'resist'
  909. minut += 5
  910. otnBoyFrend[numnpc] -= 10
  911. gs 'stat'
  912. 'You remove his hands from your exposed breasts, and he looks puzzled, not sure why.'
  913. act 'Go home':gt 'pavResidential'
  914. end
  915. else
  916. act 'Remove his hand (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  917. end
  918. }
  919. $din_gboy_kiss = {
  920. act 'Kiss':
  921. cls
  922. gs 'arousal', 'kiss', 5
  923. kissBoyFrend[numnpc] += 1
  924. gs 'stat'
  925. '<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
  926. 'You turn your head to the guy and your lips meet. <<$boydesc>> starts to passionately caress your body with his hands as he kisses you.'
  927. dynamic $din_gboy_tits
  928. end
  929. }
  930. $din_gboy_knee = {
  931. gs 'willpower', 'sex', 'resist', 'easy'
  932. if will_cost <= pcs_willpwr:
  933. act 'Remove his hand (<<will_cost>> Willpower)':
  934. cls
  935. gs 'willpower', 'sex', 'resist', 'easy'
  936. gs 'willpower', 'pay', 'resist'
  937. minut += 5
  938. otnBoyFrend[numnpc] -= 10
  939. gs 'stat'
  940. 'You remove his hand from your knee and he shakes his head, puzzled what to do next.'
  941. act 'Go home':gt 'pavResidential'
  942. end
  943. else
  944. act 'Remove his hand (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  945. end
  946. act 'Pretend that nothing is happening':
  947. cls
  948. gs 'arousal', 'foreplay', 5
  949. gs 'stat'
  950. '<center><img <<$set_imgh>> src="images/characters/shared/boyfriend/groped.jpg"></center>'
  951. 'You pretend not to notice his hand and <<$boydesc>> doesn''t hesitate to pull your thigh closer to his. <<$boydesc>> tilted towards your face trying to kiss you.'
  952. gs 'willpower', 'sex', 'resist', 'easy'
  953. if will_cost <= pcs_willpwr:
  954. act 'Remove his hand (<<will_cost>> Willpower)':
  955. cls
  956. gs 'willpower', 'sex', 'resist', 'easy'
  957. gs 'willpower', 'pay', 'resist'
  958. minut += 5
  959. otnBoyFrend[numnpc] -= 10
  960. gs 'stat'
  961. 'You remove his hand from your knee and he shakes his head, puzzled what to do next.'
  962. act 'Go home':gt 'pavResidential'
  963. end
  964. else
  965. act 'Remove his hand (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  966. end
  967. dynamic $din_gboy_kiss
  968. end
  969. if pcs_horny >= 75:
  970. ! TODO: update to something more appropriate, like 'kiss', if it ever gets included
  971. gs 'willpower', 'sex', 'self', 'easy'
  972. if will_cost <= pcs_willpwr:
  973. act 'Kiss him (<<will_cost>> Willpower)':
  974. cls
  975. gs 'willpower', 'sex', 'self', 'easy'
  976. gs 'willpower', 'pay', 'self'
  977. gs 'arousal', 'kiss', 5
  978. kissBoyFrend[numnpc] += 1
  979. gs 'stat'
  980. '<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
  981. 'You turn your head to the guy and your lips meet. <<$boydesc>> starts to passionately caress your body with his hands as he kisses you.'
  982. dynamic $din_gboy_tits
  983. end
  984. else
  985. act 'Kiss him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  986. end
  987. end
  988. }
  989. $din_gboy_go_to_boyhome = {
  990. act 'Go to his home':
  991. cls
  992. minut += 15
  993. gs 'stat'
  994. '<<$boydesc>> takes you to his home. You came to a small two-story house, in which there are several apartments and <<$boydesc>> guides you to his apartment. He opened the door with a key and lets you inside.'
  995. boyhouserand = rand(0, 2)
  996. if boyhouserand = 0:
  997. 'There was no one else at home and he suggested you go to the recreation room and watch a movie.'
  998. act 'Watch Movie':
  999. cls
  1000. minut += 30
  1001. gs 'stat'
  1002. 'You settled comfortably on the sofa and <<$boydesc>> rummages in the drawers, finds a movie, and puts it in the VCR and starts it, then sits down next to you.'
  1003. boyvideorand = rand(0, 3)
  1004. if boyvideorand = 0:
  1005. 'When the movie starts you quickly realize it''s a porn video. The actors do not have time to exchange but a few sentences before the girl was already naked and kneeling in front of the guy with his cock in her mouth.'
  1006. act 'Watch porn':
  1007. cls
  1008. gs 'arousal', 'foreplay', 5
  1009. gs 'stat'
  1010. '<center><img <<$set_imgh>> src="images/characters/shared/boyfriend/groped.jpg"></center>'
  1011. 'You continue watching the porn and what you saw was gradually exciting you. You feel <<$boydesc>> put his hand on your knee and began to stroke it.'
  1012. dynamic $din_gboy_knee
  1013. end
  1014. gs 'willpower', 'voyeur', 'resist', 'easy'
  1015. if will_cost <= pcs_willpwr:
  1016. act 'Refuse to watch (<<will_cost>> Willpower)':
  1017. cls
  1018. gs 'willpower', 'pay', 'resist'
  1019. minut += 5
  1020. otnBoyFrend[numnpc] -= 20
  1021. gs 'stat'
  1022. 'You got up from the couch upset with the guy claiming that you are not interested in watching that type of trash. <<$boydesc>> gets embarrassed and blushing began stuttering an apology.'
  1023. act 'Go home':gt 'pavResidential'
  1024. end
  1025. else
  1026. act 'Refuse to watch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1027. end
  1028. elseif boyvideorand > 0:
  1029. 'A Hollywood thriller started playing in which the protagonist smashed everything around him while he managed to not even get scratched. In the film, he ends up killing his best friend, after which the hero drops to his knees beside the body screaming "NO!" in the rain. Finally the hero and main villain meet and after a hard fight he killed the bad guy, the film ends as expected, with an explosion in the background from which the hero escaped.'
  1030. boyprirand = rand(0, 2)
  1031. if boyprirand = 0:
  1032. 'You feel him lay hand on your knee and began to stroke it.'
  1033. gs 'willpower', 'sex', 'resist', 'easy'
  1034. if will_cost <= pcs_willpwr:
  1035. act 'Remove his hand (<<will_cost>> Willpower)':
  1036. cls
  1037. gs 'willpower', 'sex', 'resist', 'easy'
  1038. gs 'willpower', 'pay', 'resist'
  1039. minut += 5
  1040. otnBoyFrend[numnpc] -= 10
  1041. gs 'stat'
  1042. 'You remove his hand from your knee and he shakes his head, puzzled what to do next.'
  1043. act 'Go home':gt 'pavResidential'
  1044. end
  1045. else
  1046. act 'Remove his hand (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1047. end
  1048. dynamic $din_gboy_knee
  1049. else
  1050. if pcs_horny >= 75:
  1051. gs 'willpower', 'sex', 'self', 'easy'
  1052. if will_cost <= pcs_willpwr:
  1053. act 'Kiss him (<<will_cost>> Willpower)':
  1054. cls
  1055. gs 'willpower', 'pay', 'self'
  1056. gs 'arousal', 'kiss', 5
  1057. gs 'stat'
  1058. 'You turn your head to the guy and your lips meet. <<$boydesc>> starts to passionately caress your body with his hands as he kisses you.'
  1059. dynamic $din_gboy_tits
  1060. end
  1061. else
  1062. act 'Kiss him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1063. end
  1064. end
  1065. act 'Go home': gt 'pavResidential'
  1066. end
  1067. end
  1068. end
  1069. elseif boyhouserand = 1:
  1070. '<center><img <<$set_imgh>> src="images/characters/shared/boyfriend/groped.jpg"></center>'
  1071. 'There was no one else at home and he suggested that you both go to his room. In his room, he sat next to you and started stroking your knee.'
  1072. dynamic $din_gboy_knee
  1073. elseif boyhouserand = 2:
  1074. '<center><img <<$set_imgh>> src="images/characters/shared/boyfriend/groped.jpg"></center>'
  1075. 'When you went inside his home, he realizes that his parents were home and he quickly walks you to his room. In his room, he sat next to you and started stroking your knee.'
  1076. dynamic $din_gboy_knee
  1077. end
  1078. !!act 'Go home':gt 'pavResidential'
  1079. end
  1080. }
  1081. menu_off = 1
  1082. gs 'stat'
  1083. '<center><h1><font color="maroon"><<$boydesc>></font></h1></center>'
  1084. '<center><img <<$set_imgh>> src="images/pc/npc_headshots/big<<numnpc>>.jpg"></center>'
  1085. 'You''re on a date with <<$boydesc>>. <<$bfRelationship[numnpc]>>'
  1086. *nl
  1087. if hour < 20:
  1088. if otnBoyFrend[numnpc] < 80:
  1089. '<<$boydesc>> offered to take you home.'
  1090. act 'Go home':gt 'pavResidential'
  1091. elseif otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc] = 0:
  1092. gdeystboyrand = rand(0, 1)
  1093. if gdeystboyrand = 0:
  1094. '<<$boydesc>> suggested that you two go to his home.'
  1095. dynamic $din_gboy_go_to_boyhome
  1096. gs 'willpower', 'sex', 'resist', 'easy'
  1097. if will_cost <= pcs_willpwr:
  1098. act 'Refuse to go to his home (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & otnBoyFrend[numnpc] -= 10 & gt 'pavResidential'
  1099. else
  1100. act 'Refuse to go to his home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1101. end
  1102. elseif gdeystboyrand = 1:
  1103. '<<$boydesc>> offered to take you home.'
  1104. act 'Go home':gt 'pavResidential'
  1105. end
  1106. elseif otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc] > 0:
  1107. '<<$boydesc>> suggested that you two go to his home.'
  1108. dynamic $din_gboy_go_to_boyhome
  1109. gs 'willpower', 'sex', 'resist', 'easy'
  1110. if will_cost <= pcs_willpwr:
  1111. act 'Refuse to go to his home (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & otnBoyFrend[numnpc] -= 10 & gt 'pavResidential'
  1112. else
  1113. act 'Refuse to go to his home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1114. end
  1115. end
  1116. elseif hour >= 20 and hour < 23:
  1117. if otnBoyFrend[numnpc] < 80:
  1118. '<<$boydesc>> offered to take you home.'
  1119. act 'Go home':gt 'pavResidential'
  1120. elseif otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc] = 0:
  1121. tipgbrand = rand(0, 1)
  1122. if tipgbrand = 0:
  1123. '<<$boydesc>> suggested going to the disco.'
  1124. dynamic $din_gboy_go_to_disco
  1125. gs 'willpower', 'misc', 'resist', 'easy'
  1126. if will_cost <= pcs_willpwr:
  1127. act 'Refuse and go home (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & otnBoyFrend[numnpc] -= 10 & gt 'pavResidential'
  1128. else
  1129. act 'Refuse and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1130. end
  1131. elseif tipgbrand = 1:
  1132. '<<$boydesc>> offered to go to his home.'
  1133. dynamic $din_gboy_go_to_boyhome
  1134. act 'Refuse and go home':otnBoyFrend[numnpc] -= 10 & gt 'pavResidential'
  1135. end
  1136. elseif otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc] > 0:
  1137. gdeystboyrand = rand(0, 1)
  1138. if gdeystboyrand = 0:
  1139. '<<$boydesc>> offered to go to his home.'
  1140. dynamic $din_gboy_go_to_boyhome
  1141. act 'Refuse and go home':otnBoyFrend[numnpc] -= 10 & gt 'pavResidential'
  1142. elseif gdeystboyrand = 1:
  1143. '<<$boydesc>> offered to go to the disco.'
  1144. dynamic $din_gboy_go_to_disco
  1145. gs 'willpower', 'misc', 'resist', 'easy'
  1146. if will_cost <= pcs_willpwr:
  1147. act 'Refuse and go home (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & otnBoyFrend[numnpc] -= 10 & gt 'pavResidential'
  1148. else
  1149. act 'Refuse and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1150. end
  1151. end
  1152. end
  1153. elseif hour >= 23:
  1154. '<<$boydesc>> offered to take you home.'
  1155. act 'go home':gt 'pavResidential'
  1156. end
  1157. --- Gnpc2 ---------------------------------