1
0

gdkin.qsrc 28 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715
  1. # gdkin
  2. if $ARGS[0] = '':
  3. if hour > 19: gdkin_in = daystart
  4. $metka = ''
  5. $loc = 'gdkin'
  6. $location_type = 'public_indoors'
  7. $menu_loc = 'gdkin'
  8. $menu_arg = ''
  9. menu_off = 0
  10. boynumBlock = 0
  11. gs 'stat'
  12. gs 'themes', 'indoors'
  13. pl ''
  14. if music_on = 1:
  15. $track_loop = 'sound/komb.mp3'
  16. volume = 80
  17. music_loop = 1
  18. pl '<a href="exec: music_on = 0 & gt $loc">Turn off the music</a>'
  19. else
  20. music_loop = 0
  21. close all
  22. pl '<a href="exec: music_on = 1 & gt $loc">Play music</a>'
  23. end
  24. '<center><b><font color="maroon">Disco</font></b></center>'
  25. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_yaho.jpg"></center>'
  26. *nl
  27. if NikoVolkovQW = 5 and NikoEv = 7 and NikoDate_Day ! daystart: gt 'NikoDates', 'Disco'
  28. if hour >= 20 and hour <= 23:
  29. act 'Go outside': gt 'gdk'
  30. act 'Go to the toilets': gt 'gdktoilet', 'start'
  31. 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.'
  32. if soniaslut < 5: soniaslut += 1
  33. if dimaRevenge = 7 and dimaRevChoice = 4 and dimadisco = 0: gt 'dimaRevenge', 5, 'disco'
  34. if rand(1,3) = 2 and soniaPS < 1 and soniadisco_day ! daystart:
  35. if npc_grupTipe['A25'] ! 5 and StoryLine = 1 and BeInSchool > 0 and soniaslut >= 5 and hour < 23:
  36. 'You notice Sonia from your class. She is talking to Victor about something.'
  37. act 'View Sonya': soniadisco_day = daystart & gt 'soniadisco', 'start'
  38. end
  39. end
  40. act 'Dance (0:15)':
  41. *clr & cla
  42. menu_off = 1
  43. '<center><b><font color="maroon">Disco</font></b></center>'
  44. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance.jpg"></center>'
  45. if pcs_inhib < 40:inhib_exp += rand(1,2)
  46. if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
  47. gdkincum = daystart
  48. gs 'fame', 'pav', 'sex', 5
  49. pcs_mood -= 40
  50. gs 'stat'
  51. 'As you head out on the dance floor, A guy walks up to you and sees the cum still splattered on you. The guy points to you "Check out the cock-sucker! 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.'
  52. act 'Leave': gt 'gdk'
  53. else
  54. minut += 15
  55. pcs_stam -= 5
  56. gs 'sweat', 'add', 3
  57. fat -= 1
  58. danc_exp += 1
  59. pcs_mood += 10
  60. frost = 0
  61. gs 'stat'
  62. if rand(0,7) = 1 and katja_disco_end=1 and (alko > 1 or pcs_horny => 80) and KatjaHorny > 60:
  63. *clr
  64. '<center><b><font color="maroon">Disco</font></b></center>'
  65. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance.jpg"></center>'
  66. 'While you are dancing you notice Katya out on the dance floor as well.'
  67. act 'Dance with Katya': gt 'gdkin', 'Katja_dance'
  68. end
  69. if alko >= 6:
  70. 'You''re too drunk to try and dance, you are barely able to stay on your feet and mostly just drunkenly bump into other people as you try and dance.'
  71. if rand(0,1) = 0: gt 'gdkin', 'too_drunk_dance'
  72. elseif alko > 3:
  73. if $pantyworntype = 'none' and PCloSkirt > 2:
  74. *clr
  75. '<center><b><font color="maroon">Disco</font></b></center>'
  76. '<center><video autoplay loop src="images/locations/pavlovsk/community/disco/club_dance2.mp4"></video></center>'
  77. '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.'
  78. else
  79. *clr
  80. '<center><b><font color="maroon">Disco</font></b></center>'
  81. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance7.jpg"></center>'
  82. '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.'
  83. end
  84. elseif alko > 0:
  85. if $pantyworntype = 'none' and PCloSkirt > 2:
  86. *clr
  87. '<center><b><font color="maroon">Disco</font></b></center>'
  88. '<center><video autoplay loop src="images/locations/pavlovsk/community/disco/club_dance2.mp4"></video></center>'
  89. '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.'
  90. else
  91. *clr
  92. '<center><b><font color="maroon">Disco</font></b></center>'
  93. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance7.jpg"></center>'
  94. '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.'
  95. end
  96. else
  97. 'The music is quite old, but catchy. You have fun dancing, not paying attention to anyone.'
  98. end
  99. if alko < 6:
  100. verprigrand = rand(0, 100)
  101. if verprigrand <= pcs_danc:
  102. gs 'gdkin', 'dance_partner'
  103. gs 'stat'
  104. '<<$din_disc_dance2>>'
  105. act 'Move away': gt 'gdkin'
  106. act 'Dance with the guy': gt 'gdkin', 'dance_vrp'
  107. exit
  108. end
  109. end
  110. gs 'stat'
  111. act 'Continue': gt 'gdkin'
  112. end
  113. end
  114. act 'Stand at the wall':
  115. *clr & cla
  116. menu_off = 1
  117. minut += 5
  118. !!fat -= 1
  119. pcs_mood -= 5
  120. frost = 0
  121. gs 'stat'
  122. '<center><b><font color="maroon">Disco</font></b></center>'
  123. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_yaho.jpg"></center>'
  124. if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
  125. gdkincum = daystart
  126. gs 'fame', 'pav', 'sex', 5
  127. pcs_mood -= 40
  128. gs 'stat'
  129. 'While standing by the wall a guy notices cum on your clothes and he points and shouts. "This chick is covered in cum, wait did you fail to swallow slut?" He says to you laughing. Your cheeks blush with shame and you head for the exit.'
  130. act 'Leave': gt 'gdk'
  131. exit
  132. end
  133. if alko >= 6 and rand(1, 100) < 3: gt 'gevent', '6'
  134. if alko >= 6:
  135. 'You''re too drunk to dance and you lean against the wall for support to keep from falling down.'
  136. if rand(0,1) = 0: gt 'gdkin', 'too_drunk_dance'
  137. elseif alko > 3:
  138. 'You''re drunk, and standing against the wall watching the others dance.'
  139. elseif alko > 0:
  140. 'You''re tipsy, and standing against the wall watching the others dance.'
  141. else
  142. 'You are standing next to the wall while watching the others dance.'
  143. end
  144. if alko < 6:
  145. verodance = 0
  146. if pcs_hairbsh = 1:verodance += 1
  147. if PCloSkirt > 2 or PCloPants > 4:verodance += 1
  148. if $clothingworntype = 'expensive':verodance += 2
  149. if pcs_makeup = 2:verodance += 1
  150. if pcs_makeup = 3:verodance += 2
  151. if pcs_makeup = 4:verodance += 3
  152. verodance += alko
  153. verodance += 5
  154. verprigrand = rand(0, 20)
  155. if verprigrand <= verodance:
  156. gs 'gdkin', 'dance_partner'
  157. gs 'stat'
  158. '<<$din_disc_dance>>'
  159. act 'Refuse': gt 'gdkin'
  160. act 'Dance': gt 'gdkin', 'dance_vrp'
  161. exit
  162. end
  163. end
  164. gs 'stat'
  165. act 'Continue': gt 'gdkin'
  166. end
  167. if StoryLine = 1 and SchoolAtestat = 0: act 'Look for your classmates': gt 'gdkin', 'classmates'
  168. elseif hour < 20:
  169. 'The Club closes. The main lights go on, the music fades and everyone beings to leave.'
  170. act 'Go outside': gt 'gdk'
  171. end
  172. end
  173. if $ARGS[0] = 'Katja_dance':
  174. minut += 15
  175. menu_off = 1
  176. gs 'stat'
  177. *clr & cla
  178. dancerand = rand(1,5)
  179. if $pantyworntype = 'none':
  180. '<center><b><font color="maroon">Disco</font></b></center>'
  181. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance1_2.jpg"></center>'
  182. inhib_exp += rand(1,2)
  183. 'You dance with Katja attracting views of men from across the room. And when you consider that you not wearing panties, and your occasional spiraling of your skirt shows that fact off, it helps explain the attention.'
  184. else
  185. if pcs_inhib < 40:inhib_exp += rand(1,2)
  186. '<center><b><font color="maroon">Disco</font></b></center>'
  187. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance1_1.jpg"></center>'
  188. 'You dance with Katja attracting views of men from across the room.'
  189. end
  190. act 'Expose Katja':
  191. KatjaHorny += 20
  192. *clr & cla
  193. if dancerand = 1:
  194. '<center><b><font color="maroon">Disco</font></b></center>'
  195. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance2_2.jpg"></center>'
  196. inhib_exp += rand(1,2)
  197. 'During the dance you have decided to fool around and embraced Katja, pulling aside her top a bit to show off a nipple. Which causes an approving roar from all around and an embarrassed squeak from Katja.'
  198. gs 'arousal', 'foreplay', 5, 'lesbian'
  199. gs 'stat'
  200. act 'Dance on':
  201. *clr & cla
  202. '<center><b><font color="maroon">Disco</font></b></center>'
  203. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance2_1.jpg"></center>'
  204. 'One of the guys dancing moved in closer to the two of you, unable to stand watching the two of you dancing and touching each other like that, he slides his hand under her skirt.'
  205. act 'Stick out tongue':
  206. *clr & cla
  207. '<center><b><font color="maroon">Disco</font></b></center>'
  208. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance1_3.jpg"></center>'
  209. 'Rebuffing the guy you and Katja pushed him away and turned to the crowd of guys around you. Katja hugs you and sticks out her tongue at the guys. The rebuffed guys looks around and thinks better of it and gets lost among the other dancers.'
  210. gs 'arousal', 'end'
  211. gs 'stat'
  212. act 'Move on': gt 'gdkin'
  213. end
  214. end
  215. elseif dancerand = 2:
  216. '<center><b><font color="maroon">Disco</font></b></center>'
  217. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance3.jpg"></center>'
  218. inhib_exp += rand(1,2)
  219. 'Dancing with Katja you can''t control yourself, you pull Katja close to you, putting your hands on her boobs and burying your face in her cleavage. Katja moans slightly at your actions, while the boys gathered around shout encouragements to the two of you.'
  220. gs 'arousal', 'foreplay', 5, 'lesbian'
  221. gs 'stat'
  222. elseif dancerand = 3:
  223. '<center><b><font color="maroon">Disco</font></b></center>'
  224. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance4.jpg"></center>'
  225. inhib_exp += rand(1,2)
  226. 'Dancing with Katya and moving quite actively, you do not notice how your breasts fell out from your clothes, exposing your nipples. But the guys sure noticed that where around you.'
  227. gs 'arousal', 'flashlite', 5
  228. gs 'stat'
  229. elseif dancerand = 4:
  230. '<center><b><font color="maroon">Disco</font></b></center>'
  231. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance5.jpg"></center>'
  232. inhib_exp += rand(1,2)
  233. 'During the dance you turn to face Katja, the two of you dance close together, faces near each other. You lean in and give her a passionate kiss, you can hear the cheering of the guys. You barely notice the guys, more of a faint background noise, as you lose yourself in the moment.'
  234. gs 'arousal', 'kiss', 5, 'lesbian'
  235. gs 'stat'
  236. elseif dancerand = 5:
  237. '<center><b><font color="maroon">Disco</font></b></center>'
  238. '<center><video autoplay loop src="images/characters/pavlovsk/school/girl/katja/katja_dance6.mp4"></video></center>'
  239. inhib_exp += rand(1,2)
  240. '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, baring your breasts for everyone to see. Without ceasing to dance you pull your top back up, to the disgruntled cries of the guys around you.'
  241. gs 'arousal', 'flashlite', 5
  242. gs 'stat'
  243. end
  244. act 'Stick out tongue':
  245. *clr & cla
  246. '<center><b><font color="maroon">Disco</font></b></center>'
  247. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance1_3.jpg"></center>'
  248. '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 like but that''s all they''re going to get.'
  249. gs 'arousal', 'end'
  250. gs 'stat'
  251. act 'Move on': gt 'gdkin'
  252. end
  253. end
  254. end
  255. if $ARGS[0] = 'kotov_love':
  256. cls
  257. menu_off = 1
  258. gs 'stat'
  259. '<center><b><font color="maroon">Disco</font></b></center>'
  260. '<center><b><font color="maroon"><<$npc_firstname[''A9'']>> <<$npc_lastname[''A9'']>></font></b></center>'
  261. '<center><img <<$set_imgh>> src="images/pc/npc_headshots/big9.jpg"></center>'
  262. 'Vitek walks up to you and the guy. "What is this garbage? 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?"'
  263. if DPgrup = 1:
  264. fightboyrand = rand(0, 10)
  265. if fightboyrand <= 5:
  266. '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."'
  267. elseif fightboyrand > 5 and fightboyrand < 10:
  268. 'The guy shoves Vitek back. "Get your hands off me asshole!" Vitek suddenly kicks the guy with a fast and powerful blow.'
  269. 'The guy falls to the floor in pain, Vitek steps over and looms over the guy, grabbing him by this shirt he yanks him off the floor and slams him into the wall.'
  270. '"Well, motherfucker? You think you can take what''s mine? How about I take what''s yours." The guy curled up in pain and frighteningly replies. "You can have anything, anything I got!"'
  271. elseif fightboyrand >= 10:
  272. 'The guy punches Vitek in the face, Vitek recoils from the hit and lands a powerful kick of his own. Then they 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 he lost consciousness.'
  273. end
  274. elseif DPgrup = 2:
  275. 'The guy with a look 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.'
  276. elseif DPgrup = 3:
  277. '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."'
  278. end
  279. act 'Go to Vitek':numnpc = 9 & gt 'Snpc'
  280. exit
  281. end
  282. if $ARGS[0] = 'reakt_dance':
  283. menu_off = 1
  284. if alko >= 3:
  285. 'You feel yourself getting aroused by the guy''s actions.'
  286. gs 'arousal', 'foreplay', 5
  287. gs 'arousal', 'end'
  288. gs 'stat'
  289. else
  290. if pcs_horny > 0:pcs_horny -= 5
  291. pcs_mood -= 5
  292. 'You feel disgusted by the guy''s actions.'
  293. end
  294. gs 'stat'
  295. end
  296. if $ARGS[0] = 'reverse_reakt_dance':
  297. menu_off = 1
  298. if alko < 3:
  299. pcs_mood += 20
  300. 'You enjoy dancing with him a great deal.'
  301. if pcs_inhib < 40: inhib_exp += rand(1,2)
  302. gs 'arousal', 'foreplay', 5
  303. gs 'arousal', 'end'
  304. gs 'stat'
  305. elseif alko > 3:
  306. if pcs_horny > 0:pcs_horny -= 5
  307. pcs_mood -= 5
  308. 'You find the guy boring and uninteresting.'
  309. end
  310. gs 'stat'
  311. end
  312. if $ARGS[0] = 'dance_vrp':
  313. *clr & cla
  314. menu_off = 1
  315. minut += 5
  316. if pcs_danc < 50 and pcs_agil >= pcs_danc: danc_exp += 1
  317. if pcs_inhib < 40: inhib_exp += rand(1,2)
  318. gs 'stat'
  319. '<center><b><font color="maroon">Disco</font></b></center>'
  320. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance5.jpg"></center>'
  321. 'You accepted the offer, the guy took you by the hand and brought you out onto the dance floor, where you started dancing together.'
  322. if DPgrup = 1:
  323. if DPtipe = 1:
  324. 'The guy is dancing with you holding your waist with his hands.'
  325. gs 'gdkin', 'reverse_reakt_dance'
  326. elseif DPtipe = 2:
  327. *clr
  328. '<center><b><font color="maroon">Disco</font></b></center>'
  329. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance6.jpg"></center>'
  330. 'The drunk guy pushes into you, grinding his body up against yours. You feel your soft breasts literally flatten against the man''s chest.'
  331. gs 'arousal', 'foreplay', 5
  332. gs 'stat'
  333. gs 'gdkin', 'reakt_dance'
  334. end
  335. elseif DPgrup = 2:
  336. if DPtipe = 1:
  337. 'The guy slides his hands down your side to your hips.'
  338. gs 'arousal', 'foreplay', 5
  339. gs 'stat'
  340. gs 'gdkin', 'reakt_dance'
  341. elseif DPtipe = 2:
  342. *clr
  343. '<center><b><font color="maroon">Disco</font></b></center>'
  344. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance8.jpg"></center>'
  345. 'A guy grabs your ass and squeezes it, he pulls you into a hug and kisses you passionately.'
  346. gs 'arousal', 'foreplay', 5
  347. gs 'stat'
  348. gs 'gdkin', 'reakt_dance'
  349. end
  350. elseif DPgrup = 3:
  351. if DPtipe = 1:
  352. 'A very confident and elegant man leads you in a dance, holding you by your waist with his strong hands.'
  353. gs 'arousal', 'foreplay', 5
  354. gs 'stat'
  355. gs 'gdkin', 'reverse_reakt_dance'
  356. elseif DPtipe = 2:
  357. 'A tipsy man hugs your around your waist and his hands go down to grab your ass.'
  358. gs 'arousal', 'foreplay', 5
  359. gs 'stat'
  360. gs 'gdkin', 'reakt_dance'
  361. end
  362. end
  363. act 'Stop and move away': gt 'gdkin'
  364. act 'Continue to dance with him':
  365. *clr & cla
  366. gs 'stat'
  367. '<center><b><font color="maroon">Disco</font></b></center>'
  368. if $pantyworntype = 'none' and alko >= 3 and PCloSkirt > 2:
  369. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance9.jpg"></center>'
  370. elseif alko > 0:
  371. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance10.jpg"></center>'
  372. else
  373. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance.jpg"></center>'
  374. end
  375. if alko < 6 or pcs_horny <= 75 or pav_slut <= 25:
  376. gs 'willpower', 'drink', 'resist'
  377. if will_cost <= pcs_willpwr:
  378. act 'Refuse (<<will_cost>> Willpower)':
  379. gs 'willpower', 'drink', 'resist'
  380. gs 'willpower', 'pay', 'resist'
  381. if pcs_sprt <= 30: sprt_exp += rand(0,1)
  382. gs 'stat'
  383. gt 'gdkin'
  384. end
  385. else
  386. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  387. end
  388. end
  389. if DPgrup = 1:
  390. $npc_usedname[$npclastcalled] = $npc_nickname[$npclastcalled]
  391. $boydesc = $npc_nickname[$npclastcalled]
  392. if DPtipe = 1:
  393. '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.'
  394. elseif DPtipe = 2:
  395. '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.'
  396. end
  397. act 'Go with the guy': gt 'gdksex', 'outside', 'nice'
  398. elseif DPgrup = 2:
  399. if DPtipe = 1:
  400. '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.'
  401. gs 'arousal', 'foreplay', 5
  402. gs 'stat'
  403. act 'Go outside': gt 'gdksex', 'outside', 'aggressiv'
  404. elseif DPtipe = 2:
  405. '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.'
  406. gs 'arousal', 'foreplay', 5
  407. gs 'stat'
  408. act 'Go outside': gt 'gdksex', 'outside', 'aggressiv'
  409. end
  410. elseif DPgrup = 3:
  411. if DPtipe = 1:
  412. 'The man danced with confidence and elegance, finally the song was over and the man offers to go out for some fresh air and talk.'
  413. act 'Go with the man':
  414. *clr & cla
  415. gs 'stat'
  416. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
  417. $npc_usedname[$npclastcalled] = $npc_nickname[$npclastcalled]
  418. $boydesc = $npc_nickname[$npclastcalled]
  419. 'You went outside with the man. As you walked he put his arm around your waist. "My name is <<$boydesc>>. What''s your name?" You answered "<<$pcs_nickname>>." The man continued, "<<$pcs_nickname>>, I''m in town on a business trip. I am staying at a nearby hotel, I live in the city itself. There is virtually nothing to do in this town you know. Come back to my hotel with me and we can drink whiskey, while we sit and have a nice chat."'
  420. if alko < 6 or pcs_horny <= 75 or pav_slut <= 25:
  421. gs 'willpower', 'drink', 'resist'
  422. if will_cost <= pcs_willpwr:
  423. act 'Refuse (<<will_cost>> Willpower)':
  424. gs 'willpower', 'drink', 'resist'
  425. gs 'willpower', 'pay', 'resist'
  426. if pcs_sprt <= 30: sprt_exp += rand(0,1)
  427. gs 'stat'
  428. gt 'gdkin'
  429. end
  430. else
  431. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  432. end
  433. end
  434. act 'Go to the hotel': gt 'gdksex', 'hotel'
  435. end
  436. elseif DPtipe = 2:
  437. $npc_usedname[$npclastcalled] = $npc_nickname[$npclastcalled]
  438. $boydesc = $npc_nickname[$npclastcalled]
  439. 'For the entire dance the drunk man molested you, when the dance ended. He whispered in your ear. "My name is <<$boydesc>>. What''s your name?" You answered "<<$pcs_nickname>>." The man continued, "<<$pcs_nickname>>, I''m not a local, I''m staying in a nearby hotel, let''s take a taxi and go to my room."'
  440. gs 'arousal', 'foreplay', 5
  441. gs 'stat'
  442. act 'Go to the hotel': gt 'gdksex', 'hotel'
  443. end
  444. end
  445. if kotovLoveQW > 0: gt 'gdkin', 'kotov_love'
  446. end
  447. if pcs_danc >= 50 and alko >= 3 and pcs_horny >= 50:
  448. act 'Dance sexily':
  449. *clr & cla
  450. if $pantyworntype = 'none' and PCloSkirt > 2:
  451. '<center><b><font color="maroon">Disco</font></b></center>'
  452. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance4.jpg"></center>'
  453. '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.'
  454. else
  455. '<center><b><font color="maroon">Disco</font></b></center>'
  456. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance3.jpg"></center>'
  457. 'You are taking advantage of your ability to dance, sexy moves cause your partner to stare at you. But he seems stunned by how great you look or maybe by how well you move, either way he suddenly moves away and disappears into the crowd.'
  458. end
  459. danc_exp += 1
  460. gs 'arousal', 'flash', 5
  461. gs 'stat'
  462. act 'Continue': gt 'gdkin'
  463. end
  464. end
  465. end
  466. if $ARGS[0] = 'dance_partner':
  467. !!the creation of a partner to dance
  468. sozboyrand = rand(1,300)
  469. if sozboyrand > boynum:
  470. gs 'npcgeneratec', 0, 'Stranger', rand((age - 1),(age + 1))
  471. gs 'npcpreservec', $npclastgenerated
  472. DaPaTipeRand = rand(0,100)
  473. if DaPaTipeRand < 70:
  474. !!ordinary local boy
  475. bmtimeTipe = 0
  476. DrunkDPTrand = rand(0,100)
  477. if DrunkDPTrand < 70:
  478. DPtipe = 1
  479. DPgrup = 1
  480. $din_disc_dance = 'A guy dressed in jeans and a t-shirt, asks you to dance.'
  481. $din_disc_dance2 = 'Dancing next to you is a guy dressed in jeans and a T-shirt.'
  482. elseif DrunkDPTrand >= 70:
  483. DPtipe = 2
  484. DPgrup = 1
  485. $din_disc_dance = 'A drunk guy dressed in jeans and a t-shirt, asks you to dance.'
  486. $din_disc_dance2 = 'Dancing next to you is a drunk guy dressed in jeans and a T-shirt.'
  487. end
  488. elseif DaPaTipeRand >= 70 and DaPaTipeRand < 90:
  489. !!local gopar
  490. bmtimeTipe = 1
  491. DrunkDPTrand = rand(0,100)
  492. if DrunkDPTrand < 50:
  493. DPtipe = 1
  494. DPgrup = 2
  495. $din_disc_dance = 'A guy dressed in sweatpants and a sweatshirt asks you to dance.'
  496. $din_disc_dance2 = 'Dancing next to you is a guy dressed in sweatpants and sweatshirts.'
  497. elseif DrunkDPTrand >= 50:
  498. DPtipe = 2
  499. DPgrup = 2
  500. $din_disc_dance = 'A drunk guy dressed in sweatpants and a sweatshirt, puts his arms around your waist and asks you to dance.'
  501. $din_disc_dance2 = 'Dancing next to you is a drunk guy dressed in sweatpants and sweatshirts.'
  502. end
  503. elseif DaPaTipeRand >= 90:
  504. !!traveling_expenses
  505. bmtimeTipe = 2
  506. DrunkDPTrand = rand(0,100)
  507. if DrunkDPTrand < 90:
  508. DPtipe = 1
  509. DPgrup = 3
  510. $din_disc_dance = 'A man in a nice suit and expensive shoes, asks you to dance.'
  511. $din_disc_dance2 = 'Dancing next to you is a man in a nice suit and expensive shoes.'
  512. elseif DrunkDPTrand >= 90:
  513. DPtipe = 2
  514. DPgrup = 3
  515. $din_disc_dance = 'A drunk man in a nice suit and expensive shoes, puts his arms around your waist and asks you to dance.'
  516. $din_disc_dance2 = 'Dancing next to you is a drunk man in a nice suit and expensive shoes.'
  517. end
  518. end
  519. gs 'boystat', $npclastsaved
  520. gs 'boymass', 'A'
  521. elseif sozboyrand <= boynum:
  522. gt 'gdkin', 'familiar'
  523. end
  524. end
  525. if $ARGS[0] = 'familiar':
  526. cls
  527. menu_off = 1
  528. gs 'stat'
  529. Tboynum = sozboyrand
  530. if bmTip[Tboynum] = 0:
  531. $niknameboy = 'Guy'
  532. rudeboy = 1
  533. '<center><b><font color="maroon">Disco</font></b></center>'
  534. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/normal3.jpg"></center>'
  535. 'A man dressed in jeans and T-shirt, invites you to dance. You don''t recognize him but he seems familiar.'
  536. elseif bmTip[Tboynum] = 1:
  537. $niknameboy = 'Gopnik'
  538. rudeboy = 2
  539. '<center><b><font color="maroon">Disco</font></b></center>'
  540. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/gopnik3.jpg"></center>'
  541. 'A man dressed in sweatpants and sweatshirts, invites you to dance. You don''t recognize him but he seems familiar.'
  542. elseif bmTip[Tboynum] = 2:
  543. $niknameboy = 'Man'
  544. rudeboy = 0
  545. '<center><b><font color="maroon">Disco</font></b></center>'
  546. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/suit4.jpg"></center>'
  547. 'A man dressed in a nice suit and expensive shoes, invites you to dance. You don''t recognize him but he seems familiar.'
  548. end
  549. gs 'BMloc'
  550. end
  551. if $ARGS[0] = 'too_drunk_dance':
  552. if StoryLine = 1 and SchoolAtestat = 0:
  553. cls
  554. menu_off = 1
  555. gs 'stat'
  556. '<center><b><font color="maroon">Disco</font></b></center>'
  557. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance_alco1.jpg"></center>'
  558. 'Katja Meynold approached you. "<<$pcs_nickname>>, are you drunk? Let''s get you home, I''ll help you."'
  559. act 'Go with Katja':
  560. *clr & cla
  561. '<center><b><font color="maroon">Disco</font></b></center>'
  562. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance.jpg"></center>'
  563. minut += 15
  564. npc_rel['A14'] = 100
  565. if meynoldQW = 0:meynoldQW = 1
  566. gs 'stat'
  567. if home_owned[2] = 1:
  568. 'Katja took you by the arm and helped you get home.'
  569. act 'Go home': gt 'korrPar'
  570. else
  571. 'Katja took you by the hand and helped you get back to the apartment complex'
  572. act 'Continue': gt 'pavComplex', 'start'
  573. end
  574. end
  575. exit
  576. else
  577. gt 'gdkin'
  578. end
  579. end
  580. if $ARGS[0] = 'classmates':
  581. *clr & cla
  582. $menu_loc = 'gschool_groups'
  583. $menu_arg = 'disco'
  584. menu_off = 1
  585. gs 'themes', 'food_menu'
  586. '<center><b><font color="maroon">Disco</font></b></center>'
  587. *nl
  588. killvar '$pop_text'
  589. killvar 'pop_count'
  590. i = 1
  591. '<center><table cellspacing="3">'
  592. :discopop_loop
  593. if pop_count = 6 : $pop_text += '<tr>'
  594. if npc_grupTipe['A<<i>>'] = 1 and discoenable['A<<i>>'] = 1:
  595. pop_count += 1
  596. $pop_text += '' + '<td bgcolor=<<$bcolor2>> align="center"><img height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npcGo['A<<i>>']
  597. end
  598. if pop_count< 6 and npc_grupTipe['A<<i>>'] = 1:
  599. $pop_text += '</td>'
  600. elseif pop_count = 6 and npc_grupTipe['A<<i>>'] = 1:
  601. $pop_text +='</td></tr><tr>' & pop_count = 0
  602. end
  603. i += 1
  604. if i <= aarraynumber:jump 'discopop_loop'
  605. '<<$pop_text>>'
  606. '</table></center>'
  607. killvar '$gop_text'
  608. killvar 'gop_count'
  609. i = 1
  610. '<center><table cellspacing="3">'
  611. :discogop_loop
  612. if gop_count = 6 : $gop_text += '<tr>'
  613. if npc_grupTipe['A<<i>>'] = 4 and discoenable['A<<i>>'] = 1:
  614. gop_count += 1
  615. $gop_text += '' + '<td bgcolor=<<$bcolor2>> align="center"><img height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npcGo['A<<i>>']
  616. end
  617. if gop_count< 6 and npc_grupTipe['A<<i>>'] = 4:
  618. $gop_text += '</td>'
  619. elseif gop_count = 6 and npc_grupTipe['A<<i>>'] = 4:
  620. $gop_text +='</td></tr><tr>' & gop_count = 0
  621. end
  622. i += 1
  623. if i <= aarraynumber:jump 'discogop_loop'
  624. '<<$gop_text>>'
  625. '</table></center>'
  626. act 'Move away': gt $loc, $metka
  627. '<center>Most the cool kids are dancing, while the gopniks are standing in the corner of the room, keeping to themselves.</center>'
  628. 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>'
  629. '</table><center>'
  630. end
  631. --- gdkin ---------------------------------