Cum_Manage.qsrc 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613
  1. # Cum_Manage
  2. !!
  3. !! THIS IS A CORE FILE TO GAME MECHANICS. Please edit CAREFULLY, and leave as many comments as possible!!
  4. !!
  5. !! The comments in this file serve as tutorial to managing cum/sperm during scene writing and game-play. Please read them.
  6. !!
  7. !! spafinloc and cum array naming takes precident over other naming schemes. Always import and export variables by their cum array names
  8. !!
  9. !!------------------------------------------------------------------------------------------------------------
  10. !!
  11. !! Cum Array indices:
  12. !!
  13. !! cumarrnam : Sperm Owner
  14. !! cumarrppt : Sperm Potential Potency (max sperm delivery)
  15. !! cumarrcpt : Sperm Current Potency (current amount of sperm)
  16. !! cumarrdel : Sperm "Delivery" (method of *VAGINAL ONLY* acquisition)
  17. !! cumarrcon : Contraception typ used
  18. !! cumarrage : Sperm age in hours
  19. !! cumarrkno : Did you know/realize who did it?
  20. !! cumarrcnt : Unique identifier of the exact which time the MC has had this sperm incident occur.
  21. !!
  22. !!
  23. !!
  24. !! Spatter Array indices:
  25. !!
  26. !! sparrloc : Location of the sperm, as per cumarrdel
  27. !! sparrnam : Spatter Owner
  28. !! sparrppt : Spatter Potential Potency (Used to increase potency if you don't clean yourself out)
  29. !! sparridt : Did you know/realize who did it?
  30. !! sparrvol : Volume of the spatter. 40 is average.
  31. !! sparrslc : Spread status of the spatter. High volume can spread the contaminant from it's starting place.
  32. !! sparrcnt : Unique identifier of the exact which time the MC has had this spatter incident occur.
  33. !!
  34. !!
  35. !!
  36. !! Values of 'cumarrdel' as defined by the cum_arr:
  37. !!
  38. !! cumarrdel = 0 : 'Vaginal intercourse'
  39. !! cumarrdel = 1 : 'From spatter on labia'
  40. !! cumarrdel = 2 : 'From the anal area'
  41. !! cumarrdel = 3 : 'From sperm on clothing'
  42. !! cumarrdel = 4 : 'From sperm on fingers'
  43. !! cumarrdel = 5 : 'From sperm on wipes'
  44. !! cumarrdel = 6 : 'Unknown'
  45. !!
  46. !!
  47. !!
  48. !! Values of 'cumarrcon' as defined by the cum_arr:
  49. !!
  50. !! cumarrcon = 0: 'No contraception used'
  51. !! cumarrcon = 1: 'You lied about being on the pill'
  52. !! cumarrcon = 2: 'You were on the pill'
  53. !! cumarrcon = 3: 'You used a condom'
  54. !! cumarrcon = 4: 'The condom broke'
  55. !! cumarrcon = 5: 'The condom slipped off inside you'
  56. !! cumarrcon = 6: 'The condom was sabotaged by someone else'
  57. !! cumarrcon = 7: 'You sabotaged the condom'
  58. !! cumarrcon = 8: 'Precum had sperm in it'
  59. !! cumarrcon = 9: 'You believe are sterile'
  60. !!
  61. !!
  62. !!
  63. !! Values of 'cumarrkno' as defined by the cum_arr:
  64. !!
  65. !! cumarrkno = -2 : 'You were unaware there was sperm in you'
  66. !! cumarrkno = -1 : 'You do not think that any sperm has gotten into you'
  67. !! cumarrkno = 0 : 'You know somebody got sperm in you, but you don''t know that person'
  68. !! cumarrkno = 1 : 'You know who got sperm in you'
  69. !!
  70. !! Setting for no STD checks
  71. !!
  72. !! cumnostd = 1 : No risk of STD, resets at end of file so must be used for all related cum_management calls
  73. !!
  74. !! Locations to be defined by 'spafinloc'
  75. !!
  76. !! 0 = 'In your Vagina'
  77. !! 1 = 'On your labia'
  78. !! 2 = 'On your panties over your vagina'
  79. !! 3 = 'In your anus'
  80. !! 4 = 'On your butt'
  81. !! 5 = 'On your panties over your butt'
  82. !! 6 = 'On your clothes in your groin area'
  83. !! 7 = 'On your clothes'
  84. !! 8 = 'On your back'
  85. !! 9 = 'On your legs'
  86. !! 10 = 'On your arms'
  87. !! 11 = 'On your face'
  88. !! 12 = 'Inside your mouth'
  89. !! 13 = 'On your hands'
  90. !! 14 = 'On your stomach'
  91. !! 15 = 'On your breasts'
  92. !! 16 = 'In your hair'
  93. !! 17 = 'In a condom in your vagina'
  94. !!
  95. !!------------------------------------------------------------------------------------------------------------
  96. if $ARGS[0] = '':
  97. !!{ Debug information, comment out in release versions. }
  98. !! '<br><b><font color="red">Cum_Manage</font> called with: spafinloc=<<spafinloc>> cumarrkno=<<cumarrkno>> cummarrcon=<<cumarrcon>> cumarrdel=<<cumarrdel>></b>'
  99. !!{ We count every time somebody cum on or inside the MC. It is used for spatter and cum matching in femcyc}
  100. stat['cum_count'] += 1
  101. !!{ Here we define our important variables.}
  102. dick = npc_dick[$boy]
  103. if sexvolume <= 0: sexvolume = 40
  104. if sexspecpot = 0: sexspecpot = npc_spermpot[$boy]
  105. if sexspecpot = 0: sexspecpot = sexvolume * rand(250, 300)
  106. if sexspecpot < 0: sexspecpot = 0
  107. if vibratorIN = 1 and spafinloc = 0 and replace_vib = 0: vibratorIN = 0
  108. if analplugIN = 1 and spafinloc = 3 and replace_analplug = 0: analplugIN = 0
  109. !!{ Set the cum array temp to the current size of the cum array to add a new entry to the end of file. Then checks to see if you are on the pill. If you are and there is no contraception used, it flags this as a "done with pill" act, which means a pregnancy will be a pill failure.}
  110. cumarrtemp = arrsize('$cumarrnam')
  111. if sexcontra = 0 and pillcon2 > 1000: sexcontra = 2
  112. !!{Check for previous deposit, and if it was by the same guy and precum, it sets cumarrtemp back by one}
  113. !! if $cumarrnam[cumarrtemp-1] = $boy and cumarrkno[cumarrtemp-1] = -1:cumarrtemp -= 1 & sexspecpot = cumarrppt[cumarrtemp]
  114. if cumprecheck = 1 and cumnostd = 0:
  115. cumarrkno[cumarrtemp] = -1
  116. gs 'dinSex', 'std_trigger'
  117. elseif sexunaware > 0:
  118. cumarrkno[cumarrtemp] = -2
  119. elseif sexpartkno = 1:
  120. cumarrkno[cumarrtemp] = 1
  121. else
  122. cumarrkno[cumarrtemp] = 0
  123. end
  124. !!{ If a condom slipped in the vagina, it will pushed deeper inside the vagina during vaginal sex.}
  125. if spafinloc <= 0 and cumcondslip > 0:
  126. if dick > cumcondslip_deep:
  127. cumcondslip_deep = dick + rand (0,2)
  128. else
  129. cumcondslip_deep += rand (0,2)
  130. end
  131. end
  132. sparrtemp = arrsize('sparrvol')
  133. !!{ Check to see if this is flagged as a preejaculate emmission. All vaginal penetrations that flag this as cumprecheck contain preejaculate. Guidelines for calling it: If your boy is likely to have masterbated, had sex, or otherwise encouraged semen to leak out of their urethra in the last 48 hours, they probably have some fertile preejaculate. If in doubt, let it leak. The chances of pregnancy from it are low, and the MC should have been wearing protection.}
  134. if cumprecheck ! 1:
  135. !!{ Here it checks for anal deposit and increments anal creampie variable.}
  136. if spafinloc = 3:
  137. if sexunaware = 1 or sexcontra = 6:
  138. pcs_acp_unknown += 1
  139. else
  140. pcs_acp_known += 1
  141. end
  142. end
  143. !!{ Here it checks for vaginal deposit.}
  144. if spafinloc <= 0:
  145. !!{ Next it sets the variables in the array. The cumming boys name is first and cum age to 0.
  146. !! The cum delivery location is set to vaginally, and we check to see if this is an unknowing sex act.
  147. !! If it is, it makes it so the MC doesn''t know who did it.
  148. !! If the boy has a custom specified potency 'sexspecpot', it flags the potency. Otherwise it sets it to the default.
  149. !! Default potency potential is generated from a random multiplier of sexvolume.
  150. !! Sexvolume defaults to 40 (4 mL), but may be overwritten with 'sexvolume'.}
  151. $cumarrnam[cumarrtemp] = $boy
  152. cumarrage[cumarrtemp] = 0
  153. cumarrdel[cumarrtemp] = 0
  154. cumarrcnt[cumarrtemp] = stat['cum_count']
  155. cumarrppt[cumarrtemp] = sexspecpot
  156. !!{ Now it sets up the splatter and actual internal cum.
  157. !! First it sets the array to the spatter end of file. Then it checks for riding bareback.
  158. !! If theres a condom, it gives a chance for the condom to fail in general, slip off and remain in the vagina, or break.}
  159. if sexcontra > 2:
  160. if noprotect = 1: noprotect = 0 & sexcontra = 4
  161. if sexcontra = 3:
  162. temprand = rand(0,1000)
  163. dick_wid = 3
  164. if $dick_girth = 'skinny': dick_wid = 2
  165. if $dick_girth = 'slim': dick_wid = 3
  166. if $dick_girth = 'well proportioned': dick_wid = 3
  167. if $dick_girth = 'thicker than average': dick_wid = 4
  168. if $dick_girth = 'thick': dick_wid = 4
  169. if $dick_girth = 'massive': dick_wid = 5
  170. if $dick_girth = 'monstrous': dick_wid = 6
  171. break_thresh = dick_wid * 2
  172. break_thresh -= pcs_vag / 4
  173. break_thresh += dick / 4
  174. slip_thresh = 36 - (dick_wid * 2)
  175. slip_thresh -= (pcs_vag / 2)
  176. slip_thresh -= dick / 2
  177. if break_thresh < 1: break_thresh = 1
  178. if slip_thresh < 4: slip_thresh = 4
  179. break_thresh += slip_thresh
  180. if temprand = 0:
  181. cumarrcpt[cumarrtemp] += cumarrppt[cumarrtemp]/4
  182. cumarrcon[cumarrtemp] = 3
  183. elseif temprand <= slip_thresh:
  184. cumarrcpt[cumarrtemp] += cumarrppt[cumarrtemp]/200
  185. cumarrcon[cumarrtemp] = 5
  186. cumcondslip = 1
  187. cumcondsanb = cumarrtemp
  188. sexcontra = 5
  189. sparrage[sparrtemp] = 0
  190. sparrloc[sparrtemp] = 17
  191. $sparrnam[sparrtemp] = $boy
  192. sparrcnt[sparrtemp] = stat['cum_count']
  193. sparrppt[sparrtemp] = sexspecpot
  194. sparrvol[sparrtemp] += sexvolume
  195. cumsumbod += sexvolume
  196. cumsumvag += sexvolume
  197. sparridt[sparrtemp] = cumarrkno[cumarrtemp]
  198. sparrslc[sparrtemp] = 0
  199. cumcondslip += 1
  200. if cumcondslip_deep <= 0:cumcondslip_deep = rand(1, dick)
  201. if sparridt[sparrtemp] >= 0:cumcondslip_aware = 1
  202. dynamic $ferteggfather
  203. elseif temprand <= break_thresh:
  204. cumarrcpt[cumarrtemp] += cumarrppt[cumarrtemp]/2
  205. cumarrcon[cumarrtemp] = 4
  206. sexcontra = 4
  207. sparrage[sparrtemp] = 0
  208. sparrloc[sparrtemp] = 0
  209. $sparrnam[sparrtemp] = $boy
  210. sparrcnt[sparrtemp] = stat['cum_count']
  211. sparrppt[sparrtemp] = sexspecpot
  212. sparrvol[sparrtemp] += sexvolume
  213. cumsumbod += sexvolume
  214. cumsumvag += sexvolume
  215. sparridt[sparrtemp] = cumarrkno[cumarrtemp]
  216. sparrslc[sparrtemp] = 0
  217. dynamic $ferteggfather
  218. else
  219. cumarrcpt[cumarrtemp] += 5
  220. cumarrcon[cumarrtemp] = 3
  221. end
  222. !!{ Next it checks to see if the event is calling specifically for a burst or slipped off condom.
  223. !! It treats them the same as if the condom above had a failure.}
  224. elseif sexcontra = 4:
  225. cumarrcpt[cumarrtemp] += cumarrppt[cumarrtemp]/2
  226. cumarrcon[cumarrtemp] = 4
  227. sparrage[sparrtemp] = 0
  228. sparrloc[sparrtemp] = 0
  229. $sparrnam[sparrtemp] = $boy
  230. sparrcnt[sparrtemp] = stat['cum_count']
  231. sparrppt[sparrtemp] = sexspecpot
  232. sparrvol[sparrtemp] += sexvolume
  233. cumsumbod += sexvolume
  234. cumsumvag += sexvolume
  235. sparridt[sparrtemp] = cumarrkno[cumarrtemp]
  236. sparrslc[sparrtemp] = 0
  237. dynamic $ferteggfather
  238. elseif sexcontra = 5:
  239. cumarrcpt[cumarrtemp] += cumarrppt[cumarrtemp]/200
  240. cumarrcon[cumarrtemp] = 5
  241. cumcondslip = 1
  242. cumcondsanb = cumarrtemp
  243. sparrage[sparrtemp] = 0
  244. sparrloc[sparrtemp] = 17
  245. $sparrnam[sparrtemp] = $boy
  246. sparrcnt[sparrtemp] = stat['cum_count']
  247. sparrppt[sparrtemp] = sexspecpot
  248. sparrvol[sparrtemp] += sexvolume
  249. cumsumbod += sexvolume
  250. cumsumvag += sexvolume
  251. sparridt[sparrtemp] = cumarrkno[cumarrtemp]
  252. sparrslc[sparrtemp] = 0
  253. cumcondslip += 1
  254. if cumcondslip_deep <= 0:cumcondslip_deep = rand(1, dick)
  255. if sparridt[sparrtemp] >= 0:cumcondslip_aware = 1
  256. dynamic $ferteggfather
  257. !!{ Next, check for sabotaged condoms. First sabotaged by you, then sabotaged by the guy.
  258. !! If they were sabotaged, it acts similar to a condom failure, but worse.}
  259. elseif sexcontra = 6:
  260. cumarrcpt[cumarrtemp] += cumarrppt[cumarrtemp]/3
  261. cumarrcon[cumarrtemp] = 6
  262. elseif sexcontra = 7:
  263. cumarrcpt[cumarrtemp] += cumarrppt[cumarrtemp]/3
  264. cumarrcon[cumarrtemp] = 7
  265. dynamic $ferteggfather
  266. end
  267. !!{ If you have no protection, you get a nice, full load of semen.}
  268. else
  269. sparrage[sparrtemp] = 0
  270. sparrloc[sparrtemp] = 0
  271. $sparrnam[sparrtemp] = $boy
  272. sparrcnt[sparrtemp] = stat['cum_count']
  273. sparrppt[sparrtemp] = sexspecpot
  274. sparrvol[sparrtemp] += sexvolume
  275. cumsumbod += sexvolume
  276. cumsumvag += sexvolume
  277. sparridt[sparrtemp] = cumarrkno[cumarrtemp]
  278. sparrslc[sparrtemp] = 0
  279. cumarrcpt[cumarrtemp] += cumarrppt[cumarrtemp]/5*4
  280. cumarrcon[cumarrtemp] = sexcontra
  281. dynamic $ferteggfather
  282. end
  283. !! creampie vaginal statistics:
  284. if spafinloc = 0:
  285. !!STD checks
  286. if cumnostd = 0: gs 'dinSex', 'std_trigger'
  287. !! safe creampie (if cycle > 3 or on pill or succubus):
  288. if cycle > 3 or pillcon2 > 1000 or succubusflag = 1:
  289. if sexunaware = 1 or sexcontra = 6:
  290. pcs_cp_safe_unknown += 1
  291. else
  292. pcs_cp_safe_known += 1
  293. end
  294. !! pretty safe creampie (if cycle = 3 or cycle = 0):
  295. elseif cycle = 0 or cycle = 3:
  296. if sexunaware = 1 or sexcontra = 6:
  297. pcs_cp_notsafe_unknown += 1
  298. else
  299. pcs_cp_notsafe_known += 1
  300. end
  301. !! risky creampie (not on pill, fertile part of the cycle):
  302. else
  303. if sexunaware = 1 or sexcontra = 6:
  304. pcs_cp_risky_unknown += 1
  305. else
  306. pcs_cp_risky_known += 1
  307. end
  308. end
  309. end
  310. !!{ If you arent getting it in the vagina, and the boy isnt pumping it into a condom, a spatter is made and applied.
  311. !! If you arent wearing any panties and it was called to hit your panties, it goes directly to your groin.
  312. !! If you are naked and it calls for a clothing strike, it will go to your body instead.}
  313. elseif spafinloc > 0 and sexcontra < 3:
  314. sparrage[sparrtemp] = 0
  315. sparrcnt[sparrtemp] = stat['cum_count']
  316. if $pantyworntype = 'none':
  317. if spafinloc = 2:
  318. spafinloc = 1
  319. elseif spafinloc = 5:
  320. spafinloc = 4
  321. end
  322. end
  323. if $clothingworntype = 'nude':
  324. if spafinloc = 2:
  325. spafinloc = 1
  326. elseif spafinloc = 5:
  327. spafinloc = 4
  328. elseif spafinloc = 6:
  329. if rand(0,1) = 0:
  330. spafinloc = 1
  331. else
  332. spafinloc = 4
  333. end
  334. elseif spafinloc = 7:
  335. if rand(0,1) = 0:
  336. spafinloc = 14
  337. else
  338. spafinloc = 15
  339. end
  340. end
  341. end
  342. sparrloc[sparrtemp] = spafinloc
  343. if spafinloc = 12 and pcs_breath = 1: pcs_breath = 0
  344. if spafinloc = 12 and swallow >= 10 and rand(0,3) = 0: pcs_energy += 2 & pcs_hydra += 1
  345. $sparrnam[sparrtemp] = $boy
  346. sparrppt[sparrtemp] = sexspecpot
  347. sparrvol[sparrtemp] += sexvolume
  348. cumsumbod += sexvolume
  349. if spafinloc = 3:
  350. cumsumass += sexvolume
  351. end
  352. sparridt[sparrtemp] = cumarrkno[cumarrtemp]
  353. sparrslc[sparrtemp] = 0
  354. end
  355. if cumarrppt[cumarrtemp] < cumarrcpt[cumarrtemp]:cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]
  356. sexpartkno = 0
  357. sexunaware = 0
  358. !!{ And this is the pre ejaculate release talked about above.}
  359. elseif sexcontra < 3 and spafinloc = 0:
  360. $cumarrnam[cumarrtemp] = $boy
  361. cumarrcnt[cumarrtemp] = stat['cum_count']
  362. cumarrppt[cumarrtemp] = sexspecpot
  363. cumarrage[cumarrtemp] = 0
  364. cumarrdel[cumarrtemp] = 0
  365. cumarrcon[cumarrtemp] = sexcontra
  366. cumarrcpt[cumarrtemp] += cumarrppt[cumarrtemp]/12
  367. if cumarrppt[cumarrtemp] < cumarrcpt[cumarrtemp]:cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]
  368. end
  369. !!STD from anal check
  370. if spafinloc = 3 and cumnostd = 0: gs 'dinSex', 'std_trigger'
  371. !!STD from oral check
  372. if spafinloc = 12 and cumnostd = 0: gs 'dinSex', 'std_trigger_oral'
  373. cumprecheck = 0
  374. spafinloc = 0
  375. sexvolume = 0
  376. dynamic $din_Update_Condom_Counts
  377. if cumsumass >= 60:
  378. arrmodtmp = arrpos('sparrloc',3)
  379. if sparrslc[arrmodtmp] <= 0: sparrslc[arrmodtmp] += 1
  380. end
  381. if cumsumvag >= 60:
  382. arrmodtmp = arrpos('sparrloc',0)
  383. if sparrslc[arrmodtmp] <= 0: sparrslc[arrmodtmp] += 1
  384. end
  385. killvar 'sexspecpot'
  386. killvar 'cumnostd'
  387. end
  388. if $ARGS[0] = 'cumgather':
  389. cloc = ARGS[1]
  390. i = arrpos('sparrloc', cloc)
  391. if i ! -1 and i < arrsize('sparrloc'):
  392. if cloc = 0:
  393. $part = 'pussy'
  394. elseif cloc = 1:
  395. $part = 'pussylips'
  396. elseif cloc = 2 or cloc = 5:
  397. $part = 'your panties'
  398. elseif cloc = 3:
  399. $part = 'anus'
  400. elseif cloc = 4:
  401. $part = 'buttocks'
  402. elseif cloc = 6 or cloc = 7:
  403. $part = 'clothes'
  404. elseif cloc = 8:
  405. $part = 'back'
  406. elseif cloc = 9:
  407. $part = 'legs'
  408. elseif cloc = 10:
  409. $part = 'arms'
  410. elseif cloc = 11:
  411. $part = 'face'
  412. elseif cloc = 14:
  413. $part = 'stomach'
  414. elseif cloc = 15:
  415. $part = 'breasts'
  416. elseif cloc = 16:
  417. $part = 'hair'
  418. else
  419. $part = 'unknown'
  420. end
  421. if salfetka > 0:
  422. salfetka -= 1
  423. minut += 5
  424. 'You use a wipe to clean the sperm from your <<$part>>.'
  425. gs 'cum_cleanup', 'cleanloc', cloc
  426. gs 'stat'
  427. end
  428. end
  429. end
  430. if $ARGS[0] = 'cumeater_icon':
  431. *nl
  432. j = 0
  433. :cumeater_icon_jump
  434. if cumloc[j] > 0: gs 'cum_manage', 'cumeater', j
  435. if j < 17: j += 1 & jump 'cumeater_icon_jump'
  436. end
  437. if $ARGS[0] = 'cumeater':
  438. cloc = ARGS[1]
  439. i = arrpos('sparrloc', cloc)
  440. if i ! -1 and i < arrsize('sparrloc'):
  441. cumloc[12] = 1
  442. pcs_breath = 0
  443. $part = ''
  444. if cloc = 13:
  445. gs 'cum_cleanup', 'cleanloc', cloc
  446. 'You carefully lick the sperm residue from both hands, enjoying the tart taste of semen.'
  447. else
  448. if cloc = 0:
  449. $part = 'pussy'
  450. elseif cloc = 1:
  451. $part = 'pussylips'
  452. elseif cloc = 2 or cloc = 5:
  453. $part = 'your panties'
  454. gs 'cum_cleanup', 'cleanloc', 2
  455. gs 'cum_cleanup', 'cleanloc', 5
  456. elseif cloc = 3:
  457. $part = 'anus'
  458. elseif cloc = 4:
  459. $part = 'buttocks'
  460. elseif cloc = 6 or cloc = 7:
  461. $part = 'clothes'
  462. gs 'cum_cleanup', 'cleanloc', 6
  463. gs 'cum_cleanup', 'cleanloc', 7
  464. elseif cloc = 8:
  465. $part = 'back'
  466. elseif cloc = 9:
  467. $part = 'legs'
  468. elseif cloc = 10:
  469. $part = 'arms'
  470. elseif cloc = 11:
  471. $part = 'face'
  472. elseif cloc = 14:
  473. $part = 'stomach'
  474. elseif cloc = 15:
  475. $part = 'breasts'
  476. elseif cloc = 16:
  477. $part = 'hair'
  478. else
  479. $part = 'unknown'
  480. end
  481. if rand(0, 1) = 0:
  482. 'You collect a handful of sperm from your <<$part>> in your hand and lick it all up, enjoying the tart taste of semen.'
  483. else
  484. 'You collect the sperm from your <<$part>> with your fingers and lick them, enjoying the tart taste of semen.'
  485. end
  486. gs 'cum_cleanup', 'cleanloc', cloc
  487. end
  488. minut += 2
  489. gs 'stat'
  490. end
  491. end
  492. --- Cum_Manage ---------------------------------