zaprFWash 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442
  1. # zaprFWash
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. if $ARGS[0] = 'start':
  7. $metka = $ARGS[0]
  8. $loc = $CURLOC
  9. cla
  10. clr
  11. if spdirtyc > 0 or spdirtyv > 0:
  12. minut += 5
  13. 'The gas station worker chases you away: "Go at least wash yourself, whore!"'
  14. act 'Leave':gt 'zaprF', 'start'
  15. else
  16. if (PCloBimbo = 1 or PCloStyle = 4) and pcs_apprnc >= 60:
  17. minut += 60
  18. pcs_sweat += 2
  19. money += 120
  20. skimpyCustomerChance = rand(1, 100)
  21. if skimpyCustomerChance > 30:
  22. gt 'zaprFWash', 'titsQ'
  23. else
  24. gt 'zaprFWash', 'wash'
  25. end
  26. else
  27. minut += 60
  28. pcs_sweat += 2
  29. money += 80
  30. gt 'zaprFWash', 'wash'
  31. end
  32. end
  33. end
  34. if $ARGS[0] = 'wash':
  35. if PCloBimbo = 1 or PCloStyle = 4:
  36. i = rand(1, 4)
  37. '<center><img src="images\locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
  38. else
  39. i = rand(1, 4)
  40. '<center><img src="images\locations/shared/carwash/regular<<i>>.jpg"></center>'
  41. end
  42. 'You washed windows of several cars and earned some cash.'
  43. act 'Continue':gt 'zaprF', 'start'
  44. end
  45. if $ARGS[0] = 'titsQ':
  46. i = rand(1, 4)
  47. '<center><img src="images\locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
  48. 'You wash another car. The driver finishes filling his tank and goes towards you giving you some change. It''s obvious he''d like something more.'
  49. 'Want to earn more? Show me your tits, girl. Theres 100 in it, just like that.'
  50. act 'Agree and show him your tits':gt 'zaprFWash', 'titsFlash'
  51. act 'Refuse':gt 'zaprF', 'start'
  52. end
  53. if $ARGS[0] = 'assQ':
  54. i = rand(1, 4)
  55. '<center><img src="images\locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
  56. 'That was cool, girl. How about your ass, will another 100 make it flash for me?'
  57. act 'Agree and show him your ass':gt 'zaprFWash', 'assFlash'
  58. act 'Refuse':gt 'zaprF', 'start'
  59. end
  60. if $ARGS[0] = 'blowQ':
  61. i = rand(1, 4)
  62. '<center><img src="images\locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
  63. 'Wonderful ass! I have a problem now, girl. It''s getting tight down here, in my pants. Want to put your mouth to a good use? There is another 300 in it.'
  64. act 'Agree and give him blowjob':gt 'zaprFWash', 'blowjob'
  65. act 'Refuse':gt 'zaprF', 'start'
  66. end
  67. if $ARGS[0] = 'titsFlash':
  68. minut += 5
  69. money += 100
  70. pcs_horny += 2
  71. gifornot = rand (1, 100)
  72. if gifornot < 30:
  73. i = rand(1, 3)
  74. '<center><img src="images\locations/shared/carwash/titsflash<<i>>.jpg"></center>'
  75. else
  76. i = rand(1, 7)
  77. '<center><img src="images\locations/shared/carwash/titsflash<<i>>.gif"></center>'
  78. end
  79. 'You quickly pull up your top and show him your naked breasts for a few seconds. Then you hurry to cower up and quickly take your money.'
  80. if sub >= 30 or bimbolevel >= 1 or pcs_horny > 4:
  81. act 'Continue':gt 'zaprFWash', 'assQ'
  82. else
  83. act 'Run away':gt 'zaprF', 'start'
  84. end
  85. end
  86. if $ARGS[0] = 'assFlash':
  87. minut += 5
  88. money += 100
  89. pcs_horny += 4
  90. gifornot = rand (1, 100)
  91. if gifornot < 30:
  92. i = rand(1, 2)
  93. '<center><img src="images\locations/shared/carwash/assflash<<i>>.jpg"></center>'
  94. else
  95. i = rand(1, 5)
  96. '<center><img src="images\locations/shared/carwash/assflash<<i>>.gif"></center>'
  97. end
  98. 'You quickly pull down your pants and show him your ass for a few seconds. Then you hurry to cower up and quickly take your money.'
  99. if sub >= 30 or bimbolevel >= 1 or pcs_horny > 6:
  100. act 'Continue':gt 'zaprFWash', 'blowQ'
  101. else
  102. act 'Run away':gt 'zaprF', 'start'
  103. end
  104. end
  105. if $ARGS[0] = 'blowjob':
  106. gs 'npcgeneratec', 0, 'gas station customer', rand(18,40)
  107. gs 'boyStat', $npclastgenerated
  108. minut += 15
  109. money += 300
  110. gifornot = rand (1, 100)
  111. if gifornot < 30:
  112. i = rand(1, 4)
  113. '<center><img src="images\locations/shared/carwash/sex/blowjob<<i>>.jpg"></center>'
  114. else
  115. i = rand(1, 3)
  116. '<center><img src="images\locations/shared/carwash/sex/blowjob<<i>>.gif"></center>'
  117. end
  118. 'You go with him behind the gas station, where you get the promised money, kneel down, unzip his pants and start working with your mouth.'
  119. 'After a while, the man starts trying to remove your clothes. He asks you to surrender to him your pussy: "I''ll give you another 300 if you let me take your pussy! C''mon!'
  120. if sub >= 30 or bimbolevel >= 1 or pcs_horny > 6:
  121. if pcs_vag = 0:
  122. act 'Offer your ass instead (you don''t want to loose virginity to this stranger..)':gt 'zaprFWash', 'fuckAnal'
  123. else
  124. act 'Offer your pussy':gt 'zaprFWash', 'fuckPussy'
  125. act 'Offer your ass':gt 'zaprFWash', 'fuckAnal'
  126. end
  127. act 'Suck stronger to make him cum':gt 'zaprFWash', 'blowjobEndQ'
  128. else
  129. act 'Suck stronger to make him cum':gt 'zaprFWash', 'blowjobEndQ'
  130. end
  131. end
  132. if $ARGS[0] = 'fuckPussy':
  133. money += 300
  134. minut += 30
  135. pcs_vag += 1
  136. stat['vaginal'] += 1
  137. gs 'cum_call', ''
  138. gs 'stat'
  139. gifornot = rand (1, 100)
  140. if gifornot < 40:
  141. i = rand(1, 4)
  142. '<center><img src="images\locations/shared/carwash/sex/fuckpussy<<i>>.jpg"></center>'
  143. else
  144. i = rand(1, 4)
  145. '<center><img src="images\locations/shared/carwash/sex/fuckpussy<<i>>.gif"></center>'
  146. end
  147. 'You bent you over and the man started fucking your pussy.'
  148. act 'Continue':gt 'zaprFWash', 'pussyEndQ'
  149. end
  150. if $ARGS[0] = 'fuckAnal':
  151. money += 300
  152. minut += 30
  153. gifornot = rand (1, 100)
  154. if gifornot < 40:
  155. i = rand(1, 4)
  156. '<center><img src="images\locations/shared/carwash/sex/fuckanal<<i>>.jpg"></center>'
  157. else
  158. i = rand(1, 4)
  159. '<center><img src="images\locations/shared/carwash/sex/fuckanal<<i>>.gif"></center>'
  160. end
  161. 'You bent you over and the man started fucking your ass with his cock already wet from your saliva.'
  162. rapePussyChance = rand(1, 100)
  163. if rapePussyChance < 10:
  164. act 'Continue':gt 'zaprFWash', 'rapePussy'
  165. else
  166. act 'Continue':gt 'zaprFWash', 'analEndQ'
  167. end
  168. end
  169. if $ARGS[0] = 'rapePussy':
  170. i = rand(1, 5)
  171. '<center><img src="images\locations/shared/carwash/sex/hardanal<<i>>.gif"></center>'
  172. 'The man fucks your ass furiously, taking no regard to your painful moans. As you try to move away a bit to limit the depth of him being in your ass, he slaps your buttcheeks hard and shouts:'
  173. '"Stop moving bitch! What do you think you are that you can tell me what to do?"'
  174. if pcs_vag = 0:
  175. 'He gropes your ass, lifts it up and suddenly he sees your virgin membrane.'
  176. '"What, you are a virgin? Such slut and virgin, really?"'
  177. rapeAnyway = rand(1, 100)
  178. if rapeAnyway < 50:
  179. '"It would have come to you, virgin slut, sooner or later. Now enjoy and remember this moment!"'
  180. act 'Continue':gt 'zaprFWash', 'rapePussyYes'
  181. else
  182. '"Girls like you should not be whoring like that! Someone was supposed to give you a hard lesson long time ago."'
  183. act 'Continue':gt 'zaprFWash', 'punishSpank'
  184. end
  185. else
  186. act 'Continue':gt 'zaprFWash', 'rapePussyYes'
  187. end
  188. pcs_mood = 5
  189. gs 'stat'
  190. end
  191. if $ARGS[0] = 'rapePussyYes':
  192. 'He gropes your ass, lifts it up and pushes his dick inside your pussy in one thrust, all the way in!'
  193. i = rand(1, 3)
  194. '<center><img src="images\locations/shared/carwash/sex/pussytoanal<<i>>.gif"></center>'
  195. act 'Continue':gt 'zaprFWash', 'vaginaCum'
  196. end
  197. if $ARGS[0] = 'analEndQ':
  198. 'You can feel that the man is reaching orgasm. You decide to..:'
  199. act 'Let him cum in your ass':gt 'zaprFWash', 'assCum'
  200. act 'Take his cum on your face':gt 'zaprFWash', 'blowjobEndFace'
  201. act 'Let him cum inside your mouth':gt 'zaprFWash', 'blowjobEndMouth'
  202. end
  203. if $ARGS[0] = 'pussyEndQ':
  204. 'You can feel that the man is reaching orgasm. You decide to..:'
  205. act 'Let him cum in your vagina':gt 'zaprFWash', 'vaginaCum'
  206. act 'Take his cum on your face':gt 'zaprFWash', 'blowjobEndFace'
  207. act 'Let him cum inside your mouth':gt 'zaprFWash', 'blowjobEndMouth'
  208. end
  209. if $ARGS[0] = 'assCum':
  210. minut += 5
  211. pain['asshole'] += 1
  212. pcs_ass += 1
  213. gs 'cum_call', 'anus'
  214. gs 'stat'
  215. i = rand(1, 2)
  216. '<center><img src="images\locations/shared/carwash/sex/cumanal<<i>>.gif"></center>'
  217. 'You let him cum deep inside your ass. Pleasant warmth fills your insides as he flushes his load deep inside you. When he pulls out, a bit of sperm goes out of your hole, before you can tighten your fucked out anus.'
  218. act 'Go back to gas station':gt 'zaprF', 'start'
  219. end
  220. if $ARGS[0] = 'vaginaCum':
  221. minut += 5
  222. pcs_vag += 1
  223. stat['vaginal'] += 1
  224. pain['vaginal'] += 4
  225. gs 'cum_call', ''
  226. gs 'stat'
  227. i = rand(1, 5)
  228. '<center><img src="images\locations/shared/carwash/sex/cumpussy<<i>>.gif"></center>'
  229. 'You let him cum deep inside your vagina. Pleasant warmth fills your insides as he flushes his load deep inside you. When he pulls out, a bit of sperm goes out of your hole.'
  230. act 'Go back to gas station':gt 'zaprF', 'start'
  231. end
  232. if $ARGS[0] = 'blowjobEndQ':
  233. 'You can feel that the man is reaching orgasm. You decide to take it..:'
  234. act 'On your face':gt 'zaprFWash', 'blowjobEndFace'
  235. act 'In your mouth':gt 'zaprFWash', 'blowjobEndMouth'
  236. end
  237. if $ARGS[0] = 'blowjobEndFace':
  238. minut += 5
  239. if gifornot < 30:
  240. i = rand(1, 2)
  241. '<center><img src="images\locations/shared/carwash/sex/cumface<<i>>.gif"></center>'
  242. else
  243. i = rand(1, 4)
  244. '<center><img src="images\locations/shared/carwash/sex/cumface<<i>>.jpg"></center>'
  245. end
  246. 'When the man started to ejaculate, you have quickly taken his cock out and pointed it towards your face. His sack was full, you can say that for sure.'
  247. gs 'cum_call', 'face'
  248. act 'Go back to gas station':gt 'zaprF', 'start'
  249. end
  250. if $ARGS[0] = 'blowjobEndMouth':
  251. minut += 5
  252. gifornot = rand (1, 100)
  253. if gifornot < 30:
  254. i = rand(1, 4)
  255. '<center><img src="images/locations/shared/carwash/sex/cummouth<<i>>.jpg"></center>'
  256. else
  257. '<center><img src="images/locations/shared/carwash/sex/cummouth1.gif"></center>'
  258. end
  259. 'When the started to ejaculate, you have quickly taken his cock slightly out of your mouth and pointed it towards it, so he can see the cum flying inside you. His sack was full, you can say that for sure.'
  260. gs 'cum_call', 'mouth'
  261. act 'Continue':gt 'zaprFWash', 'blowjobEndMouthQ'
  262. end
  263. if $ARGS[0] = 'blowjobEndMouthQ':
  264. 'Your mouth is full of sperm. You decide to..:'
  265. act 'Swallow and show him your empty mouth':gt 'zaprFWash', 'blowjobEndMouthSwallow'
  266. act 'Spit it out in front of him':gt 'zaprFWash', 'blowjobEndMouthSpit'
  267. end
  268. if $ARGS[0] = 'blowjobEndMouthSwallow':
  269. 'You gulp the mouthfull of sperm and stick out your tongue as a proof that all is gone in your belly.'
  270. i = rand(1, 4)
  271. '<center><img src="images\locations/shared/carwash/sex/swallow<<i>>.jpg"></center>'
  272. '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."'
  273. act 'Go back to gas station':gt 'zaprF', 'start'
  274. end
  275. if $ARGS[0] = 'blowjobEndMouthSpit':
  276. 'You spit the moutfull down between the legs of your customer. He doesnt seem happy about it...'
  277. i = rand(1, 3)
  278. gifornot = rand (1, 100)
  279. if gifornot > 30:
  280. '<center><img src="images\locations/shared/carwash/sex/spit<<i>>.jpg"></center>'
  281. else
  282. '<center><img src="images\locations/shared/carwash/sex/spit1.gif"></center>'
  283. end
  284. 'His face darkens and he says: "What, my cum is not good enough for you to swallow? I''ll teach you bitch!"'
  285. 'He moves onto you with angry scary face!'
  286. act 'Run away back to gas station':gt 'zaprFWash', 'runback'
  287. end
  288. if $ARGS[0] = 'runback':
  289. runSuccess = rand(1, 100)
  290. if runSuccess > 50:
  291. 'You have managed to escape his grasp!'
  292. act 'Continue':gt 'zaprF', 'start'
  293. else
  294. pain['cheeks'] += 2
  295. pain['head'] += 2
  296. pain['mouth'] += 2
  297. pain['neck'] += 4
  298. '<center><img src="images/locations/shared/carwash/sex/punishbeatface.gif"></center>'
  299. 'You werent quick enough and he caught you. He pushed you down and started to slap your face!'
  300. act 'Endure his punishment':gt 'zaprFWash', 'punish'
  301. end
  302. end
  303. if $ARGS[0] = 'punish':
  304. punishType = rand(1, 100)
  305. if punishType < 33:
  306. gt 'zaprFWash', 'punishSpank'
  307. elseif punishType < 66:
  308. gt 'zaprFWash', 'punishPussyQ'
  309. else
  310. gt 'zaprFWash', 'punishAnal'
  311. end
  312. end
  313. if $ARGS[0] = 'punishSpank':
  314. minut += 20
  315. pcs_horny = 0
  316. pain['asscheeks'] += 5
  317. '<center><img src="images/locations/shared/carwash/sex/punishspank.gif"></center>'
  318. 'The angry man bent you over an old chair, took down your pants and began to spank you. Hard.'
  319. 'After twenty minutes of ruthless punishment, you can finally crawl away with your burning ass.'
  320. abductionChance = rand(1, 100)
  321. if abductionChance <= 10 or sub > 90 and leonidSlave = 0:
  322. act 'Continue':gt 'zaprFWash', 'getAbducted'
  323. else
  324. act 'Get back to gas station':gt 'zaprF', 'start'
  325. end
  326. pcs_mood = 5
  327. gs 'stat'
  328. end
  329. if $ARGS[0] = 'punishPussyQ':
  330. 'The angry man dragged you to an old house. He bend you over something and started to rub your pussy.'
  331. if pcs_vag = 0:
  332. 'Suddenly he shouted: "What? You are a virgin? Such self selling slut and still a virgin?'
  333. penetrate = rand (1, 100)
  334. if penetrate <= 100 and penetrate > 66:
  335. 'Someone should have done this long time ago!'
  336. act 'Endure':gt 'zaprFWash', 'punishSpank'
  337. elseif penetrate <= 66 and penetrate > 33:
  338. 'I''ll spare your virginity but you''ll get fucked anyway. Sluts don''t have just one hole, right?'
  339. act 'Endure':gt 'zaprFWash', 'punishAnal'
  340. else
  341. 'This makes it even better! I''ll enjoy your tears even more!'
  342. act 'Endure':gt 'zaprFWash', 'punishPussy'
  343. end
  344. else
  345. 'Let''s try this teenie snatch!'
  346. act 'Endure':gt 'zaprFWash', 'punishPussy'
  347. end
  348. end
  349. if $ARGS[0] = 'punishPussy':
  350. minut += 30
  351. pcs_vag += 1
  352. stat['vaginal'] += 1
  353. pain['vaginal'] += 4
  354. gs 'cum_call', ''
  355. gs 'stat'
  356. i = rand(1, 5)
  357. '<center><img src="images\locations/shared/carwash/sex/punishpussy<<i>>.gif"></center>'
  358. 'He bent you over and started ruthlessly fucking your dry pussy.'
  359. 'After half hour of ruthless pussy destroying, you can finally crawl away with your sore pussy.'
  360. pcs_horny = 0
  361. abductionChance = rand(1, 100)
  362. if abductionChance <= 10 or sub > 90:
  363. act 'Continue':gt 'zaprFWash', 'getAbducted'
  364. else
  365. act 'Get back to gas station':gt 'zaprF', 'start'
  366. end
  367. pcs_mood = 5
  368. gs 'stat'
  369. end
  370. if $ARGS[0] = 'punishAnal':
  371. minut += 30
  372. pain['asshole'] += 6
  373. pcs_ass += 1
  374. gs 'cum_call', 'anus'
  375. stat['anal'] += 1
  376. pcs_mood = 5
  377. gs 'stat'
  378. pcs_horny = 0
  379. i = rand(1, 3)
  380. '<center><img src="images\locations/shared/carwash/sex/punishanal<<i>>.gif"></center>'
  381. 'The angry man dragged you to an old house. He bent you over on the ground and started ruthlessly fucking your dry anus.'
  382. 'After half hour of ruthless assfuck, you can finally crawl away with your sore ass.'
  383. abductionChance = rand(1, 100)
  384. if abductionChance <= 10 or sub > 90:
  385. act 'Continue':gt 'zaprFWash', 'getAbducted'
  386. else
  387. act 'Get back to gas station':gt 'zaprF', 'start'
  388. end
  389. end
  390. if $ARGS[0] = 'getAbducted':
  391. 'But your perpetrator hasn''t stopped yet.'
  392. 'He catches you again and drags you to his car and pushes you into the trunk..'
  393. 'You probably made a terrible mistake..'
  394. act 'Cry for help':gt 'abduction', 'start'
  395. end
  396. --- zaprFWash ---------------------------------