dinSex.qsrc 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486
  1. # dinSex
  2. roll_3d = rand(1,3)
  3. roll_2d = rand(1,2)
  4. if dick <= 8 :
  5. if roll_3d = 1: $penis_desc = "laughably tiny prick"
  6. if roll_3d = 2: $penis_desc = "micropenis"
  7. if roll_3d = 3: $penis_desc = "erect light switch"
  8. elseif dick <= 11:
  9. if roll_2d = 1: $penis_desc = "short dick"
  10. if roll_2d = 2: $penis_desc = "little peeper"
  11. elseif dick <= 14:
  12. if roll_3d = 1: $penis_desc = "average dick"
  13. if roll_3d = 2: $penis_desc = "mid-sized penis"
  14. if roll_3d = 3: $penis_desc = "medium length cock"
  15. elseif dick <= 17:
  16. if roll_2d = 1: $penis_desc = "above average penis"
  17. if roll_2d = 2: $penis_desc = "somewhat long dick"
  18. elseif dick <= 20:
  19. if roll_2d = 1: $penis_desc = "long cock"
  20. if roll_2d = 2: $penis_desc = "perfect-length meatstick"
  21. elseif dick <= 23:
  22. if roll_2d = 1: $penis_desc = "elephant-trunk rod"
  23. if roll_2d = 2: $penis_desc = "worryingly long fuckpole"
  24. elseif dick >= 24:
  25. if roll_3d = 1: $penis_desc = "ridiculously long dick"
  26. if roll_3d = 2: $penis_desc = "frightening fuckspear"
  27. if roll_3d = 3: $penis_desc = "literal third leg"
  28. end
  29. $penis_desc = $dick_girth + ', ' + $penis_desc
  30. if ARGS[0] = 'std_trigger':
  31. tipvenerarand = rand(0, 10)
  32. if protect = 1:
  33. venrand = rand(0, 1000)
  34. if venrand = 1000: gs 'dinSex', 'disease_picker'
  35. else
  36. venrand = rand(0, 100)
  37. if venrand >= 80:gs 'dinSex', 'disease_picker'
  38. end
  39. end
  40. if ARGS[0] = 'disease_picker':
  41. if cheatHealth = 0:
  42. if tipvenerarand = 8:
  43. !!herpes
  44. if rand(1, 100) > 90:
  45. if GerpesOnce = 0:
  46. GerpesOnce = 1
  47. Venera += 1
  48. Gerpes += 1
  49. GenHerpes = 1
  50. end
  51. end
  52. elseif tipvenerarand = 7:
  53. !!syphilis
  54. if rand(1, 100) > 95: Venera += 1
  55. if SifacOnce = 0:
  56. SifacOnce = 1
  57. Sifilis += 1
  58. end
  59. elseif tipvenerarand >= 5 and tipvenerarand < 7:
  60. !!gonorrhea/triper
  61. if rand(1, 100) > 95: Venera += 1
  62. if TriperOnce = 0:
  63. TriperOnce = 1
  64. Triper += 1
  65. end
  66. elseif tipvenerarand < 5:
  67. !!candidiasis/thrush
  68. if rand(1, 100) > 85:
  69. if KandidozOnce = 0:
  70. KandidozOnce = 1
  71. Kandidoz += 1
  72. end
  73. end
  74. end
  75. end
  76. end
  77. if ARGS[0] = 'std_trigger_oral':
  78. tipvenerarand = rand(0, 10)
  79. if protect = 1:
  80. venrand = rand(0, 1000)
  81. if venrand = 1000: gs 'dinSex', 'disease_picker_oral'
  82. else
  83. venrand = rand(0, 100)
  84. if venrand >= 80: gs 'dinSex', 'disease_picker_oral'
  85. end
  86. end
  87. if ARGS[0] = 'disease_picker_oral':
  88. if cheatHealth = 0:
  89. if tipvenerarand >= 5 and tipvenerarand < 7:
  90. if rand(1, 100) > 95: Venera += 1
  91. if TriperOnce = 0:
  92. TriperOnce = 1
  93. TriperOral += 1
  94. if rand (0,100) < 15: TriperOralSigns = 1
  95. end
  96. elseif tipvenerarand = 7:
  97. if rand(0,1) = 1:
  98. !!syphilis
  99. if rand(1, 100) > 95: Venera += 1
  100. if SifacOnce = 0:
  101. SifacOnce = 1
  102. Sifilis += 1
  103. end
  104. end
  105. elseif tipvenerarand < 5:
  106. !!candidiasis/thrush
  107. if rand(1, 100) > 85:
  108. if KandidozOnce = 0:
  109. KandidozOnce = 1
  110. Kandidoz += 1
  111. end
  112. end
  113. elseif tipvenerarand = 8:
  114. !!herpes
  115. if rand(1, 100) > 90:
  116. if GerpesOnce = 0:
  117. GerpesOnce = 1
  118. Venera += 1
  119. Gerpes += 1
  120. OrHerpes = 1
  121. end
  122. end
  123. end
  124. end
  125. end
  126. if ARGS[0] = 'wear_condom':
  127. protect = 0
  128. vidageday -= 1
  129. if prezik > 0:
  130. dynamic $prezik
  131. protect = 1
  132. if preziktype = 2:
  133. sexcontra = 4
  134. '<<$boydesc>> takes your sabotaged condom and puts it on, not even noticing anything off.'
  135. else
  136. sexcontra = 3
  137. '<<$boydesc>> takes your condom and puts it on <<$xyr>> cock.'
  138. end
  139. else
  140. sexcontra = 0
  141. end
  142. end
  143. !! this procedure calls 'arousal','vaginal', so the rest of the parameters for arousal should be passed as parameters: call like gs 'dinsex','vaginal_sex',10,'rough','sub'
  144. if $ARGS[0] = 'vaginal_sex':
  145. frost = 0 &! the sex heats
  146. vaginal_tightness = 5 + vgrdif + vltdif - pcs_horny / 10
  147. arousal_modifier = 12 - vaginal_tightness
  148. if pcs_vag > 0:
  149. gs 'arousal','vaginal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
  150. $temp_mens = iif(cycle <= 0,' and a bit of your period leaks from your vagina','')
  151. if vaginal_tightness >= 30:
  152. 'You let out a groan when <<$boydesc>> penetrates you. You are too tight to take <<$xyr>> just yet, <<$xe>> is tearing you apart!'
  153. 'You gasp and scream while <<$xyr>> <<$penis_desc>> painfully stretches and tears your pussy<<$temp_mens>>.'
  154. elseif vaginal_tightness >= 20:
  155. 'You wince when <<$boydesc>> enters you, <<$xyr>> <<$penis_desc>> barely fitting<<$temp_mens>>.'
  156. 'Despite your gasps and moans of pain, <<$boydesc>> enthusiastically pumps your pussy, mistaking the sounds you are making for enjoyment.'
  157. elseif vaginal_tightness >= 12:
  158. 'You bite your lip when <<$boydesc>>''s <<$penis_desc>> penetrates your cunt, stretching you out a bit<<$temp_mens>>.'
  159. 'It takes a moment but the discomfort fades away. Before you know it you are gyrating your hips to the rhythm of <<$boydesc>> pumping your now perfectly snug pussy.'
  160. elseif vaginal_tightness >= 2:
  161. 'You sigh deeply as you savor the feeling of a <<$penis_desc>> slowly entering your moist tunnel.'
  162. 'Gradually getting into rhythm, you grind your ass against <<$boydesc>>''s crotch and moan as <<$xe>> fucks your cunt<<$temp_mens>>.'
  163. elseif vaginal_tightness >= -3:
  164. '<<$boydesc>> thrusts into you<<$temp_mens>>, <<$xyr>> <<$penis_desc>> rubbing against your inner walls, hitting just the right spot.'
  165. 'Your moans are mixed with lewd, wet slapping sounds from <<$xem>> fucking your pussy.'
  166. elseif vaginal_tightness < -3:
  167. 'You feel <<$boydesc>>''s <<$penis_desc>> sliding through your wet folds<<$temp_mens>>. You savor the intense pleasure from the <<$penis_desc>> inside you, your cunt aching to be filled even more.'
  168. end
  169. pcs_horny += arousal_modifier
  170. pcs_mood += arousal_modifier
  171. else
  172. $temp_mens = iif(cycle <= 0,' and a bit of your period leaks from your vagina','')
  173. pcs_horny += arousal_modifier * 2
  174. pcs_mood += arousal_modifier * 2
  175. '<<$boydesc>> pushes <<$xyr>> <<$penis_desc>> into your unexplored pussy gently. It is a bit painful, but as your lust builds up you do not want to wait anymore.'
  176. 'With the next push from <<$boydesc>>, you push your ass towards <<$xyr>> cock. You feel your hymen break and his cock slide into deep inside you, <<$xyr>> head rubbing against your no longer untouched walls as you both moan very loudly.'
  177. gs 'arousal','vaginal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
  178. end
  179. killvar '$temp_mens'
  180. end
  181. ! "deal_with_condom" procedure should be replacement of "sexstart" dynamic procedure
  182. !! gs 'dinsex', 'boy_puts_condom'
  183. if $ARGS[0] = 'boy_puts_condom':
  184. protect = iif(prezik > 0,1,0)
  185. if $ARGS[1] = '':
  186. ! do you have condoms?
  187. if prezik > 0:
  188. if rand(1,prezik) <= badprezik:
  189. badprezik -= 1
  190. noprotect = 1
  191. sexcontra = 7
  192. *p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc)-1)>> takes your '+iif(preziktype = 2,'sabotaged ','')+ 'condom and puts it on <<$xyr>> <<dick>> centimeter dick.'
  193. else
  194. sexcontra = 3
  195. *p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc)-1)>> takes your condom and puts it on <<$xyr>> <<dick>> centimeter dick.'
  196. noprotect = 0
  197. end
  198. prezik -= 1
  199. sexcontra = iif(preziktype = 2,7,sexcontra)
  200. else
  201. sexcontra = 0
  202. !! the hormonal contraception is still taken in account
  203. end
  204. else
  205. $custmsg = $ARGS[1]
  206. *p '<<$custmsg>>'
  207. ! do you have condoms?
  208. if prezik > 0:
  209. if rand(1,prezik) <= badprezik:
  210. badprezik -= 1
  211. noprotect = 1
  212. sexcontra = 7
  213. else
  214. sexcontra = 3
  215. noprotect = 0
  216. end
  217. prezik -= 1
  218. sexcontra = iif(preziktype = 2,7,sexcontra)
  219. else
  220. sexcontra = 0
  221. !! the hormonal contraception is still taken in account
  222. end
  223. end
  224. end &! --- boy_puts_condom ---
  225. !! gs 'dinsex', 'boy_puts_his_condom'[, $boydesc]
  226. if $ARGS[0] = 'boy_puts_his_condom':
  227. $bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
  228. protect = 1
  229. sexcontra = 3
  230. *p '<<ucase(mid($bwa_boy,1,1))>><<mid($bwa_boy,2,len($bwa_boy)-1)>> takes his condom and puts it on <<$xyr>> <<$penis_desc>>.'
  231. !! the hormonal contraception is still taken in account
  232. end &! --- boy_puts_his_condom ---
  233. !! gs 'dinsex', 'pc_puts_condom'
  234. if $ARGS[0] = 'pc_puts_condom':
  235. protect = iif(prezik > 0,1,0)
  236. vidageday -= 1 &! the people guess that you are a bit more older than you are in fact
  237. if $ARGS[1] = '':
  238. ! do you have condoms?
  239. if prezik > 0:
  240. if rand(1,prezik) <= badprezik:
  241. badprezik -= 1
  242. noprotect = 1
  243. sexcontra = 7
  244. *p 'You take your '+iif(preziktype = 2,'sabotaged ','')+ 'condom and put it on <<$xyr>> <<dick>> centimeter dick.'
  245. else
  246. sexcontra = 3
  247. *p 'You take your condom and put it on <<$xyr>> <<dick>> centimeter dick.'
  248. noprotect = 0
  249. end
  250. prezik -= 1
  251. sexcontra = iif(preziktype = 2,7,sexcontra)
  252. else
  253. sexcontra = 0
  254. !! the hormonal contraception is still taken in account
  255. end
  256. else
  257. $custmsg = $ARGS[1]
  258. *p '<<$custmsg>>'
  259. ! do you have condoms?
  260. if prezik > 0:
  261. if rand(1,prezik) <= badprezik:
  262. badprezik -= 1
  263. noprotect = 1
  264. sexcontra = 7
  265. else
  266. sexcontra = 3
  267. noprotect = 0
  268. end
  269. prezik -= 1
  270. sexcontra = iif(preziktype = 2,7,sexcontra)
  271. else
  272. sexcontra = 0
  273. !! the hormonal contraception is still taken in account
  274. end
  275. end
  276. end &! --- pc_puts_condom ---
  277. !! gs 'dinsex','boy_wants_anal' [, $boydesc [, 'lubri']]
  278. if $ARGS[0] = 'boy_wants_anal':
  279. $bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
  280. if $bwa_boy = 'lubri': $bwa_boy = $boydesc
  281. if analplugin = 1:
  282. '<<$bwa_boy>> pulls the plug out of your narrow and tight ass.'
  283. analplugout = 1
  284. end
  285. if $ARGS[2] = 'lubri':
  286. lubri +=1
  287. '<<$bwa_boy>> takes a tube of lubricant, squeezes a little on <<$xyr>> palm and rubs your anus.'
  288. gs 'arousal', 'anal_finger', 1,'lube'
  289. else
  290. if lubri = 0:
  291. 'You have no lube, <<$bwa_boy>> spits on his fingers and using saliva he massages your anus.'
  292. gs 'arousal', 'anal_finger', 1,'lube'
  293. elseif lubri > 0:
  294. if rand(0,2) = 0:
  295. 'You take a tube of lubricant and hand it to <<$bwa_boy>>, he squeezes a little on his palm and rubs your anus.'
  296. elseif rand(0,1) = 0:
  297. 'You squeeze anal lube on your hand and begin to smear it in your ass. Then you give the guy a tube and <<$xe>> starts lucricating <<$xyr>> cock.'
  298. else
  299. 'You squeeze anal lube on your hand and begin to smear it in your ass. Then you give it to <<$xem>> and <<$xe>> smears it on <<$xyr>> dick'
  300. end
  301. gs 'arousal', 'anal_finger', 1,'lube'
  302. end
  303. end
  304. killvar '$bwa_boy'
  305. end &! --- boy_wants_anal ---
  306. !! gs 'dinsex', 'girl_wants_anal'[, $boydesc [, 'lubri']]
  307. if $ARGS[0] = 'girl_wants_anal':
  308. $bwa_girl = iif($ARGS[1] = '',$boydesc,$ARGS[1])
  309. if $bwa_girl = 'lubri': $bwa_girl = $boydesc
  310. if analplugin = 1:
  311. '<<$bwa_girl>> pulls the plug out of your narrow and tight ass.'
  312. analplugin = 0
  313. analplugout = 1
  314. end
  315. if $ARGS[2] = 'lubri':
  316. lubri +=1
  317. '<<$bwa_girl>> takes a tube of lubricant, squeezes a little on her palm and rubs your anus.'
  318. gs 'arousal', 'anal_finger', 1,'lube'
  319. else
  320. if lubri = 0:
  321. 'You have no lube, <<$bwa_girl>> spits on her fingers and using saliva she massages your anus.'
  322. gs 'arousal', 'anal_finger', 1,'lube'
  323. elseif lubri > 0:
  324. 'You take a tube of lubricant and hand it to <<$bwa_girl>>, she squeezes a little on her palm and rubs your anus.'
  325. gs 'arousal', 'anal_finger', 1,'lube'
  326. end
  327. end
  328. killvar '$bwa_girl'
  329. end &! --- girl_wants_anal ---
  330. !! gs 'dinsex', 'after_anal','boy',$boydesc
  331. if $ARGS[0] = 'after_anal':
  332. if analplugout = 1:
  333. if $ARGS[1] = 'boy':
  334. analplugin = 1
  335. '<<$ARGS[2]>> takes your butt plug and he puts it back into your anus. He grins: "Continue your training"'
  336. end
  337. if $ARGS[1] = 'girl':
  338. analplugin = 1
  339. '<<$ARGS[2]>> takes your butt plug and she puts it back into your anus. She grins: "Continue your training"'
  340. end
  341. if $ARGS[1] = 'pc':
  342. analplugin = 1
  343. 'You take your butt plug and put it back into your anus. You grin: "I have to keep my butt trained"'
  344. end
  345. if $ARGS[1] = 'no_plug':
  346. analplugin = 0
  347. 'You take your butt plug and put it into your purse. Your anus has to rest for a while now.'
  348. end
  349. killvar 'analplugout'
  350. end
  351. end &! --- after_anal ---
  352. !! this procedure calls 'cum_call','anus',$boy,1
  353. !! use gs 'dinSex','boy_wants_anal'[,'lubri'] together with gs 'dinsex','analsex'
  354. if $ARGS[0] = 'analsex':
  355. frost = 0 &! the sex heats
  356. '<<$boydesc>> fingers your anus, slowly pushing in before squeezing in a second one .'
  357. if pcs_ass < 10:'When <<$xe>> tries inserting a third finger you groan in pain.'
  358. if pcs_ass >= 10:'<<$boydesc>> inserts a third finger, very slowly thrusting and wiggling to stretch your anus.'
  359. *p '<<$boydesc>> pulls <<$xyr>> fingers out of your ass and you feel <<$xyr>> <<$penis_desc>> pushing against your butthole'
  360. gs 'arousal','anal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
  361. if (agrdif + altdif) >= 20:'You scream and bite your lip from the sharp pain when <<$xe>> penetrates your ass.'
  362. if (agrdif + altdif) < 20:'You moan when <<$xe>> penetrates your ass.'
  363. '<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xyr>> cock in it. Then he starts to slowly move, pumping your anus.'
  364. if (agrdif + altdif) >= 30:
  365. if pcs_makeup > 1:pcs_makeup = 0
  366. 'You cry and bite your lip when the <<$penis_desc>> begins to thrust in and out of your ass. Your anus feels like it is going to tear apart and all you want is for this torture to be over quickly.'
  367. elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
  368. pcs_horny += 10
  369. 'You savor <<$xyr>> cock moving inside you, lightly moaning in rhythm.'
  370. end
  371. 'After some time <<$boydesc>> groans and you feel <<$xyr>> cock pulsing inside you and a pleasant warmth filling your ass.'
  372. gs 'cum_call','anus',$boy,1
  373. end &! --- analsex ---
  374. !! this procedure calls 'cum_call','',$boy,1
  375. !! use gs 'dinsex','sexcum'
  376. if $ARGS[0] = 'sexcum':
  377. frost = 0
  378. if protect ! 1:
  379. !!Unprotected sex
  380. if rand(0, 1) = 0 or pose = 3:
  381. cumvag_text = RAND(0,2)
  382. if cumvag_text = 0: '<<$xyrc>> movements speed up and <<$xe>> drives <<$xyr>> cock balls deep into you. With a beatific smile, <<$xe>> cums deep inside you. You feel a warm jet pour into your womb.'
  383. if cumvag_text = 1: '<<$xec>> does not pull out and instead pulls you tightly against <<$xem>> and your pussy is filled with splashes of semen.'
  384. if cumvag_text = 2: '<<$xec>> groans, and you feel a jet of sperm hit you inside your body.'
  385. gs 'cuminsidereact', $boydesc
  386. gs 'cum_call','',$boy,1
  387. else
  388. !!Out
  389. if pose = 0:
  390. spafinloc = 14
  391. '<<$boydesc>> groans and after pulling out <<$xyr>> dick, <<$xe>> came on your stomach.'
  392. gs 'cum_call','stomach',$boy,1
  393. elseif pose = 1:
  394. '<<$boydesc>> groans and after pulling out <<$xyr>> dick, <<$xe>> came on your ass.'
  395. gs 'cum_call','butt',$boy,1
  396. end
  397. end
  398. else
  399. $tmp = iif(sexcontra = 7,'sabotaged ','')
  400. '<<$boydesc>> groans and you realized that <<$xe>> ejaculated in the <<$tmp>>condom.'
  401. if sexcontra = 4:
  402. 'Pulling out of you and looking at <<$xyr>> dick, <<$boydesc>> said "Hmm, the condom burst."'
  403. elseif sexcontra = 5:
  404. 'Pulling out of you and looking at <<$xyr>> dick, <<$boydesc>> said "Fuck! The condom is missing."'
  405. end
  406. eff_contra = sexcontra
  407. gs 'cum_call', '', $boy, 1, sexcontra
  408. gs 'cuminsidereact',$boydesc, eff_contra
  409. protect = 0
  410. end
  411. pose = 0
  412. killvar 'eff_contra'
  413. end &! --- sexcum ---
  414. if $ARGS[0] = 'bj_random':
  415. if stat['bj'] = 0:'You are anxious about the idea of sucking a cock, having never given a blowjob before. You wonder what it will taste like.'
  416. if stat['bj'] <= 10:
  417. 'Hesitantly bringing your face to <<$boydesc>>''s crotch, you lightly press your <<$liptalk>> against <<$xyr>> dick, tasting the slight saltiness.'
  418. 'Then you start flicking your tongue around the head as you wrap your lips further, stroking the shaft in the meantime.'
  419. elseif stat['bj'] <= 25:
  420. 'You lightly put <<$boydesc>>''s cock into your mouth, rolling your tongue around the head as you rhytmically stroke the shaft.'
  421. 'After a moment you start getting into rhythm, lightly bobbing your head although not sucking his dick much further than the tip.'
  422. elseif stat['bj'] <= 40:
  423. 'You wrap your <<$liptalk>> around the <<$penis_desc>> in front of you. You give <<$boydesc>> a moment to adjust to the warmthness with more than half his cock resting in your mouth'
  424. 'Then you greedily lean forwards, taking <<$xyr>> dick deeper in your mouth and start to bob your head back and forth along <<$xyr>> <<$penis_desc>>'
  425. elseif stat['bj'] <= 60:
  426. 'Imagining how the hard cock in front of your face would feel between your <<$liptalk>>, you just can''t hold back and hungrily take the whole length in your mouth until its tip is resting at the entrance of your throat'
  427. 'You playfully roll your tongue around the cock you are sucking and try to see if you can swallow the whole length down your throat.'
  428. else
  429. 'You lock eyes with <<$boydesc>> and relax your throat as you swallow <<$xyr>> <<$penis_desc>> in one move like the veteran cocksucker you are, milking <<$xyr>> cock with just your throat.'
  430. end
  431. end &! --- bj_random ---
  432. if $ARGS[0] = 'bj_swallow_random':
  433. if stat['bj'] <= 10:
  434. 'Not knowing what else to do, you forcefully gulp down and swallow the sperm filling your mouth. The taste lingers at the back of your throat'
  435. elseif stat['bj'] <= 25:
  436. 'You swallow the viscous semen that is filling your mouth, then lick the softening member clean.'
  437. 'Afterwards you lean forward to plant a tender kiss on the freshly milked cock.'
  438. elseif stat['bj'] <= 40:
  439. 'You swallow the warm cum that fills your mouth and smile as you lick the sticky leftovers with your tongue.'
  440. elseif stat['bj'] <= 60:
  441. 'Your mouth is quickly filled with warm sperm and you smile as you gulp it down and enjoy the now familiar tart taste.'
  442. else
  443. 'You let the warm cum drain down the throat, enjoying the familiar taste as you feel it slowly making its way down.'
  444. end
  445. end &! --- bj_swallow_random ---
  446. !! use gs 'dinsex','enema'
  447. if $ARGS[0] = 'enema':
  448. cumspclnt = 7
  449. gs 'cum_cleanup'
  450. minut += 5
  451. klismaday = daystart
  452. klismaday1= 1
  453. if $ARGS[1]='':
  454. *p 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
  455. elseif $ARGS[1]!' ':
  456. *p '<<$ARGS[1]>>'
  457. end
  458. end &! --- enema ---
  459. --- dinSex ---------------------------------