cardgame_durak 40 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631
  1. # cardgame_durak
  2. !-----------------------------------------------!
  3. !-----Playing cards with the guys on the strip-----!
  4. !===============================================!
  5. if $ARGS[0] = 'start':
  6. CLOSE ALL
  7. cla
  8. minut += 5
  9. if playcardgame_count > 0:
  10. *clr
  11. !choice of set pictures for you
  12. cgd_cs = RAND(1,20)
  13. !zero out winnings NPC:
  14. gs 'boyStat', 'A9','3'
  15. gs 'boyStat', 'A10','1'
  16. gs 'boyStat', 'A11','2'
  17. if cgd_cs < 3 or cgd_cs > 17:
  18. $cgd_clothes = ' shirt, skirt, socks, bra, panties'
  19. elseif cgd_cs = 4 or cgd_cs = 7:
  20. $cgd_clothes = ' shirt, pants, socks, bra, panties'
  21. elseif cgd_cs = 5 or cgd_cs = 6 or cgd_cs = 8 or cgd_cs = 13 or cgd_cs > 14:
  22. $cgd_clothes = ' shirt, jeans, socks, bra, panties'
  23. else
  24. $cgd_clothes = ' shirt, shorts, socks, bra, panties'
  25. end
  26. $cgd_clothes['A11'] = ' shirt, shorts, socks, briefs'
  27. $cgd_clothes['A10'] = ' track jacket, tracksuit pants, socks, briefs'
  28. $cgd_clothes['A9'] = ' shirt, jeans, socks, briefs'
  29. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/durak.jpg"></center>'
  30. '"Cards? We can deal you in, but only if you want to play strip poker", Vitek grins. "The loser does whatever the winner wants them to do. Because you''re a girl, you''ll get one extra piece of clothing to start with. Sound fair?"'
  31. 'Your game statistics: You''ve won <<card_game_durak_win>> times, lost <<card_game_durak_loss>> times, managed a draw <<card_game_durak_draw>> times, and have taken off <<card_game_durak_nude>> articles of clothing.'
  32. act 'Play': gt 'cardgame_durak', 'card_game_durak_play'
  33. else
  34. '<<iif(RAND(0,1) = 0,''Dan'',''Vitek'')>> sighs: "I''m tired of playing cards. Let''s just watch some TV or something, or have some more beers."'
  35. act 'Leave': gt 'shulga_room', 'start'
  36. end
  37. gs 'stat'
  38. end
  39. !game
  40. if $ARGS[0] = 'card_game_durak_play':
  41. minut +=3
  42. gs 'stat'
  43. !Pictures undressing
  44. $cgdp_pc_state = iif($cgd_clothes='','You are naked!','You are wearing:<<$cgd_clothes>>.')
  45. $cgdp_A11_state = iif($cgd_clothes['A11']='','Vasily is naked!','Vasily is wearing:<<$cgd_clothes[''A11'']>>.')
  46. $cgdp_A10_state = iif($cgd_clothes['A10']='','Dan is naked!','Dan is wearing:<<$cgd_clothes[''A10'']>>.')
  47. $cgdp_A9_state = iif($cgd_clothes['A9']='','Vitek is naked!','Vitek is wearing:<<$cgd_clothes[''A9'']>>.')
  48. '<center><b>You''re playing strip poker with the guys. The game will continue until one of you is completely naked.</b></center>'
  49. '<table width="100%" cellspacing="0" cellpadding="5"><td width="200" valign="top"><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/<<cgd_cs>>-<<6-(3+len($cgd_clothes))/7>>.jpg"></td><td valign="top">'
  50. '<br><<$cgdp_pc_state>><br><<$cgdp_A11_state>><br><<$cgdp_A10_state>><br><<$cgdp_A9_state>><br>'
  51. if $cgd_clothes = '':
  52. card_game_durak_nude += 1
  53. playcardgame_day = daystart
  54. playcardgame_count -= 1
  55. gs 'boyStat', 'A<<9+RAND(0,2)>>'
  56. '<b>The game is over! You have no clothes left, you lose!</b>'
  57. 'Winner: <b><<$boydesc>>.</b>'
  58. 'You will have to carry out his wish.'
  59. if pav_slut < 75 or kotovLoveQW > 0:
  60. act 'Continue': gt 'cardgame_durak', 'card_game_nosex'
  61. end
  62. if pav_slut >= 75 and cg_clother_cum < 5:
  63. if RAND(1,100) <= 90:
  64. if RAND(1,100) <= 40:
  65. act 'Continue': gt 'cardgame_durak', 'card_game_gsex'
  66. else
  67. act 'Continue': gt 'cardgame_durak', 'card_game_rough_sex'
  68. end
  69. else
  70. act 'Continue': gt 'cardgame_durak', 'card_game_nosex'
  71. end
  72. end
  73. if pav_slut >= 75 and cg_clother_cum >= 5:
  74. if RAND(1,100) <= 70:
  75. if RAND(1,100) <= 40:
  76. act 'Continue': gt 'cardgame_durak', 'card_game_gsex'
  77. else
  78. act 'Continue': gt 'cardgame_durak', 'card_game_rough_sex'
  79. end
  80. elseif RAND(1,30) > 10:
  81. act 'Continue': gt 'cardgame_durak', 'card_game_casual_sex'
  82. else
  83. act 'Continue': gt 'cardgame_durak', 'card_game_nosex'
  84. end
  85. end
  86. end
  87. if $cgd_clothes['A11'] = '' or $cgd_clothes['A10'] = '' or $cgd_clothes['A9'] = '':
  88. pcs_horny += 10
  89. pcs_health += 10
  90. pcs_mood += 5
  91. playcardgame_day = daystart
  92. playcardgame_count -= 1
  93. if $cgd_clothes['A11'] = '':
  94. gs 'boyStat', 'A11'
  95. $loss_npc_img = '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/vasya/vasya.jpg"></center>'
  96. end
  97. if $cgd_clothes['A10'] = '':
  98. gs 'boyStat', 'A10'
  99. $loss_npc_img = '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dan/dan.jpg"></center>'
  100. end
  101. if $cgd_clothes['A9'] = '':
  102. gs 'boyStat', 'A9'
  103. $loss_npc_img = '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/vitek/vitek.jpg"></center>'
  104. end
  105. $loss_npc_name = $boydesc
  106. *nl '<b>The game is over! <<$npc_usedname[$cgd_name_npc]>> has no clothes left and loses!</b>.'
  107. if pav_slut < 75:
  108. if RAND(1,100) <= 70:
  109. act 'Continue': gt 'cardgame_durak', 'card_game_ggwin_clother'
  110. else
  111. act 'Continue': gt 'cardgame_durak', 'card_game_ggwin_penis'
  112. end
  113. end
  114. if pav_slut >= 75:
  115. if RAND(1,100) <= 70:
  116. if RAND(1,100) <= 50:
  117. act 'Continue': gt 'cardgame_durak', 'card_game_ggwin_clothercum'
  118. elseif RAND(1,50) < 40:
  119. act 'Continue': gt 'cardgame_durak', 'card_game_ggwin_clother'
  120. else
  121. act 'Continue': gt 'cardgame_durak', 'card_game_ggwin_penis'
  122. end
  123. else
  124. if RAND(1,100) <= 70:
  125. act 'Continue': gt 'cardgame_durak', 'card_game_gg_lick'
  126. else
  127. act 'Continue': gt 'cardgame_durak', 'card_game_gg_sex'
  128. end
  129. end
  130. end
  131. end
  132. if $cgd_clothes ! '' and $cgd_clothes['A11'] ! '' and $cgd_clothes['A10'] ! '' and $cgd_clothes['A9'] ! '':
  133. if RAND(1,100) <= 60:
  134. card_game_durak_win += 1
  135. pcs_horny += 5
  136. pcs_mood += 5
  137. $cgd_name_npc = 'A<<9+RAND(0,2)>>'
  138. if strpos($cgd_clothes[$cgd_name_npc],'socks')>0:
  139. $clo_str = ' socks'
  140. $cgd_clothes[$cgd_name_npc] = replace($cgd_clothes[$cgd_name_npc],' socks,','')
  141. elseif strpos($cgd_clothes[$cgd_name_npc],',')>0:
  142. $clo_str = MID($cgd_clothes[$cgd_name_npc],1,strpos($cgd_clothes[$cgd_name_npc],',')-1)
  143. $cgd_clothes[$cgd_name_npc] = replace($cgd_clothes[$cgd_name_npc],'<<$clo_str>>,','')
  144. else
  145. $clo_str = $cgd_clothes[$cgd_name_npc]
  146. $cgd_clothes[$cgd_name_npc] = ''
  147. end
  148. '<img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/card3.jpg">'
  149. 'You have a great set of cards in your hand, and easily win the round. <<$npc_usedname[$cgd_name_npc]>> loses, and reluctantly takes off his<<$clo_str>>.'
  150. act 'Deal': gt 'cardgame_durak', 'card_game_durak_play'
  151. elseif RAND(1,40) < 35:
  152. card_game_durak_loss += 1
  153. if strpos($cgd_clothes,'socks')>0:
  154. $clo_str = ' socks'
  155. $cgd_clothes = replace($cgd_clothes,' socks,','')
  156. elseif strpos($cgd_clothes,',')>0:
  157. $clo_str = MID($cgd_clothes,1,strpos($cgd_clothes,',')-1)
  158. $cgd_clothes = replace($cgd_clothes,'<<$clo_str>>,','')
  159. else
  160. $clo_str = $cgd_clothes
  161. $cgd_clothes = ''
  162. end
  163. '<img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/card1.jpg">'
  164. 'Your hand is very poor, and you don''t stand a chance. You slowly undress for the guys, removing your<<$clo_str>>'
  165. act 'Deal': gt 'cardgame_durak', 'card_game_durak_play'
  166. else
  167. card_game_durak_draw += 1
  168. '<img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/card1.jpg">'
  169. 'Your hand is not very good, but with some skill you manage to squeeze out a draw. That was close, but you get to keep your clothes on for now!'
  170. act 'Deal': gt 'cardgame_durak', 'card_game_durak_play'
  171. end
  172. end
  173. '</td></tr></table>'
  174. killvar '$cgdp_pc_state'
  175. killvar '$cgdp_A11_state'
  176. killvar '$cgdp_A10_state'
  177. killvar '$cgdp_A9_state'
  178. end
  179. !--------------------------!
  180. !when years lost cards!
  181. !==========================!
  182. !fulfillment of desire NPC (turnip pav_slut < 75, then a small show)
  183. if $ARGS[0] = 'card_game_nosex_dance':
  184. minut +=5
  185. gs 'stat'
  186. '<center><video src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/gif/dance'+rand(1,9)+'.mp4"></center>'
  187. 'The guys put on a popular track with a lot of bass, and lean back. You realize this is your cue to start moving, and somewhat awkwardly begin to dance for them. After a while you get into the song more and become less hesitant in shaking your hips and boobs, trying to give the guys a good show. They did win, after all.'
  188. 'They all watch you intently, cheering you on and high-fiving their friend who made this possible.'
  189. act 'Finish and put your clothes back on': gt 'shulga_room', 'start'
  190. end
  191. !making wishes NPC (turnip pav_slut < 75)
  192. if $ARGS[0] = 'card_game_nosex':
  193. minut +=5
  194. gs 'stat'
  195. card_game_texta = RAND(0,6)
  196. if card_game_texta = 0:$card_game_texta = 'I want you to suck me off!'
  197. if card_game_texta = 1:$card_game_texta = 'Can you masturbate in front of us?'
  198. if card_game_texta = 2:$card_game_texta = 'I want you to give my dick a kiss.'
  199. if card_game_texta = 3:$card_game_texta = 'Let me touch your tits.'
  200. if card_game_texta = 4:$card_game_texta = 'I want to fuck you.'
  201. if card_game_texta = 5:$card_game_texta = 'I want to touch your pussy.'
  202. if card_game_texta = 6:$card_game_texta = 'How about you give me a boob job?'
  203. if $boy = 'A11':
  204. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/vasya/vasya.jpg"></center>'
  205. ''+func('gopsex','hide','Shulga_var_name')+' ponders for a second, and says: "<<$card_game_texta>>"'
  206. '"Are you out of your mind!? There''s absolutely no way I''m doing that!", you shout, deeply offended by his suggestion.'
  207. 'He raises his hands defensively and smiles: "Relax, I was just kidding. I just had to try, who knows what kind of party girl you might''ve been!"'
  208. 'You sigh and tell him: "Seriously though, what do you want me to do?"'
  209. ''+func('gopsex','hide','Shulga_var_name')+' thinks long and hard, and carefully suggests: "<<$pcs_nickname>>, how about you perform a little dance for us? You know... shake your boobs, show off your body a little?"'
  210. 'You bite your lip while you think for a moment, and then say: "Fine. I''m naked, so it''s not like you haven''t seen it all already anyway. I''ll do it."'
  211. end
  212. if $boy = 'A10':
  213. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dan/dan.jpg"></center>'
  214. 'Dan says what he wants: "<<$pcs_nickname>>. <<$card_game_texta>>"'
  215. '"Are you out of your mind!? There''s absolutely no way I''m doing that!", you shout, deeply offended by his suggestion.'
  216. 'He raises his hands defensively and smiles: "Relax, I was just kidding. I just had to try, who knows what kind of party girl you might''ve been!"'
  217. 'You sigh and tell him: "Seriously though, what do you want me to do?"'
  218. 'Dan shrugs and says: "<<$pcs_nickname>>, how about we put up some music, and you shake your tits and perform a nice little dance for the three of us then?"'
  219. 'You bite your lip while you think for a moment, and then say: "Fine. I''m naked, so it''s not like you haven''t seen it all already anyway. I''ll do it."'
  220. end
  221. if $boy = 'A9':
  222. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/vitek/vitek.jpg"></center>'
  223. 'Vitek confidently says: "<<$card_game_texta>>"'
  224. '"Are you out of your mind!? There''s absolutely no way I''m doing that!", you shout, deeply offended by his suggestion.'
  225. '"Hey, you''re the one who agreed to do what we say if you lose. I didn''t realize you were going to be so modest", Vitek smirks.'
  226. 'You sigh and tell him: "Don''t be such a pervert! Seriously though, what do you want me to do?"'
  227. 'Vitek shrugs and says: "<<$pcs_nickname>>, how about we put up some music, and you shake your tits and perform a nice little dance for the three of us then?"'
  228. 'You bite your lip while you think for a moment, and then say: "Fine. I''m naked, so it''s not like you haven''t seen it all already anyway. I''ll do it."'
  229. end
  230. act 'Dance for them': gt 'cardgame_durak', 'card_game_nosex_dance'
  231. killvar 'card_game_texta'
  232. end
  233. !when years lost cards (turnip pav_slut >= 75), sex
  234. if $ARGS[0] = 'card_game_gsex':
  235. minut +=2
  236. pcs_horny += 10
  237. npc_sex['A9'] += 1
  238. npc_sex['A10'] += 1
  239. npc_sex['A11'] += 1
  240. gang += 1
  241. gs 'stat'
  242. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sex/gsex/ev1_1.jpg"></center>'
  243. '"Now that you''ve lost... how about we all get naked, and then see what we will do with you?" <<$boydesc>> says with a grin, as he takes the remainder of his clothes off. The other guys nod eagerly, and begin to undress as well.'
  244. act 'Continue':
  245. *clr & cla
  246. gs 'arousal','foreplay',3,'gangbang'
  247. gs 'stat'
  248. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sex/gsex/ev1_2.jpg"></center>'
  249. '<<$boydesc>> says: "I''ve given it some thought, and I''ve decided that it is bad to be selfish. Therefore, as my wish: I will share your body with my friends, and we will all fuck you good!"'
  250. '"But, that''s not fair..." you mutter weakly. "You won, they did not. Only you get a wish!'
  251. '"Exactly! I get a wish, and you have to do what I want. My wish is to share your body with my friends", <<$boydesc>> tells you, while he plays with your boobs. "Now stop complaining and get on your back."'
  252. act 'Continue':
  253. *clr & cla
  254. gs 'arousal','bj',5,'dick[1]','gangbang'
  255. gs 'arousal','bj',5,'dick[2]','gangbang'
  256. gs 'arousal','hj',2,'dick[1]','gangbang'
  257. gs 'arousal','hj',2,'dick[2]','gangbang'
  258. gs 'arousal','vaginal_finger',6,'dick[3]','gangbang'
  259. minut -= 10
  260. gs 'stat'
  261. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sex/gsex/ev1_3.jpg"></center>'
  262. 'Well, he''s got you there. With a deep sigh you lie down on your back, and immediately '+func('gopsex','hide','Shulga_var_name')+' and Dan get on their knees next to you, offering their already fully erect cocks to you.'
  263. 'Vitek moves between your legs, and begins to play with your pussy. He occasionally thrusts a finger inside, but is mostly content to just play with your pussy lips and your clitoris for now.'
  264. 'You hesitantly lean towards Vasily''s cock and lick the head of his cock testively, before taking it into your mouth. Meanwhile Dan grabs your wrist and guides your hand to his cock, and he begins to play with your breasts once you get the message and masturbate him gently.'
  265. 'Wow, the three of them are making you feel really good! You do your best to repay them by giving Vasily and Dan a good blowjob, taking their cocks as far as possible in your mouth in turns while you masturbate the other.'
  266. if pcs_horny >= 70:
  267. $orgasm_or = 'yes'
  268. $orgasm_txt = 'Vitek''s constant rubbing on your clit brings you to a thunderous orgasm, and you moan and groan loudly despite the penis that''s lodged deeply into your mouth.'
  269. gs 'arousal','vaginal_finger',6,'dick[3]','gangbang','exhibitionism'
  270. 'For a moment you feel ashamed, your orgasm was very obvious to the guys and was met with loud cheers. Then you relax and just give in, why should you feel bad about them making you feel great?'
  271. end
  272. act 'Continue':
  273. *clr & cla
  274. gs 'arousal','bj',4,'dick[1]','gangbang'
  275. gs 'arousal','vaginal',5,'dick[2]','gangbang'
  276. gs 'arousal','bj',4,'dick[3]','gangbang'
  277. minut -= 8
  278. gs 'stat'
  279. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sex/gsex/ev1_4.jpg"></center>'
  280. 'Then the guys pull you up, and put you down on your hands and knees. Dan immediately moves behind you, claiming he gets to fuck you first. Vasily and Vitek shrug and take place near your head, expecting you to give them blowjobs while Dan slips his cock inside your eager cunt and begins to thrust his hips against yours.'
  281. 'Dan''s dick feels great inside you, and you''re not afraid to show the guys that you''re enjoying it. You moan excitedly and eagerly switch from Vasily''s to Vitek''s cock and back, trying to please all of them.'
  282. act 'Continue':
  283. *clr & cla
  284. gs 'arousal','hj',4,'dick[1]','gangbang'
  285. gs 'arousal','vaginal',5,'dick[2]','gangbang'
  286. gs 'arousal','hj',4,'dick[3]','gangbang'
  287. minut -= 8
  288. gs 'stat'
  289. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sex/gsex/ev1_5.jpg"></center>'
  290. 'For a moment, you try to take both of the dicks inside your mouth while Dan fucks you from behind.'
  291. 'However, Dan can no longer hold back and begins to vigorously slam his hips into yours, making your butt cheeks bounce whenever he bottoms out in you.'
  292. 'You fully surrender to him and can''t really focus on the blowjob you''re giving any more, only making some weak attempts to lick Vitek''s and Shulga''s cocks to make sure they don''t feel left out entirely.'
  293. act 'Continue':
  294. *clr & cla
  295. gs 'arousal','vaginal',5,'dick[2]','gangbang'
  296. gs 'arousal','bj',3,'dick[3]','deepthroat'
  297. minut -= 3
  298. gs 'stat'
  299. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sex/gsex/ev1_6.jpg"></center>'
  300. 'When you next take Vitek''s cock in your mouth, he puts his hands behind your head and forces you to take his full length down your throat. Your nose is against his hairy groin before you know it, and you cough in surprise. At least, you try to.'
  301. 'With his dick all the way down your throat, you can''t do much but convulsively swallow, and try to pull away from him. He realizes you''re having trouble deepthroating him, and pulls away from you.'
  302. 'You gasp loudly once you can breathe again, and sob and retch for a while... with Dan still fucking you allthesame. You can tell Vitek feels bad for pushing you too hard, and you give him a grateful look when he lets go of your head and lets you take over again. You carefully lick and kiss the head of his penis for a moment, as your way of thanking him.'
  303. act 'Continue':
  304. *clr & cla
  305. minut += 5
  306. gs 'cum_call','face',$boy[2],1,'','',30
  307. gs 'cum_call','hair',$boy[2],1,'','',10
  308. gs 'cum_call','face',$boy[1],1,'','',10
  309. gs 'cum_call','hair',$boy[1],1,'','',30
  310. gs 'cum_call','face',$boy[3],1,'','',30
  311. gs 'cum_call','breasts',$boy[3],1,'','',10
  312. gs 'arousal', 'end'
  313. gs 'stat'
  314. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sex/gsex/ev1_7.jpg"></center>'
  315. 'A little while later the guys tell you to get down on your knees, and surround you. They jerk themselves off, and shoot their hot cum all over your face and in your hair.'
  316. 'They all sit down and take a minute to catch your breaths, with your naked body sprawled out on the floor in front of them. When you sit back up again, you catch a glimpse of yourself in a large mirror: you look like a mess! Your hair is seriously disheveled and has sperm in it and your face looks all messy and puffy, with gobs of cum smeared all over your cheeks and chin.'
  317. 'That was definitely not what you bargained for, when you wanted to play a game of cards with the guys...'
  318. act 'Put your clothes back on': gt 'shulga_room', 'start'
  319. end
  320. end
  321. end
  322. end
  323. end
  324. end
  325. end
  326. !when years lost cards (turnip pav_slut >= 75), rough sex
  327. if $ARGS[0] = 'card_game_rough_sex':
  328. gs 'arousal','bj',5,'deepthroat','sub'
  329. gs 'stat'
  330. npc_sex[$boy] += 1
  331. '<center><video src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sexrough/bj'+rand(1,10)+'.mp4"></center>'
  332. '<<$boydesc>> unceremoniously moves up to you, and thrusts his erect dick into your mouth without saying a word.'
  333. '"This is for you, slut", he hisses as he grabs your hair in his hands, and begins to thrust his hips against your face, fucking your throat roughly.'
  334. act 'Continue':
  335. *clr & cla
  336. gs 'arousal','anal',10
  337. gs 'cum_call','anus',$boy,1
  338. gs 'stat'
  339. '<center><video src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sexrough/sex1_'+rand(1,10)+'.mp4"></center>'
  340. '"I want your ass next, bitch", <<$boydesc>> says. "Get on your hands and knees, and offer yourself to me."'
  341. 'You hesitantly do as he says, spreading your buttocks with your hands once you lower yourself to the ground.'
  342. if analplugin = 1:
  343. analplugin = 0
  344. '<<$boydesc>> laughs: "This would only get in the way. Out you go!", and he tugs the plug out of your ass and tosses it aside.'
  345. end
  346. if lubri > 0:
  347. agape = 2
  348. pcs_horny += 10
  349. '"Wait! I have some lubricant with me somewhere, you could use that!" you offer.'
  350. 'When you reach up in an effort to go get it, <<$boydesc>> pushes you back down and says matter-of-factly: "No. You''re my prize, and I can fuck you how I want. I want to fuck you dry, so that''s what I''m going to do. Cute of you to always have lube on you just in case you might get your ass fucked that day though, very classy!"'
  351. 'You bite your lip and move back in position, hoping he will take it easy on you. All you can do at this point is relax, hopefully that will make it easier.'
  352. end
  353. 'Unfortunately for you, <<$boydesc>> is not very careful and just crams the head of his cock in.'
  354. 'You groan and scream and cry, hoping the pain will subside soon while <<$boydesc>> begins to fuck your ass. He''s not even particularly rough with you, but it still stings a lot. You''re not even sure why he insists on doing this... when you look back you occasionally see him wince too. If this is not comfortable for either of you, why does he insist on going on?'
  355. 'After a few minutes of you obediently enduring the ass fucking you''re receiving, it doesn''t hurt that much any more. There''s still a little discomfort, but you''re able to ignore that and even gain some pleasure out of it.'
  356. 'Then <<$boydesc>> shoots his load inside your ass, and says with a grin: "Who''s next? If we want her to be a good little butt slut for us in the future, she''s going to need more training! Stretch that hole, guys!"'
  357. act 'Continue':
  358. *clr & cla
  359. gang +=1
  360. gs 'boyStat',$boy,'c'
  361. if $boy = 'A9': gs 'boyStat', 'A10','a' else gs 'boyStat', 'A9','a'
  362. gs 'arousal','anal',8,'dick1','gangbang'
  363. gs 'cum_call','anus',$boy1,1
  364. npc_sex[$boy1] += 1
  365. if $boy = 'A11': gs 'boyStat', 'A10','b' else gs 'boyStat', 'A11','b'
  366. gs 'arousal','anal',8,'dick2','gangbang'
  367. gs 'cum_call','anus',$boy2,1
  368. npc_sex[$boy2] += 1
  369. gs 'arousal','anal',5,'dick3','gangbang'
  370. '<center><video src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sexrough/sex2_'+rand(1,10)+'.mp4"></center>'
  371. 'You were about to get up once <<$boydesc3>> finished in you, but his friends stop you. "Everyone gets to have a go, slut. I won your ass, so I decide when you''re done. Stay down", he orders you.'
  372. 'You meekly hang your head and get back in the position, deciding to just get it over with. Getting assfucked like some 50 ruble whore is not how you expected this game to end... but there are three of them, and they''re all stronger than you. What can you do?'
  373. 'Luckily, <<$boydesc3>>''s cum acts as a lubricant to an extent, and when someone else pushes their dick inside your already opened sphincter, it doesn''t hurt quite as much any more. In fact... it actually feels kind of nice! You moan softly, trying to hide how much you''re enjoying this from the guys. They''d just get the wrong idea...'
  374. 'The guys use your asshole as they see fit for the next twenty minutes, not really paying any attention to your feelings. When his friends finish <<$boydesc3>>''s cock is hard again, and he eagerly fucks you again while he still can.'
  375. if pcs_horny >=70:
  376. $orgasm_or = 'yes'
  377. $orgasm_txt = 'Your pussy is drenched by the time <<$boydesc3>> fucks you again. The guys haven''t shown any interest in it today, fully focusing on fucking your ass as if you''re just a rubber doll. You feel greatly aroused despite (or maybe because of?) the way they''re treating you, and gently masturbate yourself while <<$boydesc3>> fucks you. You stifle your moans and have a quiet orgasm, trying to not let the guys find out.'
  378. gs 'arousal','masturbation',2,'exhibitionism'
  379. end
  380. '"Almost done, whore. Show us your ass", <<$boydesc3>> smirks with contempt.'
  381. gs 'stat'
  382. act 'Show them':
  383. *clr & cla
  384. gs 'arousal','flash_ass',5,'exhibitionism'
  385. gs 'arousal', 'end'
  386. gs 'stat'
  387. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sexrough/ass'+rand(1,9)+'.jpg"></center>'
  388. 'You obediently spread your ass cheeks, showing your gaping anus to the boys. That''s going to take a while before it closes again.'
  389. 'They look at you for a few minutes, proudly discussing on what a good job they did today.'
  390. 'Then <<$boydesc3>> slaps your ass cheek and grins: "Alright, slut. We''ve trained your hole enough for today. Go freshen up."'
  391. act 'Go to the bathroom': gt 'shulgabath', 'start'
  392. end
  393. end
  394. end
  395. end
  396. if $ARGS[0] = 'card_game_casual_sex':
  397. minut +=5
  398. gs 'stat'
  399. if $boy = 'A11': '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/vasya/vasya.jpg"></center>'
  400. if $boy = 'A10': '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dan/dan.jpg"></center>'
  401. if $boy = 'A9': '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/vitek/vitek.jpg"></center>'
  402. '"Well, you lost <<$pcs_nickname>>. Now you have to pay for all the shit, you cooked up for us!" <<$boydesc>> says.'
  403. '"Come on, you can barely come with something beyond fuck me, anyway." You make a snide comment.'
  404. '"That''s not true! I want you to go out onto the street and we will find a stranger and let him fuck you right there.'
  405. '"What the fucking kind of shit is that! I''ve not forced you to fuck anyone..."'
  406. '"You''re a bitch, for coming up with all that rubbish you made us do and now you will have to pay for it. So stop your bitching, you lost, so pay up!"'
  407. 'You have no choice, you lost and now have to pay up the debt by fulfilling his wish.'
  408. act 'Further':
  409. *clr & cla
  410. guy += 1
  411. $orgasm_or = 'no'
  412. gs 'npcgeneratec', 0, 'stranger', rand(18,40)
  413. gs 'boyStat', $npclastgenerated
  414. npc_sex[$npclastgenerated] += 1
  415. gs 'arousal','bj',10,'sub'
  416. gs 'stat'
  417. '<center><video src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/street_event/sexbj1.mp4" width="642" height="490"></center>'
  418. 'The boys point at a man. You approach the guy and offer to have sex. No wonder that the stranger quickly agreed ... '
  419. 'You quickly find a secluded area, once you do he pulls his dick out and tells you to start sucking it. You squat down and take his dick in your mouth.'
  420. '"You are great! You must do this a lot, don''t you?", The man asks you.'
  421. '"Yes, every day." You answer honestly.'
  422. '"I got a good slut today. Bend over so I can fuck you doggie!" The man commands you.'
  423. act 'Further':
  424. *clr & cla
  425. $orgasm_or = 'no'
  426. gs 'arousal','vaginal',10
  427. gs 'stat'
  428. '<center><video src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/street_event/sex1.mp4" width="570" height="576"></center>'
  429. 'You turn around and lean against the wall. The guy starts to fuck you from behind, at first slowly and gradually increases the pace of screwing.'
  430. '"Do you also let boys fuck you ever day?" The guy asks.'
  431. 'You grasp that he is excited with such talk and you decide to play along.'
  432. '"Yes, they use my body every day, I get off and letting guys fuck me like a whore. The more I can find to fuck me, the happier I am."'
  433. if pcs_horny >=70:
  434. $orgasm_or = 'yes'
  435. $orgasm_txt = 'You are overcome by surging emotions and your body convulses with waves of pleasure. You let out a loud moan. "Oh! More...don''t stop. Oh yeah! Oh!"'
  436. gs 'arousal','masturbation',2,'exhibitionism'
  437. '"The guy is surprised by your stormy climax and he says with a grin: "You cum like a wild cat, I love nymphos like you. Could you give me your phone number?"'
  438. '"Maybe, but first you should finish", You answer with a smirk.'
  439. end
  440. 'A few minutes later the man pulls his dick out, strips off his condom and shoots his load on the wall. Before he could bat an eye, you pull your clothes on and run away.'
  441. 'The boys are nearby all the time and record everything on a mobile phone.'
  442. gs 'arousal', 'end'
  443. act 'Leave': gt 'shulga_room', 'start'
  444. end
  445. end
  446. end
  447. !-------------------!
  448. !gg won cards!
  449. !===================!
  450. !When the years won, make a wish (turnip pav_slut < 75) (clothing stall)
  451. if $ARGS[0] = 'card_game_ggwin_clother':
  452. minut +=3
  453. gs 'stat'
  454. '<<$loss_npc_img>>'
  455. 'You can barely hide the smirk on your face as you say: "So... <<$loss_npc_name>>, you lose. Now you have to do what I want!"'
  456. '"We''ll see... what is it you want?" asks <<$loss_npc_name>>.'
  457. 'You grin evilly and say: "I want you to go out on the street, and find a beautiful girl. When you do, you will pull her clothes away, exposing either her tits or her bare ass to us, while we film it with our phones!"'
  458. 'You laugh at his distraught look, and add: "Your choice... do what feels right."'
  459. '"Come on, <<$pcs_nickname>>! Can''t you think of anything else?" <<$loss_npc_name>> pleads, lightly frustrated.'
  460. 'Before you can reply, his friends say: "You knew the rules! If you lose, you have to do what the winner wants. No questions asked."'
  461. '<<$loss_npc_name>> slumps a little, but he knows his friends are right: "Alright then, let''s get this over with..."'
  462. act 'Continue':
  463. *clr & cla
  464. minut +=15
  465. gs 'stat'
  466. '<<$loss_npc_name>> exits the house, and the rest of you follow him. He does as you ask, and can barely escape when the furious lady chases him all the way down the street.'
  467. 'A few minutes later, he returns to you. His face is all red from the running, and he''s still out of breath when he says: "There... happy? She looked like she wanted to kill me!"'
  468. 'You grin, and show him the video you shot with your mobile phone:'
  469. '<center><video src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/street_event/j'+rand(1,12)+'.mp4"></center>'
  470. '"Why is the camera shaking so much!? This looks like shit!" <<$loss_npc_name>> asks, clearly frustrated now.'
  471. 'His friends are also nearly out of breath, but it''s from laughing so hard. Finally, one of them manages to say: "I''m sorry, man! It just looked hilarious! None of us could hold our cameras still, we were laughing so hard!"'
  472. act 'Finish': gt 'shulga_room', 'start'
  473. end
  474. end
  475. !When the years won, make a wish (turnip pav_slut < 75) (shake genitals)
  476. if $ARGS[0] = 'card_game_ggwin_penis':
  477. minut +=5
  478. gs 'stat'
  479. '<<$loss_npc_img>>'
  480. 'You can barely hide the smirk on your face as you say: "So... <<$loss_npc_name>>, you lose. Now you have to do what I want!"'
  481. '"We''ll see... what is it you want?" asks <<$loss_npc_name>>.'
  482. 'You grin evilly and say: "I want you to go out on the street, and find a beautiful girl. When you do, you will show her your dick, while we film it with our phones!"'
  483. '"Come on, <<$pcs_nickname>>! Can''t you think of anything else?" <<$loss_npc_name>> pleads, lightly frustrated.'
  484. 'Before you can reply, his friends say: "You knew the rules! If you lose, you have to do what the winner wants. No questions asked."'
  485. '<<$loss_npc_name>> slumps a little, but he knows his friends are right: "Alright then, let''s get this over with..."'
  486. act 'Continue':
  487. *clr & cla
  488. minut +=15
  489. gs'stat'
  490. '<<$loss_npc_name>> exits the house, and the rest of you follow him. He does as you ask, and can barely escape when the furious lady chases him all the way down the street.'
  491. 'A few minutes later, he returns to you. His face is all red from the running, and he''s still out of breath when he says: "There... happy? She looked like she wanted to kill me!"'
  492. 'You grin, and show him the video you shot with your mobile phone:'
  493. '<center><video src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/street_event/p'+rand(1,3)+'.mp4"></center>'
  494. '"Why is the camera shaking so much!? This looks like shit!" <<$loss_npc_name>> asks, clearly frustrated now.'
  495. 'His friends are also nearly out of breath, but it''s from laughing so hard. Finally, one of them manages to say: "I''m sorry, man! It just looked hilarious! None of us could hold our cameras still, we were laughing so hard!"'
  496. act 'Finish': gt 'shulga_room', 'start'
  497. end
  498. end
  499. !When the years won, make a wish (turnip pav_slut >= 75) (cum on the victim)
  500. if $ARGS[0] = 'card_game_ggwin_clothercum':
  501. minut +=5
  502. cg_clother_cum +=1
  503. gs 'stat'
  504. '<<$loss_npc_img>>'
  505. 'You grin at <<$loss_npc_name>> and say: "Aww <<$loss_npc_name>>, what a bad time for you to lose! My wish today won''t be easy!"'
  506. '<<$loss_npc_name>> sighs: "Let''s get it over with. What do you want?"'
  507. '"Let''s go find you a nice girl", you smile mysteriously. "I''ll pick someone, and you have to run up and jerk off over her clothes! Of course, we''ll be recording it with our phones..."'
  508. '<<$loss_npc_name>> looks concerned: "What, are you crazy!? That''s insane... and besides, I can''t cum that fast! That would never work!"'
  509. '"I thought you would say that, <<$loss_npc_name>>. Don''t worry, I thought of that... how about if I help you get close?" you smile at him, licking your <<$liptalk3>> lips lewdly.'
  510. 'His friends are laughing, but <<$loss_npc_name>> suddenly shows a lot more interest in your plan. If you''re willing to blow him until he''s about to burst, that''s more than the others are getting from you today!'
  511. 'You leave the apartment with the guys, who are clearly excited to see this plan of yours play out. "Let''s go find a nice girl for <<$loss_npc_name>>, guys!" you shout happily.'
  512. act 'Continue':
  513. *clr & cla
  514. gs 'arousal','bj',10
  515. gs 'stat'
  516. npc_sex[$boy] += 1
  517. 'After a few minutes, you find someone. "Alright, <<$loss_npc_name>>, come here", you whisper to him as you drag him out of view.'
  518. 'You quickly drop to your knees and take his cock in your mouth, giving him a skilful blowjob. The other guys are actually a bit jealous when they see you on your knees before your friend, and pull out their phones to record you:'
  519. '<center><video src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/street_event/bj'+rand(1,2)+'.mp4"></center>'
  520. 'When you lick <<$loss_npc_name>> close to his orgasm, he runs to his victim.'
  521. act 'Continue':
  522. *clr & cla
  523. minut +=5
  524. gs 'stat'
  525. '<center><video src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/street_event/cum'+rand(1,2)+'.mp4"></center>'
  526. 'While you idly wipe your lips with the back of your hand and watch <<$loss_npc_name>> run, his friends are shooting everything on film with their mobiles.'
  527. 'When you watch the video back with the guys, it turns out that the video''s quality is downright lousy. It''s very shaky, and there''s a lot of background noise of the three of you laughing your butts off.'
  528. '<<$loss_npc_name>> comes back, his face as red as a lobster. As he gasps for breath, he groans: "I''m never doing that again! <<$pcs_nickname>>, the next time you lose... I''m going to make you pay!"'
  529. 'You and the other guys are laughing loudly as you return to Vasily''s apartment. The next time you lose? You''ll see about that...'
  530. act 'Finish': gt 'shulga_room', 'start'
  531. end
  532. end
  533. end
  534. !When the years won, make a wish (turnip pav_slut >= 75), lick
  535. if $ARGS[0] = 'card_game_gg_lick':
  536. minut +=1
  537. npc_sex[$boy] += 1
  538. if $boy = 'A11':
  539. '<<$loss_npc_img>>'
  540. 'You grin: "I''m actually feeling rather horny. Be a dear and lick my pussy for me, would you?"'
  541. 'Vasily grins eagerly and says: "What, really? I thought you were going to make me do something I didn''t want to do!"'
  542. 'He eagerly drops to his knees and begins to lick your wet snatch, being egged on by his friends.'
  543. elseif $boy = 'A10':
  544. '<<$loss_npc_img>>'
  545. 'You look at Dan commandingly, and tell him: "Dan, lick my pussy. Now."'
  546. 'Dan is not particularly eager, but he lost. And rules are rules. He obediently puts his tongue against your pussy, and reluctantly begins to eat you out.'
  547. else
  548. '<<$loss_npc_img>>'
  549. 'You grin: "Vitek, darling... I''m actually feeling rather horny. Be a dear and lick my pussy for me, would you?"'
  550. 'Vitek shakes his head and quickly looks around, looking for a way out of his predicament. His friends love the idea though, and stop him from refusing. Vasily says: "You know the rules of strip poker! If you lose, you have to do what the winner says!"'
  551. 'With a deep sigh, Vitek drops to his knees and reluctantly puts his tongue against your wet folds. You can tell he feels thoroughly humiliated.'
  552. end
  553. gs 'stat'
  554. act 'Continue':
  555. *clr & cla
  556. gs 'arousal','cuni',8
  557. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sex/lick'+rand(1,6)+'.jpg"></center>'
  558. 'For the next ten minutes, <<$boydesc>> does his best to bring you to orgasm with his tongue and lips.'
  559. if pcs_horny >= 70:
  560. $orgasm_or = 'yes'
  561. $orgasm_txt = 'He does a fantastic job of it, and within minutes you''re mewling and breathing in short gasps as you hover on the edge of your orgasm. When you finally have to yield, his friends cheer loudly and even <<$boydesc>> has a smug look on his face when he continues to lick you. Rules are rules, after all; you didn''t say he was done.'
  562. gs 'arousal','cuni',2
  563. elseif pcs_horny < 70:
  564. '<<$boydesc>> does his best to get you to orgasm. He''s doing all the right things and you feel very aroused, but in the end you can''t quite reach an orgasm this time. After a while you can tell his tongue is starting to feel exhausted, and you tell him he can stop.'
  565. gs 'arousal','cuni',2
  566. end
  567. gs 'arousal', 'end'
  568. gs 'stat'
  569. act 'Finish': gt 'shulga_room', 'start'
  570. end
  571. end
  572. !When the years won, make a wish (turnip pav_slut >= 75), sex
  573. if $ARGS[0] = 'card_game_gg_sex':
  574. minut +=1
  575. npc_sex[$boy] += 1
  576. if $boy = 'A11':
  577. '<<$loss_npc_img>>'
  578. 'You smile at Vasily and say: "Vasily, dear... it''s been a while since a real man fucked my ass. Perhaps you could help me with that?"'
  579. 'Vasily''s eyes light up, he was expecting you to pick something humiliating. Instead, he gets to fuck you!? He immediately grabs you by the arm and drags you go the couch, before you can change your mind.'
  580. elseif $boy = 'A10':
  581. '<<$loss_npc_img>>'
  582. '"Hey Dan, when is the last time you fucked a girl in the ass?" you prompt.'
  583. '"Uhhh..." Dan replies, not sure what to say.'
  584. 'You wink at him and say: "If anyone asks you in fifteen minutes, you can say: fifteen minutes ago!"'
  585. 'It takes him a while to realize what you want; getting to fuck your ass was the last thing on his mind! He immediately grabs you by the arm and drags you go the couch, before you can change your mind.'
  586. else
  587. '<<$loss_npc_img>>'
  588. 'You state your wish to Vitek: "Fuck me properly!"'
  589. 'Vitek looks at you a tad confused, and you add: "In my ass, silly!"'
  590. 'His eyes light up, he was expecting you to pick something humiliating. Instead, he gets to fuck you!? He immediately grabs you by the arm and drags you go the couch, before you can change your mind.'
  591. end
  592. gs 'stat'
  593. act 'Continue':
  594. *clr & cla
  595. $temp1 = $mid('0117 1917 3717 5518 7421 9622',5*rand(0,5)+1,4)
  596. $temp2 = $mid('104cumass/cumass5 204cumass/cumass4 304cumass/cumass6 504cumass/cumass13 614cumbelly/cumbelly4 714cumbelly/cumbelly10',val($mid($temp1,1,2)),val($mid($temp1,3,2)))
  597. !!What is the hell? Well, I wanted to pair two pictures and also an action and beside it also preserve the randomness.
  598. !!The variable $temp1 contains pointers and lengths and the variable $temp2 contains data.
  599. gs 'arousal','anal',10
  600. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/sex/sex<<$mid($temp2,1,1)>>.jpg"></center>'
  601. '<<$boydesc>> fucks you in the ass, like you demanded of him. He''s surprisingly careful with you, using plenty of lube and ensuring that he''s making you feel good as he does it. What a nice change from the normal way the boys treat you...'
  602. gs 'gopsex', 'gg_sex_orgasm'
  603. gs 'stat'
  604. act 'Continue':
  605. *clr & cla
  606. minut += 5
  607. sexpartkno = 1
  608. spafinloc = val($mid($temp2,2,2))
  609. pcs_mood += 35
  610. gs 'cum_manage'
  611. gs 'arousal', 'end'
  612. gs 'stat'
  613. '<center><img <<$set_imgh>> src="images/pc/body/cum/<<$mid($temp2,4,val($mid($temp1,3,2))-3)>>.jpg"></center>'
  614. 'After a while he can''t hold back any longer, and you feel the hot jets of his sperm land on your body.'
  615. 'You drag your finger through some of it and bring it to your tongue, to have a taste. It doesn''t taste particularly good, but it''s not bad either.'
  616. '"Mmmm... delicious, babe!" you muse, more to make him feel good than anything. You smile at the proud grin <<$boydesc>> has on his face afterwards, and feel slightly better for having made his day.'
  617. act 'Finish': gt 'shulga_room', 'start'
  618. killvar '$temp1'
  619. killvar '$temp2'
  620. end
  621. end
  622. end
  623. --- cardgame_durak ---------------------------------