1
0

sexshop 28 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933
  1. # sexshop
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. $sexloc = $CURLOC
  6. set shrand = rand(0, 100)
  7. if kendra > 0 and shrand < 10:gt 'sexshop', 'kendra'
  8. if tanga = 0 and shrand > 90:gt 'sexshop', 'shprod'
  9. set minut += 5
  10. $metkaM = $ARGS[0]
  11. $locM = $CURLOC
  12. '<center><b><font color="maroon">Sex Toys</font></b></center>'
  13. '<center><img src="images/etogame/sexshop.jpg"></center>'
  14. 'Lubricant - 300 rubles'
  15. 'Dildo - 800 rubles'
  16. 'Vibrator - 1300 rubles'
  17. 'Strap 1, 200 rubles'
  18. 'Butt plug 1, 200 rubles'
  19. pl
  20. 'In the basement are the private booths for viewing porn movies (50 rubles 15 minutes).'
  21. clr
  22. gs 'stat'
  23. fcolor = rgb(0, 0, 0)
  24. bcolor = rgb(255, 255, 255)
  25. lcolor = rgb(106, 90, 205)
  26. act 'Leave':
  27. cla
  28. set ghnow = 0
  29. set minut += 5
  30. gt 'down'
  31. end
  32. if SUB >= 100 and analplug = 1 and dildo = 1 and vnesh > 26 and Peter < 1:
  33. set Peterrand = rand(0, 100)
  34. if Peterrand > 50 :
  35. 'You see an interesting looking middle-aged man, apparently he is the owner of this store.'
  36. act 'Introduce yourself to the owner of the store' :
  37. cla
  38. *clr
  39. '<center><img src="images/peter/peter.jpg"></center>'
  40. 'I''m Peter, I''ve been watching you for a long time. I often see you here. I think it will be interesting...'
  41. act 'Go with Peter':gt 'Peterroom', 'start'
  42. act 'Leave':
  43. cla
  44. set ghnow = 0
  45. set minut += 5
  46. gt 'down'
  47. end
  48. end
  49. end
  50. end
  51. act 'Go to the basement':gt 'sexshop', 'podval'
  52. if gloryhole >= 20 and pornstudio = 0:
  53. 'You notice out of the corner your eye, that the seller is trying to get your attention.'
  54. act 'Approach to learn what we wants':gt 'sexshop', 'porn'
  55. end
  56. if money >= 300:
  57. act 'Buy lubricant 300 rubles':
  58. cla
  59. *clr
  60. portion = input ("How much you want to buy?")
  61. if portion*300 > money:'You do not have enough money.'
  62. if portion*300 <= money:
  63. set lubri += portion * 5
  64. set money -= portion * 300
  65. set minut += 5
  66. '<center><img src="images/etogame/kassa.jpg"></center>'
  67. 'You bought some lubricant and paid the cashier.'
  68. end
  69. act 'Move away from the counter':gt 'sexshop', 'start'
  70. end
  71. end
  72. if money >= 800 and dildo = 0:
  73. act 'Buy dildo 800 rubles':
  74. cla
  75. *clr
  76. set minut += 15
  77. set dildo = 1
  78. set money -= 800
  79. '<center><img src="images/etogame/kassa.jpg"></center>'
  80. 'You bought a dildo and paid the cashier.'
  81. act 'Move away from the counter':gt 'sexshop', 'start'
  82. end
  83. end
  84. if money >= 1500 and middildo = 0:
  85. act 'Buy 15cm long dildo (1,500 rubles)':
  86. cla
  87. *clr
  88. set minut += 15
  89. set middildo = 1
  90. set money -= 1500
  91. '<center><img src="images/etogame/kassa.jpg" ></center>'
  92. 'You bought a 15cm long dildo and paid the cashier.'
  93. act 'Move away from the counter':gt'sexshop','start'
  94. end
  95. end
  96. if money >= 2500 and largedildo = 0:
  97. act 'Buy 20cm long dildo (2,500 rubles)':
  98. cla
  99. *clr
  100. set minut += 15
  101. set largedildo = 1
  102. set money -= 2500
  103. '<center><img src="images/etogame/kassa.jpg" ></center>'
  104. 'You bought a 20cm long dildo and paid the cashier.'
  105. act 'Move away from the counter':gt'sexshop','start'
  106. end
  107. end
  108. if money >= 4500 and bigdildo = 0:
  109. act 'Buy 25cm long dildo (4,500 rubles)':
  110. cla
  111. *clr
  112. set minut += 15
  113. set bigdildo = 1
  114. set money -= 4500
  115. '<center><img src="images/etogame/kassa.jpg" ></center>'
  116. 'You bought a 25cm long dildo and paid the cashier.'
  117. act 'Move away from the counter':gt'sexshop','start'
  118. end
  119. end
  120. if money >= 6500 and extradildo = 0:
  121. act 'Buy 30cm long dildo (6,500 rubles)':
  122. cla
  123. *clr
  124. set minut += 15
  125. set extradildo = 1
  126. set money -= 6500
  127. '<center><img src="images/etogame/kassa.jpg" ></center>'
  128. 'You bought a 30cm long dildo and paid the cashier.'
  129. act 'Move away from the counter':gt'sexshop','start'
  130. end
  131. end
  132. if money >= 8500 and superdildo = 0:
  133. act 'Buy 35cm long dildo (8,500 rubles)':
  134. cla
  135. *clr
  136. set minut += 15
  137. set superdildo = 1
  138. set money -= 8500
  139. '<center><img src="images/etogame/kassa.jpg" ></center>'
  140. 'You bought a 35cm long dildo and paid the cashier.'
  141. act 'Move away from the counter':gt'sexshop','start'
  142. end
  143. end
  144. if money >= 12000 and maddildo = 0:
  145. act 'Buy 40cm long dildo (12,000 rubles)':
  146. cla
  147. *clr
  148. set minut += 15
  149. set maddildo = 1
  150. set money -= 12000
  151. '<center><img src="images/etogame/kassa.jpg" ></center>'
  152. 'You bought a 40cm long dildo and paid the cashier.'
  153. act 'Move away from the counter':gt'sexshop','start'
  154. end
  155. end
  156. if money >= 1300 and vibrator = 0:
  157. act 'Buy vibrator (1,300 rubles)':
  158. cla
  159. *clr
  160. set minut += 15
  161. set vibrator = 1
  162. set money -= 1300
  163. '<center><img src="images/etogame/kassa.jpg"></center>'
  164. 'You bought a vibrator and paid the cashier.'
  165. act 'Move away from the counter':gt 'sexshop', 'start'
  166. end
  167. end
  168. if money >= 1200 and strapon = 0:
  169. act 'Buy a strapon (1,200 rubles)':
  170. cla
  171. *clr
  172. set minut += 15
  173. set strapon = 1
  174. set money -= 1200
  175. '<center><img src="images/etogame/kassa.jpg"></center>'
  176. 'You bought a strapon and paid the cashier.'
  177. act 'Move away from the counter':gt 'sexshop', 'start'
  178. end
  179. end
  180. if money >= 1200 and analplug = 0:
  181. act 'Buy butt plug 1,200 rubles':
  182. cla
  183. *clr
  184. set minut += 15
  185. set analplug = 1
  186. set money -= 1200
  187. '<center><img src="images/etogame/kassa.jpg"></center>'
  188. 'You bought a butt plug and paid the cashier.'
  189. act 'Move away from the counter':gt 'sexshop', 'start'
  190. end
  191. end
  192. if pornMagazine <= 1 and money >= 400:
  193. act 'Buy a porn magazine (400 rubles)':
  194. cls
  195. minut += 5
  196. money -= 400
  197. pornMagazine = 50
  198. gs 'stat'
  199. 'You bought a porn magazine and paid the cashier.'
  200. act 'Move away from the counter':gt'sexshop','start'
  201. end
  202. end
  203. if money >= 1000:
  204. if hooker[1] = 0:
  205. act 'Inspect clothes prostitutes. Number 1':
  206. cla
  207. *clr
  208. '<center><img src="images/clothes/hooker1.jpg"></center>'
  209. 'Clothing for prostitutes.'
  210. 'Costs 1,000 rubles.'
  211. act 'Leave':gt 'sexshop', 'start'
  212. act 'Buy (1,000 rubles)':
  213. cla
  214. set money -= 1000
  215. set hooker[1] = 1
  216. set hookerH[1] = 200
  217. set hookerB[1] = bedra
  218. gt 'sexshop', 'start'
  219. end
  220. end
  221. end
  222. if hooker[2] = 0:
  223. act 'Inspect clothes prostitutes. Number 2':
  224. cla
  225. *clr
  226. '<center><img src="images/clothes/hooker2.jpg"></center>'
  227. 'Clothing for prostitutes.'
  228. 'Costs 1,000 rubles.'
  229. act 'Leave':gt 'sexshop', 'start'
  230. act 'Buy (1,000 rubles)':
  231. cla
  232. set money -= 1000
  233. set hooker[2] = 1
  234. set hookerH[2] = 200
  235. set hookerB[2] = bedra
  236. gt 'sexshop', 'start'
  237. end
  238. end
  239. end
  240. if hooker[3] = 0:
  241. act 'Inspect clothes prostitutes. Number 3':
  242. cla
  243. *clr
  244. '<center><img src="images/clothes/hooker3.jpg"></center>'
  245. 'Clothing for prostitutes.'
  246. 'Costs 1,000 rubles.'
  247. act 'Leave':gt 'sexshop', 'start'
  248. act 'Buy (1,000 rubles)':
  249. cla
  250. set money -= 1000
  251. set hooker[3] = 1
  252. set hookerH[3] = 200
  253. set hookerB[3] = bedra
  254. gt 'sexshop', 'start'
  255. end
  256. end
  257. end
  258. if hooker[4] = 0:
  259. act 'Inspect clothes prostitutes. Number 4':
  260. cla
  261. *clr
  262. '<center><img src="images/clothes/hooker4.jpg"></center>'
  263. 'Clothing for prostitutes.'
  264. 'Costs 1,000 rubles.'
  265. act 'Leave':gt 'sexshop', 'start'
  266. act 'Buy (1,000 rubles)':
  267. cla
  268. set money -= 1000
  269. set hooker[4] = 1
  270. set hookerH[4] = 200
  271. set hookerB[4] = bedra
  272. gt 'sexshop', 'start'
  273. end
  274. end
  275. end
  276. if hooker[5] = 0:
  277. act 'Inspect clothes prostitutes. Number 5':
  278. cla
  279. *clr
  280. '<center><img src="images/clothes/hooker5.jpg"></center>'
  281. 'Clothing for prostitutes.'
  282. 'Costs 1,000 rubles.'
  283. act 'Leave':gt 'sexshop', 'start'
  284. act 'Buy (1,000 rubles)':
  285. cla
  286. set money -= 1000
  287. set hooker[5] = 1
  288. set hookerH[5] = 200
  289. set hookerB[5] = bedra
  290. gt 'sexshop', 'start'
  291. end
  292. end
  293. end
  294. if hooker[201] = 0:
  295. act 'Inspect clothes prostitutes. Number 201':
  296. cla
  297. *clr
  298. '<center><img src="images/clothes/hooker201.jpg"></center>'
  299. 'Clothing for prostitutes.'
  300. 'Costs 1,000 rubles.'
  301. act 'Leave':gt 'sexshop', 'start'
  302. act 'Buy (1,000 rubles)':
  303. cla
  304. set money -= 1000
  305. set hooker[201] = 1
  306. set hookerH[201] = 200
  307. set hookerB[201] = bedra
  308. gt 'sexshop', 'start'
  309. end
  310. end
  311. end
  312. !!!WD: Probably community edition
  313. if hooker[202] = 0:
  314. act 'Inspect clothes prostitutes. Number 202':
  315. cla
  316. *clr
  317. '<center><img src="images/clothes/hooker202.jpg"></center>'
  318. 'Clothing for prostitutes.'
  319. 'Costs 1,000 rubles.'
  320. act 'Leave':gt 'sexshop', 'start'
  321. act 'Buy (1,000 rubles)':
  322. cla
  323. set money -= 1000
  324. set hooker[202] = 1
  325. set hookerH[202] = 200
  326. set hookerB[202] = bedra
  327. gt 'sexshop', 'start'
  328. end
  329. end
  330. end
  331. if hooker[203] = 0:
  332. act 'Inspect clothes prostitutes. Number 203':
  333. cla
  334. *clr
  335. '<center><img src="images/clothes/hooker203.jpg"></center>'
  336. 'Clothing for prostitutes.'
  337. 'Costs 1,000 rubles.'
  338. act 'Leave':gt 'sexshop', 'start'
  339. act 'Buy (1,000 rubles)':
  340. cla
  341. set money -= 1000
  342. set hooker[203] = 1
  343. set hookerH[203] = 200
  344. set hookerB[203] = bedra
  345. gt 'sexshop', 'start'
  346. end
  347. end
  348. end
  349. if hooker[204] = 0:
  350. act 'Inspect clothes prostitutes. Number 204':
  351. cla
  352. *clr
  353. '<center><img src="images/clothes/hooker204.jpg"></center>'
  354. 'Clothing for prostitutes.'
  355. 'Costs 1,000 rubles.'
  356. act 'Leave':gt 'sexshop', 'start'
  357. act 'Buy (1,000 rubles)':
  358. cla
  359. set money -= 1000
  360. set hooker[204] = 1
  361. set hookerH[204] = 200
  362. set hookerB[204] = bedra
  363. gt 'sexshop', 'start'
  364. end
  365. end
  366. end
  367. if hooker[205] = 0:
  368. act 'Inspect clothes prostitutes. Number 205':
  369. cla
  370. *clr
  371. '<center><img src="images/clothes/hooker205.jpg"></center>'
  372. 'Clothing for prostitutes.'
  373. 'Costs 1,000 rubles.'
  374. act 'Leave':gt 'sexshop', 'start'
  375. act 'Buy (1,000 rubles)':
  376. cla
  377. set money -= 1000
  378. set hooker[205] = 1
  379. set hookerH[205] = 200
  380. set hookerB[205] = bedra
  381. gt 'sexshop', 'start'
  382. end
  383. end
  384. end
  385. !!!
  386. end
  387. end
  388. if $ARGS[0] = 'podval':
  389. cla
  390. *clr
  391. set minut += 5
  392. '<center><b><font color="maroon">Basement with cubicles for watching movies</font></b></center>'
  393. '<center><img src="images/etogame/gloryholeBooths1.jpg"></center>'
  394. ''
  395. clr
  396. gs 'stat'
  397. fcolor = rgb(0, 0, 0)
  398. bcolor = rgb(255, 255, 255)
  399. lcolor = rgb(106, 90, 205)
  400. !!gloryholeBooths
  401. act 'Go to a free booth':gt 'sexshop', 'pip'
  402. act 'Go to the toilet':gt 'sexshop', 'toi'
  403. if masharab = 1:act 'Go to Masha':gt 'masharoom', 'start'
  404. act 'Walk out basement':gt 'sexshop', 'start'
  405. end
  406. if $ARGS[0] = 'toi':
  407. cla
  408. *clr
  409. set minut += 5
  410. '<center><b><font color="maroon">WC</font></b></center>'
  411. '<center><img src="images/etogame/PublicToilet.jpg"></center>'
  412. ''
  413. clr
  414. gs 'stat'
  415. fcolor = rgb(0, 0, 0)
  416. bcolor = rgb(255, 255, 255)
  417. lcolor = rgb(106, 90, 205)
  418. if tanga = 1:
  419. act 'Remove Underwear':
  420. cla
  421. set tanga = 0
  422. gt 'sexshop', 'toi'
  423. end
  424. end
  425. act 'Look in the mirror':
  426. cla
  427. gs 'portmirror'
  428. set $gt1 = 'sexshop'
  429. set $gt2 = 'toi'
  430. dynamic $portmirror
  431. act 'Move away from the mirror':
  432. cla
  433. gt 'sexshop', 'toi'
  434. end
  435. end
  436. !!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
  437. !!Removed sweat =- 1 when cum is wiped off clothes
  438. !!clrbelo: Amount of clean panties available
  439. if (cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0) and clrbelo > 0:
  440. act 'Quick wash (0:15)':
  441. cla
  442. *clr
  443. $showerdin
  444. set sweat -= 1
  445. set minut += 15
  446. set clrbelo -= 1
  447. set dirtbelo += 1
  448. '<center><img src="images/pics/wash5.jpg"></center>'
  449. 'You gave yourself a catlick, thus removing any traces of cum.'
  450. act 'Finish':gt 'sexshop', 'toi'
  451. end
  452. end
  453. if cumlip > 0 or cumface > 0:
  454. act 'Clean your face from sperm (0:05)':
  455. cla
  456. *clr
  457. set mop = 1
  458. set cumlip = 0
  459. set cumface = 0
  460. set sweat -= 1
  461. set minut += 5
  462. '<center><img src="images/etogame/facesp.jpg"></center>'
  463. 'You clean your face and got rid of any trace of cum.'
  464. act 'Finish':gt 'sexshop', 'toi'
  465. end
  466. end
  467. if cumfrot > 0:
  468. act 'Wipe the cum off your clothes (0:10)':
  469. cla
  470. *clr
  471. set cumfrot = 0
  472. set minut += 10
  473. !!'<center><img src="images/etogame/frotsp.jpg"></center>'
  474. 'You remove traces of cum from your clothes.'
  475. act 'Exit':gt 'sexshop', 'toi'
  476. end
  477. end
  478. !!
  479. if tampon > 0 and mesec > 0 and isprok = 0:
  480. act 'Use a tampon (0:05)':
  481. cla
  482. *clr
  483. set tampon -= 1
  484. set isprok = 1
  485. set minut += 5
  486. set manna -= 5
  487. '<center><img src="images/pics/wash3.jpg"></center>'
  488. 'You use a tampon.'
  489. act 'Finish':gt 'sexshop', 'toi'
  490. end
  491. end
  492. act 'Off the toilet':gt 'sexshop', 'podval'
  493. end
  494. if $ARGS[0] = 'pip':
  495. cla
  496. *clr
  497. set minut += 5
  498. '<center><b><font color="maroon">Booth movies</font></b></center>'
  499. '<center><img src="images/etogame/ghBooths.jpg"></center>'
  500. 'Small closet with a TV on the wall, bill acceptor and two holes in the walls at waist level.'
  501. if ghnow > 0:'You served <<ghnow>> cocks.'
  502. clr
  503. gs 'stat'
  504. fcolor = rgb(0, 0, 0)
  505. bcolor = rgb(255, 255, 255)
  506. lcolor = rgb(106, 90, 205)
  507. !!gloryholeBooths
  508. act 'Get out of the booth':gt 'sexshop', 'podval'
  509. if money >= 50 and hour < 23:
  510. act 'Stick 50 rubles in the machine':
  511. cla
  512. set money -= 50
  513. set minut += 15
  514. 'Once you have paid the money the TV on the wall showing porn.'
  515. set ghrand = rand(0, 10)
  516. set horny += 5
  517. set manna += 5
  518. 'You sat in a chair and watched porn, you began to get a little excited.'
  519. act 'The movie ended':gt 'sexshop', 'pip'
  520. if horny >= 50:
  521. act 'Masturbate':
  522. cla
  523. set horny += 10
  524. set manna += 10
  525. 'You caress your pussy with your fingers and enjoy the pleasant sensation between your legs.'
  526. if horny >= 100:
  527. set orgasm += 1
  528. set horny = 0
  529. set manna += 15
  530. set willpower += 15
  531. set mastr += 1
  532. 'Gradually the pleasurable sensations spread throughout the body and you orgasm.'
  533. end
  534. act 'The movie ended':gt 'sexshop', 'pip'
  535. end
  536. end
  537. if ghrand >= 10 - (cumlip * 2):
  538. 'You hear the TV turn on in the next stall.'
  539. act 'Stick a finger in the hole (to serve the stranger)':
  540. cla
  541. *clr
  542. set ghnow += 1
  543. set money += 300
  544. set fingerRand = rand(0, 4)
  545. if fingerRand = 0:'<center><img src="images/etogame/ghFinger.jpg"></center>'
  546. if fingerRand = 1:'<center><img src="images/etogame/ghFinger1.jpg"></center>'
  547. if fingerRand = 2:'<center><img src="images/etogame/ghFinger2.jpg"></center>'
  548. if fingerRand = 3:'<center><img src="images/etogame/ghFinger3.jpg"></center>'
  549. if fingerRand = 4:'<center><img src="images/etogame/ghFinger4.jpg"></center>'
  550. 'You poke your finger in the hole showing that you are ready to serve the stranger.'
  551. 'The stranger slipped 300 rubles into the hole, and then his cock stuck out of the hole.'
  552. act 'Sucking dick':
  553. cla
  554. *clr
  555. set horny += VAF
  556. set guy += 1
  557. set bj += 1
  558. set gloryhole += 1
  559. set swallow += 1
  560. set cumlip += 1
  561. dynamic $venerasiak
  562. set ghprand = rand(0, 37)
  563. if ghprand = 0:'<center><img src="images/picV/gloryhole.jpg"></center>'
  564. if ghprand = 1:'<center><img src="images/picV/gloryhole1.jpg"></center>'
  565. if ghprand = 2:'<center><img src="images/picV/gloryhole2.jpg"></center>'
  566. if ghprand = 3:'<center><img src="images/picV/gloryhole3.jpg"></center>'
  567. if ghprand = 4:'<center><img src="images/picV/gloryhole4.jpg"></center>'
  568. if ghprand = 5:'<center><img src="images/picV/gloryhole5.jpg"></center>'
  569. if ghprand = 6:'<center><img src="images/picV/gloryhole6.jpg"></center>'
  570. if ghprand = 7:'<center><img src="images/picV/gloryhole7.jpg"></center>'
  571. if ghprand = 8:'<center><img src="images/picV/gloryhole8.jpg"></center>'
  572. if ghprand = 9:'<center><img src="images/picV/gloryhole9.jpg"></center>'
  573. if ghprand = 10:'<center><img src="images/picV/gloryhole10.jpg"></center>'
  574. if ghprand = 11:'<center><img src="images/picV/gloryhole11.jpg"></center>'
  575. if ghprand = 12:'<center><img src="images/picV/gloryhole12.jpg"></center>'
  576. if ghprand = 13:'<center><img src="images/picV/gloryhole13.jpg"></center>'
  577. if ghprand = 14:'<center><img src="images/picV/gloryhole14.jpg"></center>'
  578. if ghprand = 15:'<center><img src="images/picV/gloryhole15.jpg"></center>'
  579. if ghprand = 16:'<center><img src="images/picV/gloryhole16.jpg"></center>'
  580. if ghprand = 17:'<center><img src="images/picV/gloryhole17.jpg"></center>'
  581. if ghprand = 18:'<center><img src="images/picV/gloryhole18.jpg"></center>'
  582. if ghprand = 19:'<center><img src="images/picV/gloryhole19.jpg"></center>'
  583. if ghprand = 20:'<center><img src="images/picV/gloryhole20.jpg"></center>'
  584. if ghprand = 21:'<center><img src="images/picV/gloryhole21.jpg"></center>'
  585. if ghprand = 22:'<center><img src="images/picV/gloryhole22.jpg"></center>'
  586. if ghprand = 23:'<center><img src="images/picV/gloryhole23.jpg"></center>'
  587. if ghprand = 24:'<center><img src="images/picV/gloryhole24.jpg"></center>'
  588. if ghprand = 25:'<center><img src="images/picV/gloryhole25.jpg"></center>'
  589. if ghprand = 26:'<center><img src="images/picV/gloryhole26.jpg"></center>'
  590. if ghprand = 27:'<center><img src="images/picV/gloryhole27.jpg"></center>'
  591. if ghprand = 28:'<center><img src="images/picV/gloryhole28.jpg"></center>'
  592. if ghprand = 29:'<center><img src="images/picV/gloryhole29.jpg"></center>'
  593. if ghprand = 30:'<center><img src="images/picV/gloryhole30.jpg"></center>'
  594. if ghprand = 31:'<center><img src="images/picV/gloryhole31.jpg"></center>'
  595. if ghprand = 32:'<center><img src="images/picV/gloryhole32.jpg"></center>'
  596. if ghprand = 33:'<center><img src="images/picV/gloryhole33.jpg"></center>'
  597. if ghprand = 34:'<center><img src="images/picV/gloryhole34.jpg"></center>'
  598. if ghprand = 35:'<center><img src="images/picV/gloryhole35.jpg"></center>'
  599. if ghprand = 36:'<center><img src="images/picV/gloryhole36.jpg"></center>'
  600. if ghprand = 37:'<center><img src="images/picV/gloryhole37.jpg"></center>'
  601. 'You take the cock in your mouth and began to suck him, jerking his cock with your struggling lips.'
  602. if horny >= 100:
  603. set VAF += 1
  604. set orgasm += 1
  605. set horny = 0
  606. set manna += 15
  607. set willpower += 15
  608. set lip += 1
  609. '<b>Suddenly as you are sucking dick you orgasm yourself. Between your legs blazing fire and waves of pleasure fill your body, you moan but continue to suck.</b>'
  610. end
  611. 'Finally the stranger began to cum in your mouth filling it with a huge amount of sperm. Once you''ve licked all the sperm from a his cock, the man leaves the booth.'
  612. act 'Wipe your face':gt 'sexshop', 'pip'
  613. end
  614. end
  615. end
  616. end
  617. end
  618. end
  619. if $ARGS[0] = 'porn':
  620. cla
  621. *clr
  622. set minut += 5
  623. 'In general, you give a great blowjob, everyone knows that. Do you want to earn extra money in the porn business as an actress? The pay there is certainly better than here, and cocks, maybe even more. Well? Other options will not be as good !'
  624. act 'Agree':
  625. cla
  626. *clr
  627. pornstudio = 2
  628. gt 'pornstudio', '1'
  629. end
  630. act 'Refuse':
  631. cla
  632. *clr
  633. pornstudio = 1
  634. gt 'sexshop', 'start'
  635. end
  636. end
  637. if $ARGS[0] = 'kendra':
  638. cla
  639. *clr
  640. set minut += 10
  641. gs 'stat'
  642. '<center><img src="images/img/centr/shkend.jpg"></center>'
  643. 'In the store you can see Kendra, trying on latex clothes.'
  644. '"Who do we have here, my favorite bitch, come to me and I am already very excited to choose a toy, now we can test something on the spot" Kendra laughs, sitting down on the table and opening your legs.'
  645. act 'Away from her':gt 'sexshop', 'start'
  646. if DOM > 10:act 'First serve':gt 'sexshop', 'kendra4'
  647. act 'Serve Kendra':
  648. cla
  649. *clr
  650. set SUB += 1
  651. !!set girl += 1
  652. set lesbian += 1
  653. '<center><img src="images/img/centr/shkend1.jpg"></center>'
  654. 'You quickly throw off clothes and knelt before her pussy and lick her eagerly. As long as you carefully suck Kendra as squeals and praises your tongue, saying that no tounge has pleased her much as yours.'
  655. '"Now pick anything from the toys" says Kendra"'
  656. act 'Give her a dildo':gt 'sexshop', 'kendra1'
  657. act 'Give her a strapon':gt 'sexshop', 'kendra2'
  658. end
  659. end
  660. if $ARGS[0] = 'kendra1':
  661. cla
  662. *clr
  663. set pipirand = rand(0, 3)
  664. set minut += 10
  665. gs 'stat'
  666. '<center><img src="images/img/centr/shkend2.jpg"></center>'
  667. 'You take a dildo, and licking her pussy insert into Kendra. While you with one hand fucks the dildo in her pussy, the second caress her clit trying to bring her to orgasm. Kendra writhes sitting on the table carefully adjusting your movements to the beat.'
  668. if pipirand > 0:
  669. set orgasm += 1
  670. 'Then Kendra starts spasming as her whole body orgasms, you also feel yourself crest the wave of orgasm. Slightly recovering yourself, Kendra looks at you: "You are a beautiful bitch, totaly committed to serving me."'
  671. act 'Finish':gt 'sexshop', 'start'
  672. end
  673. if pipirand = 0:
  674. act 'Oops ...':
  675. cla
  676. *clr
  677. set sweat += 1
  678. '<center><img src="images/img/centr/shkend4.jpg"></center>'
  679. 'Suddenly, when she is ready to cum, Kendra begin pissin, her urine flowing allong the dildo and your coating your hand.'
  680. 'Damn!" you cried out and were about to drop the dildo.'
  681. '"Let''s finish up, slut!" cried Kendra'
  682. act 'Leave her':gt 'sexshop', 'kendra3'
  683. act 'Continue':
  684. cla
  685. *clr
  686. set sweat += 3
  687. set SUB += 2
  688. set horny = 0
  689. '<center><img src="images/img/centr/shkend3.jpg"></center>'
  690. 'You dutifully continue to thrust the dildo, still stroking her clit, but the excitement is already gone. Her urine dripping from the dildo on your hand and now your stomach and thighs, your are totally covered in her urine.'
  691. 'Finally she finished, "And now Carney me, and then I become dirty." commanded Kendra'
  692. act 'Leave her':gt 'sexshop', 'kendra3'
  693. act 'Lick':
  694. cla
  695. *clr
  696. set SUB += 2
  697. '<center><img src="images/img/centr/shkend5.jpg"></center>'
  698. 'You dutifully move closer to her pussy and began to slowly lick the urine from her thighs and pussy.'
  699. '"Keep going you slut," Kendra orders you. You began to lick faster, eeping from retching from urine taste in the mouth with difficulty.'
  700. '"That''s clever, come see me often. Have fun." With these words Kendra dresses and leaves, leaving you sitting on the floor in a puddle of her urine.'
  701. act 'Leave':gt 'sexshop', 'start'
  702. end
  703. end
  704. end
  705. end
  706. end
  707. if $ARGS[0] = 'kendra2':
  708. cla
  709. *clr
  710. set minut += 10
  711. gs 'stat'
  712. '<center><img src="images/img/centr/shkend8.jpg"></center>'
  713. 'Kendra slides on the strapon and looking at you asks, "Well, beauty in which hole do you want it?'
  714. act 'In the vagina':
  715. cla
  716. *clr
  717. set sex += 1
  718. vagina += 1
  719. set orgasm += 1
  720. set horny = 0
  721. '<center><img src="images/img/centr/shkend10.jpg"></center>'
  722. 'Kendra sits in a chair and you jump on top of her strap-on, slding it into your pussy. You ride the strapon, and Kendra drives up from he bottom you trying to shove it as far into your pussy as possible. Several minutes pass and such thrust force you to orgasm, and you slide off the chair with Kendra.'
  723. '"That''s clever, come see me often. Have fun." With these words Kendra dresses and leaves.'
  724. act 'Leave':gt 'sexshop', 'start'
  725. end
  726. act 'In the ass':
  727. cla
  728. *clr
  729. set anal += 1
  730. set orgasm += 1
  731. anus += 1
  732. set horny = 0
  733. '<center><img src="images/img/centr/shkend9.jpg"></center>'
  734. 'You jump up on the table and spreads your legs, Kendra gently slides in the strapon into your aas and gives your ass time to adjust to it. Then she begins to thrust, the strapon slides inside your ass and you soon start to moan. Seeing that you enjoy the process, Kendra begins to slowly accelerate, and you slide yoru hand to your pussy and finger your clit. After a few minutes you orgasm, as your hole body convulsies and shuders you sldie down cuddle and cuddle Kendra so that the strapon is buired all the way in your ass, you close your eyes and drift off.'
  735. 'When you come to, Kendra is already dressed, "Well, you orgasmed slut, I will have to find a double dildoed strapon. I want to see what you will do with two shafts buried in you" with that Kendra leaves.'
  736. act 'Leave':gt 'sexshop', 'start'
  737. end
  738. end
  739. if $ARGS[0] = 'kendra3':
  740. set minut += 10
  741. set anal += 1
  742. anus += 1
  743. set rape += 1
  744. cla
  745. *clr
  746. '<center><img src="images/img/centr/shkend6.jpg"></center>'
  747. '"Oh damn, now I''m going to teach obedience," with these words Kendra jumps up and throws you on to the table taht she sat on a moment ago. Falling on the table you swipe back, and while you''re writhing in pain on the table, Kendra slides on a strapon. Pressing your hands to the table your hips are forced back and she pushes it into your ass, with out any lubricant on it. Added pain to the pain of yoru burnign ass your asshole is torn open. Kendra fucks with you with force into your ass calling you a worthless bitch fit only to be used.'
  748. 'When she finally tires, you just slump to the floor from the table and land with a thud.'
  749. '"On your knees slut, " she hissed.'
  750. act 'To kneel':
  751. cla
  752. *clr
  753. '<center><img src="images/img/centr/shkend7.jpg"></center>'
  754. 'You scrambled to your knees, your backside aching terribly, and it seems dripping blood.'
  755. '"Suck" commands Kendra pushing the strapon to your face. You look at the strapon, coated in traces of your blood.'
  756. '"Yes suck already." Kendra cried and grabs your hair, you reflexively opened your mouth to scream, but Kendra pushes in the strapon before you can get a word out. She fucks you in the mouth with the same strapon she used a few minutes ago on your ass.'
  757. 'When she finally calms down and let go of your hair, you can''t do nothing but to fall to the floor. Kendra leanes over you and says, "Remember bitch, you do what I say or I will let you sit naked on all fours on the street, I will stay nearby and let whoever wants to fuck you until you have learned your lesson. I have to go now," she gets dressed and leaves.'
  758. act 'Leave':gt 'sexshop', 'start'
  759. end
  760. end
  761. if $ARGS[0] = 'kendra4':
  762. cla
  763. *clr
  764. set minut += 10
  765. set orgasm += 1
  766. set horny = 0
  767. set picrand = rand(11, 12)
  768. '<center><img src="images/img/centr/shkend<<picrand>>.jpg"></center>'
  769. 'Kendra looks surprised at you until you tear off your clothes.'
  770. 'Naked you turned to her and stick out your ass "Well look, you bring me to orgasm and we can try strapon"'
  771. if picrand = 11:'Kendra kneels down and begins to lick your pussy, her tongue slides all over your sex, your sensitive clit and dipping into the vagina a few minutes of her effort, you left off.'
  772. if picrand = 12:'Kendra kneels down and her tongue sticks out tryign to slide into your ass, you writhe as she her tounge saneks and twists inside your ass. Her fingers penetrating your pussy for a few minutes, and the feeling of her tounge in your ass and her fingers in your pussy brings you to a shuddering orgasm.'
  773. '"Well, I will try to fulfill your desires?" Kendra says, catching her breath. "Now my turn.'
  774. act 'Give her strapon':gt 'sexshop', 'kendra2'
  775. if DOM > 25:act '"Perebesh"':gt 'sexshop', 'start'
  776. end
  777. if $ARGS[0] = 'shprod':
  778. cla
  779. *clr
  780. set minut += 5
  781. '<center><img src="images/img/centr/shprod.jpg"></center>'
  782. 'The cashier is right infortn of you offering to help and holdign a miniskirt "Girl this is very you, will you try it on"'
  783. act 'Refuse':gt 'sexshop', 'start'
  784. act 'Try':
  785. cla
  786. *clr
  787. set picrand = 47
  788. '<center><img src="images/img/centr/shprod1.jpg"></center>'
  789. 'You wear the skirt out of the booth and pose in the mirror, you do not have panties on and the skirt is so short that looks more like a belt and does not cover anything. All your charms are visible from all directions.'
  790. 'Approaching the mirror you are considering this so-called skirt, and the cashier kneels behind you and starts praising your ass in that skirt, his hands already wander around your hips and he get his lips as close to your butt as he can, he says that he wants to kiss on your skin. Words soon cease and just the touch of his lips to your skin remains, closer and closer to your pussy.'
  791. act 'Push him away':gt 'sexshop', 'start'
  792. act 'Let him':gt 'sex', 'kuni'
  793. end
  794. end
  795. --- sexshop ---------------------------------