1
0

gdkin.qsrc 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812
  1. # gdkin
  2. !2021/05/02
  3. if $ARGS[0] = '':
  4. if hour > 19: gdkin_in = daystart
  5. $loc_arg = ''
  6. $loc = 'gdkin'
  7. $location_type = 'public_indoors'
  8. $menu_loc = 'gdkin'
  9. $menu_arg = ''
  10. menu_off = 0
  11. boynumBlock = 0
  12. gs 'stat'
  13. gs 'themes', 'indoors'
  14. pl ''
  15. if music_on = 1:
  16. $track_loop = 'sound/komb.mp3'
  17. volume = 80
  18. music_loop = 1
  19. pl '<a href="exec: music_on = 0 & gt $loc">Turn off the music</a>'
  20. else
  21. music_loop = 0
  22. close all
  23. pl '<a href="exec: music_on = 1 & gt $loc">Play music</a>'
  24. end
  25. '<center><b><font color="maroon">Disco</font></b></center>'
  26. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_yaho.jpg"></center>'
  27. *nl
  28. if NikoVolkovQW = 5 and NikoEv = 7 and NikoDate_Day ! daystart: gt 'NikoDates', 'Disco'
  29. if hour >= 20 and hour <= 23:
  30. if LariskaQW['story'] = 14: 'You think you see <a href="exec: gt ''lariska_storyline'', ''Boyfriend_5''">someone</a> you know on the dance floor.'
  31. act 'Go outside': gt 'pav_commcenter'
  32. act 'Go to the toilets': gt 'gdktoilet', 'start'
  33. if StoryLine = 1 and SchoolAtestat = 0: 'At the disco you see a few of your <a href="exec: gt ''gdkin'', ''classmates''">classmates</a>. Some of them dancing, while others stick to their own groups and talk.'
  34. if soniaslut < 5: soniaslut += 1
  35. if dimaRevenge = 7 and dimaRevChoice = 4 and dimadisco = 0: gt 'dimaRevenge', 5, 'disco'
  36. if rand(1,3) = 2 and soniaPS < 1 and soniadisco_day ! daystart and SchoolAtestat = 0:
  37. if npc_grupTipe['A25'] ! 5 and StoryLine = 1 and BeInSchool > 0 and soniaslut >= 5 and hour < 23:
  38. 'You notice Sonia talking to Vitek about something.'
  39. act 'Watch Sonia': soniadisco_day = daystart & gt 'soniadisco', 'start'
  40. end
  41. end
  42. act 'Dance (0:15)':
  43. *clr & cla
  44. menu_off = 1
  45. '<center><b><font color="maroon">Disco</font></b></center>'
  46. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance.jpg"></center>'
  47. if pcs_inhib < 40:inhib_exp += rand(1,2)
  48. if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
  49. gdkincum = daystart
  50. gs 'fame', 'pav', 'sex', 5
  51. pcs_mood -= 40
  52. gs 'stat'
  53. 'As you head out on the dance floor, a guy walks up to you, notices the cum still splattered on you and points at you. "Check out this cocksucker! Hey guys, this chick has cum smeared all over her face!" The ones standing near him come closer. "Did you forget to swallow, slut?" Your cheeks blush with shame and you quickly head for the exit.'
  54. act 'Leave': gt 'pav_commcenter'
  55. else
  56. minut += 15
  57. pcs_stam -= 5
  58. gs 'sweat', 'add', 3
  59. fat -= 1
  60. danc_exp += 1
  61. pcs_mood += 10
  62. frost = 0
  63. gs 'stat'
  64. if rand(0,7) = 1 and katja_disco_end=1 and (alko > 1 or pcs_horny => 80) and KatjaHorny > 60:
  65. *clr
  66. '<center><b><font color="maroon">Disco</font></b></center>'
  67. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance.jpg"></center>'
  68. 'While you are dancing you notice Katya out on the dance floor as well.'
  69. act 'Dance with Katya': gt 'gdkin', 'Katja_dance'
  70. end
  71. if alko >= 6:
  72. 'You''re too drunk to try and dance. You are barely able to stay on your feet and are mostly just drunkenly bumping into other people as you try and dance.'
  73. if StoryLine = 1 and SchoolAtestat = 0 and meynoldQW >= 2 and rand(0,1) = 0: gt 'gdkin', 'too_drunk_dance'
  74. elseif alko > 3:
  75. if $pantyworntype = 'none' and PCloSkirt > 2:
  76. *clr
  77. '<center><b><font color="maroon">Disco</font></b></center>'
  78. '<center><video autoplay loop src="images/locations/pavlovsk/community/disco/club_dance2.mp4"></video></center>'
  79. 'You''re drunk and you forget that you don''t have any panties on. As you dance around moving your body, your skirt rides up, exposing your pussy to the observant people on the dance floor with you.'
  80. else
  81. *clr
  82. '<center><b><font color="maroon">Disco</font></b></center>'
  83. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance7.jpg"></center>'
  84. 'You''re drunk, but you''re having a lot of fun out on the dance floor anyways. You''re not even paying attention to anyone else or even the music.'
  85. end
  86. elseif alko > 0:
  87. if $pantyworntype = 'none' and PCloSkirt > 2:
  88. *clr
  89. '<center><b><font color="maroon">Disco</font></b></center>'
  90. '<center><video autoplay loop src="images/locations/pavlovsk/community/disco/club_dance2.mp4"></video></center>'
  91. 'You''re a bit tipsy and you forget that you don''t have any panties on. As you dance around moving your body, your skirt rides up, exposing your pussy to the observant people on the dance floor.'
  92. else
  93. *clr
  94. '<center><b><font color="maroon">Disco</font></b></center>'
  95. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance7.jpg"></center>'
  96. 'You''re a bit tipsy, but you''re having a lot of fun out on the dance floor anyways. You''re not paying much attention to anyone else or even the music.'
  97. end
  98. else
  99. 'The music is quite old, but catchy. You have fun dancing, not paying attention to anyone.'
  100. end
  101. if alko < 6:
  102. verprigrand = rand(0, 100)
  103. if verprigrand <= pcs_danc:
  104. gs 'gdkin', 'dance_partner'
  105. gs 'stat'
  106. '<<$din_disc_dance2>>'
  107. act 'Move away': gt 'gdkin'
  108. act 'Dance with the guy': gt 'gdkin', 'dance_vrp'
  109. exit
  110. end
  111. end
  112. gs 'stat'
  113. act 'Continue': gt 'gdkin'
  114. end
  115. end
  116. act 'Stand at the wall':
  117. *clr & cla
  118. menu_off = 1
  119. minut += 5
  120. !!fat -= 1
  121. pcs_mood -= 5
  122. frost = 0
  123. gs 'stat'
  124. '<center><b><font color="maroon">Disco</font></b></center>'
  125. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_yaho.jpg"></center>'
  126. if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
  127. gdkincum = daystart
  128. gs 'fame', 'pav', 'sex', 5
  129. pcs_mood -= 40
  130. gs 'stat'
  131. 'While standing by the wall, a guy notices cum on your clothes and he points and shouts. "This chick is covered in cum! Did you forget to swallow slut?" he says mockingly while laughing. Your cheeks blush with shame and you head for the exit.'
  132. act 'Leave': gt 'pav_commcenter'
  133. exit
  134. end
  135. if alko >= 6 and rand(1, 100) < 3: gt 'gevent', '6'
  136. if alko >= 6:
  137. 'You''re too drunk to dance and you lean against the wall for support to stop yourself from falling.'
  138. if StoryLine = 1 and SchoolAtestat = 0 and meynoldQW >= 2 and rand(0,1) = 0: gt 'gdkin', 'too_drunk_dance'
  139. elseif alko > 3:
  140. 'You''re drunk and stand against the wall, watching the others dance.'
  141. elseif alko > 0:
  142. 'You''re tipsy and stand against the wall, watching the others dance.'
  143. else
  144. 'You are standing next to the wall while watching the others dance.'
  145. end
  146. if alko < 6:
  147. verodance = 0
  148. if pcs_hairbsh = 1:verodance += 1
  149. if PCloSkirt > 2 or PCloPants > 4:verodance += 1
  150. if $clothingworntype = 'fashionista':verodance += 2
  151. if pcs_makeup = 2:verodance += 1
  152. if pcs_makeup = 3:verodance += 2
  153. if pcs_makeup = 4:verodance += 3
  154. verodance += alko
  155. verodance += 5
  156. verprigrand = rand(0, 20)
  157. if verprigrand <= verodance:
  158. gs 'gdkin', 'dance_partner'
  159. gs 'stat'
  160. '<<$din_disc_dance>>'
  161. act 'Refuse': gt 'gdkin'
  162. act 'Dance': gt 'gdkin', 'dance_vrp'
  163. exit
  164. end
  165. end
  166. gs 'stat'
  167. act 'Continue': gt 'gdkin'
  168. end
  169. if StoryLine = 1 and SchoolAtestat = 0: act 'Look for your classmates': gt 'gdkin', 'classmates'
  170. elseif hour < 20:
  171. 'The club closes. The main lights go on, the music fades and everyone begins to leave.'
  172. act 'Go outside': gt 'pav_commcenter'
  173. end
  174. end
  175. if $ARGS[0] = 'Katja_dance':
  176. minut += 15
  177. menu_off = 1
  178. gs 'stat'
  179. *clr & cla
  180. dancerand = rand(1,5)
  181. if $pantyworntype = 'none':
  182. '<center><b><font color="maroon">Disco</font></b></center>'
  183. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance1_2.jpg"></center>'
  184. inhib_exp += rand(1,2)
  185. 'You dance with Katja, attracting views of guys from across the room. When you remember that you aren''t wearing panties, and your occasional spiraling of your skirt shows that fact off, it helps explain the attention.'
  186. else
  187. if pcs_inhib < 40:inhib_exp += rand(1,2)
  188. '<center><b><font color="maroon">Disco</font></b></center>'
  189. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance1_1.jpg"></center>'
  190. 'You dance with Katja, attracting views of guys from across the room.'
  191. end
  192. act 'Expose Katja':
  193. KatjaHorny += 20
  194. *clr & cla
  195. if dancerand = 1:
  196. '<center><b><font color="maroon">Disco</font></b></center>'
  197. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance2_2.jpg"></center>'
  198. inhib_exp += rand(1,2)
  199. 'During the dance, you decide to fool around and embrace Katja, pulling her top aside a little to show off a nipple. This results in an approving roar from the crowd and an embarrassed squeak from Katja.'
  200. gs 'arousal', 'foreplay', 5, 'lesbian'
  201. gs 'stat'
  202. act 'Dance on':
  203. *clr & cla
  204. '<center><b><font color="maroon">Disco</font></b></center>'
  205. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance2_1.jpg"></center>'
  206. 'One of the guys dancing moves in closer. Unable to stand watching the two of you dancing and touching each other like that, he slides his hand under her skirt.'
  207. act 'Stick out tongue':
  208. *clr & cla
  209. '<center><b><font color="maroon">Disco</font></b></center>'
  210. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance1_3.jpg"></center>'
  211. 'Rebuffing the guy, you and Katja push him away and turn to the crowd of guys around you. Katja hugs you and sticks her tongue out at the guys. The rebuffed guy looks around and thinks better of it, getting lost among the other dancers.'
  212. gs 'arousal', 'end'
  213. gs 'stat'
  214. act 'Move on': gt 'gdkin'
  215. end
  216. end
  217. elseif dancerand = 2:
  218. '<center><b><font color="maroon">Disco</font></b></center>'
  219. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance3.jpg"></center>'
  220. inhib_exp += rand(1,2)
  221. 'Dancing with Katja, you can''t control yourself. You pull her close to you, put your hands on her boobs and bury your face in her cleavage. Katja moans slightly at your actions while the boys gather around and shout encouragements.'
  222. gs 'arousal', 'foreplay', 5, 'lesbian'
  223. gs 'stat'
  224. elseif dancerand = 3:
  225. '<center><b><font color="maroon">Disco</font></b></center>'
  226. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance4.jpg"></center>'
  227. inhib_exp += rand(1,2)
  228. 'Dancing with Katya and moving quite actively, you don''t notice your breasts fall out, exposing your nipples. However, the guys do and happily point it out to each other.'
  229. gs 'arousal', 'flashlite', 5
  230. gs 'stat'
  231. elseif dancerand = 4:
  232. '<center><b><font color="maroon">Disco</font></b></center>'
  233. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance5.jpg"></center>'
  234. inhib_exp += rand(1,2)
  235. 'During the dance, you turn to face Katja and you both dance close together. You lean in and give her a passionate kiss, hearing the cheering of the guys. You barely pay attention to them as you lose yourself in the moment.'
  236. gs 'arousal', 'kiss', 5, 'lesbian'
  237. gs 'stat'
  238. elseif dancerand = 5:
  239. '<center><b><font color="maroon">Disco</font></b></center>'
  240. '<center><video autoplay loop src="images/characters/pavlovsk/school/girl/katja/katja_dance6.mp4"></video></center>'
  241. inhib_exp += rand(1,2)
  242. 'You dance with Katya, paying little attention to what is happening around you, when one of the guys around you reaches out and pulls down your top, exposing your breasts for everyone to see. Continuing to dance without interruption, you pull your top back up to the disgruntled cries of the guys around you.'
  243. gs 'arousal', 'flashlite', 5
  244. gs 'stat'
  245. end
  246. act 'Stick out tongue':
  247. *clr & cla
  248. '<center><b><font color="maroon">Disco</font></b></center>'
  249. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance1_3.jpg"></center>'
  250. 'Looking at the crowd of guys around you, you hug Katja and stick out your tongue at them, letting them know they can look at you all they want, but that''s all they''re going to get.'
  251. gs 'arousal', 'end'
  252. gs 'stat'
  253. act 'Move on': gt 'gdkin'
  254. end
  255. end
  256. end
  257. if $ARGS[0] = 'kotov_love':
  258. cls
  259. menu_off = 1
  260. gs 'stat'
  261. '<center><b><font color="maroon">Disco</font></b></center>'
  262. '<center><b><font color="maroon"><<$npc_firstname[''A9'']>> <<$npc_lastname[''A9'']>></font></b></center>'
  263. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big9.jpg"></center>'
  264. 'Vitek walks up to you and the guy. "What''s this? Who''s this guy?" Vitek shoves the guy and angrily says "Well? Who the fuck are you? This is my girl, you want me to bust you up?"'
  265. if DPgrup = 1:
  266. fightboyrand = rand(0, 10)
  267. if fightboyrand <= 5:
  268. 'The frightened man begins to speak. "Come on, I didn''t know. I''m leaving." Vitek pushes the guy. "Get out of here and don''t come back."'
  269. elseif fightboyrand > 5 and fightboyrand < 10:
  270. 'The guy shoves Vitek back. "Get your hands off me asshole!" Vitek suddenly kicks the guy with a fast and powerful blow.'
  271. 'The guy falls to the floor in pain and Vitek steps over him. Grabbing him by his shirt, he yanks him off the floor and slams him into the wall.'
  272. '"Well motherfucker? You think you can take what''s mine? How about I take what''s yours?" The guy curls up in pain and frighteningly replies. "You can have anything, anything I got!"'
  273. elseif fightboyrand >= 10:
  274. 'The guy punches Vitek in the face. Vitek recoils from the hit and lands a powerful kick of his own. They then start fighting, fists and kicks landing from both sides. Finally, a very powerful hit by Vitek sends the guy flying into the wall, where he slumps to the floor. Vitek runs to him and starts punching him in the face. The guy stops resisting, apparently having lost consciousness.'
  275. end
  276. elseif DPgrup = 2:
  277. 'The guy has a smug look on his face as he calls over his friends, who all come over to crowd around Vitek. "Real tough guy huh?" Vitek''s friends come over to back him up. After a bit of tough talk and a bit of shoving, the two groups break apart peacefully, going their own ways.'
  278. elseif DPgrup = 3:
  279. 'The guy throws up his hands. "Sorry young man, I didn''t know she was with you." Vitek pushes the guy. "Go back to the city and stay there."'
  280. end
  281. act 'Go to Vitek':numnpc = 9 & gt 'Snpc'
  282. exit
  283. end
  284. if $ARGS[0] = 'reakt_dance':
  285. menu_off = 1
  286. if alko >= 3:
  287. 'You feel yourself getting aroused by the guy''s actions.'
  288. gs 'arousal', 'foreplay', 5
  289. gs 'arousal', 'end'
  290. gs 'stat'
  291. else
  292. if pcs_horny > 0:pcs_horny -= 5
  293. pcs_mood -= 5
  294. 'You feel disgusted by the guy''s actions.'
  295. end
  296. gs 'stat'
  297. end
  298. if $ARGS[0] = 'reverse_reakt_dance':
  299. menu_off = 1
  300. if alko < 3:
  301. pcs_mood += 20
  302. 'You enjoy dancing with him a great deal.'
  303. if pcs_inhib < 40: inhib_exp += rand(1,2)
  304. gs 'arousal', 'foreplay', 5
  305. gs 'arousal', 'end'
  306. gs 'stat'
  307. elseif alko > 3:
  308. if pcs_horny > 0:pcs_horny -= 5
  309. pcs_mood -= 5
  310. 'You find the guy boring and uninteresting.'
  311. end
  312. gs 'stat'
  313. end
  314. if $ARGS[0] = 'dance_vrp':
  315. *clr & cla
  316. menu_off = 1
  317. minut += 5
  318. if pcs_danc < 50 and pcs_agil >= pcs_danc: danc_exp += 1
  319. if pcs_inhib < 40: inhib_exp += rand(1,2)
  320. gs 'stat'
  321. '<center><b><font color="maroon">Disco</font></b></center>'
  322. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance5.jpg"></center>'
  323. 'You accept the offer and the guy takes you by the hand and leads you out onto the dance floor, where you start dancing together.'
  324. if DPgrup = 1:
  325. if DPtipe = 1:
  326. 'The guy is dancing with you, holding your waist with his hands.'
  327. gs 'gdkin', 'reverse_reakt_dance'
  328. elseif DPtipe = 2:
  329. *clr
  330. '<center><b><font color="maroon">Disco</font></b></center>'
  331. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance6.jpg"></center>'
  332. 'The drunk guy pushes into you, grinding his body up against yours. You feel your soft breasts literally flatten against the man''s chest.'
  333. gs 'arousal', 'foreplay', 5
  334. gs 'stat'
  335. gs 'gdkin', 'reakt_dance'
  336. end
  337. elseif DPgrup = 2:
  338. if DPtipe = 1:
  339. 'The guy slides his hands down your side to your hips.'
  340. gs 'arousal', 'foreplay', 5
  341. gs 'stat'
  342. gs 'gdkin', 'reakt_dance'
  343. elseif DPtipe = 2:
  344. *clr
  345. '<center><b><font color="maroon">Disco</font></b></center>'
  346. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance8.jpg"></center>'
  347. 'The guy grabs your ass and squeezes it before he pulls you into a hug and kisses you passionately.'
  348. gs 'arousal', 'foreplay', 5
  349. gs 'stat'
  350. gs 'gdkin', 'reakt_dance'
  351. end
  352. elseif DPgrup = 3:
  353. if DPtipe = 1:
  354. 'A very confident and elegant man leads you in a dance, holding you by your waist with his strong hands.'
  355. gs 'arousal', 'foreplay', 5
  356. gs 'stat'
  357. gs 'gdkin', 'reverse_reakt_dance'
  358. elseif DPtipe = 2:
  359. 'A tipsy man hugs you around your waist and his hands go down to grab your ass.'
  360. gs 'arousal', 'foreplay', 5
  361. gs 'stat'
  362. gs 'gdkin', 'reakt_dance'
  363. end
  364. end
  365. act 'Stop and move away': gt 'gdkin'
  366. act 'Continue to dance with him':
  367. *clr & cla
  368. gs 'stat'
  369. '<center><b><font color="maroon">Disco</font></b></center>'
  370. if $pantyworntype = 'none' and alko >= 3 and PCloSkirt > 2:
  371. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance9.jpg"></center>'
  372. elseif alko > 0:
  373. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance10.jpg"></center>'
  374. else
  375. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance.jpg"></center>'
  376. end
  377. if alko < 6 or pcs_horny <= 75:
  378. act 'Refuse':gt 'gdkin'
  379. else
  380. gs 'willpower', 'drink', 'resist'
  381. if will_cost <= pcs_willpwr:
  382. act 'Refuse (<<will_cost>> Willpower)':
  383. gs 'willpower', 'drink', 'resist'
  384. gs 'willpower', 'pay', 'resist'
  385. if pcs_sprt <= 30: sprt_exp += rand(0,1)
  386. gs 'stat'
  387. gt 'gdkin'
  388. end
  389. else
  390. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  391. end
  392. end
  393. if DPgrup = 1:
  394. $npc_usedname[$npclastcalled] = $npc_nickname[$npclastcalled]
  395. $boydesc = $npc_nickname[$npclastcalled]
  396. if rand(1,2) = 1:
  397. if DPtipe = 1:
  398. 'The guy told you during the dance "My name is <<$boydesc>>. What''s your name?" You answered "<<$pcs_nickname>>." Once the song ends, the guy asks you to sit with him and chat.'
  399. elseif DPtipe = 2:
  400. 'The guy told you during the dance "My name is <<$boydesc>>. What''s your name?" You answered "<<$pcs_nickname>>." During the whole dance the drunk guy humped your body and now his face flushed with excitement. He asks you to leave the club and go get some fresh air, socialize, outside.'
  401. end
  402. act 'Go with the guy': gt 'gdksex', 'outside', 'nice'
  403. else
  404. if DPtipe = 1:
  405. 'The guy told you during the dance "My name is <<$boydesc>>. What''s your name?" You answered "<<$pcs_nickname>>." Once the song ends, the guy asks if you want to go outside with him.'
  406. elseif DPtipe = 2:
  407. 'The guy told you during the dance "My name is <<$boydesc>>. What''s your name?" You answered "<<$pcs_nickname>>." During the whole dance the drunk guy humped your body and now his face flushed with excitement. He asks you to leave the club and go get some fresh air, socialize, outside.'
  408. end
  409. act 'Go with the guy': gt'gdkin','hookup_nice'
  410. end
  411. elseif DPgrup = 2:
  412. if rand(1,2) = 1:
  413. if DPtipe = 1:
  414. 'For the entire dance the guy was grabbing your ass, breasts and kissing you, he was clearly excited. When you would press up against him, you could feel something hard in his pants. Finally the song ended and the guy offers to take you outside for a drink.'
  415. gs 'arousal', 'foreplay', 5
  416. gs 'stat'
  417. act 'Go outside': gt 'gdksex', 'outside', 'aggressiv'
  418. elseif DPtipe = 2:
  419. 'For the entire dance the guy was grabbing your ass, breasts and kissing you, he was clearly excited. When you would press up against him, you could feel something hard in his pants. Finally the song ended and the guy offers to take you outside for a drink.'
  420. gs 'arousal', 'foreplay', 5
  421. gs 'stat'
  422. act 'Go outside': gt 'gdksex', 'outside', 'aggressiv'
  423. end
  424. else
  425. if DPtipe = 1:
  426. 'For the entire dance the guy was grabbing your ass, breasts and kissing you, he was clearly excited. When you would press up against him, you could feel something hard in his pants. Finally the song ended and the guy asks if you want to go outside and get some fresh air?'
  427. gs 'arousal', 'foreplay', 5
  428. gs 'stat'
  429. act 'Go with him': gt'gdkin','hookup_aggressive'
  430. elseif DPtipe = 2:
  431. 'For the entire dance the guy was grabbing your ass, breasts and kissing you, he was clearly excited. When you would press up against him, you could feel something hard in his pants. Finally the song ended and the guy asks if you want to go outside and get some fresh air?'
  432. gs 'arousal', 'foreplay', 5
  433. gs 'stat'
  434. act 'Go with him': gt'gdkin','hookup_aggressive'
  435. end
  436. end
  437. elseif DPgrup = 3:
  438. if DPtipe = 1:
  439. 'The man dances with confidence and elegance. When the song ends, he offers to go out for some fresh air and talk.'
  440. act 'Go with the man':
  441. *clr & cla
  442. gs 'stat'
  443. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
  444. $npc_usedname[$npclastcalled] = $npc_nickname[$npclastcalled]
  445. $boydesc = $npc_nickname[$npclastcalled]
  446. 'You go outside with the man. As you walk, he put his arm around your waist. "My name is <<$boydesc>>. What''s your name?" he asks. "<<$pcs_nickname>>." you answer and the man continues. "<<$pcs_nickname>>, I''m in town on a business trip and I''m staying at a nearby hotel. There is virtually nothing to do in this town you know. Come back to my hotel with me and we can drink some whiskey while we sit and have a nice chat."'
  447. if alko < 6 or pcs_horny <= 75 or pav_slut <= 50:
  448. gs 'willpower', 'drink', 'resist'
  449. if will_cost <= pcs_willpwr:
  450. act 'Refuse (<<will_cost>> Willpower)':
  451. gs 'willpower', 'drink', 'resist'
  452. gs 'willpower', 'pay', 'resist'
  453. if pcs_sprt <= 30: sprt_exp += rand(0,1)
  454. gs 'stat'
  455. gt 'gdkin'
  456. end
  457. else
  458. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  459. end
  460. end
  461. act 'Go to the hotel': gt 'gdksex', 'hotel'
  462. end
  463. elseif DPtipe = 2:
  464. $npc_usedname[$npclastcalled] = $npc_nickname[$npclastcalled]
  465. $boydesc = $npc_nickname[$npclastcalled]
  466. 'The drunk man molests you for the entire dance. When the dance ends, he whispers in your ear. "My name is <<$boydesc>>. What''s your name?" You answer feeling somewhat disgusted. "<<$pcs_nickname>>." The man continues. "<<$pcs_nickname>>, I''m not a local. I''m staying in a nearby hotel, so let''s take a taxi and go to my room."'
  467. gs 'arousal', 'foreplay', 5
  468. gs 'stat'
  469. act 'Go to the hotel': gt 'gdksex', 'hotel'
  470. end
  471. end
  472. if kotovLoveQW > 0: gt 'gdkin', 'kotov_love'
  473. end
  474. if pcs_danc >= 50 and alko >= 3 and pcs_horny >= 50:
  475. act 'Dance sexily':
  476. *clr & cla
  477. if $pantyworntype = 'none' and PCloSkirt > 2:
  478. '<center><b><font color="maroon">Disco</font></b></center>'
  479. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance4.jpg"></center>'
  480. 'Trying to move your body as erotically as possible, you lean forward while doing a complex dance move, completely forgetting that you''re not wearing panties. Now your dance partner knows as well and it seems he will likely never forget.'
  481. else
  482. '<center><b><font color="maroon">Disco</font></b></center>'
  483. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance3.jpg"></center>'
  484. 'You are taking advantage of your ability to dance, your sexy moves causing your partner to stare at you. He seems stunned by how great you look, or maybe by how well you move, but either way he suddenly moves away and disappears into the crowd.'
  485. end
  486. danc_exp += 1
  487. gs 'arousal', 'flash', 5
  488. gs 'stat'
  489. act 'Continue': gt 'gdkin'
  490. end
  491. end
  492. end
  493. if $ARGS[0] = 'dance_partner':
  494. !!the creation of a partner to dance
  495. sozboyrand = rand(1,300)
  496. if sozboyrand > boynum:
  497. gs 'npcgeneratec', 0, 'Stranger', rand((age - 1),(age + 1)), 1
  498. DaPaTipeRand = rand(0,100)
  499. if DaPaTipeRand < 70:
  500. !!ordinary local boy
  501. bmtimeTipe = 0
  502. DrunkDPTrand = rand(0,100)
  503. if DrunkDPTrand < 70:
  504. DPtipe = 1
  505. DPgrup = 1
  506. $din_disc_dance = 'A guy dressed in jeans and a T-shirt asks you to dance.'
  507. $din_disc_dance2 = 'Dancing next to you is a guy dressed in jeans and a T-shirt.'
  508. elseif DrunkDPTrand >= 70:
  509. DPtipe = 2
  510. DPgrup = 1
  511. $din_disc_dance = 'A drunk guy dressed in jeans and a T-shirt asks you to dance.'
  512. $din_disc_dance2 = 'Dancing next to you is a drunk guy dressed in jeans and a T-shirt.'
  513. end
  514. elseif DaPaTipeRand >= 70 and DaPaTipeRand < 90:
  515. !!local gopar
  516. bmtimeTipe = 1
  517. DrunkDPTrand = rand(0,100)
  518. if DrunkDPTrand < 50:
  519. DPtipe = 1
  520. DPgrup = 2
  521. $din_disc_dance = 'A guy dressed in sweatpants and a sweatshirt asks you to dance.'
  522. $din_disc_dance2 = 'Dancing next to you is a guy dressed in sweatpants and sweatshirts.'
  523. elseif DrunkDPTrand >= 50:
  524. DPtipe = 2
  525. DPgrup = 2
  526. $din_disc_dance = 'A drunk guy dressed in sweatpants and a sweatshirt puts his arms around your waist and asks you to dance.'
  527. $din_disc_dance2 = 'Dancing next to you is a drunk guy dressed in sweatpants and sweatshirts.'
  528. end
  529. elseif DaPaTipeRand >= 90:
  530. !!traveling_expenses
  531. bmtimeTipe = 2
  532. DrunkDPTrand = rand(0,100)
  533. if DrunkDPTrand < 90:
  534. DPtipe = 1
  535. DPgrup = 3
  536. $din_disc_dance = 'A man in a nice suit and expensive shoes asks you to dance.'
  537. $din_disc_dance2 = 'Dancing next to you is a man in a nice suit and expensive shoes.'
  538. elseif DrunkDPTrand >= 90:
  539. DPtipe = 2
  540. DPgrup = 3
  541. $din_disc_dance = 'A drunk man in a nice suit and expensive shoes puts his arms around your waist and asks you to dance.'
  542. $din_disc_dance2 = 'Dancing next to you is a drunk man in a nice suit and expensive shoes.'
  543. end
  544. end
  545. gs 'boystat', $npclastsaved
  546. gs 'boymass', 'A'
  547. elseif sozboyrand <= boynum:
  548. gt 'gdkin', 'familiar'
  549. end
  550. end
  551. if $ARGS[0] = 'familiar':
  552. cls
  553. menu_off = 1
  554. gs 'stat'
  555. Tboynum = sozboyrand
  556. if bmTip[Tboynum] = 0:
  557. $niknameboy = 'Guy'
  558. rudeboy = 1
  559. '<center><b><font color="maroon">Disco</font></b></center>'
  560. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/normal3.jpg"></center>'
  561. 'A man dressed in jeans and a T-shirt invites you to dance. You don''t recognize him, but he seems familiar.'
  562. elseif bmTip[Tboynum] = 1:
  563. $niknameboy = 'Gopnik'
  564. rudeboy = 2
  565. '<center><b><font color="maroon">Disco</font></b></center>'
  566. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/gopnik3.jpg"></center>'
  567. 'A man dressed in sweatpants and sweatshirts invites you to dance. You don''t recognize him, but he seems familiar.'
  568. elseif bmTip[Tboynum] = 2:
  569. $niknameboy = 'Man'
  570. rudeboy = 0
  571. '<center><b><font color="maroon">Disco</font></b></center>'
  572. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/suit4.jpg"></center>'
  573. 'A man dressed in a nice suit and expensive shoes invites you to dance. You don''t recognize him, but he seems familiar.'
  574. end
  575. gs 'BMloc'
  576. end
  577. if $ARGS[0] = 'too_drunk_dance':
  578. cls
  579. menu_off = 1
  580. gs 'stat'
  581. '<center><b><font color="maroon">Disco</font></b></center>'
  582. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance_alco1.jpg"></center>'
  583. 'Katja approachs you. "<<$pcs_nickname>>, are you drunk? Let''s get you home, I''ll help you."'
  584. act 'Go with Katja':
  585. *clr & cla
  586. '<center><b><font color="maroon">Disco</font></b></center>'
  587. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance.jpg"></center>'
  588. minut += 15
  589. if meynoldQW = 2:meynoldQW = 3
  590. gs 'stat'
  591. if home_owned[2] = 1:
  592. 'Katja takes you by the arm and helps you get home.'
  593. act 'Go home': gt 'korrPar'
  594. else
  595. 'Katja takes you by the hand and helps you get back to the apartment complex.'
  596. act 'Continue': gt 'pav_complex', 'start'
  597. end
  598. end
  599. end
  600. if $ARGS[0] = 'classmates':
  601. *clr & cla
  602. $menu_loc = 'gschool_groups'
  603. $menu_arg = 'disco'
  604. menu_off = 1
  605. gs 'themes', 'food_menu'
  606. '<center><b><font color="maroon">Disco</font></b></center>'
  607. *nl
  608. killvar '$pop_text'
  609. killvar 'pop_count'
  610. i = 1
  611. '<center><table cellspacing="3">'
  612. :discopop_loop
  613. if pop_count = 6 : $pop_text += '<tr>'
  614. if npc_grupTipe['A<<i>>'] = 1 and discoenable['A<<i>>'] = 1:
  615. pop_count += 1
  616. $pop_text += '' + '<td bgcolor=<<$bcolor2>> align="center"><img height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"><br>' + $npcGo['A<<i>>']
  617. end
  618. if pop_count< 6 and npc_grupTipe['A<<i>>'] = 1:
  619. $pop_text += '</td>'
  620. elseif pop_count = 6 and npc_grupTipe['A<<i>>'] = 1:
  621. $pop_text +='</td></tr><tr>' & pop_count = 0
  622. end
  623. i += 1
  624. if i <= aarraynumber:jump 'discopop_loop'
  625. '<<$pop_text>>'
  626. '</table></center>'
  627. killvar '$gop_text'
  628. killvar 'gop_count'
  629. i = 1
  630. '<center><table cellspacing="3">'
  631. :discogop_loop
  632. if gop_count = 6 : $gop_text += '<tr>'
  633. if npc_grupTipe['A<<i>>'] = 4 and discoenable['A<<i>>'] = 1:
  634. gop_count += 1
  635. $gop_text += '' + '<td bgcolor=<<$bcolor2>> align="center"><img height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"><br>' + $npcGo['A<<i>>']
  636. end
  637. if gop_count< 6 and npc_grupTipe['A<<i>>'] = 4:
  638. $gop_text += '</td>'
  639. elseif gop_count = 6 and npc_grupTipe['A<<i>>'] = 4:
  640. $gop_text +='</td></tr><tr>' & gop_count = 0
  641. end
  642. i += 1
  643. if i <= aarraynumber:jump 'discogop_loop'
  644. '<<$gop_text>>'
  645. '</table></center>'
  646. act 'Move away': gt $loc, $loc_arg
  647. '<center>Most the cool kids are dancing while the gopniks are standing in the corner of the room, keeping to themselves.</center>'
  648. if hour >= 21 and hour < 23 and week=5: '<center>At the entrance of the disco hall stands <a href="exec: gt ''VolleyTrenerSpeak''">Coach Mikhail Nikolayevich</a></center>'
  649. '</table><center>'
  650. end
  651. if $ARGS[0] = 'hookup_aggressive':
  652. gs 'npcpreservec', $npclastgenerated
  653. '<center><img src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
  654. '"Hey, let''s go back to my place and fuck!"'
  655. act 'Sorry':
  656. cla & *clr
  657. '<center><img src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
  658. '"Oh, uhh, I uhh... I don''t know if I''m really up for that. Sorry..."'
  659. '"Huh?!" <<$boydesc>> looks at you with anger on his face. "After the way you were dancing with me and you''re not gonna give it up?"'
  660. 'You cringe as he yells at you before spitting at your shoes and walking away.'
  661. act 'Leave':gt $loc, $metka
  662. act 'Return to the dance':gt 'gdkin'
  663. end
  664. act 'No thanks':
  665. cla & *clr
  666. '<center><img src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
  667. '"No thanks, I''m not interested in having a one night stand tonight."'
  668. '"Huh?!" <<$boydesc>> looks at you with anger on his face. "After the way you were dancing with me and you''re not gonna give it up?"'
  669. 'He makes a show of your rejection, hissing at you and spits on the ground, narrowly missing your shoes before stalking off. You roll your eyes waiting until he''s a bit of a distance away before leaving yourself.'
  670. act 'Leave':gt $loc, $metka
  671. act 'Return to the dance':gt 'gdkin'
  672. end
  673. act 'That sounds nice':
  674. cla & *nl
  675. '"That sounds nice," you say, smiling at him.'
  676. '"Great!" He grins back at you and grabs you by the arm to start towing you towards a nearby apartment complex, whispering obscenities in your ear along the way.'
  677. act 'Go to his place':gt 'hookup', 'start'
  678. end
  679. act 'Fuck yeah':
  680. cla & *nl
  681. '"Fuck yeah," you say back to him'
  682. '"I knew I liked you," he says, grabbing you by the arm and towing you towards a nearby apartment complex.'
  683. act 'Go to his place':gt 'hookup', 'start'
  684. end
  685. end
  686. if $ARGS[0] = 'hookup_nice':
  687. gs 'npcpreservec', $npclastgenerated
  688. '<center><img src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
  689. '"Hey," <<$npc_firstname[$npclastsaved]>> says. "I had a really good time dancing with you tonight and I was wondering... would you maybe want to come back to my place? I could get you a drink and maybe..."'
  690. act 'Sorry':
  691. cla & *clr
  692. '<center><img src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
  693. '"Oh, uhh, I uhh... I don''t know if I''m really up for that. Sorry..."'
  694. '"Oh, sure. That''s okay. You don''t have to be sorry."'
  695. '<<$npc_firstname[$npclastsaved]>> disappointingly looks at you, "Well at least I gave it my best shot who knows maybe I''ll see you here again."'
  696. act 'Leave':gt $loc, $metka
  697. act 'Return to the dance':gt 'gdkin'
  698. end
  699. act 'No thanks':
  700. cla & *clr
  701. '<center><img src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
  702. '"No thanks, I''m not interested."'
  703. '"Oh, sure. That''s okay. Uhh, sorry I asked."'
  704. 'You shrug and walk away.'
  705. act 'Leave':gt $loc, $metka
  706. act 'Return to the dance':gt 'gdkin'
  707. end
  708. act 'Wanna fuck?':
  709. cla & *nl
  710. '"... fuck?" you ask.'
  711. '"Uhh..."'
  712. '"Fuck," you repeat. "Wanna go back to your place and fuck? We can skip the drinks too."'
  713. '<<$npc_firstname[$npclastsaved]>> seems stunned by your straightforwardness but eventually answers, "Yes!"'
  714. '"Great! Lead the way!"'
  715. 'The two of you hurry through the streets together to a nearby apartment complex.'
  716. act 'Go to his place':gt 'hookup', 'start'
  717. end
  718. end
  719. --- gdkin ---------------------------------