1
0

cum_cleanup 5.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229
  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 'cumarrcpt'
  67. KILLVAR 'cumarrppt'
  68. KILLVAR '$cumarrnam'
  69. KILLVAR 'cumarrage'
  70. KILLVAR 'cumarrdel'
  71. KILLVAR 'cumarrkno'
  72. KILLVAR 'cumarrcnt'
  73. KILLVAR 'cumarrcon'
  74. KILLVAR 'sparrage'
  75. KILLVAR 'sparrloc'
  76. KILLVAR '$sparrnam'
  77. KILLVAR 'sparrppt'
  78. KILLVAR 'sparridt'
  79. KILLVAR 'sparrvol'
  80. KILLVAR 'sparrslc'
  81. KILLVAR 'sparrcnt'
  82. spdirty = 0
  83. spdirtyi = 0
  84. spdirtyn = 0
  85. spdirtyv = 0
  86. spdirtyb = 0
  87. spdirtyc = 0
  88. spdirtyf = 0
  89. elseif $ARGS[0] = '':
  90. cumsumbod = 0
  91. cumsumvag = 0
  92. cumsumass = 0
  93. KILLVAR 'spafinloc'
  94. killvar 'toclean'
  95. killvar 'deresidue'
  96. if cumspclnt = 1 or cumspclnt = 10:
  97. !{full external clean}
  98. deresidue[arrsize('deresidue')] = 0
  99. deresidue[arrsize('deresidue')] = 3
  100. toclean[arrsize('toclean')] = 1
  101. toclean[arrsize('toclean')] = 2
  102. toclean[arrsize('toclean')] = 4
  103. toclean[arrsize('toclean')] = 5
  104. toclean[arrsize('toclean')] = 6
  105. toclean[arrsize('toclean')] = 7
  106. toclean[arrsize('toclean')] = 8
  107. toclean[arrsize('toclean')] = 9
  108. toclean[arrsize('toclean')] = 10
  109. toclean[arrsize('toclean')] = 11
  110. toclean[arrsize('toclean')] = 12
  111. toclean[arrsize('toclean')] = 13
  112. toclean[arrsize('toclean')] = 14
  113. toclean[arrsize('toclean')] = 15
  114. toclean[arrsize('toclean')] = 16
  115. elseif cumspclnt = 2:
  116. !{teeth clean}
  117. toclean[arrsize('toclean')] = 12
  118. elseif cumspclnt = 3:
  119. !{internal clean}
  120. toclean[arrsize('toclean')] = 0
  121. toclean[arrsize('toclean')] = 3
  122. toclean[arrsize('toclean')] = 17
  123. elseif cumspclnt = 4:
  124. !{external body clean}
  125. deresidue[arrsize('deresidue')] = 0
  126. deresidue[arrsize('deresidue')] = 3
  127. toclean[arrsize('toclean')] = 1
  128. toclean[arrsize('toclean')] = 4
  129. toclean[arrsize('toclean')] = 8
  130. toclean[arrsize('toclean')] = 9
  131. toclean[arrsize('toclean')] = 10
  132. toclean[arrsize('toclean')] = 11
  133. toclean[arrsize('toclean')] = 13
  134. toclean[arrsize('toclean')] = 14
  135. toclean[arrsize('toclean')] = 15
  136. toclean[arrsize('toclean')] = 16
  137. elseif cumspclnt = 5:
  138. !{hair clean}
  139. toclean[arrsize('toclean')] = 16
  140. elseif cumspclnt = 6:
  141. !{clothes clean}
  142. toclean[arrsize('toclean')] = 2
  143. toclean[arrsize('toclean')] = 5
  144. toclean[arrsize('toclean')] = 6
  145. toclean[arrsize('toclean')] = 7
  146. elseif cumspclnt = 7:
  147. !{enema}
  148. toclean[arrsize('toclean')] = 3
  149. elseif cumspclnt = 8:
  150. !{blank}
  151. elseif cumspclnt = 9:
  152. !{wash hands}
  153. toclean[arrsize('toclean')] = 13
  154. elseif cumspclnt = 11:
  155. !{wash face}
  156. toclean[arrsize('toclean')] = 11
  157. elseif cumspclnt = 12:
  158. !{face and hair}
  159. toclean[arrsize('toclean')] = 11
  160. toclean[arrsize('toclean')] = 16
  161. elseif cumspclnt = 13:
  162. !{head}
  163. toclean[arrsize('toclean')] = 11
  164. toclean[arrsize('toclean')] = 12
  165. toclean[arrsize('toclean')] = 16
  166. elseif cumspclnt = 14:
  167. !{belly}
  168. toclean[arrsize('toclean')] = 14
  169. elseif cumspclnt = 15:
  170. !{wipe ass/pussy}
  171. toclean[arrsize('toclean')] = 1
  172. toclean[arrsize('toclean')] = 4
  173. deresidue[arrsize('deresidue')] = 0
  174. deresidue[arrsize('deresidue')] = 3
  175. elseif cumspclnt = 16:
  176. !{Breasts}
  177. toclean[arrsize('toclean')] = 15
  178. elseif cumspclnt = 17:
  179. !{Arms/legs}
  180. toclean[arrsize('toclean')] = 9
  181. toclean[arrsize('toclean')] = 10
  182. elseif cumspclnt = 20:
  183. !{Clean everything}
  184. KILLVAR 'sparrage'
  185. KILLVAR 'sparrloc'
  186. KILLVAR '$sparrnam'
  187. KILLVAR 'sparrppt'
  188. KILLVAR 'sparridt'
  189. KILLVAR 'sparrvol'
  190. KILLVAR 'sparrslc'
  191. KILLVAR 'sparrcnt'
  192. end
  193. i = 0
  194. :cumcleanloop
  195. if i < arrsize('$sparrnam'):
  196. tmp = arrpos('deresidue', sparrloc[i])
  197. if tmp ! -1 and tmp < arrsize('deresidue'): sparrslc[i] = 0 & sparrvol[i] = 0
  198. tmp = arrpos('toclean', sparrloc[i])
  199. if tmp ! -1 and tmp < arrsize('toclean'):
  200. gs 'cum_cleanup', 'cleandeposit', i
  201. else
  202. i += 1
  203. cumsumbod += sparrvol[i]
  204. if sparrloc[i] = 0:
  205. cumsumvag += sparrvol[i]
  206. elseif sparrloc[i] = 3:
  207. cumsumass += sparrvol[i]
  208. end
  209. end
  210. jump 'cumcleanloop'
  211. end
  212. spdirty = 0
  213. spdirtyi = 0
  214. spdirtyn = 0
  215. spdirtyv = 0
  216. spdirtyb = 0
  217. spdirtyc = 0
  218. spdirtyf = 0
  219. killvar 'cumloc'
  220. end
  221. --- cum_cleanup ---------------------------------