Cum_Manage 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420
  1. # Cum_Manage
  2. !{ Locations to be defined by 'spafinloc'
  3. 0 = 'In your Vagina'
  4. 1 = 'On your labia'
  5. 2 = 'On your panties over your vagina'
  6. 3 = 'In your anus'
  7. 4 = 'On your butt'
  8. 5 = 'On your panties over your butt'
  9. 6 = 'On your clothes in your groin area'
  10. 7 = 'On your clothes'
  11. 8 = 'On your back'
  12. 9 = 'On your legs'
  13. 10 = 'On your arms'
  14. 11 = 'On your face'
  15. 12 = 'Inside your mouth'
  16. 13 = 'On your hands'
  17. 14 = 'On your stomach'
  18. 15 = 'On your breasts'
  19. 16 = 'In your hair'
  20. 17 = 'In a condom in your vagina'}
  21. if $ARGS[0] = '':
  22. !{Sets 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.}
  23. cumarrtemp = arrsize('$cumarrnam')
  24. if sexcontra = 0 and pillcon > 0: sexcontra = 2
  25. if vibratorIN = 1 and spafinloc = 0: vibratorIN = 0
  26. if analplugIN = 1 and spafinloc = 3: analplugIN = 0
  27. !{It checks 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.}
  28. if cumprecheck ! 1:
  29. !{Here it checks for vaginal deposit. If it is, it sees if theres a deposit made by someone named the same. If so, it checks if this new act is protected. If it isnt, it overwrites the old deposit.}
  30. if spafinloc <= 0:
  31. arrmodtmp = arrpos('$cumarrnam',$boy)
  32. if arrmodtmp >= 0:
  33. if $cumarrnam[arrmodtmp] = $boy and cumarrdel[arrmodtmp] = 0 and sexcontra < 3: cumarrtemp = arrmodtmp
  34. end
  35. !{Next it sets the variables in the array. The cumming boys name first, sets the cum age to 0, then the cum delivery location to vaginally, then sees if its a unknowing sex act. If it is, it makes it so the MC doesnt know who did it. Then if the boy has a custom specified potency, it flags the potency. Otherwise it sets it to the default.}
  36. $cumarrnam[cumarrtemp] = $boy
  37. cumarrage[cumarrtemp] = 0
  38. cumarrdel[cumarrtemp] = 0
  39. if sexunaware > 0 or sexpartkno = 0:
  40. cumarrkno[cumarrtemp] = 0
  41. else
  42. cumarrkno[cumarrtemp] = 1
  43. end
  44. if sexspecpot ! 0:
  45. cumarrppt[cumarrtemp] = sexspecpot
  46. else
  47. cumarrppt[cumarrtemp] = 10000
  48. end
  49. !{Now it sets up the splatter and actual internal cum. First it sets the array to the spatter end of file. Then it checks for riding bareback. If theres a condom, it gives a chance for the condom to fail in general, slip off and remain in the vagina, or break. The cumarrcpt, or current internal potency of the sperm, is set dependent on what happened. the contraception type is also set. For bursting or slippage, a spatter is created.}
  50. cumarrtemp2 = arrsize('sparrvol')
  51. arrmodtmp = arrsize('sparrvol')
  52. :arrmodloop1
  53. if sparrloc[arrmodtmp] = spafinloc and $sparrnam[arrmodtmp] = $boy and sexcontra < 3:
  54. cumarrtemp2 = arrmodtmp
  55. else
  56. arrmodtmp -= 1
  57. if arrmodtmp >= 0: jump 'arrmodloop1'
  58. end
  59. if sparrppt[0] = 0 and cumarrtemp2 = 1: cumarrtemp2 = 0
  60. if sexcontra > 2:
  61. if sexcontra = 3:
  62. temprand = rand(0,1000)
  63. if temprand = 0:
  64. cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/4
  65. cumarrcon[cumarrtemp] = 3
  66. elseif temprand < 4:
  67. cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/200
  68. cumarrcon[cumarrtemp] = 5
  69. cumcondslip = 1
  70. cumcondsanb = cumarrtemp
  71. sexcontra = 5
  72. sparrage[cumarrtemp2] = 0
  73. sparrloc[cumarrtemp2] = 17
  74. $sparrnam[cumarrtemp2] = $boy
  75. if sexspecpot ! 0:
  76. sparrppt[cumarrtemp2] = sexspecpot
  77. else
  78. sparrppt[cumarrtemp2] = 10000
  79. end
  80. sparrvol[cumarrtemp2] += sexvolume
  81. cumsumbod += sexvolume
  82. cumsumvag += sexvolume
  83. if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
  84. sparridt[cumarrtemp2] = sexpartkno
  85. sparrslc[cumarrtemp2] = 0
  86. elseif temprand < 10:
  87. cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/2
  88. cumarrcon[cumarrtemp] = 4
  89. sexcontra = 4
  90. sparrage[cumarrtemp2] = 0
  91. sparrloc[cumarrtemp2] = 0
  92. $sparrnam[cumarrtemp2] = $boy
  93. if sexspecpot ! 0:
  94. sparrppt[cumarrtemp2] = sexspecpot
  95. else
  96. sparrppt[cumarrtemp2] = 10000
  97. end
  98. sparrvol[cumarrtemp2] += sexvolume
  99. cumsumbod += sexvolume
  100. cumsumvag += sexvolume
  101. if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
  102. sparridt[cumarrtemp2] = sexpartkno
  103. sparrslc[cumarrtemp2] = 0
  104. else
  105. cumarrcpt[cumarrtemp] = 5
  106. cumarrcon[cumarrtemp] = 3
  107. end
  108. !{Next it checks to see if the event is calling specifically for a burst or slipped off condom. It treats them the same as if the condom above had a failure.}
  109. elseif sexcontra = 4:
  110. cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/2
  111. cumarrcon[cumarrtemp] = 4
  112. sparrage[cumarrtemp2] = 0
  113. sparrloc[cumarrtemp2] = 0
  114. $sparrnam[cumarrtemp2] = $boy
  115. if sexspecpot ! 0:
  116. sparrppt[cumarrtemp2] = sexspecpot
  117. else
  118. sparrppt[cumarrtemp2] = 10000
  119. end
  120. sparrvol[cumarrtemp2] += sexvolume
  121. cumsumbod += sexvolume
  122. cumsumvag += sexvolume
  123. if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
  124. sparridt[cumarrtemp2] = sexpartkno
  125. sparrslc[cumarrtemp2] = 0
  126. elseif sexcontra = 5:
  127. cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/200
  128. cumarrcon[cumarrtemp] = 5
  129. cumcondslip = 1
  130. cumcondsanb = cumarrtemp
  131. sparrage[cumarrtemp2] = 0
  132. sparrloc[cumarrtemp2] = 17
  133. $sparrnam[cumarrtemp2] = $boy
  134. if sexspecpot ! 0:
  135. sparrppt[cumarrtemp2] = sexspecpot
  136. else
  137. sparrppt[cumarrtemp2] = 10000
  138. end
  139. sparrvol[cumarrtemp2] += sexvolume
  140. cumsumbod += sexvolume
  141. cumsumvag += sexvolume
  142. if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
  143. sparridt[cumarrtemp2] = sexpartkno
  144. sparrslc[cumarrtemp2] = 0
  145. !{!Next it checks for sabotaged condoms. First sabotaged by you, then sabotaged by the guy. If they were sabotaged, it acts similar to a condom failure, but worse.}
  146. elseif sexcontra = 6:
  147. cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/3
  148. cumarrcon[cumarrtemp] = 6
  149. elseif sexcontra = 7:
  150. cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/3
  151. cumarrcon[cumarrtemp] = 7
  152. end
  153. !{If you have no protection, you get a nice full load of semen.}
  154. else
  155. sparrage[cumarrtemp2] = 0
  156. sparrloc[cumarrtemp2] = 0
  157. $sparrnam[cumarrtemp2] = $boy
  158. if sexspecpot ! 0:
  159. sparrppt[cumarrtemp2] = sexspecpot
  160. else
  161. sparrppt[cumarrtemp2] = 10000
  162. end
  163. sparrvol[cumarrtemp2] += sexvolume
  164. cumsumbod += sexvolume
  165. cumsumvag += sexvolume
  166. if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
  167. sparridt[cumarrtemp2] = sexpartkno
  168. sparrslc[cumarrtemp2] = 0
  169. cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/5*4
  170. cumarrcon[cumarrtemp] = sexcontra
  171. end
  172. !{If you arent getting it in the vagina, and the boy isnt pumping it into a condom, a spatter is made and applied. If you arent wearing any panties and it was called to hit your panties, it goes directly to your groin. If you are naked and it calls for a clothing strike, it will go to your body instead.}
  173. elseif spafinloc > 0 and sexcontra < 3:
  174. cumarrtemp2 = arrsize('sparrvol')
  175. arrmodtmp = arrsize('sparrvol')
  176. :arrmodloop2
  177. if sparrloc[arrmodtmp] = spafinloc and $sparrnam[arrmodtmp] = $boy and sexcontra < 3:
  178. cumarrtemp2 = arrmodtmp
  179. else
  180. arrmodtmp -= 1
  181. if arrmodtmp >= 0: jump 'arrmodloop2'
  182. end
  183. sparrage[cumarrtemp2] = 0
  184. if tanga = 0:
  185. if spafinloc = 2:
  186. spafinloc = 1
  187. elseif spafinloc = 5:
  188. spafinloc = 4
  189. end
  190. end
  191. if $clothingworntype = 'nude':
  192. if spafinloc = 2:
  193. spafinloc = 1
  194. elseif spafinloc = 5:
  195. spafinloc = 4
  196. elseif spafinloc = 6:
  197. if rand(0,1) = 0:
  198. spafinloc = 1
  199. else
  200. spafinloc = 4
  201. end
  202. elseif spafinloc = 7:
  203. if rand(0,1) = 0:
  204. spafinloc = 14
  205. else
  206. spafinloc = 15
  207. end
  208. end
  209. end
  210. sparrloc[cumarrtemp2] = spafinloc
  211. if spafinloc = 12 and swallow >= 10 and rand(0,3) = 0: energy += 2
  212. $sparrnam[cumarrtemp2] = $boy
  213. if sexspecpot ! 0:
  214. sparrppt[cumarrtemp2] = sexspecpot
  215. else
  216. sparrppt[cumarrtemp2] = 10000
  217. end
  218. sparrvol[cumarrtemp2] += sexvolume
  219. cumsumbod += sexvolume
  220. if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
  221. if spafinloc = 3:
  222. cumsumass += sexvolume
  223. if sexvolume <= 0: cumsumass += 40
  224. end
  225. sparridt[cumarrtemp2] = sexpartkno
  226. sparrslc[cumarrtemp2] = 0
  227. end
  228. sexpartkno = 0
  229. sexunaware = 0
  230. sexspecpot = 0
  231. !{And this is the pre ejaculate release talked about above.}
  232. elseif sexcontra < 3 and spafinloc = 0:
  233. arrmodtmp = arrpos('$cumarrnam',$boy)
  234. if arrmodtmp >= 0:
  235. if cumarrdel[arrmodtmp] = 0 and cumarrcpt[arrmodtmp] <= ((cumarrppt[arrmodtmp]/12) + 1) and sexcontra < 3: cumarrtemp = arrmodtmp
  236. end
  237. $cumarrnam[cumarrtemp] = $boy
  238. cumarrage[cumarrtemp] = 0
  239. cumarrdel[cumarrtemp] = 0
  240. cumarrkno[cumarrtemp] = 0
  241. if sexspecpot ! 0:
  242. cumarrppt[cumarrtemp] = sexspecpot
  243. else
  244. cumarrppt[cumarrtemp] = 10000
  245. end
  246. cumarrcon[cumarrtemp] = sexcontra
  247. cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/12
  248. end
  249. sexspecpot = 0
  250. cumprecheck = 0
  251. spafinloc = 0
  252. sexvolume = 0
  253. arrmodtmp = 0
  254. dynamic $din_Update_Condom_Counts
  255. if cumsumass >= 60:
  256. arrmodtmp = arrpos('sparrloc',3)
  257. if sparrslc[arrmodtmp] <= 0: sparrslc[arrmodtmp] += 1
  258. end
  259. if cumsumvag >= 60:
  260. arrmodtmp = arrpos('sparrloc',0)
  261. if sparrslc[arrmodtmp] <= 0: sparrslc[arrmodtmp] += 1
  262. end
  263. end
  264. if $ARGS[0] = 'cumeater1':
  265. spdirtyb = 1
  266. fbreath = 0
  267. vaf += 1
  268. if sparrvol[temp1arr] > 150:
  269. sparrvol[temp1arr] -= 100
  270. gs 'stat'
  271. 'You collect a handful of sperm from your stomach in your hand and lick it all up, feeling the tart taste of semen.'
  272. else
  273. sparrvol[temp1arr] -= 20
  274. gs 'stat'
  275. 'You collect the sperm from your stomach with your fingers and lick them, feeling the tart taste of semen.'
  276. end
  277. if sparrvol[temp1arr] <= 0:temp = 14 & gs 'cum_cleanup', 'cumeatercleanup'
  278. end
  279. if $ARGS[0] = 'cumeater2':
  280. spdirtyb = 1
  281. fbreath = 0
  282. vaf += 1
  283. if sparrvol[temp1arr] > 150:
  284. sparrvol[temp1arr] -= 100
  285. gs 'stat'
  286. 'You collect a handful of sperm from your pussy in your hand and lick it all up, feeling the tart taste of semen.'
  287. else
  288. sparrvol[temp1arr] -= 20
  289. gs 'stat'
  290. 'You collect the sperm from your pussy with your fingers and lick them, feeling the tart taste of semen.'
  291. end
  292. if sparrvol[temp1arr] <= 0:
  293. temp = 0 & gs 'cum_cleanup', 'cumeatercleanup'
  294. temp = 1 & gs 'cum_cleanup', 'cumeatercleanup'
  295. end
  296. end
  297. if $ARGS[0] = 'cumeater3':
  298. spdirtyb = 1
  299. fbreath = 0
  300. vaf += 1
  301. if sparrvol[temp1arr] > 150:
  302. sparrvol[temp1arr] -= 100
  303. gs 'stat'
  304. 'You collect a handful of sperm from your buttocks in your hand and lick it all up, feeling the tart taste of semen.'
  305. else
  306. sparrvol[temp1arr] -= 20
  307. gs 'stat'
  308. 'You collect the sperm from your buttocks with your fingers and lick them, feeling the tart taste of semen.'
  309. end
  310. if sparrvol[temp1arr] <= 0:temp = 4 & gs 'cum_cleanup', 'cumeatercleanup'
  311. end
  312. if $ARGS[0] = 'cumeater4':
  313. spdirtyb = 1
  314. fbreath = 0
  315. vaf += 1
  316. if sparrvol[temp1arr] > 150:
  317. sparrvol[temp1arr] -= 100
  318. gs 'stat'
  319. 'You collect a handful of sperm from your face in your hand and lick it all up, feeling the tart taste of semen.'
  320. else
  321. sparrvol[temp1arr] -= 20
  322. gs 'stat'
  323. 'You collect the sperm from your face with your fingers and lick them, feeling the tart taste of semen.'
  324. end
  325. if sparrvol[temp1arr] <= 0:temp = 11 & gs 'cum_cleanup', 'cumeatercleanup'
  326. end
  327. if $ARGS[0] = 'cumeater5':
  328. spdirtyb = 1
  329. fbreath = 0
  330. vaf += 1
  331. if sparrvol[temp1arr] > 150:
  332. sparrvol[temp1arr] -= 100
  333. gs 'stat'
  334. 'You collect a handful of sperm from your clothes in your hand and lick it all up, feeling the tart taste of semen.'
  335. else
  336. sparrvol[temp1arr] -= 20
  337. gs 'stat'
  338. 'You collect the sperm from your clothes with your fingers and lick them, feeling the tart taste of semen.'
  339. end
  340. if sparrvol[temp1arr] <= 0:
  341. temp = 2 & gs 'cum_cleanup', 'cumeatercleanup'
  342. temp = 5 & gs 'cum_cleanup', 'cumeatercleanup'
  343. temp = 6 & gs 'cum_cleanup', 'cumeatercleanup'
  344. temp = 7 & gs 'cum_cleanup', 'cumeatercleanup'
  345. end
  346. end
  347. if $ARGS[0] = 'cumeater6':
  348. spdirtyb = 1
  349. fbreath = 0
  350. vaf += 1
  351. if sparrvol[temp1arr] > 150:
  352. sparrvol[temp1arr] -= 100
  353. gs 'stat'
  354. 'You collect a handful of sperm from your anus in your hand and lick it all up, feeling the tart taste of semen.'
  355. else
  356. sparrvol[temp1arr] -= 20
  357. gs 'stat'
  358. 'You collect the sperm from your anus with your fingers and lick them, feeling the tart taste of semen.'
  359. end
  360. if sparrvol[temp1arr] <= 0:temp = 3 & gs 'cum_cleanup', 'cumeatercleanup'
  361. end
  362. if $ARGS[0] = 'cumeater7':
  363. spdirtyb = 1
  364. fbreath = 0
  365. vaf += 1
  366. if sparrvol[temp1arr] > 150:
  367. sparrvol[temp1arr] -= 100
  368. gs 'stat'
  369. 'You collect a handful of sperm from your body in your hand and lick it all up, feeling the tart taste of semen.'
  370. else
  371. sparrvol[temp1arr] -= 20
  372. gs 'stat'
  373. 'You collect the sperm from your body with your fingers and lick them, feeling the tart taste of semen.'
  374. end
  375. if sparrvol[temp1arr] <= 0:
  376. temp = 8 & gs 'cum_cleanup', 'cumeatercleanup'
  377. temp = 9 & gs 'cum_cleanup', 'cumeatercleanup'
  378. temp = 10 & gs 'cum_cleanup', 'cumeatercleanup'
  379. temp = 11 & gs 'cum_cleanup', 'cumeatercleanup'
  380. temp = 15 & gs 'cum_cleanup', 'cumeatercleanup'
  381. end
  382. end
  383. if $ARGS[0] = 'cumeater8':
  384. spdirtyb = 1
  385. fbreath = 0
  386. vaf += 1
  387. if sparrvol[temp1arr] > 100:
  388. sparrvol[temp1arr] = 0
  389. gs 'stat'
  390. 'You lick up the whole mouthful of sperm, feeling the tart taste as you eat it.'
  391. else
  392. sparrvol[temp1arr] = 0
  393. gs 'stat'
  394. 'You lick your fingers clean, feeling the tart taste of semen.'
  395. end
  396. if sparrvol[temp1arr] <= 0:temp = 13 & gs 'cum_cleanup', 'cumeatercleanup'
  397. end
  398. if $ARGS[0] = 'cumeater9':
  399. spdirtyb = 1
  400. fbreath = 0
  401. vaf += 1
  402. if sparrvol[temp1arr] > 150:
  403. sparrvol[temp1arr] -= 100
  404. gs 'stat'
  405. 'You collect a handful of sperm from your hair in your hand and lick it all up, feeling the tart taste of semen.'
  406. else
  407. sparrvol[temp1arr] -= 20
  408. gs 'stat'
  409. 'You collect the sperm from your hair with your fingers and lick them, feeling the tart taste of semen.'
  410. end
  411. if sparrvol[temp1arr] <= 0:temp = 16 & gs 'cum_cleanup', 'cumeatercleanup'
  412. end
  413. --- Cum_Manage ---------------------------------