1
0

cum_cleanup 6.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257
  1. # cum_cleanup
  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] = 'cleanloc' and arrsize('ARGS') > 1:
  22. i = 0
  23. :cleanlocloop
  24. if i < arrsize('$sparrnam'):
  25. if sparrloc[i] = ARGS[1]:
  26. if sparrloc[i] = 0 or sparrloc[i] = 3:
  27. sparrvol[i] = 0
  28. sparrslc[i] = 0
  29. else
  30. gs 'cum_cleanup', 'cleandeposit', i
  31. end
  32. end
  33. i += 1
  34. jump 'cleanlocloop'
  35. end
  36. elseif $ARGS[0] = 'cleandeposit' and arrsize('ARGS') > 1:
  37. cumsumbod -= sparrvol[ARGS[1]]
  38. KILLVAR 'sparrage',ARGS[1]
  39. KILLVAR 'sparrloc',ARGS[1]
  40. KILLVAR '$sparrnam',ARGS[1]
  41. KILLVAR 'sparrppt',ARGS[1]
  42. KILLVAR 'sparridt',ARGS[1]
  43. KILLVAR 'sparrvol',ARGS[1]
  44. KILLVAR 'sparrslc',ARGS[1]
  45. KILLVAR 'sparrcnt',ARGS[1]
  46. elseif $ARGS[0] = 'cleanwomb' and arrsize('ARGS') > 1:
  47. KILLVAR 'cumarrcpt',ARGS[1]
  48. KILLVAR 'cumarrppt',ARGS[1]
  49. KILLVAR '$cumarrnam',ARGS[1]
  50. KILLVAR 'cumarrage',ARGS[1]
  51. KILLVAR 'cumarrdel',ARGS[1]
  52. KILLVAR 'cumarrkno',ARGS[1]
  53. KILLVAR 'cumarrcnt',ARGS[1]
  54. KILLVAR 'cumarrcon',ARGS[1]
  55. elseif $ARGS[0] = 'cumcondslip':
  56. if cumcondslip_deep > (pcs_vag / 2):
  57. 'The condom is slipped too deep inside to be pulled out by your hand. You need to ask for professional help!'
  58. else
  59. gs 'cum_cleanup', 'cleanloc', 17
  60. cumcondslip = 0
  61. gs 'stat'
  62. 'With some effort, you managed to remove the condom.'
  63. end
  64. elseif $ARGS[0] = 'reset':
  65. !!{ Used in cheat and when giving birth.}
  66. KILLVAR 'cleanloc'
  67. KILLVAR 'cumarrcpt'
  68. KILLVAR 'cumarrppt'
  69. KILLVAR '$cumarrnam'
  70. KILLVAR 'cumarrage'
  71. KILLVAR 'cumarrdel'
  72. KILLVAR 'cumarrkno'
  73. KILLVAR 'cumarrcnt'
  74. KILLVAR 'cumarrcon'
  75. KILLVAR 'cumcount'
  76. KILLVAR 'cumloc'
  77. KILLVAR '$cumowner'
  78. KILLVAR 'cumspclnt'
  79. KILLVAR 'cumvolume'
  80. KILLVAR 'spafinloc'
  81. KILLVAR 'sparrage'
  82. KILLVAR 'sparrloc'
  83. KILLVAR '$sparrnam'
  84. KILLVAR 'sparrppt'
  85. KILLVAR 'sparridt'
  86. KILLVAR 'sparrvol'
  87. KILLVAR 'sparrslc'
  88. KILLVAR 'sparrcnt'
  89. killvar 'toclean'
  90. killvar 'deresidue'
  91. cumcondslip = 0
  92. cumcondslip_deep = 0
  93. cumSUM = 0
  94. cumsumbod = 0
  95. cumsumvag = 0
  96. cumsumass = 0
  97. Enable_clearcum = 0
  98. spdirtyn = 0
  99. spdirtyv = 0
  100. spdirty = 0
  101. elseif $ARGS[0] = '':
  102. cumsumbod = 0
  103. cumsumvag = 0
  104. cumsumass = 0
  105. KILLVAR 'spafinloc'
  106. killvar 'toclean'
  107. killvar 'deresidue'
  108. if cumspclnt = 1 or cumspclnt = 10:
  109. !{full external clean}
  110. deresidue[arrsize('deresidue')] = 0
  111. deresidue[arrsize('deresidue')] = 3
  112. toclean[arrsize('toclean')] = 1
  113. toclean[arrsize('toclean')] = 2
  114. toclean[arrsize('toclean')] = 4
  115. toclean[arrsize('toclean')] = 5
  116. toclean[arrsize('toclean')] = 6
  117. toclean[arrsize('toclean')] = 7
  118. toclean[arrsize('toclean')] = 8
  119. toclean[arrsize('toclean')] = 9
  120. toclean[arrsize('toclean')] = 10
  121. toclean[arrsize('toclean')] = 11
  122. toclean[arrsize('toclean')] = 12
  123. toclean[arrsize('toclean')] = 13
  124. toclean[arrsize('toclean')] = 14
  125. toclean[arrsize('toclean')] = 15
  126. toclean[arrsize('toclean')] = 16
  127. elseif cumspclnt = 2:
  128. !{teeth clean}
  129. toclean[arrsize('toclean')] = 12
  130. elseif cumspclnt = 3:
  131. !{internal clean}
  132. toclean[arrsize('toclean')] = 0
  133. toclean[arrsize('toclean')] = 3
  134. toclean[arrsize('toclean')] = 17
  135. elseif cumspclnt = 4:
  136. !{external body clean}
  137. deresidue[arrsize('deresidue')] = 0
  138. deresidue[arrsize('deresidue')] = 3
  139. toclean[arrsize('toclean')] = 1
  140. toclean[arrsize('toclean')] = 4
  141. toclean[arrsize('toclean')] = 8
  142. toclean[arrsize('toclean')] = 9
  143. toclean[arrsize('toclean')] = 10
  144. toclean[arrsize('toclean')] = 11
  145. toclean[arrsize('toclean')] = 13
  146. toclean[arrsize('toclean')] = 14
  147. toclean[arrsize('toclean')] = 15
  148. toclean[arrsize('toclean')] = 16
  149. elseif cumspclnt = 5:
  150. !{hair clean}
  151. toclean[arrsize('toclean')] = 16
  152. elseif cumspclnt = 6:
  153. !{clothes clean}
  154. toclean[arrsize('toclean')] = 2
  155. toclean[arrsize('toclean')] = 5
  156. toclean[arrsize('toclean')] = 6
  157. toclean[arrsize('toclean')] = 7
  158. elseif cumspclnt = 7:
  159. !{enema}
  160. toclean[arrsize('toclean')] = 3
  161. elseif cumspclnt = 8:
  162. !{blank}
  163. elseif cumspclnt = 9:
  164. !{wash hands}
  165. toclean[arrsize('toclean')] = 13
  166. elseif cumspclnt = 11:
  167. !{wash face}
  168. toclean[arrsize('toclean')] = 11
  169. elseif cumspclnt = 12:
  170. !{face and hair}
  171. toclean[arrsize('toclean')] = 11
  172. toclean[arrsize('toclean')] = 16
  173. elseif cumspclnt = 13:
  174. !{head}
  175. toclean[arrsize('toclean')] = 11
  176. toclean[arrsize('toclean')] = 12
  177. toclean[arrsize('toclean')] = 16
  178. elseif cumspclnt = 14:
  179. !{belly}
  180. toclean[arrsize('toclean')] = 14
  181. elseif cumspclnt = 15:
  182. !{wipe ass/pussy}
  183. toclean[arrsize('toclean')] = 1
  184. toclean[arrsize('toclean')] = 4
  185. deresidue[arrsize('deresidue')] = 0
  186. deresidue[arrsize('deresidue')] = 3
  187. elseif cumspclnt = 16:
  188. !{Breasts}
  189. toclean[arrsize('toclean')] = 15
  190. elseif cumspclnt = 17:
  191. !{Arms/legs}
  192. toclean[arrsize('toclean')] = 9
  193. toclean[arrsize('toclean')] = 10
  194. elseif cumspclnt = 18:
  195. toclean[arrsize('toclean')] = 1
  196. toclean[arrsize('toclean')] = 2
  197. toclean[arrsize('toclean')] = 4
  198. toclean[arrsize('toclean')] = 5
  199. toclean[arrsize('toclean')] = 6
  200. toclean[arrsize('toclean')] = 7
  201. toclean[arrsize('toclean')] = 8
  202. toclean[arrsize('toclean')] = 9
  203. toclean[arrsize('toclean')] = 10
  204. toclean[arrsize('toclean')] = 11
  205. toclean[arrsize('toclean')] = 12
  206. toclean[arrsize('toclean')] = 13
  207. toclean[arrsize('toclean')] = 14
  208. toclean[arrsize('toclean')] = 15
  209. toclean[arrsize('toclean')] = 16
  210. elseif cumspclnt = 20:
  211. !{Clean everything}
  212. KILLVAR 'sparrage'
  213. KILLVAR 'sparrloc'
  214. KILLVAR '$sparrnam'
  215. KILLVAR 'sparrppt'
  216. KILLVAR 'sparridt'
  217. KILLVAR 'sparrvol'
  218. KILLVAR 'sparrslc'
  219. KILLVAR 'sparrcnt'
  220. end
  221. i = 0
  222. :cumcleanloop
  223. if i < arrsize('$sparrnam'):
  224. tmp = arrpos('deresidue', sparrloc[i])
  225. if tmp ! -1 and tmp < arrsize('deresidue'): sparrslc[i] = 0 & sparrvol[i] = 0
  226. tmp = arrpos('toclean', sparrloc[i])
  227. if tmp ! -1 and tmp < arrsize('toclean'):
  228. gs 'cum_cleanup', 'cleandeposit', i
  229. else
  230. i += 1
  231. cumsumbod += sparrvol[i]
  232. if sparrloc[i] = 0:
  233. cumsumvag += sparrvol[i]
  234. elseif sparrloc[i] = 3:
  235. cumsumass += sparrvol[i]
  236. end
  237. end
  238. jump 'cumcleanloop'
  239. end
  240. spdirty = 0
  241. cumloc[0] = 0
  242. spdirtyn = 0
  243. spdirtyv = 0
  244. cumloc[12] = 0
  245. cumloc[6] = 0
  246. cumloc[7] = 0
  247. killvar 'cumloc'
  248. end
  249. --- cum_cleanup ---------------------------------