dinSex.qsrc 18 KB

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