zaprFWash.qsrc 41 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085
  1. # zaprFWash
  2. ! most complete comments for how the code works can be found in 'wash', 'titsFlash', 'runback', and 'punishSpank'
  3. ! most other code in here are just variations of those sections
  4. if $ARGS[0] = 'start':
  5. $metka = 'start'
  6. $loc = 'zaprFWash'
  7. $menu_loc = 'zaprFWash'
  8. $menu_arg = 'start'
  9. menu_off = 0
  10. *clr & cla
  11. ! can''t wash cars if have visible cum already
  12. if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
  13. minut += 5
  14. pcs_mood -= 5
  15. pav_sex += rand(0,2)
  16. 'The gas station worker chases you away: "At least go wash yourself off first, whore!"'
  17. act 'Leave':gt 'zaprF', 'start'
  18. act 'Go to the toilet':gt 'zaprF', 'toilet'
  19. else
  20. gt 'zaprFWash', 'wash'
  21. end
  22. end
  23. if $ARGS[0] = 'wash':
  24. if litltown = 0:
  25. slut_compare = city_slut
  26. elseif litltown = 1:
  27. slut_compare = pav_slut
  28. end
  29. ! only wearing bimbo or prostitute clothing and looking good can get propositioned by a customer
  30. if PCloBimbo = 1 or PCloStyle = 4:
  31. i = rand(1, 4)
  32. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
  33. minut += 60
  34. pcs_mood -= 5
  35. gs 'sweat', 'add', 2
  36. if pcs_apprnc >= 60:
  37. ! slightly more money for wearing bimbo or prostitute clothing and looking good too
  38. 'You washed the windows of several cars and earned 100 <b>₽</b>.'
  39. money += 100
  40. ! min chance of 20 percent; max chance of 80 percent; percent chance scales with city_slut or pav_slut
  41. ! as your repuation increases you will be asked more often
  42. skimpyCustomerChance = rand(1, 100)
  43. if skimpyCustomerChance <= min(max(20,slut_compare),80):
  44. 'As you finish washing another car, the driver walks up to you to give you a tip. From the way he''s looking at you, it''s obvious he''s interested in something more as well.'
  45. ! starts off with always doing titsQ when rep is low, as rep increases they may skip a question since they know you will do it anyway
  46. ! also different people have different tastes so you wont be asked the same thing in the same order every time by every customer that walks up to you
  47. carwashscene = rand(1, 100)
  48. if carwashscene <= min(max(25,slut_compare),50) and carwashscene >= 25:
  49. gt 'zaprFWash', 'assQ'
  50. elseif carwashscene <= min(max(50,slut_compare),65) and carwashscene >= 50:
  51. gt 'zaprFWash', 'pussyQ'
  52. elseif carwashscene <= min(max(65,slut_compare),85) and carwashscene >= 65:
  53. gt 'zaprFWash', 'handQ'
  54. elseif carwashscene <= min(max(85,slut_compare),100) and carwashscene >= 85:
  55. gt 'zaprFWash', 'blowQ'
  56. else
  57. gt 'zaprFWash', 'titsQ'
  58. end
  59. else
  60. gs 'zaprFWash', 'flash_passing'
  61. end
  62. else
  63. ! slightly more money for wearing bimbo or prostitute clothing but not looking too great
  64. 'You washed the windows of several cars and earned 80 <b>₽</b>.'
  65. money += 80
  66. gs 'zaprFWash', 'flash_passing'
  67. end
  68. else
  69. minut += 60
  70. pcs_mood -= 5
  71. gs 'sweat', 'add', 2
  72. money += 60
  73. i = rand(1, 4)
  74. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/regular<<i>>.jpg"></center>'
  75. ! normal money just for the car washing
  76. 'You washed the windows of several cars and earned 60 <b>₽</b>.'
  77. gs 'zaprFWash', 'flash_passing'
  78. end
  79. end
  80. if $ARGS[0] = 'flash_passing':
  81. act 'Continue':gt 'zaprF', 'start'
  82. if PCloPants > 0 or PCloSkirt > 0:
  83. if pcs_inhib >= 35: act 'Flash your tits at passing cars':gt 'zaprFWash', 'titsFlash', 'Free', 'Flash'
  84. if exhibitionist_lvl > 0: act 'Flash your ass at passing cars':gt 'zaprFWash', 'assFlash', 'Free', 'Flash'
  85. if exhibitionist_lvl > 1: act 'Flash your pussy at passing cars':gt 'zaprFWash', 'pussyFlash', 'Free', 'Flash'
  86. end
  87. end
  88. if $ARGS[0] = 'titsQ':
  89. i = rand(1, 4)
  90. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
  91. 'Want to earn some more cash, girl? Show me your tits. I''ll give you 50 <b>₽</b>. It''s easy money.'
  92. ! inhibition or exhibitionism requirements needed to accept the offer or just have fun with him
  93. if exhibitionist_lvl > 0 or pcs_inhib >= 35 or pcs_horny >= 40: act 'Agree and show him your tits':gt 'zaprFWash', 'titsFlash', 'Paid', 'Question'
  94. act 'Refuse':gt 'zaprFWash', 'refuse'
  95. end
  96. if $ARGS[0] = 'assQ':
  97. i = rand(1, 4)
  98. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
  99. 'What a nice ass you have there. Let me see it. Will 50 <b>₽</b> convince you to show it to me?'
  100. ! inhibition or exhibitionism requirements needed to accept the offer or just have fun with him
  101. if exhibitionist_lvl > 0 or pcs_horny >= 60: act 'Agree and show him your ass':gt 'zaprFWash', 'assFlash', 'Paid', 'Question'
  102. act 'Refuse':gt 'zaprFWash', 'refuse'
  103. end
  104. if $ARGS[0] = 'pussyQ':
  105. i = rand(1, 4)
  106. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
  107. 'You look like a cool girl. Let me see your pussy. I''ll give you 50 <b>₽</b>.'
  108. ! inhibition or exhibitionism requirements needed to accept the offer or just have fun with him
  109. if exhibitionist_lvl > 1 or pcs_horny >= 80: act 'Agree and show him your pussy':gt 'zaprFWash', 'pussyFlash', 'Paid', 'Question'
  110. act 'Refuse':gt 'zaprFWash', 'refuse'
  111. end
  112. if $ARGS[0] = 'handQ':
  113. i = rand(1, 4)
  114. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
  115. 'Could you help me out girl? It''s getting tight down here in my pants just looking at you. How about you touch it a bit? I''ll pay you 200 <b>₽</b>.'
  116. ! slut or horny requirements needed to accept the offer or just have fun with him
  117. if slut_compare >= 25 or pcs_horny >= 25: act 'Agree and give him a handjob':gt 'zaprFWash', 'handjob', 'Paid'
  118. act 'Refuse':gt 'zaprFWash', 'refuse'
  119. end
  120. if $ARGS[0] = 'blowQ':
  121. i = rand(1, 4)
  122. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
  123. 'Looking hot today girl! How about you put your mouth to good use? I''ll pay you 200 <b>₽</b>.'
  124. ! slut or horny requirements needed to accept the offer or just have fun with him
  125. if slut_compare >= 30 or pcs_horny >= 30: act 'Agree and give him a blowjob':gt 'zaprFWash', 'blowjob', 'Paid', 'Question'
  126. act 'Refuse':gt 'zaprFWash', 'refuse'
  127. end
  128. if $ARGS[0] = 'refuse':
  129. ! just being asked can slowly change your inhibitions which will enable a player to eventually agree to the questions above
  130. if pcs_inhib < 35: inhib_exp += rand(1,2)
  131. !pcs_dom += 1
  132. pcs_mood += 5
  133. gs 'stat'
  134. '<center><video autoplay loop src="images/pc/no.mp4"></video></center>'
  135. 'You begin to consider his offer but decide turn him down and walk away.'
  136. act 'Go back to washing cars':gt 'zaprF', 'start'
  137. end
  138. ! $ARGS[1] = whether you got paid for this
  139. ! $ARGS[2] = whether this act came from a customer question or just flashing for passing cars
  140. if $ARGS[0] = 'titsFlash':
  141. ! reputation and money will depend on whether you were paid
  142. if $ARGS[1] = 'Paid':
  143. money += 50
  144. if litltown = 0:
  145. city_prostitute += rand(0,1)
  146. elseif litltown = 1:
  147. pav_prostitute += rand(0,1)
  148. end
  149. elseif $ARGS[1] = 'Free':
  150. gs 'exhibitionism', 1
  151. end
  152. if pcs_inhib < 30: inhib_exp += rand(2,4)
  153. pcs_mood += 5
  154. gs 'stat'
  155. gifornot = rand (1, 100)
  156. ! chance for using photos or videos
  157. if gifornot < 50:
  158. i = rand(1, 100)
  159. ! chance of using old pics since there are so many newer pics to choose from
  160. if i < 15:
  161. if PCloPants > 0:
  162. ! loop to sort through old pics since they are jumbled together in the folder but we want to display pics based on clothing
  163. ! will keep looping until it gets a photo with shorts/pants in it
  164. :loop_tits_old_pics1
  165. i = rand(1, 3)
  166. if i = 2: jump 'loop_tits_old_pics1'
  167. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/titsflash<<i>>.jpg"></center>'
  168. elseif PCloSkirt > 0:
  169. ! loop to sort through old pics since they are jumbled together in the folder but we want to display pics based on clothing
  170. ! will keep looping until it gets a photo with a skirt/dress in it
  171. :loop_tits_old_pics2
  172. i = rand(1, 3)
  173. if i = 1 or i = 3: jump 'loop_tits_old_pics2'
  174. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/titsflash<<i>>.jpg"></center>'
  175. end
  176. else
  177. ! newer photos are more neatly organized into different folders so no looping needed
  178. if PCloPants > 0:
  179. i = rand(1, 14)
  180. '<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/tits/<<i>>.jpg"></center>'
  181. elseif PCloSkirt > 0:
  182. i = rand(1, 12)
  183. '<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/tits/<<i>>.jpg"></center>'
  184. end
  185. end
  186. else
  187. if PCloPants > 0:
  188. ! loop to sort through old vids since they are jumbled together in the folder but we want to display vids based on clothing
  189. ! will keep looping until it gets a video with shorts/pants in it
  190. :loop_tits_old_vids1
  191. i = rand(1, 7)
  192. if i = 4 or i = 6 or i = 7: jump 'loop_tits_old_vids1'
  193. '<center><video autoplay loop src="images/locations/shared/carwash/titsflash<<i>>.mp4"></video></center>'
  194. elseif PCloSkirt > 0:
  195. ! loop to sort through old vids since they are jumbled together in the folder but we want to display vids based on clothing
  196. ! will keep looping until it gets a video with a skirt/dress in it
  197. :loop_tits_old_vids2
  198. i = rand(1, 7)
  199. if i = 1 or i = 2 or i = 3 or i = 5: jump 'loop_tits_old_vids2'
  200. '<center><video autoplay loop src="images/locations/shared/carwash/titsflash<<i>>.mp4"></video></center>'
  201. end
  202. end
  203. ! text differences depending on whether you were paid, whether you are flashing for a customer or for the cars on the road, and what type of clothing you are wearing
  204. if $ARGS[1] = 'Paid':
  205. if PCloPants > 0:'You lift up your top up and show him your breasts for a few seconds. Then you quickly cover up and take your money.'
  206. if PCloSkirt > 0:'You pull down your top and show him your breasts for a few seconds. Then you quickly cover up and take your money.'
  207. elseif $ARGS[1] = 'Free':
  208. if $ARGS[2] = 'Question':
  209. if PCloPants > 0:'You lift up your top up and show him your breasts for a few seconds. You give your breasts a little shake for him before you cover up.'
  210. if PCloSkirt > 0:'You pull down your top and show him your breasts for a few seconds. You give your breasts a little shake for him before you cover up.'
  211. elseif $ARGS[2] = 'Flash':
  212. if PCloPants > 0:'You lift up your top up and expose your breasts to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your breasts a little shake before you cover up.'
  213. if PCloSkirt > 0:'You pull down your top and expose your breasts to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your breasts a little shake before you cover up.'
  214. end
  215. end
  216. gs 'arousal', 'flashlite', 5
  217. gs 'stat'
  218. ! can only continue with more questions if flashing for a customer
  219. ! also more questions will require either sub or dom or bimbo or horny as well as bimbo or prostitute clothing
  220. ! this has a wide range of requirements so that many different types of characters can still play this content
  221. !if (sub >= 10 or pcs_dom >= 10 or bimbolevel >= 1 or pcs_horny >= 5) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':
  222. if (bimbolevel >= 1 or pcs_horny >= 5) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':
  223. ! once again dynamically choosing the next scene to play based on reputation
  224. carwashscene = rand(1, 100)
  225. if carwashscene <= min(max(30,slut_compare),60) and carwashscene >= 50:
  226. act 'Continue':gt 'zaprFWash', 'pussyQ'
  227. elseif carwashscene <= min(max(60,slut_compare),80) and carwashscene >= 60:
  228. act 'Continue':gt 'zaprFWash', 'handQ'
  229. elseif carwashscene <= min(max(80,slut_compare),100) and carwashscene >= 80:
  230. act 'Continue':gt 'zaprFWash', 'blowQ'
  231. else
  232. act 'Continue':gt 'zaprFWash', 'assQ'
  233. end
  234. ! flashing for cars just allows you to return to the gas station
  235. else
  236. act 'Go back to the gas station':
  237. if $ARGS[1] = 'Paid': slutty += 1
  238. gt 'zaprF', 'start'
  239. end
  240. end
  241. end
  242. ! $ARGS[1] = whether you got paid for this
  243. ! $ARGS[2] = whether this act came from a customer question or just flashing for passing cars
  244. if $ARGS[0] = 'assFlash':
  245. if $ARGS[1] = 'Paid':
  246. money += 50
  247. if litltown = 0:
  248. city_prostitute += rand(0,1)
  249. elseif litltown = 1:
  250. pav_prostitute += rand(0,1)
  251. end
  252. elseif $ARGS[1] = 'Free':
  253. gs 'exhibitionism', 2
  254. end
  255. if pcs_inhib < 30: inhib_exp += rand(2,4)
  256. pcs_mood += 5
  257. gs 'stat'
  258. gifornot = rand (1, 100)
  259. if gifornot < 50:
  260. i = rand(1, 100)
  261. if i < 10:
  262. if PCloPants > 0:
  263. :loop_ass_old_pics1
  264. i = rand(1, 2)
  265. if i = 1: jump 'loop_ass_old_pics1'
  266. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/assflash<<i>>.jpg"></center>'
  267. elseif PCloSkirt > 0:
  268. :loop_ass_old_pics2
  269. i = rand(1, 2)
  270. if i = 2: jump 'loop_ass_old_pics2'
  271. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/assflash<<i>>.jpg"></center>'
  272. end
  273. else
  274. if PCloPants > 0:
  275. i = rand(1, 16)
  276. '<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/butt/<<i>>.jpg"></center>'
  277. elseif PCloSkirt > 0:
  278. i = rand(1, 9)
  279. '<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/butt/<<i>>.jpg"></center>'
  280. end
  281. end
  282. else
  283. if PCloPants > 0:
  284. :loop_ass_old_vids1
  285. i = rand(1, 5)
  286. if i = 2 or i = 3: jump 'loop_ass_old_vids1'
  287. '<center><video autoplay loop src="images/locations/shared/carwash/assflash<<i>>.mp4"></video></center>'
  288. elseif PCloSkirt > 0:
  289. :loop_ass_old_vids2
  290. i = rand(1, 5)
  291. if i = 1 or i = 4 or i = 5: jump 'loop_ass_old_vids2'
  292. '<center><video autoplay loop src="images/locations/shared/carwash/assflash<<i>>.mp4"></video></center>'
  293. end
  294. end
  295. if $ARGS[1] = 'Paid':
  296. if PCloPants > 0:'You pull your pants down and show him your ass for a few seconds. Then you quickly cover up and take your money.'
  297. if PCloSkirt > 0:'You lift your skirt up and show him your ass for a few seconds. Then you quickly cover up and take your money.'
  298. elseif $ARGS[1] = 'Free':
  299. if $ARGS[2] = 'Question':
  300. if PCloPants > 0:'You pull your pants down and show him your ass for a few seconds. You give your ass a little shake for him before you cover up.'
  301. if PCloSkirt > 0:'You lift your skirt up and show him your ass for a few seconds. You give your ass a little shake for him before you cover up.'
  302. elseif $ARGS[2] = 'Flash':
  303. if PCloPants > 0:'You pull your pants down and expose your ass to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your ass a little shake before you cover up.'
  304. if PCloSkirt > 0:'You lift your skirt up and expose your ass to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your ass a little shake before you cover up.'
  305. end
  306. end
  307. gs 'arousal', 'flashlite', 5
  308. gs 'stat'
  309. !if (sub >= 10 or pcs_dom >= 10 or bimbolevel >= 1 or pcs_horny >= 10) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':
  310. if (bimbolevel >= 1 or pcs_horny >= 10) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':
  311. carwashscene = rand(1, 100)
  312. if carwashscene <= min(max(50,slut_compare),75) and carwashscene >= 50:
  313. act 'Continue':gt 'zaprFWash', 'handQ'
  314. elseif carwashscene <= min(max(75,slut_compare),100) and carwashscene >= 75:
  315. act 'Continue':gt 'zaprFWash', 'blowQ'
  316. else
  317. act 'Continue':gt 'zaprFWash', 'pussyQ'
  318. end
  319. else
  320. act 'Go back to the gas station':
  321. if $ARGS[1] = 'Paid': slutty += 1
  322. gt 'zaprF', 'start'
  323. end
  324. end
  325. end
  326. ! $ARGS[1] = whether you got paid for this
  327. ! $ARGS[2] = whether this act came from a customer question or just flashing for passing cars
  328. if $ARGS[0] = 'pussyFlash':
  329. if $ARGS[1] = 'Paid':
  330. money += 50
  331. if litltown = 0:
  332. city_prostitute += 1
  333. elseif litltown = 1:
  334. pav_prostitute += 1
  335. end
  336. elseif $ARGS[1] = 'Free':
  337. gs 'exhibitionism', 3
  338. end
  339. if pcs_inhib < 40: inhib_exp += rand(4,6)
  340. pcs_mood += 5
  341. gs 'stat'
  342. if PCloPants > 0:
  343. i = rand(1, 9)
  344. '<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pussy/<<i>>.jpg"></center>'
  345. elseif PCloSkirt > 0:
  346. i = rand(1, 13)
  347. '<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/pussy/<<i>>.jpg"></center>'
  348. end
  349. if $ARGS[1] = 'Paid':
  350. if PCloPants > 0:'You pull your pants down and show him your pussy for a few seconds. Then you quickly cover up and take your money.'
  351. if PCloSkirt > 0:'You lift your skirt up and show him your pussy for a few seconds. Then you quickly cover up and take your money.'
  352. elseif $ARGS[1] = 'Free':
  353. if $ARGS[2] = 'Question':
  354. if PCloPants > 0:'You pull your pants down and show him your pussy for a few seconds. You rub your clit a little for him before you cover up.'
  355. if PCloSkirt > 0:'You lift your skirt up and show him your pussy for a few seconds. You rub your clit a little for him before you cover up.'
  356. elseif $ARGS[2] = 'Flash':
  357. if PCloPants > 0:'You pull your pants down and expose your pussy to the road for a few seconds. A couple cars pass by and honk in appreciation. You rub your clit a little before you cover up.'
  358. if PCloSkirt > 0:'You lift your skirt up and expose your pussy to the road for a few seconds. A couple cars pass by and honk in appreciation. You rub your clit a little before you cover up.'
  359. end
  360. end
  361. gs 'arousal', 'flashlite', 5
  362. gs 'stat'
  363. !if (sub >= 10 or pcs_dom >= 10 or bimbolevel >= 1 or pcs_horny >= 15) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':
  364. if (bimbolevel >= 1 or pcs_horny >= 15) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':
  365. carwashscene = rand(1, 100)
  366. if carwashscene <= min(max(60,slut_compare),100) and carwashscene >= 60:
  367. act 'Continue':gt 'zaprFWash', 'blowQ'
  368. else
  369. act 'Continue':gt 'zaprFWash', 'handQ'
  370. end
  371. else
  372. act 'Go back to the gas station':
  373. if $ARGS[1] = 'Paid': slutty += 1
  374. gt 'zaprF', 'start'
  375. end
  376. end
  377. end
  378. ! $ARGS[1] = whether you got paid for this
  379. if $ARGS[0] = 'handjob':
  380. ! generate random npc for sex
  381. gs 'npcgeneratec', 0, 'gas station customer', rand(18,40)
  382. gs 'boyStat', $npclastgenerated
  383. if $ARGS[1] = 'Paid':
  384. money += 200
  385. if litltown = 0:
  386. city_prostitute += 2
  387. elseif litltown = 1:
  388. pav_prostitute += 2
  389. end
  390. elseif $ARGS[1] = 'Free':
  391. pav_sex += 2
  392. end
  393. if pcs_inhib < 50: inhib_exp += rand(6,8)
  394. pcs_mood += 5
  395. gs 'stat'
  396. gifornot = rand (1, 100)
  397. if gifornot < 50:
  398. i = rand(1, 2)
  399. if i = 1:
  400. '<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
  401. else
  402. '<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
  403. end
  404. else
  405. i = rand(0, 2)
  406. if i = 0:
  407. '<center><video autoplay loop src="images/shared/sex/handjob/hj<<i>>.mp4"></video></center>'
  408. else
  409. '<center><video autoplay loop src="images/shared/sex/handjob/handjob<<i>>.mp4"></video></center>'
  410. end
  411. end
  412. if $ARGS[1] = 'Paid':
  413. 'You follow him behind the gas station, where you get the promised money, kneel down, unzip his pants and start working his shaft with your hands.'
  414. gs 'arousal', 'hj', 15, 'sub', 'prostitution', 'unknown'
  415. elseif $ARGS[1] = 'Free':
  416. 'You lead him behind the gas station, kneel down, unzip his pants and start working his shaft with your hands.'
  417. gs 'arousal', 'hj', 15, 'dom', 'unknown'
  418. end
  419. gs 'stat'
  420. 'After a while, the man starts pulling your head closer and closer to him. He asks you to blow him: "I''ll give you 200 <b>₽</b> if you open that mouth for me.'
  421. !if sub >= 10 or pcs_dom >= 10 or bimbolevel >= 1 or pcs_horny >= 30:
  422. if bimbolevel >= 1 or pcs_horny >= 30:
  423. if pcs_inhib >= 30 or pcs_horny >= 30:act 'Open your mouth for him':gt 'zaprFWash', 'blowjob', 'Paid', 'handjob'
  424. act 'Rub harder to make him cum':gt 'zaprFWash', 'handjobEndQ'
  425. else
  426. act 'Rub harder to make him cum':gt 'zaprFWash', 'handjobEndQ'
  427. end
  428. end
  429. ! $ARGS[1] = whether you got paid for this
  430. ! $ARGS[2] = whether this act came from a customer question or already giving a customer a handjob
  431. if $ARGS[0] = 'blowjob':
  432. if $ARGS[2] = 'Question':
  433. gs 'npcgeneratec', 0, 'gas station customer', rand(18,40)
  434. gs 'boyStat', $npclastgenerated
  435. end
  436. if $ARGS[1] = 'Paid':
  437. money += 200
  438. if litltown = 0:
  439. city_prostitute += 2
  440. elseif litltown = 1:
  441. pav_prostitute += 2
  442. end
  443. elseif $ARGS[1] = 'Free':
  444. pav_sex = 2
  445. end
  446. if pcs_inhib < 50: inhib_exp += rand(6,8)
  447. pcs_mood += 5
  448. gs 'stat'
  449. gifornot = rand (1, 100)
  450. if gifornot < 50:
  451. i = rand(1, 4)
  452. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/blowjob<<i>>.jpg"></center>'
  453. else
  454. i = rand(1, 3)
  455. '<center><video autoplay loop src="images/locations/shared/carwash/sex/blowjob<<i>>.mp4"></video></center>'
  456. end
  457. if $ARGS[2] = 'Question':
  458. if $ARGS[1] = 'Paid':
  459. 'You follow him behind the gas station, where you get the promised money, kneel down, unzip his pants and start working his shaft with your mouth.'
  460. gs 'arousal', 'bj', 15, 'sub', 'prostitution', 'unknown'
  461. elseif $ARGS[1] = 'Free':
  462. 'You lead him behind the gas station, kneel down, unzip his pants and start working his shaft with your mouth.'
  463. gs 'arousal', 'bj', 15, 'dom', 'unknown'
  464. end
  465. elseif $ARGS[2] = 'handjob':
  466. if $ARGS[1] = 'Paid':
  467. 'You grab the money he tosses at you and switch to working his shaft with your mouth.'
  468. gs 'arousal', 'bj', 15, 'sub', 'prostitution', 'unknown'
  469. elseif $ARGS[1] = 'Free':
  470. 'You switch to working his shaft with your mouth.'
  471. gs 'arousal', 'bj', 15, 'dom', 'unknown'
  472. end
  473. end
  474. gs 'stat'
  475. 'After a while, the man starts trying to remove your clothes. He asks you to let him fuck your pussy: "I''ll give you 400 <b>₽</b> if you let me take your pussy! C''mon!'
  476. !if sub >= 10 or pcs_dom >= 10 or bimbolevel >= 1 or pcs_horny >= 40:
  477. if bimbolevel >= 1 or pcs_horny >= 40:
  478. if pcs_vag = 0:
  479. if pcs_inhib >= 40 or pcs_horny >= 40: act 'Offer your ass instead (you don''t want to lose your virginity to this stranger...)':gt 'zaprFWash', 'fuckAnal', 'Paid'
  480. else
  481. if pcs_inhib >= 40 or pcs_horny >= 40: act 'Offer your pussy':gt 'zaprFWash', 'fuckPussy', 'Paid'
  482. if pcs_inhib >= 40 or pcs_horny >= 40: act 'Offer your ass':gt 'zaprFWash', 'fuckAnal', 'Paid'
  483. end
  484. act 'Suck harder to make him cum':gt 'zaprFWash', 'blowjobEndQ'
  485. else
  486. act 'Suck harder to make him cum':gt 'zaprFWash', 'blowjobEndQ'
  487. end
  488. end
  489. ! $ARGS[1] = whether you got paid for this
  490. if $ARGS[0] = 'fuckPussy':
  491. if $ARGS[1] = 'Paid':
  492. money += 400
  493. if litltown = 0:
  494. city_prostitute += 4
  495. elseif litltown = 1:
  496. pav_prostitute += 4
  497. end
  498. elseif $ARGS[1] = 'Free':
  499. pav_sex += 4
  500. end
  501. if pcs_inhib < 60: inhib_exp += rand(14,16)
  502. pcs_mood += 10
  503. gs 'stat'
  504. gifornot = rand (1, 100)
  505. if gifornot < 50:
  506. i = rand(1, 4)
  507. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/fuckpussy<<i>>.jpg"></center>'
  508. else
  509. i = rand(1, 4)
  510. '<center><video autoplay loop src="images/locations/shared/carwash/sex/fuckpussy<<i>>.mp4"></video></center>'
  511. end
  512. if $ARGS[1] = 'Paid':
  513. 'You bend over and let the man start fucking your pussy after collecting your money.'
  514. gs 'arousal', 'vaginal', 30, 'sub', 'prostitution', 'unknown'
  515. elseif $ARGS[1] = 'Free':
  516. 'You bend over and let the man start fucking your pussy.'
  517. gs 'arousal', 'vaginal', 30, 'dom', 'unknown'
  518. end
  519. gs 'stat'
  520. act 'Continue':gt 'zaprFWash', 'pussyEndQ'
  521. end
  522. ! $ARGS[1] = whether you got paid for this
  523. if $ARGS[0] = 'fuckAnal':
  524. if $ARGS[1] = 'Paid':
  525. money += 400
  526. if litltown = 0:
  527. city_prostitute += 4
  528. elseif litltown = 1:
  529. pav_prostitute += 4
  530. end
  531. elseif $ARGS[1] = 'Free':
  532. pav_sex += 4
  533. end
  534. if pcs_inhib < 60: inhib_exp += rand(14,16)
  535. pcs_mood += 10
  536. gs 'stat'
  537. gifornot = rand (1, 100)
  538. if gifornot < 50:
  539. i = rand(1, 4)
  540. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/fuckanal<<i>>.jpg"></center>'
  541. else
  542. i = rand(1, 4)
  543. '<center><video autoplay loop src="images/locations/shared/carwash/sex/fuckanal<<i>>.mp4"></video></center>'
  544. end
  545. if $ARGS[1] = 'Paid':
  546. 'You bend over and let the man start fucking your ass after you collect your money. His cock is still wet with your saliva as it slides inside you.'
  547. gs 'arousal', 'anal', 30, 'sub', 'prostitution', 'unknown'
  548. elseif $ARGS[1] = 'Free':
  549. 'You bend over and let the man start fucking your ass. His cock is still wet with your saliva as it slides inside you.'
  550. gs 'arousal', 'anal', 30, 'dom', 'unknown'
  551. end
  552. gs 'stat'
  553. rapePussyChance = rand(1, 100)
  554. if rapePussyChance <= min(max(1,slut_compare),20):
  555. act 'Continue':gt 'zaprFWash', 'rapePussy'
  556. else
  557. act 'Continue':gt 'zaprFWash', 'analEndQ'
  558. end
  559. end
  560. if $ARGS[0] = 'rapePussy':
  561. i = rand(1, 5)
  562. '<center><video autoplay loop src="images/locations/shared/carwash/sex/hardanal<<i>>.mp4"></video></center>'
  563. 'The man fucks your ass furiously, taking no heed to your painful moans. As you try to move away a bit to limit the depth he can reach in your ass, he slaps your buttcheeks hard and shouts:'
  564. '"Stop moving bitch! Who do you think you are, that you can tell me what to do?"'
  565. if pcs_vag = 0:
  566. 'He gropes your ass, lifts it up and suddenly spots your hymen.'
  567. '"What, you are a virgin? Such a tease and still a virgin, really?"'
  568. rapeAnyway = rand(1, 100)
  569. if rapeAnyway <= min(max(1,slut_compare),50):
  570. '"It would have happened sooner or later anyway, virgin slut. Now enjoy and remember this moment; I know I will!"'
  571. act 'Continue':gt 'zaprFWash', 'rapePussyYes', 'virgin'
  572. else
  573. '"Girls like you should not be acting like this! Someone should have taught you a lesson a long time ago."'
  574. act 'Continue':gt 'zaprFWash', 'punishSpank'
  575. end
  576. else
  577. act 'Continue':gt 'zaprFWash', 'rapePussyYes', 'normal'
  578. end
  579. end
  580. ! $ARGS[1] = whether you were a virgin before this or not
  581. if $ARGS[0] = 'rapePussyYes':
  582. inhib_exp += rand(10,20)
  583. i = rand(1, 3)
  584. '<center><video autoplay loop src="images/locations/shared/carwash/sex/pussytoanal<<i>>.mp4"></video></center>'
  585. if $ARGS[1] = 'virgin':
  586. !sub += 10
  587. pcs_mood -= 30
  588. 'He gropes your ass, lifts it up and pushes his dick inside your pussy in one thrust! You feel your hymen break and know your virginity is gone forever. What will your friends and family think of you now if they find out?'
  589. elseif $ARGS[1] = 'normal':
  590. !sub += 6
  591. pcs_mood -= 20
  592. 'He gropes your ass, lifts it up and pushes his dick inside your pussy in one thrust, all the way to the hilt!'
  593. end
  594. gs 'arousal', 'vaginal', 30, 'sub', 'prostitution', 'rough', 'rape', 'unknown'
  595. gs 'stat'
  596. act 'Continue':gt 'zaprFWash', 'vaginaCum', 'rape'
  597. end
  598. if $ARGS[0] = 'pussyEndQ':
  599. 'You can feel that the man is about to orgasm. You decide to...:'
  600. act 'Let him cum inside your vagina':gt 'zaprFWash', 'vaginaCum', 'consensual'
  601. act 'Take his cum on your face':gt 'zaprFWash', 'blowjobEndFace', 'inside'
  602. act 'Let him cum inside your mouth':gt 'zaprFWash', 'blowjobEndMouth', 'inside'
  603. end
  604. if $ARGS[0] = 'analEndQ':
  605. 'You can feel that the man is about to ejaculate. You decide to...:'
  606. act 'Let him cum inside your ass':gt 'zaprFWash', 'assCum'
  607. act 'Take his cum on your face':gt 'zaprFWash', 'blowjobEndFace', 'inside'
  608. act 'Let him cum inside your mouth':gt 'zaprFWash', 'blowjobEndMouth', 'inside'
  609. end
  610. ! $ARGS[1] = whether this was rape or not
  611. if $ARGS[0] = 'vaginaCum':
  612. if pcs_inhib < 40: inhib_exp += rand(4,6)
  613. pcs_vag += 1
  614. pain['vaginal'] += 4
  615. gs 'cum_call', ''
  616. gs 'stat'
  617. i = rand(1, 5)
  618. '<center><video autoplay loop src="images/locations/shared/carwash/sex/cumpussy<<i>>.mp4"></video></center>'
  619. if $ARGS[1] = 'consensual':
  620. pcs_mood += 20
  621. 'You let him cum deep inside your vagina. A pleasant warmth fills your insides as he shoots his load deep inside you. When he pulls out, a bit of sperm leaks out of your hole.'
  622. elseif $ARGS[1] = 'rape':
  623. pcs_mood -= 20
  624. 'The pounding suddenly stops as he cums deep inside your vagina. You can feel his cum inside of you as he continues to shoot his load inside your vagina. When he pulls out, a bit of sperm leaks out of your hole.'
  625. end
  626. gs 'arousal', 'end'
  627. gs 'stat'
  628. act 'Go back to the gas station':gt 'zaprF', 'start'
  629. end
  630. if $ARGS[0] = 'assCum':
  631. if pcs_inhib < 40: inhib_exp += rand(4,6)
  632. minut += 5
  633. pcs_mood += 10
  634. pcs_ass += 1
  635. pain['asshole'] += 1
  636. gs 'cum_call', 'anus'
  637. gs 'stat'
  638. i = rand(1, 2)
  639. '<center><video autoplay loop src="images/locations/shared/carwash/sex/cumanal<<i>>.mp4"></video></center>'
  640. 'You let him cum deep inside your ass. A pleasant warmth fills your insides as he shoots his load deep inside you. When he pulls out, a bit of sperm leaks out of your hole before you can tighten your worn out anus.'
  641. gs 'arousal', 'end'
  642. gs 'stat'
  643. act 'Go back to gas station':gt 'zaprF', 'start'
  644. end
  645. if $ARGS[0] = 'handjobEndQ':
  646. 'You can feel that the man is about to orgasm. You decide to take it...:'
  647. act 'On your face':gt 'zaprFWash', 'blowjobEndFace', 'outside'
  648. act 'On your hands':gt 'zaprFWash', 'handjobEndHands'
  649. end
  650. if $ARGS[0] = 'handjobEndHands':
  651. if pcs_inhib < 30: inhib_exp += rand(2,4)
  652. pcs_mood += 5
  653. gs 'cum_call', 'hands'
  654. gs 'stat'
  655. gifornot = rand (1, 100)
  656. if gifornot < 30:
  657. i = rand(0, 1)
  658. '<center><video autoplay loop src="images/shared/sex/cum/handjob/hand0,<<i>>.mp4"></video></center>'
  659. else
  660. i = rand(1, 2)
  661. '<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand<<i>>.jpg"></center>'
  662. end
  663. 'When the man starts to ejaculate, you quickly point his cock away from your face. Your hands are covered in cum by the time he is done ejaculating. His sack was full, you can say that for sure.'
  664. gs 'arousal', 'end'
  665. gs 'stat'
  666. act 'Go back to the gas station':gt 'zaprF', 'start'
  667. end
  668. if $ARGS[0] = 'blowjobEndQ':
  669. 'You can feel that the man is about to orgasm. You decide to take it...:'
  670. act 'On your face':gt 'zaprFWash', 'blowjobEndFace', 'outside'
  671. act 'In your mouth':gt 'zaprFWash', 'blowjobEndMouth', 'outside'
  672. end
  673. ! $ARGS[1] = whether his cock was inside or outside of you before he cums on your face
  674. if $ARGS[0] = 'blowjobEndFace':
  675. if pcs_inhib < 30: inhib_exp += rand(2,4)
  676. pcs_mood += 5
  677. gs 'cum_call', 'face'
  678. gs 'stat'
  679. gifornot = rand (1, 100)
  680. if gifornot < 30:
  681. i = rand(1, 2)
  682. '<center><video autoplay loop src="images/locations/shared/carwash/sex/cumface<<i>>.mp4"></video></center>'
  683. else
  684. i = rand(1, 4)
  685. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/cumface<<i>>.jpg"></center>'
  686. end
  687. if $ARGS[1] = 'outside':
  688. 'When the man starts to ejaculate, you quickly point his cock towards your face. Your face is covered in cum by the time he is done ejaculating. His sack was full, you can say that for sure.'
  689. elseif $ARGS[1] = 'inside':
  690. 'When the man starts to ejaculate, you quickly take his cock out of you and point it towards your face. Your face is covered in cum by the time he is done ejaculating. His sack was full, you can say that for sure.'
  691. end
  692. gs 'arousal', 'end'
  693. gs 'stat'
  694. act 'Go back to the gas station':gt 'zaprF', 'start'
  695. end
  696. ! $ARGS[1] = whether his cock was inside or outside of you before he cums in your mouth
  697. if $ARGS[0] = 'blowjobEndMouth':
  698. gs 'cum_call', 'mouth'
  699. gs 'stat'
  700. gifornot = rand (1, 100)
  701. if gifornot < 60:
  702. i = rand(1, 4)
  703. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/cummouth<<i>>.jpg"></center>'
  704. else
  705. '<center><video autoplay loop src="images/locations/shared/carwash/sex/cummouth1.mp4"></video></center>'
  706. end
  707. if $ARGS[1] = 'outside':
  708. 'When the man starts to ejaculate, you quickly open your mouth while keeping his cock aimed straight at your tongue, giving him a good view of the cum as it flies inside your mouth. His sack was full, you can say that for sure.'
  709. elseif $ARGS[1] = 'inside':
  710. 'When the man starts to ejaculate, you quickly take his cock out of you and aim it straight at your tongue, giving him a good view of the cum as it flies inside your mouth. His sack was full, you can say that for sure.'
  711. end
  712. gs 'arousal', 'end'
  713. gs 'stat'
  714. act 'Continue':gt 'zaprFWash', 'blowjobEndMouthQ'
  715. end
  716. if $ARGS[0] = 'blowjobEndMouthQ':
  717. 'Your mouth is full of sperm. You decide to...:'
  718. act 'Swallow and then show him your empty mouth':gt 'zaprFWash', 'blowjobEndMouthSwallow'
  719. act 'Spit it out in front of him':gt 'zaprFWash', 'blowjobEndMouthSpit'
  720. end
  721. if $ARGS[0] = 'blowjobEndMouthSwallow':
  722. if pcs_inhib < 40: inhib_exp += rand(4,6)
  723. swallow += 1
  724. !sub += 1
  725. pcs_mood += 10
  726. gs 'stat'
  727. i = rand(1, 4)
  728. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/swallow<<i>>.jpg"></center>'
  729. 'You gulp down the mouthful of sperm and then present your tongue as a proof that all of his seed is now in your belly.'
  730. 'The man smiles, slaps you mildly on your face and says: "What a nice young slut you are. Next time I need a refill, I''ll be sure to stop by."'
  731. gs 'arousal', 'end'
  732. gs 'stat'
  733. act 'Go back to the gas station':gt 'zaprF', 'start'
  734. end
  735. if $ARGS[0] = 'blowjobEndMouthSpit':
  736. if pcs_inhib < 30: inhib_exp += rand(2,4)
  737. !pcs_dom += 3
  738. gs 'stat'
  739. gifornot = rand (1, 100)
  740. if gifornot > 50:
  741. i = rand(1, 3)
  742. '<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/spit<<i>>.jpg"></center>'
  743. else
  744. '<center><video autoplay loop src="images/locations/shared/carwash/sex/spit1.mp4"></video></center>'
  745. end
  746. 'You spit the load of sperm down between the legs of your customer. He doesn''t seem happy about it...'
  747. 'His face darkens and he says: "What, my cum isn''t good enough for you to swallow? I''ll teach you bitch!"'
  748. 'He moves closer to you with an angry look!'
  749. act 'Run back to the gas station':gt 'zaprFWash', 'runback'
  750. end
  751. if $ARGS[0] = 'runback':
  752. minut += 5
  753. ! runSuccess uses a simpler version of the formula used with carwashscene
  754. ! just based on strength and agility; uses whichever is higher to try and run away
  755. ! min 25 percent chance; max 75 percent chance for this initial getaway
  756. runSuccess = rand(1, 100)
  757. if runSuccess <= min(max(25,pcs_stren,pcs_agil),75):
  758. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/turn_back.jpg"></center>'
  759. 'You managed to escape his grasp! You take a quick look behind you to make sure he''s not following you before heading back to the gas station.'
  760. gs 'arousal', 'end'
  761. gs 'stat'
  762. act 'Escape':gt 'zaprF', 'start'
  763. else
  764. pain['cheeks'] += 2
  765. pain['head'] += 2
  766. pain['mouth'] += 2
  767. pain['neck'] += 4
  768. '<center><video autoplay loop src="images/locations/shared/carwash/sex/punishbeatface.mp4"></video></center>'
  769. 'You weren''t quick enough and he caught you. He pushes you down and starts to slap your face!'
  770. gs 'arousal', 'end'
  771. gs 'stat'
  772. act 'Endure his punishment':gt 'zaprFWash', 'punish'
  773. ! gave doms the choice to fight back as long as they have some energy related stat with something left even if they lost the roll for runSuccess
  774. ! these values are based off of the cheat menu values for players who turn off these stats as they can never go below 35
  775. gs 'willpower', 'skill', 'force', 'stren_lvl'
  776. will_cost = (will_cost * 3) / 2
  777. if will_cost <= pcs_willpwr:
  778. act 'Push him off of you and escape (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'force' & gt 'zaprFWash', 'fight'
  779. else
  780. act 'Push him off of you and escape (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  781. end
  782. end
  783. end
  784. if $ARGS[0] = 'fight':
  785. ! maybe at some point this could be an actual fight but with the state of the combat logic is in this will just be left to drain a stat to escape
  786. ! these values are based off of the cheat menu values for players who turn off these stats as they can never go below 35
  787. if pcs_energy >= 35:
  788. pcs_energy -= 35
  789. elseif pcs_hydra >= 35:
  790. pcs_hydra -= 35
  791. elseif pcs_sleep >= 35:
  792. pcs_sleep -= 35
  793. end
  794. gs 'arousal', 'end'
  795. gs 'stat'
  796. gt 'zaprF', 'start'
  797. end
  798. if $ARGS[0] = 'punish':
  799. ! once again punishType uses the same logic as carwashscene for dynamic choices
  800. punishType = rand(1, 100)
  801. if punishType <= min(max(50,slut_compare),75) and punishType >= 50:
  802. gt 'zaprFWash', 'punishAnal'
  803. elseif punishType <= min(max(75,slut_compare),100) and punishType >= 75:
  804. gt 'zaprFWash', 'punishPussyQ'
  805. else
  806. gt 'zaprFWash', 'punishSpank'
  807. end
  808. end
  809. if $ARGS[0] = 'punishSpank':
  810. pcs_horny = 0
  811. pcs_mood -= 10
  812. !sub += 2
  813. inhib_exp += rand(2,4)
  814. pain['asscheeks'] += 5
  815. gs 'stat'
  816. '<center><video autoplay loop src="images/locations/shared/carwash/sex/punishspank.mp4"></video></center>'
  817. 'The angry man drags you to a more secluded area, bends you over and starts to spank your ass very hard.'
  818. 'After twenty minutes of ruthless punishment, you can finally crawl away with your burning ass.'
  819. gs 'arousal', 'foreplay', 15, 'sub', 'rough', 'unknown'
  820. gs 'arousal', 'end'
  821. gs 'stat'
  822. ! reputationScalar has a min of 1 and a max of 180; the more well known you are the higher the chance of being abducted
  823. reputationScalar = min(max(1,slut_compare),180)
  824. ! fitnessScalar has a min of 1 and a max of 90; the more fit you are the lower the chance of being abducted
  825. fitnessScalar = min(max(1,pcs_stren,pcs_agil),90)
  826. ! abductionChance is calculated using a combination of these 2 values
  827. ! in the beginning of the game fitness will usually outweigh your reputation and keep your abductionChance very low (min is 0)
  828. ! once reputation begins to rise it will even out with the fitness and abductionChance will stabilize at an average value (around 45)
  829. ! but fitness caps at 100 and reputation does not so eventually if your reputation grows to be very large the abductionChance will continue to rise (max of 90)
  830. abductionChance = reputationScalar-fitnessScalar
  831. !if (abductionChance > 0 and abductionChance <= rand(1,100)) or sub > 99:
  832. if (abductionChance > 0 and abductionChance <= rand(1,100)):
  833. 'But your perpetrator isn''t done with you.'
  834. 'He catches you again, drags you to his car and pushes you into the trunk...'
  835. 'You have a feeling this probably will not go well for you...'
  836. act 'Cry for help':gt 'abduction', 'start'
  837. else
  838. 'Your perpetrator stands up and just watches as you crawl away in pain.'
  839. 'He turns around and calmly walks away, leaving you alone.'
  840. act 'Escape':gt 'zaprF', 'start'
  841. end
  842. end
  843. if $ARGS[0] = 'punishAnal':
  844. pcs_horny = 0
  845. pcs_mood -= 20
  846. !sub += 4
  847. pain['asshole'] += 6
  848. inhib_exp += rand(5,10)
  849. gs 'cum_call', 'anus'
  850. gs 'stat'
  851. i = rand(1, 3)
  852. '<center><video autoplay loop src="images/locations/shared/carwash/sex/punishanal<<i>>.mp4"></video></center>'
  853. 'The angry man drags you to a more secluded area, bends you over, and sticks a finger in your ass.'
  854. 'Your anus fully exposed, he starts fucking it ruthlessly.'
  855. 'After half an hour of rough assfucking he releases his grip on you so you can finally crawl away; your aching ass sore from the brutal penetration.'
  856. gs 'arousal', 'anal', 30, 'sub', 'rough', 'rape', 'unknown'
  857. gs 'arousal', 'end'
  858. gs 'stat'
  859. reputationScalar = min(max(1,slut_compare),180)
  860. fitnessScalar = min(max(1,pcs_stren,pcs_agil),90)
  861. abductionChance = reputationScalar-fitnessScalar
  862. !if (abductionChance > 0 and abductionChance <= rand(1,100)) or sub > 99:
  863. if (abductionChance > 0 and abductionChance <= rand(1,100)):
  864. 'But your perpetrator isn''t done with you.'
  865. 'He catches you again, drags you to his car and pushes you into the trunk...'
  866. 'You have a feeling this probably will not go well for you...'
  867. act 'Cry for help':gt 'abduction', 'start'
  868. else
  869. 'Your perpetrator stands up and just watches as you crawl away in pain.'
  870. 'He turns around and calmly walks away, leaving you alone.'
  871. act 'Escape':gt 'zaprF', 'start'
  872. end
  873. end
  874. if $ARGS[0] = 'punishPussyQ':
  875. 'The angry man drags you to a more secluded area. He bends you over and starts to rub your pussy.'
  876. if pcs_vag = 0:
  877. 'Suddenly he remarks: "What? You''re a virgin? Such slutty tease and still a virgin?'
  878. penetrate = rand (1, 100)
  879. if penetrate <= min(max(50,slut_compare),75) and penetrate >= 50:
  880. 'I''ll spare your virginity but you''ll get fucked anyway. Sluts have more than one hole for a reason, right?'
  881. act 'Endure':gt 'zaprFWash', 'punishAnal'
  882. elseif penetrate <= min(max(75,slut_compare),100) and penetrate >= 75:
  883. 'This makes it even better! I''ll enjoy your tears even more! I haven''t had a virgin in forever!'
  884. act 'Endure':gt 'zaprFWash', 'punishPussy', 'virgin'
  885. else
  886. 'Someone should have done this a long time ago, but I''ll spare you penetration this time!'
  887. act 'Endure':gt 'zaprFWash', 'punishSpank'
  888. end
  889. else
  890. 'Let''s try what you''ve been teasing, you ungrateful whore!'
  891. act 'Endure':gt 'zaprFWash', 'punishPussy', 'normal'
  892. end
  893. end
  894. ! $ARGS[1] = whether you were a virgin before this or not
  895. if $ARGS[0] = 'punishPussy':
  896. pcs_horny = 0
  897. pain['vaginal'] += 4
  898. inhib_exp += rand(5,10)
  899. gs 'cum_call', ''
  900. gs 'stat'
  901. i = rand(1, 5)
  902. '<center><video autoplay loop src="images/locations/shared/carwash/sex/punishpussy<<i>>.mp4"></video></center>'
  903. if $ARGS[1] = 'virgin':
  904. !sub += 10
  905. 'Your pussy fully exposed, he slowly inserts his cock inside of you. He pushes right up against your hymen, savoring the moment. Suddenly, you feel your hymen break and know your virginity is gone forever. What will your friends and family think of you now if they find out?'
  906. pcs_mood -= 40
  907. elseif $ARGS[1] = 'normal':
  908. !sub += 6
  909. 'Your pussy fully exposed, he starts fucking it ruthlessly.'
  910. pcs_mood -= 20
  911. end
  912. 'After half an hour of destroying your cunt he releases his grip on you so you can finally crawl away; your aching pussy sore from the brutal penetration.'
  913. gs 'arousal', 'vaginal', 30, 'sub', 'rough', 'rape', 'unknown'
  914. gs 'arousal', 'end'
  915. gs 'stat'
  916. reputationScalar = min(max(1,slut_compare),180)
  917. fitnessScalar = min(max(1,pcs_stren,pcs_agil),90)
  918. abductionChance = reputationScalar-fitnessScalar
  919. if (abductionChance > 0 and rand(1,100) <= abductionChance) or sub > 99:
  920. 'But your perpetrator isn''t done with you.'
  921. 'He catches you again, drags you to his car and pushes you into the trunk...'
  922. 'You have a feeling this probably will not go well for you...'
  923. act 'Cry for help':gt 'abduction', 'start'
  924. else
  925. 'Your perpetrator stands up and just watches as you crawl away in pain.'
  926. 'He turns around and calmly walks away, leaving you alone.'
  927. act 'Escape':gt 'zaprF', 'start'
  928. end
  929. end
  930. --- zaprFWash ---------------------------------