1
0

Prostitute 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611
  1. # Prostitute
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $metkaSex = $ARGS[0]
  6. $locSex = $CURLOC
  7. cla
  8. clr
  9. *clr
  10. minut += 5
  11. gs 'stat'
  12. gs 'time'
  13. '<center><b><font color="maroon">Hooker</font></b></center>'
  14. '<center><img src="images/etogame/park2.jpg"></center>'
  15. if hour >= 16 and hour <= 23:
  16. if whoreQW = 2:
  17. 'Prostitutes look at you with curiosity.'
  18. elseif whoreQW = 1:
  19. 'Prostitutes look at you with interest.'
  20. act 'Talk':
  21. cla
  22. whoreQW = 2
  23. 'You went to a prostitute and asked her how things are done here at all. She began to explain. "We are free, do not work on anyone, but because of this many problems. Svimi Stella with her friends sometimes beat us and rob and sometimes come petty thugs and rob us of the money. If you want to work here, you have to pay and Stella and Bandyuk . course you cool, you can try to besiege Stella and her friends, but the bandits do not advise contact. And yet, you do not peck on customers, if you nebudesh dressed like a slut, you can buy some clothes in a sex shop. "'
  24. act 'Move away':gt 'prostitute', 'start'
  25. end
  26. elseif whoreQW = 0:
  27. 'Hey, you´re not one of us, would valyl from our point, and that the teeth will not collect.'
  28. act 'Fuck you!':
  29. cla
  30. minut += 15
  31. $nameV = 'Stoned prostitute'
  32. !!stats
  33. strenV = 20
  34. speedV = 30
  35. agilV = 30
  36. reactV = 30
  37. vitalV = 50
  38. intelV = 10
  39. willV = 10
  40. !!skills
  41. magikV = 10
  42. boxingV = 10
  43. shootV = 10
  44. !!parameters
  45. healthV = vitalV * 10 + strenV * 5
  46. mannaV = intelV * 10 + magikV * 10
  47. willpowerV = willV * 10
  48. BonusAtakV = 0
  49. BonusDefV = 0
  50. !!Programme of Action
  51. program = 0
  52. prostitutFight = 1
  53. if spellavtoklon = 1:klon = 3
  54. if spellbefshild = 1:defence = 500
  55. gt 'fight', 'start'
  56. end
  57. act 'And how to become one of your own?':
  58. cla
  59. 'And how to become one of your own? You asked. Brazen prostitute grinned spat. To do this, you have to pay Stella.'
  60. act 'Move away':gt 'prostitute', 'start'
  61. act 'I agree':
  62. cla
  63. whoreQW = 2
  64. 'You agreed. Prostitute told you that you need to buy the appropriate clothing in sex Shope. Then customers will immediately understand that you´re a prostitute.'
  65. act 'Move away':gt 'prostitute', 'start'
  66. end
  67. end
  68. end
  69. if whoreQW > 1 and $clothingworntype = 'hooker' and son > 0:
  70. act 'Stand on the panel (0:15)':
  71. cla
  72. minut += 10
  73. if rand(0, (vnesh + hour) * 2) < 20:
  74. 'No you are not interested.'
  75. act 'Leave':gt 'prostitute', 'start'
  76. else
  77. proseventrand = rand(1, 20)
  78. if proseventrand = 1:
  79. 'To you black jeep pulled up, opened the window and leaned out healthy brazen face. "Hey slut, it´s time to pay tribute. Shtukar Come here and get out on work."'
  80. if money >= 1000:
  81. act 'Giving money':
  82. cla
  83. money -= 1000
  84. 'You gave the money big man in the jeep. He put them in his pocket and left.'
  85. act 'Move away':gt 'prostitute', 'start'
  86. end
  87. elseif money < 1000:
  88. act 'I have not earned much':
  89. cla
  90. money = 0
  91. 'You big man began to explain that you have not earned it grabbed you by the arm and threw him into a jeep, there you have it brushed pocket and said that he will teach you how to work.'
  92. act 'Work':
  93. $nameV = 'bandit'
  94. $boy = 'Bandit'
  95. dick = rand(18, 21)
  96. gt 'blowPR', 'start'
  97. end
  98. end
  99. end
  100. act 'Fuck you!':
  101. cla
  102. minut += 15
  103. $nameV = 'Bandit'
  104. !!stats
  105. strenV = 200
  106. speedV = 30
  107. agilV = 20
  108. reactV = 20
  109. vitalV = 150
  110. intelV = 10
  111. willV = 10
  112. !!skills
  113. magikV = 10
  114. boxingV = 10
  115. shootV = 10
  116. !!parameters
  117. healthV = vitalV * 10 + strenV * 5
  118. mannaV = intelV * 10 + magikV * 10
  119. willpowerV = willV * 10
  120. BonusAtakV = 0
  121. BonusDefV = 0
  122. !!Programme of Action
  123. program = 0
  124. prostitutFight = 2
  125. if spellavtoklon = 1:klon = 3
  126. if spellbefshild = 1:defence = 500
  127. gt 'fight', 'start'
  128. end
  129. elseif proseventrand = 2:
  130. 'To you approached a prostitute. "I hear you, slut, if you do not want problems, you have to pay Stella. Pyatihatnik Come here and get out on work."'
  131. if money >= 500:
  132. act 'Giving money':
  133. cla
  134. money -= 500
  135. 'You gave the money to the prostitute, she turned and walked away.'
  136. act 'Move away':gt 'prostitute', 'start'
  137. end
  138. elseif money < 500:
  139. act 'I have not earned much':
  140. cla
  141. money = 0
  142. 'You started zhalovatsya that do not earn much money. You searched prostitute taking everything of value and left.'
  143. act 'Move away':gt 'prostitute', 'start'
  144. end
  145. end
  146. act 'Fuck you!':
  147. cla
  148. minut += 15
  149. $nameV = 'Prostitute'
  150. !!stats
  151. strenV = 50
  152. speedV = 50
  153. agilV = 40
  154. reactV = 30
  155. vitalV = 60
  156. intelV = 10
  157. willV = 10
  158. !!skills
  159. magikV = 10
  160. boxingV = 10
  161. shootV = 10
  162. !!parameters
  163. healthV = vitalV * 10 + strenV * 5
  164. mannaV = intelV * 10 + magikV * 10
  165. willpowerV = willV * 10
  166. BonusAtakV = 0
  167. BonusDefV = 0
  168. !!Programme of Action
  169. program = 0
  170. prostitutFight = 3
  171. if spellavtoklon = 1:klon = 3
  172. if spellbefshild = 1:defence = 500
  173. gt 'fight', 'start'
  174. end
  175. else
  176. 'To you a car drove up.'
  177. prosti = 0
  178. if proseventrand <= 8:
  179. 'The client wants to blow and asks how much it will cost.'
  180. elseif proseventrand <= 14:
  181. 'Client wants sex and asks how much it will cost.'
  182. else
  183. 'Client wants anal and asks how much it will cost.'
  184. end
  185. act 'Leave':gt 'prostitute', 'start'
  186. if ProsMoney > 0:
  187. act '<<ProsMoney * 100>> rubles':
  188. cls
  189. gt 'prostitute', 'work1', iif(proseventrand <= 8, 'blow job', iif(proseventrand <= 14, 'sex', 'anal'))
  190. end
  191. end
  192. act 'Assign a price':
  193. cls
  194. gs 'stat'
  195. ProsMoney = input("Enter a number below, which will multiplied by 100")
  196. if ProsMoney < 1:
  197. 'The client looked at you in amazement and muttered "what that fucker." Then started the car and drove away.'
  198. act 'Leave':gt 'prostitute', 'start'
  199. else
  200. gt 'prostitute', 'work1', iif(proseventrand <= 8, 'blow job', iif(proseventrand <= 14, 'sex', 'anal'))
  201. end
  202. end
  203. end
  204. end
  205. end
  206. end
  207. end
  208. act 'Leave':
  209. cla
  210. minut += 5
  211. prosta = 0
  212. gt 'park', 'start'
  213. end
  214. end
  215. if $ARGS[0] = 'work1':
  216. !! ARGS 1 - blow job, sex, anal
  217. '<center><img src="images/etogame/park2.jpg"></center>'
  218. 'You told the client that <<$ARGS[1]>> will cost <<ProsMoney * 100>> rubles.'
  219. vnpr = 0
  220. if vidage >= 40:vnpr -= 20
  221. if vidage >= 35 and vidage < 40:vnpr -= 10
  222. if vidage >= 30 and vidage < 35:vnpr -= 5
  223. if vidage >= 25 and vidage < 30:vnpr += 1
  224. if vidage >= 20 and vidage < 25:vnpr += 5
  225. if vidage >= 18 and vidage < 20:vnpr += 10
  226. if vidage < 18:vnpr += 15
  227. if vnesh = -10:vnpr -= 100
  228. if vnesh < 5 and vnesh > -10:vnpr -= 10
  229. if vnesh >= 5 and vnesh < 15:vnpr -= 5
  230. if vnesh >= 15 and vnesh < 30:vnpr += 1
  231. if vnesh >= 30 and vnesh < 50:vnpr += 5
  232. if vnesh >= 50:vnpr += 10
  233. if cumSUM > 0:vnpr -= 10
  234. if mop = 0:vnpr -= 10
  235. if mop = 1:vnpr -= 1
  236. if mop = 2:vnpr += 1
  237. if mop = 3:vnpr += 5
  238. if mop = 4:vnpr += 10
  239. if leghair <= 0:vnpr += 1
  240. if leghair > 0:vnpr -= 5
  241. if lobok > 0:vnpr -= 5
  242. if lobok <= 0:vnpr += 1
  243. if tan > 0:vnpr += 1
  244. if curly > 0:vnpr += 1
  245. if sweat > 0:vnpr -= 10
  246. if hapri = 0:vnpr -= 1
  247. if lip = 4:vnpr += 1
  248. if vnpr >= 0:
  249. if ProsMoney = 1:
  250. gt 'prostitute', 'work2', $ARGS[1]
  251. exit
  252. else
  253. if vnpr >= rand(0, 30):
  254. if $ARGS[1] = 'blow job':KlientMON = rand(1, 10)
  255. if $ARGS[1] = 'sex':KlientMON = rand(3, 25)
  256. if $ARGS[1] = 'anal':KlientMON = rand(5, 40)
  257. if KlientMON >= ProsMoney:
  258. gt 'prostitute', 'work2', $ARGS[1]
  259. exit
  260. else
  261. if rand(0, 1) = 1:
  262. 'The client grins and offers <<KlientMON * 100>> per job.'
  263. act 'Agree':
  264. ProsMoney = KlientMON
  265. gt 'prostitute', 'work2', $ARGS[1]
  266. exit
  267. end
  268. act 'Refuse':gt 'prostitute', 'start'
  269. exit
  270. end
  271. end
  272. end
  273. end
  274. end
  275. 'Client meticulously examined you and said, "No, fuck." After that, he started the car and drove away.'
  276. act 'Leave':gt 'prostitute', 'start'
  277. end
  278. if $ARGS[0] = 'work2':
  279. !! ARGS 1 - blow job, sex, anal
  280. 'The client nods his head and opens the door of his car.'
  281. act 'Get into the client''s car':
  282. cla
  283. clr
  284. *clr
  285. gs 'boy'
  286. slutty += 1
  287. minut += 1
  288. guy += 1
  289. bj += 1
  290. throat += 1
  291. prosta = 1
  292. if rand(1, 100) >= 70:dynamic $venerasiak
  293. gs 'stat'
  294. '<center><img src="images/img/prost/bj.jpg"></center>'
  295. 'Your hand slid crotch guy and unzipped his pants. You shoved his hand into his pants and pulled out his cock.'
  296. if prezik > 0:
  297. act 'Wear a condom on the penis mouth':
  298. cla
  299. clr
  300. *clr
  301. minut += 5
  302. prezik -= 1
  303. gs 'stat'
  304. picrand = rand(1, 7)
  305. '<center><img src="images/img/prost/bjp<<picrand>>.jpg"></center>'
  306. 'You pulled his lips a condom on the penis'
  307. if $ARGS[1] = 'blow job':
  308. 'Your lips slide down the barrel client until he cums in a condom.'
  309. act 'Finish':gt 'prostitute', 'start'
  310. elseif $ARGS[1] = 'sex':
  311. 'Client sufficiently warmed up and you can continue.'
  312. act 'Further':
  313. cla
  314. clr
  315. *clr
  316. prosti = 0
  317. minut += 15
  318. sex += 1
  319. protect = 1
  320. gs 'stat'
  321. if rand(0, 1) = 0:
  322. '<center><img src="images/img/prost/sexcar.jpg"></center>'
  323. 'You obediently lay naked in the back seat until your dick hole logged.'
  324. gs 'orgazm', 'start'
  325. else
  326. ! WD: Correct Image path ~ "images/img/img/prost/sexcar2.jpg"
  327. '<center><img src="images/img/prost/sexcar2.jpg"></center>'
  328. 'Standing on all fours, you felt like you were planting confident movement on the penis.'
  329. gs 'orgazm', 'start'
  330. end
  331. act 'Leave':gt 'prostitute', 'start'
  332. end
  333. elseif $ARGS[1] = 'anal':
  334. 'Client sufficiently warmed up and you can continue.'
  335. act 'Further':
  336. cla
  337. clr
  338. *clr
  339. minut += 1
  340. prosti = 0
  341. anal += 1
  342. money += ProsMoney * 100
  343. gs 'stat'
  344. dickK = dick * 10 / 100
  345. if dickK < 1:dickK = 1
  346. anus += dickK
  347. '<center><img src="images/img/prost/anal.jpg"></center>'
  348. 'You got cancer and client uper you in your anus <<dick>> centimeter member.'
  349. if anus < dick:
  350. fun = 0
  351. 'Ass ached when the member entered her client waited for a bit until your ass adapt and gradually began to move his cock in you, gradually accelerating.'
  352. end
  353. if anus >= dick:
  354. horny += anus
  355. 'You felt like like vagina stretched anus clasping member when a customer came in you, he immediately began to have your ass.'
  356. end
  357. 'Finally, the client does not stand up and ends in a condom.'
  358. act 'Leave':gt 'prostitute', 'start'
  359. end
  360. end
  361. end
  362. else
  363. act 'Mark cock in her mouth':
  364. cla
  365. clr
  366. *clr
  367. dynamic $venerasiak
  368. minut += 5
  369. gs 'stat'
  370. picrand = rand(8, 13)
  371. '<center><img src="images/img/prost/bjp<<picrand>>.jpg"></center>'
  372. 'You clasped lips member.'
  373. act 'Suck':
  374. *clr
  375. cla
  376. if $ARGS[1] = 'blow job':
  377. bjrand = rand(1, 100)
  378. if bjrand <= 50:
  379. if bj <= 15:
  380. cumlip += 1
  381. '<center><img src="images/img/prost/bjm.jpg"></center>'
  382. 'You clumsy movements suck dick customer until he cums in your mouth, making you wince from the unpleasant taste of sperm.'
  383. else
  384. cumlip += 1
  385. '<center><img src="images/img/prost/bjm2.jpg"></center>'
  386. 'Your trained sponge glide up and down, bringing pleasure to the customer. Very soon you will feel the taste of his seed that you swallow with delight to the last drop.'
  387. end
  388. elseif bjrand <= 80:
  389. if bj <= 15:
  390. cumface += 1
  391. if mop > 1:mop = 0
  392. '<center><img src="images/img/prost/bjf.jpg"></center>'
  393. 'You clumsy movements suck dick client suddenly you he pulls his dick, ending on your face, you do not have time to blink, a little sperm gets you in the eye, but, despite the burning, you can not cry, you can only smile.'
  394. else
  395. cumface += 1
  396. '<center><img src="images/img/prost/bjf2.jpg"></center>'
  397. 'Your trained sponge glide up and down, bringing pleasure to the customer as soon as the client has released your mouth, you realize that your face is now flooded with sperm. You have time, tilt the head back with her eyes closed, heavy drops falling on your chin, forcing to smile at the thought of not smeared makeup.'
  398. end
  399. else
  400. if bj <= 15:
  401. cumfrot += 1
  402. '<center><img src="images/img/prost/bjt2.jpg"></center>'
  403. 'You clumsy movements suck dick client, it stretches hands to your chest trying to expose it. You moaned, letting him know that was not the deal. Dissatisfied client continued to have you in my mouth. You have already relaxed, as a client, pushing, pulled wet from saliva member. His eyes closed, you feel like a drop of sperm not fall on your face and chest! Surprised you open your eyes in horror when he saw in the semen-stained clothing, and pretty smiling customer.'
  404. else
  405. money += 500
  406. '<center><img src="images/img/prost/bjt.jpg"></center>'
  407. 'Your trained sponge glide up and down, bringing pleasure to the customer. He stretches his hands to your chest did not patiently trying to expose her, you understand everything without words. Exposing boobs you become even more carefully to work his mouth when he was already on the brink, you have stepped back sharply, slipping back with the member in a moment became a client shoot sperm on your carefully when substituted hemisphere. Left happy, he handed you another Piatihatki.'
  408. end
  409. end
  410. act 'Finish':gt 'prostitute', 'start'
  411. elseif $ARGS[1] = 'sex':
  412. 'Client sufficiently warmed up and you can continue.'
  413. act 'Further':
  414. cla
  415. clr
  416. *clr
  417. prosti = 0
  418. minut += 15
  419. sex += 1
  420. gs 'stat'
  421. prostRand = rand(1, 100)
  422. if prostRand <= 50:
  423. pose = 1
  424. picpRand = rand(1, 7)
  425. 'Becoming cancer, you feel hot prick seeking to get into the vagina.'
  426. gs 'orgazm', 'start'
  427. elseif prostRand <= 75:
  428. pose = 1
  429. picpRand = rand(8, 10)
  430. 'Standing on all fours, you felt like a hole braced member.'
  431. gs 'orgazm', 'start'
  432. else
  433. pose = 0
  434. picpRand = rand(11, 17)
  435. 'You were ordered to undress and lie down on the hood of the car.'
  436. gs 'orgazm', 'start'
  437. end
  438. '<center><img src="images/img/prost/sexcar<<picpRand>>.jpg"></center>'
  439. act 'Leave':gt 'prostitute', 'start'
  440. end
  441. elseif $ARGS[1] = 'anal':
  442. 'Client sufficiently warmed up and you can continue.'
  443. act 'Further':
  444. cla
  445. clr
  446. *clr
  447. minut += 1
  448. prosti = 0
  449. gs 'stat'
  450. dickK = dick * 10 / 100
  451. if dickK < 1:dickK = 1
  452. anus += dickK
  453. !! the first cowl image is cowl, not cowl1
  454. picrand = rand(2, 6)
  455. '<center><img src="images/img/prost/cowl<<picrand>>.jpg"></center>'
  456. 'As soon as you lay on the hood of the car, legs apart, you stared into the anus <<dick>> centimeter member.'
  457. if anus < dick:
  458. fun = 0
  459. 'A sharp pain pierced member of stuck in the ass, making you wince groan. Customer waited patiently until your anus, get used to stretching, but you still could not get rid of the nagging pain. Fake smile, through the desire to end this torture quickly, you give the signal to start the action. Client was cautious, starting with the slow movements in the anus, gradually accelerating, he forgot about your suffering, surrendering his own enjoyment, and not noticing as "goods", writhes and moans in pain.'
  460. else
  461. horny += anus
  462. 'You felt like like vagina stretched anus clasping member when a customer came in you, he immediately began to have your ass.'
  463. end
  464. if klismaday ! daystart:
  465. act 'Escape':
  466. cla
  467. *clr
  468. gs 'stat'
  469. 'You were going to get the money but instead heard swearing. "You fear that the nipple completely lost my whole bolt in your shit, you do not know that I have a dick, and not brush the toilet, get out of here while intact, but money can not forget."'
  470. act 'Leave':gt 'prostitute', 'start'
  471. act 'Be rude':
  472. cla
  473. *clr
  474. money += ProsMoney * 100
  475. manna -= 30
  476. health -= 30
  477. willpower -= 30
  478. bj += 1
  479. throat += 1
  480. gs 'stat'
  481. '<center><img src="images/img/prost/bjr.jpg"></center>'
  482. '"Hey, I did not understand, chase my money ..." you did not get to finish. Man hit you strong blow to the chest, from which you crashed to the ground. "Money is wanted, well, what a bitch I''ll give them to you, but you are correct his mistake" after these words he drove you exhaling stench dick in her mouth. You were choking from the stench, but there was nothing, his eyes closed, as if saying yes, you tried to keep from vomiting, fear of causing mayhem. The stranger had you in my mouth, trying to touch every movement of your lips their balls. His cock soon became clean, but it did not stop him, it seemed an eternity before he again finished right in the throat. Looking at you roll in a mixture of saliva and vomit, he laughed and said no more words thrown in your face money.'
  483. act 'Leave':gt 'prostitute', 'start'
  484. end
  485. if intel >= 50:
  486. act 'Make amends':
  487. cla
  488. *clr
  489. bj += 1
  490. throat += 1
  491. gs 'stat'
  492. '<center><img src="images/img/prost/bjr1.jpg"></center>'
  493. 'You understand everything perfectly, you are at fault, and you correct client insanely angry and seems ready to tear you to pieces. You decide to make amends, his guilt polish smeared mouth organ client.'
  494. act 'Suck':
  495. cla
  496. *clr
  497. vagina += 1
  498. money += ProsMoney * 110
  499. gs 'stat'
  500. '<center><img src="images/img/prost/sexcar20.jpg"></center>'
  501. 'Bitter taste in the mouth of feces did not give you a taste of diluted semen. Freeing your mouth working, customer ordered to lie on the grass. You humbly and even with a certain touch of acting talent was acting innocent doll while you fuck. Client warmed your able mouth twitching long over you, quickly ran into the condom. While you lay recovering on your body fall three green paper, he was satisfied, happy smile you think.'
  502. act 'Escape':gt 'prostitute', 'start'
  503. end
  504. end
  505. end
  506. end
  507. else
  508. money += 2000
  509. cumanalRand = rand(0, 2)
  510. if cumanalRand = 0:
  511. anal += 1
  512. cumanal = cumass + 1
  513. 'Suddenly the anus was empty, the client abruptly yanked member before it drops the seed watered half your ass.'
  514. elseif cumanalRand = 1:
  515. anal += 1
  516. cumfrot += 1
  517. 'Suddenly the anus was empty, the client abruptly yanked a member before his seed rain drops fell on your body, dirtying clothes traces of dairy.'
  518. else
  519. anal += 1
  520. cumanus += 1
  521. 'Customer traffic have become sharp and painful it literally rammed in the ass you finally feel like you''re inside you flowing sperm all over you think.'
  522. end
  523. act 'Leave':gt 'prostitute', 'start'
  524. end
  525. end
  526. end
  527. end
  528. end
  529. end
  530. end
  531. end
  532. --- Prostitute ---------------------------------