1
0

cum_cleanup 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339
  1. # cum_cleanup
  2. temp = arrsize('sparrvol')
  3. cumsumbod = 0
  4. cumsumvag = 0
  5. cumsumass = 0
  6. :temploop
  7. if temp < 0: cumspclnt = 0
  8. cumsumbod += sparrvol[temp]
  9. if sparrloc[temp] = 0: cumsumvag += sparrvol[temp]
  10. if sparrloc[temp] = 3: cumsumass += sparrvol[temp]
  11. !{Full Body Clean}
  12. if cumspclnt = 1:
  13. if sparrloc[temp] = 0 or sparrloc[temp] = 1 or sparrloc[temp] = 3 or sparrloc[temp] = 4 or sparrloc[temp] >= 8:
  14. KILLVAR 'spafinloc',temp
  15. KILLVAR 'sparrage',temp
  16. KILLVAR 'sparrloc',temp
  17. KILLVAR '$sparrnam',temp
  18. KILLVAR 'sparrppt',temp
  19. KILLVAR 'sparridt',temp
  20. KILLVAR 'sparrvol',temp
  21. KILLVAR 'sparrslc',temp
  22. end
  23. cumsumbod -= sparrvol[temp]
  24. if sparrloc[temp] = 0: cumsumvag -= sparrvol[temp]
  25. if sparrloc[temp] = 3: cumsumass -= sparrvol[temp]
  26. temp -= 1
  27. jump 'temploop'
  28. !{Teeth Clean}
  29. elseif cumspclnt = 2:
  30. if sparrloc[temp] = 12:
  31. KILLVAR 'spafinloc',temp
  32. KILLVAR 'sparrage',temp
  33. KILLVAR 'sparrloc',temp
  34. KILLVAR '$sparrnam',temp
  35. KILLVAR 'sparrppt',temp
  36. KILLVAR 'sparridt',temp
  37. KILLVAR 'sparrvol',temp
  38. KILLVAR 'sparrslc',temp
  39. end
  40. cumsumbod -= sparrvol[temp]
  41. temp -= 1
  42. jump 'temploop'
  43. !{Internal Clean}
  44. elseif cumspclnt = 3:
  45. if sparrloc[temp] = 0 or sparrloc[temp] = 3 or sparrloc[temp] = 17:
  46. KILLVAR 'spafinloc',temp
  47. KILLVAR 'sparrage',temp
  48. KILLVAR 'sparrloc',temp
  49. KILLVAR '$sparrnam',temp
  50. KILLVAR 'sparrppt',temp
  51. KILLVAR 'sparridt',temp
  52. KILLVAR 'sparrvol',temp
  53. KILLVAR 'sparrslc',temp
  54. end
  55. cumsumbod -= sparrvol[temp]
  56. if sparrloc[temp] = 0: cumsumvag -= sparrvol[temp]
  57. if sparrloc[temp] = 3: cumsumass -= sparrvol[temp]
  58. temp -= 1
  59. jump 'temploop'
  60. !{External Body Clean}
  61. elseif cumspclnt = 4:
  62. if sparrloc[temp] = 0 or sparrloc[temp] = 3: sparrslc[temp] = 0
  63. if sparrloc[temp] = 1 or sparrloc[temp] = 4 or (sparrloc[temp] >= 8 and sparrloc[temp] <= 11) or (sparrloc[temp] >= 13 and sparrloc[temp] <= 16):
  64. KILLVAR 'spafinloc',temp
  65. KILLVAR 'sparrage',temp
  66. KILLVAR 'sparrloc',temp
  67. KILLVAR '$sparrnam',temp
  68. KILLVAR 'sparrppt',temp
  69. KILLVAR 'sparridt',temp
  70. KILLVAR 'sparrvol',temp
  71. KILLVAR 'sparrslc',temp
  72. end
  73. cumsumbod -= sparrvol[temp]
  74. temp -= 1
  75. jump 'temploop'
  76. !{Hair Clean}
  77. elseif cumspclnt = 5:
  78. if sparrloc[temp] = 16:
  79. KILLVAR 'spafinloc',temp
  80. KILLVAR 'sparrage',temp
  81. KILLVAR 'sparrloc',temp
  82. KILLVAR '$sparrnam',temp
  83. KILLVAR 'sparrppt',temp
  84. KILLVAR 'sparridt',temp
  85. KILLVAR 'sparrvol',temp
  86. KILLVAR 'sparrslc',temp
  87. end
  88. cumsumbod -= sparrvol[temp]
  89. temp -= 1
  90. jump 'temploop'
  91. !{Clothes Clean}
  92. elseif cumspclnt = 6:
  93. if sparrloc[temp] = 2 or (sparrloc[temp] >= 5 and sparrloc[temp] <= 7):
  94. KILLVAR 'spafinloc',temp
  95. KILLVAR 'sparrage',temp
  96. KILLVAR 'sparrloc',temp
  97. KILLVAR '$sparrnam',temp
  98. KILLVAR 'sparrppt',temp
  99. KILLVAR 'sparridt',temp
  100. KILLVAR 'sparrvol',temp
  101. KILLVAR 'sparrslc',temp
  102. end
  103. cumsumbod -= sparrvol[temp]
  104. temp -= 1
  105. jump 'temploop'
  106. !{Enima}
  107. elseif cumspclnt = 7:
  108. if sparrloc[temp] = 3:
  109. KILLVAR 'spafinloc',temp
  110. KILLVAR 'sparrage',temp
  111. KILLVAR 'sparrloc',temp
  112. KILLVAR '$sparrnam',temp
  113. KILLVAR 'sparrppt',temp
  114. KILLVAR 'sparridt',temp
  115. KILLVAR 'sparrvol',temp
  116. KILLVAR 'sparrslc',temp
  117. end
  118. cumsumbod -= sparrvol[temp]
  119. cumsumass -= sparrvol[temp]
  120. temp -= 1
  121. jump 'temploop'
  122. !{Douche}
  123. elseif cumspclnt = 8:
  124. if sparrloc[temp] = 0 or sparrloc[temp] >= 17:
  125. KILLVAR 'spafinloc',temp
  126. KILLVAR 'sparrage',temp
  127. KILLVAR 'sparrloc',temp
  128. KILLVAR '$sparrnam',temp
  129. KILLVAR 'sparrppt',temp
  130. KILLVAR 'sparridt',temp
  131. KILLVAR 'sparrvol',temp
  132. KILLVAR 'sparrslc',temp
  133. end
  134. cumsumbod -= sparrvol[temp]
  135. cumsumvag -= sparrvol[temp]
  136. temp -= 1
  137. jump 'temploop'
  138. !{Handwashing}
  139. elseif cumspclnt = 9:
  140. if sparrloc[temp] = 13:
  141. KILLVAR 'spafinloc',temp
  142. KILLVAR 'sparrage',temp
  143. KILLVAR 'sparrloc',temp
  144. KILLVAR '$sparrnam',temp
  145. KILLVAR 'sparrppt',temp
  146. KILLVAR 'sparridt',temp
  147. KILLVAR 'sparrvol',temp
  148. KILLVAR 'sparrslc',temp
  149. end
  150. cumsumbod -= sparrvol[temp]
  151. temp -= 1
  152. jump 'temploop'
  153. !{Full External Clean}
  154. elseif cumspclnt = 10:
  155. if sparrloc[temp] = 0 or sparrloc[temp] = 3: sparrslc[temp] = 0
  156. if sparrloc[temp] = 1 or sparrloc[temp] = 2 or (sparrloc[temp] >= 4 and sparrloc[temp] <= 11) or (sparrloc[temp] >= 13 and sparrloc[temp] <= 16):
  157. KILLVAR 'spafinloc',temp
  158. KILLVAR 'sparrage',temp
  159. KILLVAR 'sparrloc',temp
  160. KILLVAR '$sparrnam',temp
  161. KILLVAR 'sparrppt',temp
  162. KILLVAR 'sparridt',temp
  163. KILLVAR 'sparrvol',temp
  164. KILLVAR 'sparrslc',temp
  165. end
  166. cumsumbod -= sparrvol[temp]
  167. temp -= 1
  168. jump 'temploop'
  169. !{Face Cleanup}
  170. elseif cumspclnt = 11:
  171. if sparrloc[temp] = 11:
  172. KILLVAR 'spafinloc',temp
  173. KILLVAR 'sparrage',temp
  174. KILLVAR 'sparrloc',temp
  175. KILLVAR '$sparrnam',temp
  176. KILLVAR 'sparrppt',temp
  177. KILLVAR 'sparridt',temp
  178. KILLVAR 'sparrvol',temp
  179. KILLVAR 'sparrslc',temp
  180. end
  181. cumsumbod -= sparrvol[temp]
  182. temp -= 1
  183. jump 'temploop'
  184. !{Face and Hair Cleanup}
  185. elseif cumspclnt = 12:
  186. if sparrloc[temp] = 11 or sparrloc[temp] = 16:
  187. KILLVAR 'spafinloc',temp
  188. KILLVAR 'sparrage',temp
  189. KILLVAR 'sparrloc',temp
  190. KILLVAR '$sparrnam',temp
  191. KILLVAR 'sparrppt',temp
  192. KILLVAR 'sparridt',temp
  193. KILLVAR 'sparrvol',temp
  194. KILLVAR 'sparrslc',temp
  195. end
  196. cumsumbod -= sparrvol[temp]
  197. temp -= 1
  198. jump 'temploop'
  199. !{Head clean}
  200. elseif cumspclnt = 13:
  201. if sparrloc[temp] = 11 or sparrloc[temp] = 12 or sparrloc[temp] = 16:
  202. KILLVAR 'spafinloc',temp
  203. KILLVAR 'sparrage',temp
  204. KILLVAR 'sparrloc',temp
  205. KILLVAR '$sparrnam',temp
  206. KILLVAR 'sparrppt',temp
  207. KILLVAR 'sparridt',temp
  208. KILLVAR 'sparrvol',temp
  209. KILLVAR 'sparrslc',temp
  210. end
  211. cumsumbod -= sparrvol[temp]
  212. temp -= 1
  213. jump 'temploop'
  214. !{Belly clean}
  215. elseif cumspclnt = 14:
  216. if sparrloc[temp] = 14:
  217. KILLVAR 'spafinloc',temp
  218. KILLVAR 'sparrage',temp
  219. KILLVAR 'sparrloc',temp
  220. KILLVAR '$sparrnam',temp
  221. KILLVAR 'sparrppt',temp
  222. KILLVAR 'sparridt',temp
  223. KILLVAR 'sparrvol',temp
  224. KILLVAR 'sparrslc',temp
  225. end
  226. cumsumbod -= sparrvol[temp]
  227. temp -= 1
  228. jump 'temploop'
  229. !{ass and pussy external wipe}
  230. elseif cumspclnt = 15:
  231. if sparrloc[temp] = 0 or sparrloc[temp] = 3: sparrslc[temp] = 0
  232. if sparrloc[temp] = 1 or sparrloc[temp] = 4:
  233. KILLVAR 'spafinloc',temp
  234. KILLVAR 'sparrage',temp
  235. KILLVAR 'sparrloc',temp
  236. KILLVAR '$sparrnam',temp
  237. KILLVAR 'sparrppt',temp
  238. KILLVAR 'sparridt',temp
  239. KILLVAR 'sparrvol',temp
  240. KILLVAR 'sparrslc',temp
  241. end
  242. cumsumbod -= sparrvol[temp]
  243. temp -= 1
  244. jump 'temploop'
  245. !{Breast cleanup}
  246. elseif cumspclnt = 16:
  247. if sparrloc[temp] = 15:
  248. KILLVAR 'spafinloc',temp
  249. KILLVAR 'sparrage',temp
  250. KILLVAR 'sparrloc',temp
  251. KILLVAR '$sparrnam',temp
  252. KILLVAR 'sparrppt',temp
  253. KILLVAR 'sparridt',temp
  254. KILLVAR 'sparrvol',temp
  255. KILLVAR 'sparrslc',temp
  256. end
  257. cumsumbod -= sparrvol[temp]
  258. temp -= 1
  259. jump 'temploop'
  260. !{Arms and legs cleanup}
  261. elseif cumspclnt = 17:
  262. if sparrloc[temp] = 10 or sparrloc[temp] = 9:
  263. KILLVAR 'spafinloc',temp
  264. KILLVAR 'sparrage',temp
  265. KILLVAR 'sparrloc',temp
  266. KILLVAR '$sparrnam',temp
  267. KILLVAR 'sparrppt',temp
  268. KILLVAR 'sparridt',temp
  269. KILLVAR 'sparrvol',temp
  270. KILLVAR 'sparrslc',temp
  271. end
  272. cumsumbod -= sparrvol[temp]
  273. temp -= 1
  274. jump 'temploop'
  275. !{Full Clean}
  276. elseif cumspclnt = 20:
  277. KILLVAR 'spafinloc'
  278. KILLVAR 'sparrage'
  279. KILLVAR 'sparrloc'
  280. KILLVAR '$sparrnam'
  281. KILLVAR 'sparrppt'
  282. KILLVAR 'sparridt'
  283. KILLVAR 'sparrvol'
  284. KILLVAR 'sparrslc'
  285. cumsumbod = 0
  286. cumsumvag = 0
  287. cumsumass = 0
  288. temp -= 1
  289. jump 'temploop'
  290. else
  291. temp = 0
  292. cumspclnt = 0
  293. end
  294. spdirty = 0
  295. spdirtyi = 0
  296. spdirtyn = 0
  297. spdirtyv = 0
  298. spdirtyb = 0
  299. spdirtyc = 0
  300. spdirtyf = 0
  301. killvar 'cumloc'
  302. if $ARGS[0] = 'cumeatercleanup':
  303. KILLVAR 'spafinloc',temp
  304. KILLVAR 'sparrage',temp
  305. KILLVAR 'sparrloc',temp
  306. KILLVAR '$sparrnam',temp
  307. KILLVAR 'sparrppt',temp
  308. KILLVAR 'sparridt',temp
  309. KILLVAR 'sparrvol',temp
  310. KILLVAR 'sparrslc',temp
  311. cumsumbod -= sparrvol[temp]
  312. end
  313. --- cum_cleanup ---------------------------------