sexshop.qsrc 38 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147
  1. # sexshop
  2. $location_type = 'public_indoors'
  3. if $ARGS[0] = 'start':
  4. CLOSE ALL
  5. $loc = 'sexshop'
  6. $metka = 'start'
  7. $sexloc = 'sexshop'
  8. $menu_loc = 'sexshop'
  9. $menu_arg = 'start'
  10. menu_off = 0
  11. $location_type = 'public_indoors'
  12. cla & *clr
  13. if kendra > 0 and rand(1, 10) = 10:gt 'sexshop', 'kendra'
  14. if $pantyworntype = 'none' and rand(1, 10) = 10:gt 'sexshop', 'shprod'
  15. clr
  16. gs 'stat'
  17. gs 'themes', 'indoors'
  18. '<center><b><font color="maroon">Dildopolis Inc.</font></b></center>'
  19. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  20. 'The main counter displays various sex toys:'
  21. 'Lubricant - 145 <b>₽</b>'
  22. 'Dildo starting at - 800 <b>₽</b>'
  23. 'Vibrator - 800 <b>₽</b>'
  24. 'Strapon harness starting at 1,200 <b>₽</b>'
  25. 'Butt plug 1,200 <b>₽</b>'
  26. *nl
  27. 'In the basement are the private booths for viewing porn movies (50 <b>₽</b> 15 minutes).'
  28. act 'Leave': minut += 5 & gt 'Nord', 'redlight'
  29. if sub >= 100 and analplug = 1 and dildo = 1 and pcs_apprnc > 104 and Peter = 0:
  30. if rand(0,1) = 1:
  31. 'You see an interesting looking middle-aged man, apparently he is the owner of this store.'
  32. act 'Introduce yourself to the owner of the store' :
  33. *clr & cla
  34. menu_off = 1
  35. '<center><img <<$set_imgh>> src="images/characters/city/peter/peter.jpg"></center>'
  36. 'I''m Peter, I''ve been watching you for a long time. I often see you here. I think it will be interesting...'
  37. act 'Leave': minut += 5 & gt 'Nord', 'redlight'
  38. act 'Go with Peter': gt 'Peterroom', 'start'
  39. end
  40. end
  41. end
  42. act 'Go to the basement':gt 'sexshop', 'podval'
  43. if gloryhole >= 20 and pornstudio = 0:
  44. 'You notice out of the corner your eye, that the seller is trying to get your attention.'
  45. act 'Approach to learn what we wants':
  46. *clr & cla
  47. minut += 5
  48. menu_off = 1
  49. '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!'
  50. act 'Agree':
  51. *clr & cla
  52. minut += 5
  53. gs 'stat'
  54. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/pierre_1.jpg"></center>'
  55. 'You came to the studio, looking for someone to look, who to approach to the issue.'
  56. 'To you approached by a young man who introduced Peter, you are greeted and met.'
  57. act 'Set out the purpose of your visit':
  58. *clr & cla
  59. minut = minut + 60
  60. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/pierre_2.jpg"></center>'
  61. 'Peter smiled and said that the new actresses are always welcome, just terrible, of course, in the business do not take. On the first couple of auditions will take place, if you like the public - you can not take them.'
  62. 'I''ll tell you that here and how, but under one condition - you have to undress.'
  63. act 'Undress':
  64. *clr & cla
  65. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/casting_3.jpg"></center>'
  66. 'First there is a casting actresses - as I said, if you are terrible - you can not hope only comes when you have a beautiful appearance.'
  67. act '......':
  68. *clr & cla
  69. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/model_0.jpg"></center>'
  70. 'Then she selected for the lead role.'
  71. 'Here you have to be the most beautiful.'
  72. act '......':
  73. *clr & cla
  74. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/film_0.jpg"></center>'
  75. 'Well then filming itself - an interesting and exciting process'
  76. 'And the output we get ....'
  77. act '......':
  78. *clr & cla
  79. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/dvd-disx.jpg"></center>'
  80. 'Then on what I make money.'
  81. act 'Everything is clear, but how and where everything is for sale? Maybe I want to see for yourself ..':
  82. *clr & cla
  83. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/pierre_2.jpg"></center>'
  84. 'The sauna is in a residential area we have one man .. And in a sex shop, how could you understand there garters. Now here are thinking about selling in the university. If we have this who helped - increased profits used well, with dividend entitlements assistant, of course.'
  85. act 'And any problems with the law?':
  86. *clr & cla
  87. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/ment_0.jpg"></center>'
  88. 'Specifically for you - yet. We''ve got their contracts with the cops, maybe in the future you will be able to help us to keep them in power, but for now - I told you all have to try on the weekend.'
  89. act 'Well like all realized':
  90. *clr & cla
  91. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/pierre_2.jpg"></center>'
  92. 'Boy, girl, enjoy yourself and do not take away I have more time'
  93. pornstudio = 3
  94. act 'Continue': gt 'pornstudio', 'start'
  95. end
  96. end
  97. end
  98. end
  99. end
  100. end
  101. end
  102. end
  103. end
  104. act 'Refuse': pornstudio = 1 & gt 'sexshop', 'start'
  105. end
  106. end
  107. act 'Look through the fetish clothing': minut += 1 & gt 'sexshop', 'clo'
  108. act 'Look through the burlesque clothing': minut += 1 & gt 'sexshop', 'clo2'
  109. act 'Look through the panties': minut += 1 & gt 'sexshop', 'panties'
  110. act 'Look through the bras': minut += 1 & gt 'sexshop', 'bras'
  111. act 'Look through the fetish shoes': minut += 1 & gt 'sexshop', 'shoes'
  112. if money < 300 and karta + bankDebtLimit < 300:
  113. 'You cannot afford lubricant.'
  114. else
  115. if money >= 300:
  116. act 'Buy lubricant 300 <b>₽</b> (cash)':
  117. *clr & cla
  118. menu_off = 1
  119. portion = input ("How much you want to buy?")
  120. if portion * 300 > money:
  121. 'You do not have enough money.'
  122. else
  123. lubri += portion * 5
  124. money -= portion * 300
  125. minut += 5
  126. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  127. 'You buy some lubricant and pay the cashier.'
  128. end
  129. gs 'stat'
  130. act 'Move away from the counter':gt 'sexshop', 'start'
  131. end
  132. end
  133. if karta + bankDebtLimit >= 300:
  134. act 'Buy lubricant 300 <b>₽</b> (card)':
  135. *clr & cla
  136. menu_off = 1
  137. portion = input ("How much you want to buy?")
  138. if portion * 300 > karta + bankDebtLimit:
  139. 'You do not have enough credit.'
  140. else
  141. lubri += portion * 5
  142. karta -= portion * 300
  143. minut += 5
  144. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  145. 'You buy some lubricant and pay the cashier.'
  146. end
  147. gs 'stat'
  148. act 'Move away from the counter':gt 'sexshop', 'start'
  149. end
  150. end
  151. end
  152. if pornMagazine <= 1 and (money < 400 and karta + bankDebtLimit < 400):
  153. 'You cannot afford the porn magazine.'
  154. else
  155. if pornMagazine <= 1 and money >= 400:
  156. act 'Buy a porn magazine 400 <b>₽</b> (cash)':
  157. *clr & cla
  158. menu_off = 1
  159. minut += 5
  160. money -= 400
  161. pornMagazine = 50
  162. gs 'stat'
  163. 'You buy a porn magazine and pay the cashier.'
  164. act 'Move away from the counter':gt 'sexshop','start'
  165. end
  166. end
  167. if pornMagazine <= 1 and karta + bankDebtLimit >= 400:
  168. act 'Buy a porn magazine 400 <b>₽</b> (card)':
  169. *clr & cla
  170. menu_off = 1
  171. minut += 5
  172. karta -= 400
  173. pornMagazine = 50
  174. gs 'stat'
  175. 'You buy a porn magazine and pay the cashier.'
  176. act 'Move away from the counter':gt 'sexshop','start'
  177. end
  178. end
  179. end
  180. if dildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  181. 'You cannot afford the 10cm dildo.'
  182. else
  183. if money >= 800 and dildo = 0:
  184. act 'Buy 10cm dildo 800 <b>₽</b> (cash)':
  185. *clr & cla
  186. menu_off = 1
  187. minut += 5
  188. dildo = 1
  189. money -= 800
  190. gs 'stat'
  191. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  192. 'You bought a dildo and paid the cashier.'
  193. act 'Move away from the counter':gt 'sexshop', 'start'
  194. end
  195. end
  196. if karta + bankDebtLimit >= 800 and dildo = 0:
  197. act 'Buy 10cm dildo 800 <b>₽</b> (card)':
  198. *clr & cla
  199. menu_off = 1
  200. minut += 5
  201. dildo = 1
  202. karta -= 800
  203. gs 'stat'
  204. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  205. 'You bought a dildo and paid the cashier.'
  206. act 'Move away from the counter':gt 'sexshop', 'start'
  207. end
  208. end
  209. end
  210. if middildo = 0 and (money < 850 and karta + bankDebtLimit < 850):
  211. 'You cannot afford the 15cm dildo.'
  212. else
  213. if money >= 850 and middildo = 0:
  214. act 'Buy 15cm long dildo 850 <b>₽</b> (cash)':
  215. *clr & cla
  216. menu_off = 1
  217. minut += 5
  218. middildo = 1
  219. money -= 850
  220. gs 'stat'
  221. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  222. 'You bought a 15cm long dildo and paid the cashier.'
  223. act 'Move away from the counter':gt 'sexshop','start'
  224. end
  225. end
  226. if karta + bankDebtLimit >= 850 and middildo = 0:
  227. act 'Buy 15cm long dildo 850 <b>₽</b> (card)':
  228. *clr & cla
  229. menu_off = 1
  230. minut += 5
  231. middildo = 1
  232. karta -= 850
  233. gs 'stat'
  234. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  235. 'You bought a 15cm long dildo and paid the cashier.'
  236. act 'Move away from the counter':gt 'sexshop','start'
  237. end
  238. end
  239. end
  240. if largedildo = 0 and (money < 900 and karta + bankDebtLimit < 900):
  241. 'You cannot afford the 20cm dildo.'
  242. else
  243. if money >= 900 and largedildo = 0:
  244. act 'Buy 20cm long dildo 900 <b>₽</b> (cash)':
  245. *clr & cla
  246. menu_off = 1
  247. minut += 5
  248. largedildo = 1
  249. money -= 900
  250. gs 'stat'
  251. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  252. 'You bought a 20cm long dildo and paid the cashier.'
  253. act 'Move away from the counter':gt 'sexshop','start'
  254. end
  255. end
  256. if karta + bankDebtLimit >= 900 and largedildo = 0:
  257. act 'Buy 20cm long dildo 900 <b>₽</b> (card)':
  258. *clr & cla
  259. menu_off = 1
  260. minut += 5
  261. largedildo = 1
  262. karta -= 900
  263. gs 'stat'
  264. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  265. 'You bought a 20cm long dildo and paid the cashier.'
  266. act 'Move away from the counter':gt 'sexshop','start'
  267. end
  268. end
  269. end
  270. if bigdildo = 0 and (money < 950 and karta + bankDebtLimit < 950):
  271. 'You cannot afford the 25cm dildo.'
  272. else
  273. if money >= 950 and bigdildo = 0:
  274. act 'Buy 25cm long dildo 950 <b>₽</b> (cash)':
  275. *clr & cla
  276. menu_off = 1
  277. minut += 5
  278. bigdildo = 1
  279. money -= 950
  280. gs 'stat'
  281. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  282. 'You bought a 25cm long dildo and paid the cashier.'
  283. act 'Move away from the counter':gt 'sexshop','start'
  284. end
  285. end
  286. if karta + bankDebtLimit >= 950 and bigdildo = 0:
  287. act 'Buy 25cm long dildo 950 <b>₽</b> (card)':
  288. *clr & cla
  289. menu_off = 1
  290. minut += 5
  291. bigdildo = 1
  292. karta -= 950
  293. gs 'stat'
  294. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  295. 'You bought a 25cm long dildo and paid the cashier.'
  296. act 'Move away from the counter':gt 'sexshop','start'
  297. end
  298. end
  299. end
  300. if extradildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  301. 'You cannot afford the 10cm dildo.'
  302. else
  303. if money >= 1000 and extradildo = 0:
  304. act 'Buy 30cm long dildo (1,000 <b>₽</b>)':
  305. *clr & cla
  306. menu_off = 1
  307. minut += 5
  308. extradildo = 1
  309. money -= 1000
  310. gs 'stat'
  311. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  312. 'You bought a 30cm long dildo and paid the cashier.'
  313. act 'Move away from the counter':gt 'sexshop','start'
  314. end
  315. end
  316. if karta + bankDebtLimit >= 1000 and extradildo = 0:
  317. act 'Buy 30cm long dildo (1,000 <b>₽</b>)':
  318. *clr & cla
  319. menu_off = 1
  320. minut += 5
  321. extradildo = 1
  322. karta -= 1000
  323. gs 'stat'
  324. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  325. 'You bought a 30cm long dildo and paid the cashier.'
  326. act 'Move away from the counter':gt 'sexshop','start'
  327. end
  328. end
  329. end
  330. if superdildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  331. 'You cannot afford the 10cm dildo.'
  332. else
  333. if money >= 1100 and superdildo = 0:
  334. act 'Buy 35cm long dildo (1,100 <b>₽</b>)':
  335. *clr & cla
  336. menu_off = 1
  337. minut += 5
  338. superdildo = 1
  339. money -= 1100
  340. gs 'stat'
  341. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  342. 'You bought a 35cm long dildo and paid the cashier.'
  343. act 'Move away from the counter':gt 'sexshop','start'
  344. end
  345. end
  346. if karta + bankDebtLimit >= 1100 and superdildo = 0:
  347. act 'Buy 35cm long dildo (1,100 <b>₽</b>)':
  348. *clr & cla
  349. menu_off = 1
  350. minut += 5
  351. superdildo = 1
  352. karta -= 1100
  353. gs 'stat'
  354. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  355. 'You bought a 35cm long dildo and paid the cashier.'
  356. act 'Move away from the counter':gt 'sexshop','start'
  357. end
  358. end
  359. end
  360. if maddildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  361. 'You cannot afford the 10cm dildo.'
  362. else
  363. if money >= 1200 and maddildo = 0:
  364. act 'Buy 40cm long dildo (1,200 <b>₽</b>)':
  365. *clr & cla
  366. menu_off = 1
  367. minut += 5
  368. maddildo = 1
  369. money -= 1200
  370. gs 'stat'
  371. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  372. 'You bought a 40cm long dildo and paid the cashier.'
  373. act 'Move away from the counter':gt 'sexshop','start'
  374. end
  375. end
  376. if karta + bankDebtLimit >= 1200 and maddildo = 0:
  377. act 'Buy 40cm long dildo (1,200 <b>₽</b>)':
  378. *clr & cla
  379. menu_off = 1
  380. minut += 5
  381. maddildo = 1
  382. karta -= 1200
  383. gs 'stat'
  384. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  385. 'You bought a 40cm long dildo and paid the cashier.'
  386. act 'Move away from the counter':gt 'sexshop','start'
  387. end
  388. end
  389. end
  390. if vibrator = 0 and (money < 800 and karta + bankDebtLimit < 800):
  391. 'You cannot afford the 10cm dildo.'
  392. else
  393. if money >= 800 and vibrator = 0:
  394. act 'Buy vibrator (800 <b>₽</b>)':
  395. *clr & cla
  396. menu_off = 1
  397. minut += 5
  398. vibrator = 1
  399. money -= 800
  400. gs 'stat'
  401. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  402. 'You bought a vibrator and paid the cashier.'
  403. act 'Move away from the counter':gt 'sexshop', 'start'
  404. end
  405. end
  406. if karta + bankDebtLimit >= 800 and vibrator = 0:
  407. act 'Buy vibrator (800 <b>₽</b>)':
  408. *clr & cla
  409. menu_off = 1
  410. minut += 5
  411. vibrator = 1
  412. karta -= 800
  413. gs 'stat'
  414. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  415. 'You bought a vibrator and paid the cashier.'
  416. act 'Move away from the counter':gt 'sexshop', 'start'
  417. end
  418. end
  419. end
  420. if strapon = 0:
  421. if (money < 1200 and karta + bankDebtLimit < 1200) and (dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo = 0):
  422. 'You cannot afford the strapon.'
  423. if money >= 1200:
  424. act 'Buy a strapon with a 15cm dildo 1,200 <b>₽</b> (cash)':
  425. *clr & cla
  426. menu_off = 1
  427. minut += 5
  428. strapon = 1
  429. dildo = 1
  430. money -= 1200
  431. gs 'stat'
  432. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  433. 'You bought a strapon and paid the cashier.'
  434. act 'Move away from the counter':gt 'sexshop', 'start'
  435. end
  436. end
  437. if karta + bankDebtLimit >= 1200:
  438. act 'Buy a strapon with a 15cm dildo 1,200 <b>₽</b> (card)':
  439. *clr & cla
  440. menu_off = 1
  441. minut += 5
  442. strapon = 1
  443. dildo = 1
  444. karta -= 1200
  445. gs 'stat'
  446. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  447. 'You bought a strapon and paid the cashier.'
  448. act 'Move away from the counter':gt 'sexshop', 'start'
  449. end
  450. end
  451. elseif (money < 500 and karta + bankDebtLimit < 500) and (dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo ! 0):
  452. if money >= 1200:
  453. act 'Buy a strapon harness 500 <b>₽</b> (cash)':
  454. *clr & cla
  455. menu_off = 1
  456. minut += 5
  457. strapon = 1
  458. money -= 500
  459. gs 'stat'
  460. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  461. 'You bought a strapon and paid the cashier.'
  462. act 'Move away from the counter':gt 'sexshop', 'start'
  463. end
  464. end
  465. if karta + bankDebtLimit >= 1200:
  466. act 'Buy a strapon harness 500 <b>₽</b> (card)':
  467. *clr & cla
  468. menu_off = 1
  469. minut += 5
  470. strapon = 1
  471. karta -= 500
  472. gs 'stat'
  473. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  474. 'You bought a strapon and paid the cashier.'
  475. act 'Move away from the counter':gt 'sexshop', 'start'
  476. end
  477. end
  478. end
  479. end
  480. if analplug = 0 and (money < 800 and karta + bankDebtLimit < 800):
  481. 'You cannot afford the butt plug.'
  482. else
  483. if money >= 800 and analplug = 0:
  484. act 'Buy butt plug 800 <b>₽</b> (cash)':
  485. *clr & cla
  486. menu_off = 1
  487. minut += 5
  488. analplug = 1
  489. money -= 800
  490. gs 'stat'
  491. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  492. 'You bought a butt plug and paid the cashier.'
  493. act 'Move away from the counter':gt 'sexshop', 'start'
  494. end
  495. end
  496. if karta + bankDebtLimit >= 800 and analplug = 0:
  497. act 'Buy butt plug 800 <b>₽</b> (card)':
  498. *clr & cla
  499. menu_off = 1
  500. minut += 5
  501. analplug = 1
  502. karta -= 800
  503. gs 'stat'
  504. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  505. 'You bought a butt plug and paid the cashier.'
  506. act 'Move away from the counter':gt 'sexshop', 'start'
  507. end
  508. end
  509. end
  510. end
  511. if $ARGS[0] = 'clo':
  512. $metka = 'clo'
  513. $loc = 'sexshop'
  514. $menu_loc = 'sexshop'
  515. $menu_arg = 'clo'
  516. menu_off = 0
  517. *clr & cla
  518. gs'stat'
  519. '<center><b><font color="maroon">Fetish clothing - for all your personal needs</font></b></center>'
  520. *nl
  521. gs 'clothing_QV', 'shop_header'
  522. act 'Return': minut += 1 & gt 'sexshop', 'start'
  523. i = Clothingstock + 1
  524. if Clothingstock > 20:
  525. i -= 20
  526. elseif Clothingstock > 16:
  527. i -= 16
  528. elseif Clothingstock > 12:
  529. i -= 12
  530. elseif Clothingstock > 8:
  531. i -= 8
  532. elseif Clothingstock > 4:
  533. i -= 4
  534. end
  535. :loopfetish
  536. if fetish[i] = 0:
  537. gs 'clothing_attributes', 'fetish', i
  538. gs 'clothing_QV', 'shop_filter'
  539. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''sexshop'', ''fetish''"><img <<$set_imgh>> src="images/pc/clothing/8fetish/<<i>>.jpg" height="250" /></a>'
  540. end
  541. i += 4
  542. if i <= 94:jump 'loopfetish'
  543. end
  544. if $ARGS[0] = 'fetish':
  545. cla
  546. if fetish[i] ! 0:
  547. msg 'You already own these clothes.'
  548. gt 'sexshop', 'clo'
  549. end
  550. gt 'clothing', 'view_clothing_item', 'shop', 'fetish',i, 1000
  551. end
  552. if $ARGS[0] = 'clo2':
  553. $metka = 'clo2'
  554. $loc = 'sexshop'
  555. $menu_loc = 'sexshop'
  556. $menu_arg = 'clo2'
  557. menu_off = 0
  558. *clr & cla
  559. gs'stat'
  560. '<center><b><font color="maroon">Burlesque clothing - for entertainers and those most special of occasions</font></b></center>'
  561. *nl
  562. $Headerstring = '<TH>Prostitute clothing '
  563. if clothingfilter_prost = 0:
  564. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  565. else
  566. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  567. end
  568. $Headerstring += '<TH>Bimbo clothing '
  569. if clothingfilter_bimbo = 0:
  570. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  571. else
  572. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  573. end
  574. $Headerstring += '<TH>Clothing you are comfortable wearing '
  575. if clothingfilter_comf = 0:
  576. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  577. else
  578. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  579. end
  580. $Headerstring += '<TH>Daring clothing '
  581. if clothingfilter_daring = 0:
  582. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  583. else
  584. $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  585. end
  586. $Headerstring += '<TH>Too daring for you clothing '
  587. if clothingfilter_too_daring = 0:
  588. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  589. else
  590. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  591. end
  592. '<center><table border=1><<$Headerstring>></center>'
  593. act 'Return': minut += 1 & gt 'sexshop', 'start'
  594. if Clothingstock > 11:
  595. i = 1
  596. else
  597. i = 2
  598. end
  599. :loopburlesque
  600. if burlesque[i] = 0:
  601. gs 'clothing_attributes', 'burlesque', i
  602. if clothingfilter_comf = 0 and CloInhibit + 10 < pcs_inhib:
  603. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''sexshop'', ''burlesque''"><img <<$set_imgh>> src="images/pc/clothing/13burlesque/<<i>>.jpg" height="250" /></a>'
  604. elseif clothingfilter_daring = 0 and CloInhibit + 10 >= pcs_inhib and CloInhibit <= pcs_inhib:
  605. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''sexshop'', ''burlesque''"><img <<$set_imgh>> src="images/pc/clothing/13burlesque/<<i>>.jpg" height="250" /></a>'
  606. elseif clothingfilter_too_daring = 0 and CloInhibit > pcs_inhib:
  607. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''sexshop'', ''burlesque''"><img <<$set_imgh>> src="images/pc/clothing/13burlesque/<<i>>.jpg" height="250" /></a>'
  608. end
  609. end
  610. i += 2
  611. if i <= 22:jump 'loopburlesque'
  612. end
  613. if $ARGS[0] = 'burlesque':
  614. cla
  615. if burlesque[i] ! 0:
  616. msg 'You already own these clothes.'
  617. gt 'sexshop', 'clo2'
  618. end
  619. gt 'clothing', 'view_clothing_item', 'shop', 'burlesque',i, 1500
  620. end
  621. if $ARGS[0] = 'shoes':
  622. $metka = 'shoes'
  623. $loc = 'sexshop'
  624. $menu_loc = 'sexshop'
  625. $menu_arg = 'shoes'
  626. menu_off = 0
  627. *clr & cla
  628. gs'stat'
  629. act 'Return': minut += 1 & gt 'sexshop', 'start'
  630. if Clothingstock > 11:
  631. i = 1
  632. else
  633. i = 2
  634. end
  635. :loopfetish_shoes
  636. if sfetish[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sexshop'', ''fetish_shoes''"><img src="images/pc/shoes/fetish/<<i>>.jpg" height="250" /></a>'
  637. i += 2
  638. if i <= 27:jump 'loopfetish_shoes'
  639. end
  640. if $ARGS[0] = 'fetish_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'fetish',i, 2500
  641. if $ARGS[0] = 'panties':
  642. $metka = 'panties'
  643. $loc = 'sexshop'
  644. $menu_loc = 'sexshop'
  645. $menu_arg = 'panties'
  646. menu_off = 0
  647. *clr & cla
  648. gs'stat'
  649. act 'Return': minut += 1 & gt 'sexshop', 'start'
  650. i = 1
  651. :loopsexshop_panties
  652. if sexshop_panties[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sexshop'', ''panties2''"><img src="images/pc/panties/sexshop/<<i>>.jpg" height="150" /></a> '
  653. i += 1
  654. if i <= 43:jump 'loopsexshop_panties'
  655. end
  656. if $ARGS[0] = 'panties2':
  657. cla
  658. if sexshop_panties[i] ! 0:
  659. msg 'You already own these panties.'
  660. gt 'sexshop', 'panties'
  661. end
  662. gt 'panties', 'view_panty_item', 'shop', 'sexshop',i, 500
  663. end
  664. if $ARGS[0] = 'bras':
  665. $metka = 'bras'
  666. $loc = 'sexshop'
  667. $menu_loc = 'sexshop'
  668. $menu_arg = 'bras'
  669. menu_off = 0
  670. *clr & cla
  671. gs'stat'
  672. act 'Return': minut += 1 & gt 'sexshop', 'start'
  673. i = 1
  674. :loopsexshop_bras
  675. if sexshop_bras[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sexshop'', ''bras2''"><img src="images/pc/bras/sexshop/<<i>>.jpg" height="150" /></a> '
  676. i += 1
  677. if i <= 27:jump 'loopsexshop_bras'
  678. end
  679. if $ARGS[0] = 'bras2':
  680. cla
  681. if sexshop_bras[i] ! 0:
  682. msg 'You already own this bra.'
  683. gt 'sexshop', 'bras'
  684. end
  685. gt 'bras', 'view_bra_item', 'shop', 'sexshop',i, 500
  686. end
  687. if $ARGS[0] = 'podval':
  688. $menu_loc = 'sexshop'
  689. $loc = 'sexshop'
  690. $metka = 'podval'
  691. $menu_arg = 'podval'
  692. menu_off = 0
  693. *clr & cla
  694. minut += 1
  695. gs 'stat'
  696. gs 'themes', 'indoors'
  697. '<center><b><font color="maroon">Basement with cubicles for watching movies</font></b></center>'
  698. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/gloryholebooths1.jpg"></center>'
  699. *nl
  700. act 'Leave the basement':gt 'sexshop', 'start'
  701. act 'Enter a free booth':gt 'sexshop', 'pip'
  702. act 'Enter the bathroom':gt 'sexshop', 'toi'
  703. if masharab = 1:act 'Go to Masha':gt 'masharoom', 'start'
  704. end
  705. if $ARGS[0] = 'toi':
  706. $metka = $ARGS[0]
  707. $loc = $curloc
  708. $location_type = 'bathroom'
  709. $locM = 'sexshop'
  710. $metkaM = 'toi'
  711. $menu_loc = 'sexshop'
  712. $menu_arg = 'toi'
  713. menu_off = 0
  714. *clr & cla
  715. minut += 1
  716. gs 'stat'
  717. gs 'themes', 'indoors'
  718. '<center><b><font color="maroon">WC</font></b></center>'
  719. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
  720. act 'Leave the toilet':gt 'sexshop', 'podval'
  721. act 'Look in the mirror': gt 'mirror', 'start'
  722. if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
  723. dynamic $tampon
  724. dynamic $quickwash
  725. dynamic $basin
  726. dynamic $removepan
  727. end
  728. if $ARGS[0] = 'pip':
  729. $location_type = 'private'
  730. *clr & cla
  731. menu_off = 1
  732. minut += 5
  733. gs 'stat'
  734. gs 'themes', 'indoors'
  735. '<center><b><font color="maroon">Booth movies</font></b></center>'
  736. '<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghbooths.jpg"></center>'
  737. 'Small cabinet with a TV on the wall, terminal and two holes in the walls at waist level.'
  738. if mistressqwest > 0 and mistressqwest <= 20:
  739. GHchance = rand(6,10)
  740. ghnowcheck = ghnow
  741. else
  742. GHchance = rand(1,10)
  743. ghnowcheck = ghnow * 2
  744. end
  745. if ghnow > 0:'You served <<ghnow>> cocks.'
  746. act 'Get out of the booth':gt 'sexshop', 'podval'
  747. if money >= 50 and (hour >= 11 or hour < 3):
  748. act 'Stick 50 <b>₽</b> in the machine':
  749. cla
  750. money -= 50
  751. minut += 15
  752. pcs_horny += 5
  753. pcs_mood += 5
  754. 'Once you have paid the money the TV on the wall showing porn.'
  755. 'You sat in a chair and watched porn, you began to get a little excited.'
  756. act 'The movie ended':gt 'sexshop', 'pip'
  757. if pcs_horny >= 50:
  758. act 'Masturbate':
  759. cla
  760. pcs_horny += 10
  761. pcs_mood += 10
  762. 'You caress your pussy with your fingers and enjoy the pleasant sensation between your legs.'
  763. if pcs_horny >= 100:
  764. orgasm += 1
  765. pcs_horny = 0
  766. pcs_mood += 15
  767. pcs_willpwr += 15
  768. stat['mast'] += 1
  769. if pcs_inhib < 30:inhib_exp += rand(1,3)
  770. 'Gradually the pleasurable sensations spread throughout the body and you orgasm.'
  771. end
  772. act 'The movie ended':gt 'sexshop', 'pip'
  773. end
  774. end
  775. if GHchance >= 10 - ghnowcheck:
  776. 'You hear the TV turn on in the next stall.'
  777. act 'Stick a finger in the hole (serve a stranger)':
  778. cla
  779. *clr
  780. ghnow += 1
  781. if ghnow < 5:
  782. money += 300
  783. else
  784. money += 150
  785. end
  786. fingerRand = rand(1, 5)
  787. ! WD: Rename missing Image ~ 'ghFinger.jpg' to 'ghFinger5.jpg'
  788. '<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger<<fingerRand>>.jpg"></center>'
  789. 'You poke your finger in the hole showing that you are ready to serve the stranger.'
  790. 'The stranger slips ' + iif(ghnow < 5, '300', '150') + '<b>₽</b> into the hole, and then his erect cock pokes out of the hole.'
  791. act 'Suck dick':
  792. cla
  793. *clr
  794. pcs_horny += 5
  795. guy += 1
  796. stat['bj'] += 1
  797. gloryhole += 1
  798. swallow += 1
  799. spafinloc = 12
  800. gs 'cum_manage'
  801. gs 'dinSex', 'std_trigger_oral'
  802. ghprand = rand(1, 38)
  803. '<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/gloryhole<<ghprand>>.jpg"></center>'
  804. 'You take the cock in your mouth and start to suck it, blowing him enthusiastically.'
  805. if pcs_horny >= 100:
  806. orgasm += 1
  807. pcs_horny = 0
  808. pcs_mood += 15
  809. pcs_willpwr += 15
  810. '<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>'
  811. end
  812. 'Finally the stranger cums in your mouth filling it with a huge amount of sperm. Once you''ve licked all the sperm from a his cock, it disappears back into the hole and you hear the man leaves his booth.'
  813. if mistressqwest > 0:
  814. mistressqwest += 1
  815. 'You have sucked <<mistressqwest - 1>> cocks for Mistress.'
  816. end
  817. act 'Wipe your face':gt 'sexshop', 'pip'
  818. end
  819. end
  820. end
  821. end
  822. end
  823. end
  824. if $ARGS[0] = 'kendra':
  825. $location_type = 'event'
  826. *clr & cla
  827. menu_off = 1
  828. minut += 10
  829. gs 'stat'
  830. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
  831. 'In the store you can see Kendra, trying on latex clothes.'
  832. '"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.'
  833. act 'Away from her':gt 'sexshop', 'start'
  834. if pcs_dom > 10:act 'First serve':gt 'sexshop', 'kendra4'
  835. act 'Serve Kendra':
  836. *clr & cla
  837. sub += 1
  838. lesbian += 1
  839. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend1.jpg"></center>'
  840. '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 tongue has pleased her much as yours.'
  841. '"Now pick anything from the toys" says Kendra'
  842. act 'Give her a dildo':gt 'sexshop', 'kendra1'
  843. act 'Give her a strapon':gt 'sexshop', 'kendra2'
  844. end
  845. end
  846. if $ARGS[0] = 'kendra1':
  847. $location_type = 'event'
  848. *clr & cla
  849. menu_off = 1
  850. minut += 10
  851. gs 'stat'
  852. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend2.jpg"></center>'
  853. '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.'
  854. pipirand = rand(0,3)
  855. if pipirand > 0:
  856. orgasm += 1
  857. '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."'
  858. act 'Finish':gt 'sexshop', 'start'
  859. else
  860. act 'Oops ...':
  861. *clr & cla
  862. gs 'sweat', 'add', 10
  863. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend4.jpg"></center>'
  864. 'Suddenly, when she is ready to cum, Kendra begin pissin, her urine flowing allong the dildo and your coating your hand.'
  865. '"Damn!" you cried out and were about to drop the dildo.'
  866. '"Let''s finish up, slut!" cried Kendra'
  867. act 'Leave her':gt 'sexshop', 'kendra3'
  868. act 'Continue':
  869. *clr & cla
  870. gs 'sweat', 'add', 30
  871. sub += 2
  872. pcs_horny = 0
  873. gs 'stat'
  874. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend3.jpg"></center>'
  875. '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.'
  876. 'Finally she finished, "And now Carney me, and then I become dirty." commanded Kendra'
  877. act 'Leave her':gt 'sexshop', 'kendra3'
  878. act 'Lick':
  879. *clr & cla
  880. sub += 2
  881. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend5.jpg"></center>'
  882. 'You dutifully move closer to her pussy and began to slowly lick the urine from her thighs and pussy.'
  883. '"Keep going you slut," Kendra orders you. You began to lick faster, eeping from retching from urine taste in the mouth with difficulty.'
  884. '"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.'
  885. act 'Leave':gt 'sexshop', 'start'
  886. end
  887. end
  888. end
  889. end
  890. end
  891. if $ARGS[0] = 'kendra2':
  892. $location_type = 'event'
  893. *clr & cla
  894. menu_off = 1
  895. minut += 10
  896. gs 'stat'
  897. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend8.jpg"></center>'
  898. 'Kendra slides on the strapon and looking at you asks, "Well, beauty in which hole do you want it?"'
  899. act 'In the vagina':
  900. *clr & cla
  901. stat['vaginal'] += 1
  902. pcs_vag += 1
  903. orgasm += 1
  904. pcs_horny = 0
  905. gs 'stat'
  906. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend10.jpg"></center>'
  907. '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.'
  908. '"That''s clever, come see me often. Have fun." With these words Kendra dresses and leaves.'
  909. act 'Leave':gt 'sexshop', 'start'
  910. end
  911. act 'In the ass':
  912. *clr & cla
  913. stat['anal'] += 1
  914. orgasm += 1
  915. pcs_ass += 1
  916. pcs_horny = 0
  917. gs 'stat'
  918. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend9.jpg"></center>'
  919. '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.'
  920. '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.'
  921. act 'Leave':gt 'sexshop', 'start'
  922. end
  923. end
  924. if $ARGS[0] = 'kendra3':
  925. $location_type = 'event'
  926. *clr & cla
  927. menu_off = 1
  928. minut += 10
  929. stat['anal'] += 1
  930. pcs_ass += 1
  931. rape += 1
  932. gs 'stat'
  933. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend6.jpg"></center>'
  934. '"Oh damn, now I''m going to teach obedience," with these words Kendra jumps up and throws you on to the table that 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 your burning 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.'
  935. 'When she finally tires, you just slump to the floor from the table and land with a thud.'
  936. '"On your knees slut, " she hissed.'
  937. act 'To kneel':
  938. cla
  939. *clr
  940. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend7.jpg"></center>'
  941. 'You scrambled to your knees, your backside aching terribly, and it seems dripping blood.'
  942. '"Suck" commands Kendra pushing the strapon to your face. You look at the strapon, coated in traces of your blood.'
  943. '"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.'
  944. '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.'
  945. act 'Leave':gt 'sexshop', 'start'
  946. end
  947. end
  948. if $ARGS[0] = 'kendra4':
  949. $location_type = 'event'
  950. *clr & cla
  951. menu_off = 1
  952. minut += 10
  953. orgasm += 1
  954. pcs_horny = 0
  955. picrand = rand(11, 12)
  956. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend<<picrand>>.jpg"></center>'
  957. 'Kendra looks surprised at you until you tear off your clothes.'
  958. 'Naked you turned to her and stick out your ass "Well look, you bring me to orgasm and we can try strapon"'
  959. if picrand = 11:
  960. '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.'
  961. elseif picrand = 12:
  962. 'Kendra kneels down and her tongue sticks out tryign to slide into your ass, you writhe as she her tongue 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.'
  963. end
  964. '"Well, I will try to fulfill your desires?" Kendra says, catching her breath. "Now my turn."'
  965. act 'Give her strapon':gt 'sexshop', 'kendra2'
  966. if pcs_dom > 25:act '"Perebesh"':gt 'sexshop', 'start'
  967. end
  968. if $ARGS[0] = 'shprod':
  969. $location_type = 'event'
  970. *clr & cla
  971. menu_off = 1
  972. minut += 5
  973. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/shprod.jpg"></center>'
  974. 'The cashier is right in front of you offering to help and holding a miniskirt "Girl this is very you, will you try it on"'
  975. act 'Refuse':gt 'sexshop', 'start'
  976. act 'Try':
  977. *clr & cla
  978. picrand = 47
  979. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/shprod1.jpg"></center>'
  980. '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.'
  981. '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.'
  982. act 'Push him away':gt 'sexshop', 'start'
  983. act 'Let him':gs 'boyStat', 'A181' & gt 'sex', 'kuni'
  984. end
  985. end
  986. --- sexshop ---------------------------------