cum_cleanup.qsrc 7.1 KB

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