saunawhore 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684
  1. # saunawhore
  2. if moodTypeRand <= 0:
  3. $moodType = 'bad'
  4. elseif moodTypeRand >= 1 and moodTypeRand <= 3:
  5. $moodType = 'fairly normal'
  6. elseif moodTypeRand >= 4:
  7. $moodType = 'good'
  8. end
  9. if $ARGS[0] = 'clientGate':
  10. moodTypeRand = rand(-3, 3)
  11. ! customer body type
  12. ! -1=skinny, 3-4=regular, 5-6=muscular, 7+=fat
  13. bodyTypeRand = 3
  14. ! customer height type
  15. ! -1=small, 3-4=regular, 5+=tall
  16. heightTypeRand = 3
  17. ! customer age
  18. customerAge = rand(15, 90)
  19. gs 'npcgeneratec', 0, 'client', customerAge
  20. gs 'boyStat', $npclastgenerated
  21. ! customer race, racial modifiers, dick modifiers
  22. raceRand = rand(1, 10)
  23. if RaceRand <= 7:
  24. $raceType = 'white'
  25. dickChance = 30
  26. bodyTypeRand += rand(-2, 8)
  27. heightTypeRand += rand(-1, 6)
  28. elseif RaceRand <= 9:
  29. $raceType = 'asian'
  30. dickChance = 20
  31. bodyTypeRand += rand(-6, 2)
  32. heightTypeRand += rand(-4, 1)
  33. else
  34. $raceType = 'black'
  35. dickChance = 40
  36. bodyTypeRand += rand(0, 6)
  37. heightTypeRand += rand(0, 6)
  38. end
  39. dickRand = rand(1, 100)
  40. if dickRand <= dickChance:
  41. dick = rand(15, 30)
  42. elseif dickRand <= (dickChance * 2):
  43. dick = rand(10, 20)
  44. else
  45. dick = rand(8, 12)
  46. end
  47. ! customer dick size
  48. if dick >= 24:
  49. $dick_girth = 'a monstrous'
  50. cumVol = rand(4, 5)
  51. elseif dick >= 24:
  52. $dick_girth = 'a huge'
  53. cumVol += 1
  54. cumVol = rand(3, 5)
  55. elseif dick >= 20:
  56. $dick_girth = 'a very big'
  57. cumVol = rand(2, 5)
  58. elseif dick >= 16:
  59. $dick_girth = 'a big'
  60. cumVol = rand(2, 4)
  61. elseif dick >= 12:
  62. $dick_girth = 'a regular'
  63. cumVol -= 1
  64. cumVol = rand(1, 4)
  65. else
  66. $dick_girth = 'a tiny'
  67. cumVol -= 2
  68. cumVol = rand(1, 3)
  69. end
  70. ! customer cum volume
  71. if cumVol <= 1:
  72. $cumType = 'a bit of'
  73. cumVolMl = 10
  74. elseif cumVol = 2:
  75. $cumType = 'some'
  76. cumVolMl = 20
  77. elseif cumVol = 3:
  78. $cumType = 'his warm'
  79. cumVolMl = 40
  80. elseif cumVol = 4:
  81. $cumType = 'a lot of'
  82. cumVolMl = 60
  83. elseif cumVol >= 5:
  84. $cumType = 'an enormous amount of'
  85. cumVolMl = 100
  86. end
  87. if bodyTypeRand <= 1:
  88. $bodyType = 'thin'
  89. elseif bodyTypeRand >= 2 and bodyTypeRand <= 4:
  90. $bodyType = 'athletic'
  91. elseif bodyTypeRand >= 5 and bodyTypeRand <= 6:
  92. $bodyType = 'stout'
  93. elseif bodyTypeRand >= 7:
  94. $bodyType = 'fat'
  95. end
  96. if heightTypeRand <= 1:
  97. $heightType = 'short'
  98. elseif heightTypeRand >= 2 and heightTypeRand <= 4:
  99. $heightType = 'average height'
  100. elseif heightTypeRand >= 5:
  101. $heightType = 'tall'
  102. end
  103. if customerAge <= 18:
  104. $ageType = 'a teenage'
  105. elseif customerAge > 18 and customerAge <= 30:
  106. $ageType = 'a young'
  107. elseif customerAge > 30 and customerAge <= 45:
  108. $ageType = 'a middle-aged'
  109. elseif customerAge > 45 and customerAge <= 60:
  110. $ageType = 'a late middle-aged'
  111. elseif customerAge > 60 and customerAge <= 80:
  112. $ageType = 'an elderly'
  113. elseif customerAge > 80:
  114. $ageType = 'a very old'
  115. end
  116. durr = 5
  117. minut += durr
  118. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/room.jpg"></center>'
  119. 'You lead the client into your room, closing the door behind him.'
  120. 'He sits down in the chair and stares at you with obvious lust.'
  121. 'He is <<$ageType>> <<$raceType>> man, and he is <<$heightType>> and <<$bodyType>>.'
  122. if dick >= 16:'From the bulge in his pants, you can tell he probably has <<$dick_girth>> dick.'
  123. 'He seems to be in a <<$moodType>> mood.'
  124. gs 'stat'
  125. act 'Take off your clothes':gt 'saunawhore', 'simplystrip'
  126. if pcs_dancero >= 10:act 'Do a little striptease':gt 'saunawhore', 'striptease'
  127. end
  128. if $ARGS[0] = 'striptease':
  129. if pcs_dancero < 20:pcs_dancero += rand(1,3)
  130. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/striptease'+rand(1, 5)+'.gif"></center>'
  131. 'Hoping to please the customer, you decide to give him a little show. You count a beat in your head and begin dancing, slowly stripping away your clothes, one piece at a time. It would probably be better if you had actual music, but the client smirks and seems to enjoy it nonetheless.'
  132. moodTypeRand += 1
  133. gs 'arousal', 'foreplay', 5, 'prostitution'
  134. gs 'stat'
  135. act 'Continue':gt 'saunawhore', 'strippedGate'
  136. end
  137. if $ARGS[0] = 'simplystrip':
  138. if pcs_dancero < 10: pcs_dancero += rand(0,2)
  139. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/simplystrip'+rand(1, 2)+'.gif"></center>'
  140. 'You remove your clothes and toss them aside, mentally preparing for the task ahead. The client looks vaguely irritated - perhaps he expected something a bit more provacative?'
  141. moodTypeRand -= 1
  142. gs 'arousal', 'foreplay', 2, 'prostitution'
  143. gs 'stat'
  144. act 'Continue':gt 'saunawhore', 'strippedGate'
  145. end
  146. if $ARGS[0] = 'strippedGate':
  147. minut += 2
  148. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/nakedstand.jpg"></center>'
  149. 'You are now fully naked in front of the client, his eyes devouring every inch of your young body.'
  150. if pcs_dancero >= 20:act 'Dance naked':gt 'saunawhore', 'nakeddance'
  151. act 'Kneel and open your mouth':gt 'saunawhore', 'blowjob'
  152. if guy >= 20:act 'Present him your holes':gt 'saunawhore', 'holeshow'
  153. end
  154. if $ARGS[0] = 'nakeddance':
  155. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/nakeddance'+rand(1, 4)+'.gif"></center>'
  156. 'You walk towards the client, straddle his legs, and begin to dance. He leans back and you proceed to give him the best lapdance you can muster. You alternate between rubbing your breasts in his face and turning around to grind your ass on his crotch. Judging from the hardness in his pants, it seems that he is pleased with your efforts.'
  157. moodTypeRand += 1
  158. gs 'arousal', 'foreplay', 5, 'prostitution'
  159. gs 'stat'
  160. act 'Continue':gt 'saunawhore', 'blowjob'
  161. end
  162. if $ARGS[0] = 'holeshow':
  163. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/holeshow'+rand(1, 5)+'.gif"></center>'
  164. 'You decide to tease him further, so you lean closer to him and open your mouth, sticking your tongue out as far as possible and then sucking your fingers.'
  165. 'Then you turn around, bend over, and grab your ass with both hands.'
  166. 'You pull your ass cheeks apart, giving him a great view of both of your holes.'
  167. moodTypeRand += 1
  168. gs 'arousal', 'foreplay', 5, 'prostitution'
  169. gs 'stat'
  170. act 'Continue':gt 'saunawhore', 'blowjob'
  171. end
  172. if $ARGS[0] = 'blowjob':
  173. minut += 5
  174. 'You kneel in front of him and bite your lip, caressing his cock through his pants with your hands.'
  175. if $moodType = 'fairly normal':
  176. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.gif"></center>'
  177. 'He pulls out his <<$dick_girth>> dick and brings it to your <<$liptalk>>.'
  178. 'You start kissing the tip, licking it all around and putting it a bit inside your mouth and sucking the head.'
  179. gs 'arousal', 'bj', 5, 'prostitution'
  180. gs 'stat'
  181. act 'Suck it':gt 'saunawhore', 'blowjobGate'
  182. elseif $moodType = 'good':
  183. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.gif"></center>'
  184. 'He comes close to you, fondles your hair and face and takes you gently by your arm, raising you up from the floor.'
  185. 'He directs you to the bed, undresses and both of you lie down.'
  186. act 'Embrace him':gt 'saunawhore', 'fuckGate'
  187. elseif $moodType = 'bad':
  188. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/slapface'+rand(1, 1)+'.gif"></center>'
  189. 'He comes close to you and suddenly slaps your face hard.'
  190. 'You are caught by surprise and tears well up in your eyes.'
  191. 'He seems very angry and even aroused by your misfortune.'
  192. 'As you kneel in front of him in tears, he grabs you roughly by your arms, painfully twisting them behind your back, and slams you down on the bed.'
  193. gs 'pain', 1, 'cheeks', 'slap'
  194. if slutty < 10:
  195. Manna -= 50
  196. else
  197. Manna -= 10
  198. end
  199. gs 'pain', 2, 'armL', 'twist'
  200. gs 'pain', 2, 'armR', 'twist'
  201. act 'Brace yourself':gt 'saunawhore', 'fuckRoughGate'
  202. end
  203. gs 'stat'
  204. end
  205. if $ARGS[0] = 'blowjobGate':
  206. 'You begin to suck his cock in earnest, bobbing your head back and forth while you work it, running your tongue along the underside of his shaft.'
  207. gs 'arousal', 'bj', 5, 'prostitution'
  208. 'He is rock hard now and you can see his <<$dick_girth>> <<dick>>cm member in all its glory.'
  209. 'Client seems to be so far content with your performance, but you think it may be time to switch to efficient approach:'
  210. gs 'stat'
  211. if dick > pcs_throat:
  212. 'There''s no way you''ll be able to fit the entire thing in your mouth.'
  213. act 'Try to deepthroat him':gt 'saunawhore', 'blowjobCaress'
  214. else
  215. act 'Deepthroat him':gt 'saunawhore', 'blowjobDeepthroat'
  216. end
  217. end
  218. if $ARGS[0] = 'blowjobCaress':
  219. 'You try to deepthroat him, but his <<$dick_girth>> cock is just too big for you to handle, and you end up gagging yourself and coughing.'
  220. gs 'arousal', 'bj', 5, 'prostitution'
  221. ''
  222. moodChange = rand (-2, 0)
  223. moodTypeRand += moodChange
  224. if $moodType = 'good':
  225. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.gif"></center>'
  226. 'He seems to enjoy your efforts anyway, and signals to you that he''s ready to move on to the next stage.'
  227. act 'Continue':gt 'saunawhore', 'fuckGate'
  228. elseif $moodType = 'fairly normal':
  229. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.gif"></center>'
  230. 'He seem to have enough of this. He takes your hand and directs you towards the bed.'
  231. act 'Continue':gt 'saunawhore', 'fuckGate'
  232. elseif $moodType = 'bad':
  233. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/slapface'+rand(1, 1)+'.gif"></center>'
  234. 'He scowls at your pathetic attempt and pulls his cock out of your mouth.'
  235. question = rand (1, 3)
  236. if question = 1:
  237. 'He slaps your face hard and shouts: "What the hell is wrong with you? What kind of a whore is this bad at sucking cock?"'
  238. elseif question = 2:
  239. 'He slaps your face hard and shouts: "My cock isn''t tasty enough for you to suck on properly, bitch?"'
  240. elseif question = 3:
  241. 'He slaps your face hard and shouts: "Christ, what kind of a good-for-nothing whore are you?"'
  242. end
  243. gs 'pain', 1, 'cheeks', 'slap'
  244. 'Furious, he grabs you roughly by your arms, painfully twisting them behind your back, and slams you down on the bed.'
  245. act 'Continue':gt 'saunawhore', 'fuckRoughGate'
  246. end
  247. gs 'stat'
  248. end
  249. if $ARGS[0] = 'blowjobDeepthroat':
  250. moodChange += rand (-1, 2)
  251. moodTypeRand += moodChange
  252. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/deepthroat'+rand(1, 5)+'.gif"></center>'
  253. 'The client groans as you take him all the way to the hilt - his <<$dick_girth>> <<dick>>cm member is buried all the way inside your throat.'
  254. 'You try to hold it as long as possible, while teasing his balls with your tongue, your nose pressed against his pubic area.'
  255. if $moodType = 'bad':
  256. 'He gets a sadistic look in his eye, and then grabs the back of your head and holds you down, not letting you escape.'
  257. 'You feel yourself beginning to suffocate and panic, trying to get away from him, but he is much stronger than you and holds you tightly in place. Your eyes begin to roll back and you feel your conciousness fading when he finally releases you. You hack and sputter, thick strands of saliva hanging from his cock to your mouth. He seems to have enjoyed that quite a bit.'
  258. end
  259. gs 'arousal', 'bj', 5, 'prostitution', 'deepthroat'
  260. 'Finally he seems to have had enough of oral sex and signals you that he wants some more.'
  261. gs 'stat'
  262. act 'Continue':gt 'saunawhore', 'fuckGate'
  263. end
  264. if $ARGS[0] = 'fuckGate':
  265. minut += 2
  266. noCondChance = rand(1, 100)
  267. if noCondChance < 40:
  268. 'He leers at you lustfully and asks, "So baby, how much for not using a condom?"'
  269. 'When you hesitate, he adds, "C''mon, I''ll pay you double."'
  270. act 'Let him fuck you without a condom':gt 'saunawhore', 'fuckGateCondomNo'
  271. act 'Insist on using a condom':gt 'saunawhore', 'fuckGateCondomYes'
  272. else
  273. gs 'saunawhore', 'fuckGateCondomYes'
  274. end
  275. gs 'stat'
  276. end
  277. if $ARGS[0] = 'fuckGateCondomYes':
  278. useCondom = 1
  279. moodTypeRand -= 2
  280. gs 'saunawhore', 'fuckGateGo'
  281. end
  282. if $ARGS[0] = 'fuckGateCondomNo':
  283. useCondom = 2
  284. moodTypeRand += 1
  285. gs 'saunawhore', 'fuckGateGo'
  286. end
  287. if $ARGS[0] = 'fuckGateGo':
  288. durr = 2
  289. minut += durr
  290. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/lieonbedboth.jpg"></center>'
  291. 'You lie back on the bed in front of the client.'
  292. '"How do you want me?" you ask him.'
  293. if $moodType = 'bad':
  294. '"How do I want you whore? I want you screaming!"'
  295. forced = 1
  296. act 'Continue':gt 'saunawhore', 'fuckRoughGate'
  297. else
  298. forced = 2
  299. holeType = rand(1, 2)
  300. if holeType = 1:
  301. '"I want some pussy."'
  302. act 'Spread your legs':gt 'saunawhore', 'fuckVaginal'
  303. elseif holeType = 2:
  304. '"I want to fuck your ass."'
  305. act 'Turn around and spread your ass':gt 'saunawhore', 'fuckAnal'
  306. end
  307. end
  308. gs 'stat'
  309. end
  310. if $ARGS[0] = 'fuckVaginal':
  311. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/fuckVaginal'+rand(1, 5)+'.gif"></center>'
  312. 'He climbs on top of you and pushes his member inside of you.'
  313. if dick > pcs_vag:
  314. 'His <<$dick_girth>> <<dick>>cm cock is too big for your pussy and causes you intense pain, stretching you past your limit and bringing tears to your eyes. At least he isn''t too rough.'
  315. 'He thrusts his <<$dick_girth>> <<dick>>cm cock in you over and over, seeming to enjoy the tightness and not caring much about your own pain.'
  316. DMG = (dick - pcs_vag) / 2
  317. gs 'pain', 1, 'vaginal', 'stretch'
  318. pcs_mood -= (DMG * 5)
  319. gs 'arousal', 'vaginal', 10, 'prostitution', 'rough'
  320. else
  321. 'He thrusts his <<$dick_girth>> <<dick>>cm cock in you over and over, not caring much about technique or your own pleasure.'
  322. gs 'arousal', 'vaginal', 10, 'prostitution'
  323. end
  324. ''
  325. 'After a while, you can sense that he is almost ready to come.'
  326. gs 'stat'
  327. if useCondom = 2:
  328. act 'Ask him not to cum inside of you':
  329. not_inside = 1
  330. gt 'saunawhore', 'cumClientGate'
  331. end
  332. end
  333. act 'Let him cum wherever he wants':
  334. not_inside = 2
  335. gt 'saunawhore', 'cumClientGate'
  336. end
  337. end
  338. if $ARGS[0] = 'fuckAnal':
  339. stat['anal'] += 1
  340. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/fuckAnal'+rand(1, 5)+'.gif"></center>'
  341. 'He climbs on the bed behind you and presses the tip of his dick against your asshole. After waiting a moment, he begins to push it in.'
  342. if dick > pcs_anus:
  343. 'His <<dick>> cm <<$dick_girth>> cock is too big for your ass and causes you intense pain as it stretches you out painfully and presses deep inside of you.'
  344. 'He thrusts his <<$dick_girth>> <<dick>>cm cock in your ass over and over, seeming to enjoy the tightness and not caring much about your own pain.'
  345. DMG = (dick - pcs_anus) / 2
  346. gs 'pain', 1, 'asshole', 'stretch'
  347. pcs_mood -= (DMG * 5)
  348. gs 'arousal', 'anal', 10, 'prostitution', 'rough'
  349. else
  350. 'He thrusts his <<$dick_girth>> <<dick>>cm cock in your ass over and over, not caring much about technique or whether or not you''re enjoying it.'
  351. gs 'arousal', 'anal', 10, 'prostitution'
  352. end
  353. ''
  354. 'After a while, you can sense that he is almost ready to come.'
  355. gs 'stat'
  356. act 'Let him cum wherever he wants':
  357. not_inside = 2
  358. gt 'saunawhore', 'cumClientGate'
  359. end
  360. end
  361. if $ARGS[0] = 'fuckRoughGate':
  362. durr = 5
  363. minut += durr
  364. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bedoverpowered.jpg"></center>'
  365. 'The man is much stronger than you, and you are completely overpowered, entirely at his will.'
  366. 'He keeps your arms pinned painfully behind your back.'
  367. pcs_mood -= 50
  368. useCondom = rand(1,2)
  369. forced = 1
  370. gs 'pain', 2, 'armL', 'twist'
  371. gs 'pain', 2, 'armR', 'twist'
  372. holeType = rand(1, 2)
  373. if holeType = 1 and useCondom = 1:
  374. 'You feel the tip of his cock against your pussy... at least it feels like he''s using a condom.'
  375. act 'Continue':gt 'saunawhore', 'fuckRoughVaginal'
  376. elseif holeType = 1 and useCondom = 2:
  377. 'You feel the tip of his cock against your pussy... and it feels like he''s not wearing a condom!'
  378. act 'Continue':gt 'saunawhore', 'fuckRoughVaginal'
  379. elseif holeType = 2:
  380. 'You feel the tip of his cock pressing against your asshole... this is probably not going to be pleasant.'
  381. act 'Continue':gt 'saunawhore', 'fuckRoughAnal'
  382. end
  383. gs 'stat'
  384. end
  385. if $ARGS[0] = 'fuckRoughVaginal':
  386. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/fuckRoughVaginal'+rand(1, 5)+'.gif"></center>'
  387. 'He forces his dick inside of you, and begins to fuck your tender pussy furiously.'
  388. 'You cannot help but scream in pain, which seems to arouse him even more and makes him push even harder and deeper.'
  389. if dick > pcs_vag:
  390. 'His <<$dick_girth>> <<dick>>cm is too big for your pussy and causes you intense pain, stretching you horribly and slamming against your cervix.'
  391. DMG = (dick - pcs_vag)
  392. gs 'pain', 2, 'vaginal', 'stretch'
  393. !gs 'pain', 2, 'cervix', 'pinch'
  394. pcs_mood -= (DMG * 5)
  395. end
  396. gs 'arousal', 'vaginal', 10, 'prostitution', 'rough', 'bound'
  397. ''
  398. 'After seemingly endless fucking, you can finally sense that he is almost ready to come.'
  399. gs 'stat'
  400. if useCondom = 2:
  401. act 'Beg him not to cum inside of you':
  402. not_inside = 1
  403. gt 'saunawhore', 'cumClientGate'
  404. end
  405. end
  406. act 'Let him cum wherever he wants':
  407. not_inside = 2
  408. gt 'saunawhore', 'cumClientGate'
  409. end
  410. end
  411. if $ARGS[0] = 'fuckRoughAnal':
  412. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/fuckRoughAnal'+rand(1, 5)+'.gif"></center>'
  413. 'He roughly shoves his entire cock up your ass, and begins to fuck it furiously.'
  414. 'You cannot help but scream in agony, which arouses him even more and makes him push even harder and deeper.'
  415. if dick > pcs_anus:
  416. 'His <<$dick_girth>> <<dick>>cm is too big for your ass and causes you intense pain, stretching you out and making it feel like you''re being ripped open.'
  417. DMG = (dick - pcs_anus)
  418. gs 'pain', 2, 'asshole', 'stretch'
  419. pcs_mood -= (DMG * 5)
  420. end
  421. not_inside = 2
  422. gs 'arousal', 'anal', 10, 'prostitution', 'rough', 'bound'
  423. ''
  424. 'After seemingly endless assfucking, you can finally sense that he is almost ready to come.'
  425. gs 'stat'
  426. act 'Let him cum wherever he wants':gt 'saunawhore', 'cumClientGate'
  427. end
  428. if $ARGS[0] = 'cumClientGate':
  429. if $moodType = 'bad':
  430. if not_inside = 2:
  431. cumRand = rand(1, 10)
  432. if cumRand <= 9 and holeType = 1:
  433. 'You feel his cock twitch and realize he is about to cum inside of you.'
  434. act 'Continue':gt 'saunawhore', 'cumVaginal'
  435. elseif cumRand <= 9 and holeType = 2:
  436. 'You feel his cock twitch and realize he is about to cum in your ass.'
  437. act 'Continue':gt 'saunawhore', 'cumAnal'
  438. else
  439. 'He pulls out and brings his cock up in front of your face.'
  440. act 'Continue':gt 'saunawhore', 'cumFace'
  441. end
  442. else
  443. cumRand = rand(1, 2)
  444. if cumRand = 1 and holeType = 1:
  445. 'He just laughs and you realize he is going to cum inside of you anyway.'
  446. act 'Continue':gt 'saunawhore', 'cumVaginal'
  447. elseif cumRand = 2:
  448. 'He smirks and says "Fine, how about in your eyes then, whore?"'
  449. gs 'pain', 1, 'eyes', 'burn'
  450. act 'Continue':gt 'saunawhore', 'cumFace'
  451. end
  452. end
  453. else
  454. if not_inside = 2:
  455. cumRand = rand(1, 5)
  456. if cumRand = 1 and holeType = 1:
  457. 'You feel his cock twitch and realize he is about to cum inside of you.'
  458. act 'Continue':gt 'saunawhore', 'cumVaginal'
  459. elseif cumRand = 1 and holeType = 2:
  460. 'You feel his cock twitch and realize he is about to cum in your ass.'
  461. act 'Continue':gt 'saunawhore', 'cumAnal'
  462. elseif cumRand = 2:
  463. 'He pulls out and brings his cock up in front of your face.'
  464. act 'Continue':gt 'saunawhore', 'cumFace'
  465. elseif cumRand = 3:
  466. 'He pulls out and brings his cock up in front of your face.'
  467. act 'Continue':gt 'saunawhore', 'cumMouth'
  468. elseif cumRand = 4:
  469. 'He pulls out and holds his cock over your body.'
  470. act 'Continue':gt 'saunawhore', 'cumBelly'
  471. elseif cumRand = 5:
  472. 'He pulls out and holds his cock over your body.'
  473. act 'Continue':gt 'saunawhore', 'cumTits'
  474. end
  475. else
  476. cumRand = rand(1, 9)
  477. if cumRand <= 2:
  478. 'He nods, pulls out, and brings his cock up in front of your face.'
  479. act 'Continue':gt 'saunawhore', 'cumFace'
  480. elseif cumRand <= 4:
  481. 'He nods, pulls out, and brings his cock up in front of your face.'
  482. act 'Continue':gt 'saunawhore', 'cumMouth'
  483. elseif cumRand <= 6:
  484. 'He nods, pulls out, and holds his cock over your body.'
  485. act 'Continue':gt 'saunawhore', 'cumBelly'
  486. elseif cumRand <= 8:
  487. 'He nods, pulls out, and holds his cock over your body.'
  488. act 'Continue':gt 'saunawhore', 'cumTits'
  489. else
  490. 'He shakes his head and says "Sorry, I can''t stop now!" and you realize he''s going to cum in you anyway!'
  491. act 'Continue':gt 'saunawhore', 'cumVaginal'
  492. end
  493. end
  494. end
  495. end
  496. if $ARGS[0] = 'cumVaginal':
  497. minut += 5
  498. if useCondom = 1:
  499. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumCondomVaginal.jpg"></center>'
  500. 'The client''s cock twitches several more times as he cums into the condom inside of you.'
  501. 'He strips the condom from his dick, and you see that it has <<$cumType>> cum in it.'
  502. moodTypeRand += rand (-2, 2)
  503. if $moodType = 'bad':
  504. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumCondomPourFace.jpg"></center>'
  505. 'Suddenly he grabs your head and pours the contents all over your face.'
  506. gs 'cum_call', '', 'sauna client', 0, 3, 0, cumVolMl
  507. gs 'cum_call', 'face', 'sauna client', 0, 0, 0, cumVolMl
  508. elseif $moodType = 'fairly normal':
  509. 'He throws it away on the floor, not caring about spilling the fluids around.'
  510. gs 'cum_call', '', 'sauna client', 0, 3, 0, cumVolMl
  511. elseif $moodType = 'good':
  512. 'He throws it in the waste bin and gently caresses your hair afterwards.'
  513. gs 'cum_call', '', 'sauna client', 0, 3, 0, cumVolMl
  514. end
  515. else
  516. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumVaginal'+rand(1, 5)+'.gif"></center>'
  517. 'The client''s cock twitches several more times, and you feel a warmth spreading inside of you as he pumps <<$cumType>> cum deep inside your pussy.'
  518. gs 'cum_call', '', 'sauna client', 0, 0, 0, cumVolMl
  519. if rand(1,100) >= 70:dynamic $venerasiak
  520. end
  521. gs 'stat'
  522. act 'Continue':gt 'saunawhore', 'clientLeave'
  523. end
  524. if $ARGS[0] = 'cumAnal':
  525. if useCondom = 1:
  526. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumCondomAnal.jpg"></center>'
  527. 'The client''s cock twitches several more times as he cums into the condom inside of your ass.'
  528. 'He strips the condom from his dick, and you see that it has <<$cumType>> cum in it.'
  529. moodTypeRand += rand (-2, 2)
  530. if $moodType = 'bad':
  531. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumCondomPourFace.jpg"></center>'
  532. 'Suddenly he grabs your head and pours the contents all over your face.'
  533. gs 'cum_call', 'anus', 'sauna client', 0, 3, 0, cumVolMl
  534. gs 'cum_call', 'face', 'sauna client', 0, 0, 0, cumVolMl
  535. elseif $moodType = 'fairly normal':
  536. 'He throws it away on the floor, not caring about spilling the fluids around.'
  537. gs 'cum_call', 'anus', 'sauna client', 0, 3, 0, cumVolMl
  538. elseif $moodType = 'good':
  539. 'He throws it in the waste bin and gently caresses your hair afterwards.'
  540. gs 'cum_call', 'anus', 'sauna client', 0, 3, 0, cumVolMl
  541. end
  542. else
  543. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumAnal'+rand(1, 5)+'.gif"></center>'
  544. 'The client''s cock twitches several more times, and you feel a warmth spreading inside of you as he pumps <<$cumType>> cum deep inside your gut.'
  545. if rand(1,100) >= 70:dynamic $venerasiak
  546. gs 'cum_call', 'anus', 'sauna client', 0, 0, 0, cumVolMl
  547. end
  548. gs 'stat'
  549. act 'Continue':gt 'saunawhore', 'clientLeave'
  550. end
  551. if $ARGS[0] = 'cumFace':
  552. facial += 1
  553. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumFace'+rand(1, 5)+'.gif"></center>'
  554. if useCondom = 1:
  555. 'The client strips the condom from his dick and blows <<$cumType>> cum all over your face.'
  556. else
  557. 'The client finishes himself off and blows <<$cumType>> cum all over your face.'
  558. end
  559. gs 'cum_call', 'face', 0, 0, 0, cumVolMl
  560. gs 'stat'
  561. act 'Continue':gt 'saunawhore', 'clientLeave'
  562. end
  563. if $ARGS[0] = 'cumMouth':
  564. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumMouth'+rand(1, 5)+'.gif"></center>'
  565. if useCondom = 1:
  566. 'The client strips the condom from his dick and shoots <<$cumType>> cum inside your mouth.'
  567. else
  568. 'The client stuffs his dick back inside your mouth, and as you suck it, he shoots <<$cumType>> cum inside your mouth.'
  569. end
  570. gs 'cum_call', 'mouth', 0, 0, 0, cumVolMl
  571. gs 'stat'
  572. act 'Continue':gt 'saunawhore', 'clientLeave'
  573. end
  574. if $ARGS[0] = 'cumBelly':
  575. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumBelly'+rand(1, 5)+'.gif"></center>'
  576. if useCondom = 1:
  577. 'The client strips the condom from his dick and shoots <<$cumType>> cum all over your belly.'
  578. else
  579. 'The client finishes himself off and shoots <<$cumType>> cum all over your belly.'
  580. end
  581. gs 'cum_call', 'stomach', 0, 0, 0, cumVolMl
  582. gs 'stat'
  583. act 'Continue':gt 'saunawhore', 'clientLeave'
  584. end
  585. if $ARGS[0] = 'cumTits':
  586. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumTits'+rand(1, 5)+'.gif"></center>'
  587. 'You kneel down infront of him, raising your breasts higher for him to shoot his cum on them.'
  588. if useCondom = 1:
  589. 'The client strips the condom from his dick and shoots <<$cumType>> cum all over your tits.'
  590. else
  591. 'The client finishes himself off and shoots <<$cumType>> cum all over your tits.'
  592. end
  593. gs 'cum_call', 'breasts', 0, 0, 0, cumVolMl
  594. gs 'stat'
  595. act 'Continue':gt 'saunawhore', 'clientLeave'
  596. end
  597. if $ARGS[0] = 'clientLeave':
  598. basePay = (10 * rand(75,125))
  599. if prezik = 0:
  600. condomPrice = 50
  601. elseif prezik > 0:
  602. dynamic $prezik
  603. condomPrice = 0
  604. end
  605. if forced = 2:
  606. payment = (basePay * useCondom) - condomPrice
  607. else
  608. payment = (basePay / 2) - condomPrice
  609. end
  610. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/givemoney.jpg"></center>'
  611. if workDolg > 0:
  612. workDolg -= payment
  613. 'Having finished with you, the client gets dressed, leaves the room, and pays the sauna <<payment>> <b>₽</b> for your services.'
  614. gs 'arousal', 'end'
  615. gs 'stat'
  616. act 'Head back to the main area':gt 'saunawork'
  617. else
  618. money += payment
  619. 'Having finished with you, the client gets dressed, takes his wallet and hands you <<payment>> <b>₽</b>.'
  620. gs 'arousal', 'end'
  621. gs 'stat'
  622. act 'Take the money and see him out':gt 'saunawork'
  623. end
  624. end
  625. --- saunawhore ---------------------------------