1
0

sexshop.qsrc 51 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300
  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 rand(1, 10) = 10 and hotcat >= 5 and kendrano ! 1: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 analplug = 1 and dildo = 1 and hotcat >= 5 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. gs 'willpower', 'prostitution', 'resist', 'medium'
  105. if will_cost <= pcs_willpwr:
  106. act 'Refuse (<<will_cost>> Willpower)':
  107. *clr & cla
  108. gs 'willpower', 'pay', 'resist'
  109. gs 'stat'
  110. pornstudio = 1
  111. gt 'sexshop', 'start'
  112. end
  113. else
  114. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  115. end
  116. end
  117. end
  118. act 'Look through the fetish clothing': minut += 1 & gt 'sexshop', 'clo'
  119. act 'Look through the burlesque clothing': minut += 1 & gt 'sexshop', 'clo2'
  120. act 'Look through the panties': minut += 1 & gt 'sexshop', 'panties'
  121. act 'Look through the bras': minut += 1 & gt 'sexshop', 'bras'
  122. act 'Look through the fetish shoes': minut += 1 & gt 'sexshop', 'shoes'
  123. if money < 300 and karta + bankDebtLimit < 300:
  124. 'You cannot afford lubricant.'
  125. else
  126. if money >= 300:
  127. act 'Buy lubricant 300 <b>₽</b> (cash)':
  128. *clr & cla
  129. menu_off = 1
  130. portion = input ("How much you want to buy?")
  131. if portion * 300 > money:
  132. 'You do not have enough money.'
  133. else
  134. lubri += portion * 5
  135. money -= portion * 300
  136. minut += 5
  137. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  138. 'You buy some lubricant and pay the cashier.'
  139. end
  140. gs 'stat'
  141. act 'Move away from the counter':gt 'sexshop', 'start'
  142. end
  143. end
  144. if karta + bankDebtLimit >= 300:
  145. act 'Buy lubricant 300 <b>₽</b> (card)':
  146. *clr & cla
  147. menu_off = 1
  148. portion = input ("How much you want to buy?")
  149. if portion * 300 > karta + bankDebtLimit:
  150. 'You do not have enough credit.'
  151. else
  152. lubri += portion * 5
  153. karta -= portion * 300
  154. minut += 5
  155. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  156. 'You buy some lubricant and pay the cashier.'
  157. end
  158. gs 'stat'
  159. act 'Move away from the counter':gt 'sexshop', 'start'
  160. end
  161. end
  162. end
  163. if pornMagazine <= 1 and (money < 400 and karta + bankDebtLimit < 400):
  164. 'You cannot afford the porn magazine.'
  165. else
  166. if pornMagazine <= 1 and money >= 400:
  167. act 'Buy a porn magazine 400 <b>₽</b> (cash)':
  168. *clr & cla
  169. menu_off = 1
  170. minut += 5
  171. money -= 400
  172. pornMagazine = 50
  173. gs 'stat'
  174. 'You buy a porn magazine and pay the cashier.'
  175. act 'Move away from the counter':gt 'sexshop','start'
  176. end
  177. end
  178. if pornMagazine <= 1 and karta + bankDebtLimit >= 400:
  179. act 'Buy a porn magazine 400 <b>₽</b> (card)':
  180. *clr & cla
  181. menu_off = 1
  182. minut += 5
  183. karta -= 400
  184. pornMagazine = 50
  185. gs 'stat'
  186. 'You buy a porn magazine and pay the cashier.'
  187. act 'Move away from the counter':gt 'sexshop','start'
  188. end
  189. end
  190. end
  191. if dildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  192. 'You cannot afford the 10cm dildo.'
  193. else
  194. if money >= 800 and dildo = 0:
  195. act 'Buy 10cm dildo 800 <b>₽</b> (cash)':
  196. *clr & cla
  197. menu_off = 1
  198. minut += 5
  199. dildo = 1
  200. money -= 800
  201. gs 'stat'
  202. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  203. 'You bought a dildo and paid the cashier.'
  204. act 'Move away from the counter':gt 'sexshop', 'start'
  205. end
  206. end
  207. if karta + bankDebtLimit >= 800 and dildo = 0:
  208. act 'Buy 10cm dildo 800 <b>₽</b> (card)':
  209. *clr & cla
  210. menu_off = 1
  211. minut += 5
  212. dildo = 1
  213. karta -= 800
  214. gs 'stat'
  215. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  216. 'You bought a dildo and paid the cashier.'
  217. act 'Move away from the counter':gt 'sexshop', 'start'
  218. end
  219. end
  220. end
  221. if middildo = 0 and (money < 850 and karta + bankDebtLimit < 850):
  222. 'You cannot afford the 15cm dildo.'
  223. else
  224. if money >= 850 and middildo = 0:
  225. act 'Buy 15cm long dildo 850 <b>₽</b> (cash)':
  226. *clr & cla
  227. menu_off = 1
  228. minut += 5
  229. middildo = 1
  230. money -= 850
  231. gs 'stat'
  232. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  233. 'You bought a 15cm long dildo and paid the cashier.'
  234. act 'Move away from the counter':gt 'sexshop','start'
  235. end
  236. end
  237. if karta + bankDebtLimit >= 850 and middildo = 0:
  238. act 'Buy 15cm long dildo 850 <b>₽</b> (card)':
  239. *clr & cla
  240. menu_off = 1
  241. minut += 5
  242. middildo = 1
  243. karta -= 850
  244. gs 'stat'
  245. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  246. 'You bought a 15cm long dildo and paid the cashier.'
  247. act 'Move away from the counter':gt 'sexshop','start'
  248. end
  249. end
  250. end
  251. if largedildo = 0 and (money < 900 and karta + bankDebtLimit < 900):
  252. 'You cannot afford the 20cm dildo.'
  253. else
  254. if money >= 900 and largedildo = 0:
  255. act 'Buy 20cm long dildo 900 <b>₽</b> (cash)':
  256. *clr & cla
  257. menu_off = 1
  258. minut += 5
  259. largedildo = 1
  260. money -= 900
  261. gs 'stat'
  262. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  263. 'You bought a 20cm long dildo and paid the cashier.'
  264. act 'Move away from the counter':gt 'sexshop','start'
  265. end
  266. end
  267. if karta + bankDebtLimit >= 900 and largedildo = 0:
  268. act 'Buy 20cm long dildo 900 <b>₽</b> (card)':
  269. *clr & cla
  270. menu_off = 1
  271. minut += 5
  272. largedildo = 1
  273. karta -= 900
  274. gs 'stat'
  275. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  276. 'You bought a 20cm long dildo and paid the cashier.'
  277. act 'Move away from the counter':gt 'sexshop','start'
  278. end
  279. end
  280. end
  281. if bigdildo = 0 and (money < 950 and karta + bankDebtLimit < 950):
  282. 'You cannot afford the 25cm dildo.'
  283. else
  284. if money >= 950 and bigdildo = 0:
  285. act 'Buy 25cm long dildo 950 <b>₽</b> (cash)':
  286. *clr & cla
  287. menu_off = 1
  288. minut += 5
  289. bigdildo = 1
  290. money -= 950
  291. gs 'stat'
  292. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  293. 'You bought a 25cm long dildo and paid the cashier.'
  294. act 'Move away from the counter':gt 'sexshop','start'
  295. end
  296. end
  297. if karta + bankDebtLimit >= 950 and bigdildo = 0:
  298. act 'Buy 25cm long dildo 950 <b>₽</b> (card)':
  299. *clr & cla
  300. menu_off = 1
  301. minut += 5
  302. bigdildo = 1
  303. karta -= 950
  304. gs 'stat'
  305. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  306. 'You bought a 25cm long dildo and paid the cashier.'
  307. act 'Move away from the counter':gt 'sexshop','start'
  308. end
  309. end
  310. end
  311. if extradildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  312. 'You cannot afford the 30cm dildo.'
  313. else
  314. if money >= 1000 and extradildo = 0:
  315. act 'Buy 30cm long dildo (1,000 <b>₽</b>)':
  316. *clr & cla
  317. menu_off = 1
  318. minut += 5
  319. extradildo = 1
  320. money -= 1000
  321. gs 'stat'
  322. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  323. 'You bought a 30cm long dildo and paid the cashier.'
  324. act 'Move away from the counter':gt 'sexshop','start'
  325. end
  326. end
  327. if karta + bankDebtLimit >= 1000 and extradildo = 0:
  328. act 'Buy 30cm long dildo (1,000 <b>₽</b>)':
  329. *clr & cla
  330. menu_off = 1
  331. minut += 5
  332. extradildo = 1
  333. karta -= 1000
  334. gs 'stat'
  335. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  336. 'You bought a 30cm long dildo and paid the cashier.'
  337. act 'Move away from the counter':gt 'sexshop','start'
  338. end
  339. end
  340. end
  341. if superdildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  342. 'You cannot afford the 35cm dildo.'
  343. else
  344. if money >= 1100 and superdildo = 0:
  345. act 'Buy 35cm long dildo (1,100 <b>₽</b>)':
  346. *clr & cla
  347. menu_off = 1
  348. minut += 5
  349. superdildo = 1
  350. money -= 1100
  351. gs 'stat'
  352. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  353. 'You bought a 35cm long dildo and paid the cashier.'
  354. act 'Move away from the counter':gt 'sexshop','start'
  355. end
  356. end
  357. if karta + bankDebtLimit >= 1100 and superdildo = 0:
  358. act 'Buy 35cm long dildo (1,100 <b>₽</b>)':
  359. *clr & cla
  360. menu_off = 1
  361. minut += 5
  362. superdildo = 1
  363. karta -= 1100
  364. gs 'stat'
  365. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  366. 'You bought a 35cm long dildo and paid the cashier.'
  367. act 'Move away from the counter':gt 'sexshop','start'
  368. end
  369. end
  370. end
  371. if maddildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  372. 'You cannot afford the 40cm dildo.'
  373. else
  374. if money >= 1200 and maddildo = 0:
  375. act 'Buy 40cm long dildo (1,200 <b>₽</b>)':
  376. *clr & cla
  377. menu_off = 1
  378. minut += 5
  379. maddildo = 1
  380. money -= 1200
  381. gs 'stat'
  382. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  383. 'You bought a 40cm long dildo and paid the cashier.'
  384. act 'Move away from the counter':gt 'sexshop','start'
  385. end
  386. end
  387. if karta + bankDebtLimit >= 1200 and maddildo = 0:
  388. act 'Buy 40cm long dildo (1,200 <b>₽</b>)':
  389. *clr & cla
  390. menu_off = 1
  391. minut += 5
  392. maddildo = 1
  393. karta -= 1200
  394. gs 'stat'
  395. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  396. 'You bought a 40cm long dildo and paid the cashier.'
  397. act 'Move away from the counter':gt 'sexshop','start'
  398. end
  399. end
  400. end
  401. if vibrator = 0 and (money < 800 and karta + bankDebtLimit < 800):
  402. 'You cannot afford the vibrator.'
  403. else
  404. if money >= 800 and vibrator = 0:
  405. act 'Buy vibrator (800 <b>₽</b>)':
  406. *clr & cla
  407. menu_off = 1
  408. minut += 5
  409. vibrator = 1
  410. money -= 800
  411. gs 'stat'
  412. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  413. 'You bought a vibrator and paid the cashier.'
  414. act 'Move away from the counter':gt 'sexshop', 'start'
  415. end
  416. end
  417. if karta + bankDebtLimit >= 800 and vibrator = 0:
  418. act 'Buy vibrator (800 <b>₽</b>)':
  419. *clr & cla
  420. menu_off = 1
  421. minut += 5
  422. vibrator = 1
  423. karta -= 800
  424. gs 'stat'
  425. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  426. 'You bought a vibrator and paid the cashier.'
  427. act 'Move away from the counter':gt 'sexshop', 'start'
  428. end
  429. end
  430. end
  431. if strapon = 0:
  432. if (money > 1200 and karta + bankDebtLimit > 1200) and (dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo = 0):
  433. 'You cannot afford the strap-on.'
  434. if money >= 1200:
  435. act 'Buy a strap-on with a 15cm dildo 1,200 <b>₽</b> (cash)':
  436. *clr & cla
  437. menu_off = 1
  438. minut += 5
  439. strapon = 1
  440. middildo = 1
  441. strapnumber = 2
  442. money -= 1200
  443. gs 'stat'
  444. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  445. 'You bought a strap-on and paid the cashier.'
  446. act 'Move away from the counter':gt 'sexshop', 'start'
  447. end
  448. end
  449. if karta + bankDebtLimit >= 1200:
  450. act 'Buy a strap-on with a 15cm dildo 1,200 <b>₽</b> (card)':
  451. *clr & cla
  452. menu_off = 1
  453. minut += 5
  454. strapon = 1
  455. middildo = 1
  456. strapnumber = 2
  457. karta -= 1200
  458. gs 'stat'
  459. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  460. 'You bought a strap-on and paid the cashier.'
  461. act 'Move away from the counter':gt 'sexshop', 'start'
  462. end
  463. end
  464. elseif (money > 500 or karta + bankDebtLimit > 500) and (dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo ! 0):
  465. if money >= 500:
  466. act 'Buy a strap-on harness 500 <b>₽</b> (cash)':
  467. *clr & cla
  468. menu_off = 1
  469. minut += 5
  470. strapon = 1
  471. money -= 500
  472. gs 'stat'
  473. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  474. 'You bought a strap-on and paid the cashier. You have to attach one of your dildos to it.'
  475. act 'Move away from the counter':gt 'sexshop', 'start'
  476. end
  477. end
  478. if karta + bankDebtLimit >= 500:
  479. act 'Buy a strap-on harness 500 <b>₽</b> (card)':
  480. *clr & cla
  481. menu_off = 1
  482. minut += 5
  483. strapon = 1
  484. karta -= 500
  485. gs 'stat'
  486. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  487. 'You bought a strap-on and paid the cashier. You have to attach one of your dildos to it.'
  488. act 'Move away from the counter':gt 'sexshop', 'start'
  489. end
  490. end
  491. end
  492. end
  493. if analplug = 0 and (money < 800 and karta + bankDebtLimit < 800):
  494. 'You cannot afford the butt plug.'
  495. else
  496. if money >= 800 and analplug = 0:
  497. act 'Buy butt plug 800 <b>₽</b> (cash)':
  498. *clr & cla
  499. menu_off = 1
  500. minut += 5
  501. analplug = 1
  502. money -= 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. if karta + bankDebtLimit >= 800 and analplug = 0:
  510. act 'Buy butt plug 800 <b>₽</b> (card)':
  511. *clr & cla
  512. menu_off = 1
  513. minut += 5
  514. analplug = 1
  515. karta -= 800
  516. gs 'stat'
  517. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  518. 'You bought a butt plug and paid the cashier.'
  519. act 'Move away from the counter':gt 'sexshop', 'start'
  520. end
  521. end
  522. end
  523. end
  524. if $ARGS[0] = 'clo':
  525. $metka = 'clo'
  526. $loc = 'sexshop'
  527. $menu_loc = 'sexshop'
  528. $menu_arg = 'clo'
  529. menu_off = 0
  530. *clr & cla
  531. gs'stat'
  532. '<center><b><font color="maroon">Fetish clothing - for all your personal needs</font></b></center>'
  533. *nl
  534. gs 'clothing_QV', 'shop_header'
  535. act 'Return': minut += 1 & gt 'sexshop', 'start'
  536. i = Clothingstock + 1
  537. if Clothingstock > 20:
  538. i -= 20
  539. elseif Clothingstock > 16:
  540. i -= 16
  541. elseif Clothingstock > 12:
  542. i -= 12
  543. elseif Clothingstock > 8:
  544. i -= 8
  545. elseif Clothingstock > 4:
  546. i -= 4
  547. end
  548. :loopfetish
  549. if fetish[i] = 0:
  550. gs 'clothing_attributes', 'fetish', i
  551. gs 'clothing_QV', 'shop_filter'
  552. 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>'
  553. end
  554. i += 4
  555. if i <= 94:jump 'loopfetish'
  556. end
  557. if $ARGS[0] = 'fetish':
  558. cla
  559. if fetish[i] ! 0:
  560. msg 'You already own these clothes.'
  561. gt 'sexshop', 'clo'
  562. end
  563. gt 'clothing', 'view_clothing_item', 'shop', 'fetish',i, 1000
  564. end
  565. if $ARGS[0] = 'clo2':
  566. $metka = 'clo2'
  567. $loc = 'sexshop'
  568. $menu_loc = 'sexshop'
  569. $menu_arg = 'clo2'
  570. menu_off = 0
  571. *clr & cla
  572. gs'stat'
  573. '<center><b><font color="maroon">Burlesque clothing - for entertainers and those most special of occasions</font></b></center>'
  574. *nl
  575. $Headerstring = '<TH>Prostitute clothing '
  576. if clothingfilter_prost = 0:
  577. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  578. else
  579. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  580. end
  581. $Headerstring += '<TH>Bimbo clothing '
  582. if clothingfilter_bimbo = 0:
  583. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  584. else
  585. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  586. end
  587. $Headerstring += '<TH>Clothing you are comfortable wearing '
  588. if clothingfilter_comf = 0:
  589. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  590. else
  591. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  592. end
  593. $Headerstring += '<TH>Daring clothing '
  594. if clothingfilter_daring = 0:
  595. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  596. else
  597. $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  598. end
  599. $Headerstring += '<TH>Too daring for you clothing '
  600. if clothingfilter_too_daring = 0:
  601. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  602. else
  603. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  604. end
  605. '<center><table border=1><<$Headerstring>></center>'
  606. act 'Return': minut += 1 & gt 'sexshop', 'start'
  607. if Clothingstock > 11:
  608. i = 1
  609. else
  610. i = 2
  611. end
  612. :loopburlesque
  613. if burlesque[i] = 0:
  614. gs 'clothing_attributes', 'burlesque', i
  615. if clothingfilter_comf = 0 and CloInhibit + 10 < pcs_inhib:
  616. 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>'
  617. elseif clothingfilter_daring = 0 and CloInhibit + 10 >= pcs_inhib and CloInhibit <= pcs_inhib:
  618. 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>'
  619. elseif clothingfilter_too_daring = 0 and CloInhibit > pcs_inhib:
  620. 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>'
  621. end
  622. end
  623. i += 2
  624. if i <= 22:jump 'loopburlesque'
  625. end
  626. if $ARGS[0] = 'burlesque':
  627. cla
  628. if burlesque[i] ! 0:
  629. msg 'You already own these clothes.'
  630. gt 'sexshop', 'clo2'
  631. end
  632. gt 'clothing', 'view_clothing_item', 'shop', 'burlesque',i, 1500
  633. end
  634. if $ARGS[0] = 'shoes':
  635. $metka = 'shoes'
  636. $loc = 'sexshop'
  637. $menu_loc = 'sexshop'
  638. $menu_arg = 'shoes'
  639. menu_off = 0
  640. *clr & cla
  641. gs'stat'
  642. act 'Return': minut += 1 & gt 'sexshop', 'start'
  643. if Clothingstock > 11:
  644. i = 1
  645. else
  646. i = 2
  647. end
  648. :loopfetish_shoes
  649. 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>'
  650. i += 2
  651. if i <= 27:jump 'loopfetish_shoes'
  652. end
  653. if $ARGS[0] = 'fetish_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'fetish',i, 2500
  654. if $ARGS[0] = 'panties':
  655. $metka = 'panties'
  656. $loc = 'sexshop'
  657. $menu_loc = 'sexshop'
  658. $menu_arg = 'panties'
  659. menu_off = 0
  660. *clr & cla
  661. gs'stat'
  662. act 'Return': minut += 1 & gt 'sexshop', 'start'
  663. i = 1
  664. :loopsexshop_panties
  665. 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> '
  666. i += 1
  667. if i <= 43:jump 'loopsexshop_panties'
  668. end
  669. if $ARGS[0] = 'panties2':
  670. cla
  671. if sexshop_panties[i] ! 0:
  672. msg 'You already own these panties.'
  673. gt 'sexshop', 'panties'
  674. end
  675. gt 'panties', 'view_panty_item', 'shop', 'sexshop',i, 500
  676. end
  677. if $ARGS[0] = 'bras':
  678. $metka = 'bras'
  679. $loc = 'sexshop'
  680. $menu_loc = 'sexshop'
  681. $menu_arg = 'bras'
  682. menu_off = 0
  683. *clr & cla
  684. gs'stat'
  685. act 'Return': minut += 1 & gt 'sexshop', 'start'
  686. i = 1
  687. :loopsexshop_bras
  688. 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> '
  689. i += 1
  690. if i <= 27:jump 'loopsexshop_bras'
  691. end
  692. if $ARGS[0] = 'bras2':
  693. cla
  694. if sexshop_bras[i] ! 0:
  695. msg 'You already own this bra.'
  696. gt 'sexshop', 'bras'
  697. end
  698. gt 'bras', 'view_bra_item', 'shop', 'sexshop',i, 500
  699. end
  700. if $ARGS[0] = 'podval':
  701. $menu_loc = 'sexshop'
  702. $loc = 'sexshop'
  703. $metka = 'podval'
  704. $menu_arg = 'podval'
  705. menu_off = 0
  706. *clr & cla
  707. minut += 1
  708. gs 'stat'
  709. gs 'themes', 'indoors'
  710. '<center><b><font color="maroon">Basement with cubicles for watching movies</font></b></center>'
  711. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/gloryholebooths1.jpg"></center>'
  712. *nl
  713. act 'Leave the basement':gt 'sexshop', 'start'
  714. act 'Enter a free booth':gt 'sexshop', 'pip'
  715. act 'Enter the bathroom':gt 'sexshop', 'toi'
  716. if masharab = 1:act 'Go to Masha':gt 'masharoom', 'start'
  717. end
  718. if $ARGS[0] = 'toi':
  719. $metka = $ARGS[0]
  720. $loc = $curloc
  721. $location_type = 'bathroom'
  722. $locM = 'sexshop'
  723. $metkaM = 'toi'
  724. $menu_loc = 'sexshop'
  725. $menu_arg = 'toi'
  726. menu_off = 0
  727. *clr & cla
  728. minut += 1
  729. gs 'stat'
  730. gs 'themes', 'indoors'
  731. '<center><b><font color="maroon">WC</font></b></center>'
  732. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
  733. act 'Leave the toilet':gt 'sexshop', 'podval'
  734. act 'Look in the mirror': gt 'mirror', 'start'
  735. if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
  736. dynamic $tampon
  737. dynamic $quickwash
  738. dynamic $basin
  739. dynamic $removepan
  740. end
  741. if $ARGS[0] = 'pip':
  742. $location_type = 'private'
  743. *clr & cla
  744. menu_off = 1
  745. minut += 5
  746. gs 'stat'
  747. gs 'themes', 'indoors'
  748. '<center><b><font color="maroon">Booth movies</font></b></center>'
  749. '<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghbooths.jpg"></center>'
  750. 'Small cabinet with a TV on the wall, terminal and two holes in the walls at waist level.'
  751. if mistressqwest > 0 and mistressqwest <= 20:
  752. GHchance = rand(6,10)
  753. ghnowcheck = ghnow
  754. else
  755. GHchance = rand(1,10)
  756. ghnowcheck = ghnow * 2
  757. end
  758. if ghnow > 0:'You served <<ghnow>> cocks.'
  759. act 'Get out of the booth':gt 'sexshop', 'podval'
  760. if money >= 50 and (hour >= 11 or hour < 3):
  761. act 'Stick 50 <b>₽</b> in the machine':
  762. cla
  763. money -= 50
  764. minut += 15
  765. pcs_horny += 5
  766. pcs_mood += 5
  767. 'Once you have paid the money the TV on the wall showing porn.'
  768. 'You sat in a chair and watched porn, you began to get a little excited.'
  769. act 'The movie ended':gt 'sexshop', 'pip'
  770. if pcs_horny >= 50:
  771. act 'Masturbate':
  772. cla
  773. pcs_horny += 10
  774. pcs_mood += 10
  775. 'You caress your pussy with your fingers and enjoy the pleasant sensation between your legs.'
  776. if pcs_horny >= 100:
  777. orgasm += 1
  778. pcs_horny = 0
  779. pcs_mood += 15
  780. stat['mast'] += 1
  781. if pcs_inhib < 30:inhib_exp += rand(1,3)
  782. 'Gradually the pleasurable sensations spread throughout the body and you orgasm.'
  783. end
  784. act 'The movie ended':gt 'sexshop', 'pip'
  785. end
  786. end
  787. if GHchance >= 10 - ghnowcheck:
  788. 'You hear the TV turn on in the next stall.'
  789. act 'Stick a finger in the hole (serve a stranger)':
  790. cla
  791. *clr
  792. ghnow += 1
  793. if ghnow < 5:
  794. money += 300
  795. else
  796. money += 150
  797. end
  798. fingerRand = rand(1, 5)
  799. ! WD: Rename missing Image ~ 'ghFinger.jpg' to 'ghFinger5.jpg'
  800. '<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger<<fingerRand>>.jpg"></center>'
  801. 'You poke your finger in the hole showing that you are ready to serve the stranger.'
  802. 'The stranger slips ' + iif(ghnow < 5, '300', '150') + '<b>₽</b> into the hole, and then his erect cock pokes out of the hole.'
  803. act 'Suck dick':
  804. cla
  805. *clr
  806. pcs_horny += 5
  807. guy += 1
  808. stat['bj'] += 1
  809. gloryhole += 1
  810. swallow += 1
  811. spafinloc = 12
  812. gs 'cum_manage'
  813. gs 'dinSex', 'std_trigger_oral'
  814. ghprand = rand(1, 38)
  815. '<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/gloryhole<<ghprand>>.jpg"></center>'
  816. 'You take the cock in your mouth and start to suck it, blowing him enthusiastically.'
  817. if pcs_horny >= 100:
  818. orgasm += 1
  819. pcs_horny = 0
  820. pcs_mood += 15
  821. '<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>'
  822. end
  823. '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.'
  824. if mistressqwest > 0:
  825. mistressqwest += 1
  826. 'You have sucked <<mistressqwest - 1>> cocks for Mistress.'
  827. end
  828. act 'Wipe your face':gt 'sexshop', 'pip'
  829. end
  830. end
  831. end
  832. end
  833. end
  834. end
  835. if $ARGS[0] = 'kendra':
  836. $location_type = 'event'
  837. *clr & cla
  838. menu_off = 1
  839. minut += 10
  840. gs 'stat'
  841. if kendra > 0:
  842. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
  843. 'As you browse the store, you see Kendra, trying on latex clothes, then she notices you at about the same time.'
  844. '"Who do we have here, my favorite bitch, come to me and service me. I just bought a new toy and I am very excited to try it out." Kendra laughs, as she motions for you to follow her into the basement.'
  845. gs 'willpower', 'sex', 'resist', 'medium'
  846. if will_cost <= pcs_willpwr:
  847. act 'Leave the shop (<<will_cost>> Willpower)':
  848. *clr & cla
  849. gs 'willpower', 'pay', 'resist'
  850. gs 'stat'
  851. minut += 5
  852. gt 'Nord', 'redlight'
  853. end
  854. else
  855. act 'Leave the shop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  856. end
  857. act 'Serve Kendra':
  858. *clr & cla
  859. lesbian += 1
  860. kendratoy = rand(1,2)
  861. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend1.jpg"></center>'
  862. 'You follow her down into the basement. She sits down the edge of a table and pulls her fetish clothing aside, exposing her pussy. "Now strip for me bitch." You do as you are told and begin to slowly strip out of your clothes, until you are fully naked. "Good little slave, now get over her and worship my pussy." You kneel before her pussy and lick her eagerly. As long as you carefully suck Kendra as squeals and moans in pleasure.'
  863. '"Look at me." commands Kendra, when you look up at her while still eating her out. She pulls her new toy out of her bag. "we''re going to use this, for my pleasure." She informs you.'
  864. gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
  865. gs 'stat'
  866. if kendratoy = 1:
  867. act 'She pulls out a dildo':gt 'sexshop', 'kendra1'
  868. else
  869. act 'She pulls out a strap-on':gt 'sexshop', 'kendra2'
  870. end
  871. end
  872. else
  873. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend0.jpg"></center>'
  874. 'As you browse the store, you see young black woman about your age, trying on latex clothes, then she notices you at about the same time.'
  875. 'After a couple of minutes she walks over and boldly caresses your hair. "You''re a pretty little thing, whats your name?" She asks.'
  876. 'You decide to tell her. "My name is <<$pcs_firstname>>, but most people call me <<$pcs_nickname>>. What''s your name?"'
  877. 'She smiles. "<<$pcs_nickname>>, what a pretty name. My name is Kendra but you can call me Mistress Kendra." She says in confidence.'
  878. '"Oh" You reply, so she is one of those.'
  879. act 'Leave': minut += 5 & gt 'Nord', 'redlight'
  880. act 'Talk to her':
  881. *clr & cla
  882. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend01.jpg"></center>'
  883. 'You ask her about her clothes and soon the two of you are talking. You tell her that you leave in Pavlovsk and are your final year of your school. She tells you she is attending the University to get a degree, you find out she is from the Republic of the Congo on a student visa. You talk about a wide range of things for awhile. "You are very pretty, I love making pretty little Russian bitches into my slave. Call me Mistress Kendra, <<$pcs_nickname>> and become mine." Should you call her mistress? You have no doubt where that will lead.'
  884. act 'Call her Kendra':
  885. *clr & cla
  886. kendrano = 1
  887. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
  888. 'You smile to her. "Sorry but I don''t belong to anyone."'
  889. 'She sighs slightly. "Such a waste, oh well there are plenty of pretty little white Russian bitches that love being owned. Perhaps we will meet again and you will change your mind." With that you both bid your goodbyes and she returns to shopping as do you.'
  890. act 'Go back to shopping':gt 'sexshop', 'start'
  891. end
  892. act 'Call her Mistress Kendra':
  893. *clr & cla
  894. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
  895. 'You look down a little to show your submission to her. "Yes Mistress Kendra."'
  896. 'She smiles at that. "I think you are going to make a great little slave, we are going to have a lot of fun together. Now follow me to the basement slave so you can service me."'
  897. act 'Serve Kendra':
  898. *clr & cla
  899. lesbian += 1
  900. kendratoy = rand(1,2)
  901. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend1.jpg"></center>'
  902. 'You follow her down into the basement. She sits down the edge of a table and pulls her fetish clothing aside, exposing her pussy. "Now strip for me bitch." You do as you are told and begin to slowly strip out of your clothes, until you are fully naked. "Good little slave, now get over her and worship my pussy." You kneel before her pussy and lick her eagerly. As long as you carefully suck Kendra as squeals and moans in pleasure.'
  903. '"Look at me." commands Kendra, when you look up at her while still eating her out. She pulls her new toy out of her bag. "we''re going to use this, for my pleasure." She informs you.'
  904. gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
  905. gs 'stat'
  906. if kendratoy = 1:
  907. act 'She pulls out a dildo':gt 'sexshop', 'kendra1'
  908. else
  909. act 'She pulls out a strap-on':gt 'sexshop', 'kendra2'
  910. end
  911. end
  912. end
  913. end
  914. end
  915. end
  916. if $ARGS[0] = 'kendra1':
  917. $location_type = 'event'
  918. *clr & cla
  919. menu_off = 1
  920. minut += 10
  921. gs 'stat'
  922. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend2.jpg"></center>'
  923. 'You take the dildo from her and insert the dildo into Kendra''s pussy. While you use one hand to fuck her with the dildo, your other hand caress her clit trying to bring her to orgasm. Kendra moans and writhes sitting on the table under your efforts.'
  924. gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
  925. gs 'stat'
  926. act 'Continue':
  927. *clr & cla
  928. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend3.jpg"></center>'
  929. 'You dutifully continue to thrust the dildo, still stroking her clit, but the excitement is already gone. Her wetness dripping from the dildo onto your hand. "That''s right slave, that''s it, just keep doing that." She commands you.'
  930. gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
  931. gs 'stat'
  932. act 'Continue':
  933. *clr & cla
  934. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend4.jpg"></center>'
  935. 'Then Kendra starts spasming as her whole body orgasms. Her pussy begins to squirt as she orgasms, covering your hand, her thighs and even some of it ends up on your breasts and stomach before her orgasm subsides. Kendra looks at you: "You are my beautiful little white slave bitch, tottaly committed to serving me. Now lick me clean." She commands.'
  936. gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
  937. gs 'stat'
  938. act 'Lick':
  939. *clr & cla
  940. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend5.jpg"></center>'
  941. 'You pull the dildo out of her soaking wet pussy and dutifully move closer to her pussy and began to slowly lick the juices from her thighs and pussy.'
  942. '"Keep going you slut," Kendra orders you. You began to lick faster, licking her thighs and pussy completely clean of her juices.'
  943. '"Now it''s time for your reward." She says as she pulls a strap-on out of her bag next.'
  944. gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
  945. gs 'stat'
  946. act 'Yes mistress':gt 'sexshop', 'kendra2'
  947. end
  948. end
  949. end
  950. end
  951. if $ARGS[0] = 'kendra2':
  952. $location_type = 'event'
  953. *clr & cla
  954. menu_off = 1
  955. minut += 3
  956. gs 'stat'
  957. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend8.jpg"></center>'
  958. if pcs_vag = 0:
  959. 'Kendra steps into the harness and slides it up over her hips, as she does she starts pulling the straps tight to hold the strap-on firmly in place. With the strap-on harness now securely in place she pulls you close and kissed you. One of her hands wanders down to your pussy and rubs it a moment and then she slides one finger inside of you. She breaks the kiss before saying. "I see you are still a virgin, well I won''t pop your cherry, luckily you still have other holes I can fuck. Now on your knees and suck my cock."'
  960. else
  961. 'Kendra steps into the harness and slides it up over her hips, as she does she starts pulling the straps tight to hold the strap-on firmly in place. With the strap-on harness now securely in place she pulls you close and kissed you. One of her hands wanders down to your pussy and rubs it a moment and then she slides one finger inside of you. She breaks the kiss before saying. "I see you are already nice and wet slave, eager for my cock are you? Don''t worry you will feel it soon enough. Now on your knees and suck my cock." She commands.'
  962. end
  963. act 'Suck her strap-on':
  964. *clr & cla
  965. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend7.jpg"></center>'
  966. 'You kneel down and take ahold of the dildo with one hand while wrapping your lips around it. You stroke the dildo while you suck on it at the same time. For several minutes you suck the dildo getting it nice and wet with your saliva.'
  967. gs 'arousal', 'bj', 5, 'lesbian', 'sub'
  968. gs 'stat'
  969. act 'Deep throat':
  970. *clr & cla
  971. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend7.jpg"></center>'
  972. 'As you suck on the dildo, you feel her grab you by the hair. Next thing you know she forces your head forward, forcing the dildo down your throat, as you lips comes to rest against the fake balls. After a few moments of gagging she lets you pull back to get a breath through your nose, only for her to force it down your throat again, over and over, as she fucks your throat.'
  973. gs 'arousal', 'bj', 5, 'lesbian', 'sub', 'deepthroat'
  974. gs 'stat'
  975. if pcs_vag = 0:
  976. act 'Anal':gt 'sexshop', 'kendraanal'
  977. else
  978. act 'Vaginal':gt 'sexshop', 'kendravag'
  979. end
  980. end
  981. end
  982. end
  983. if $ARGS[0] = 'kendravag':
  984. $location_type = 'event'
  985. *clr & cla
  986. menu_off = 1
  987. stat['vaginal'] += 1
  988. pcs_vag += 1
  989. gs 'stat'
  990. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend10.jpg"></center>'
  991. 'Kendra takes a seat and commands you. "Impale your pussy on my cock and fucks yourself until I tell you to stop." Once Kendra sits in a chair you straddle her strap-on, lowering yourself and sliding it into your pussy. You ride the strap-on, and Kendra drives up from the bottom you trying to shove it as far into your pussy as possible. Several minutes pass and each thrust increases your arousal, you decided to rub your clit and increase the pleasure.'
  992. gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
  993. gs 'stat'
  994. act 'Rub clit':
  995. *clr & cla
  996. gs 'stat'
  997. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend12.jpg"></center>'
  998. 'You start rubbing your clit as you ride her strap-on, making it feel even better. Just as you feel like you are getting close to a orgasm, Kendra pushes you off her, you feel the dildo slide out of your pussy. "Now I am going to wreck your little ass!" She tells you.'
  999. gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
  1000. gs 'arousal', 'mast', 5, 'lesbian', 'sub'
  1001. minut -= 5
  1002. gs 'stat'
  1003. act 'Anal':gt 'sexshop', 'kendraanal'
  1004. end
  1005. end
  1006. if $ARGS[0] = 'kendraanal':
  1007. $location_type = 'event'
  1008. *clr & cla
  1009. menu_off = 1
  1010. stat['anal'] += 1
  1011. pcs_ass += 1
  1012. gs 'boyStat', 'D4'
  1013. gs 'stat'
  1014. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend9.jpg"></center>'
  1015. 'You stand up, as does she. "Lay on the table." She commands you. You jump up on the table and spreads your legs, Kendra steps up between your legs and gently slides the <<dick>>cm <<$dick_girth>> strap-on, slick with your pussy juices into your asshole, stopping a moment to give your ass time to adjust to the size. Then she begins to thrust the strap-on up butt, causing you to moan. Seeing that you are enjoying the process, Kendra begins to slowly accelerate. "Tell me your ass belongs to me slave!" She commands you. You know it likely means she will just fuck you harder if you refuse to submit, but maybe deep down that''s what you really want'
  1016. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1017. gs 'stat'
  1018. act 'Submit':
  1019. *clr & cla
  1020. gs 'stat'
  1021. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend13.jpg"></center>'
  1022. 'You submit to her command, as you tell her. "It''s your ass Mistress Kendra."'
  1023. 'She smiles to you as she keeps fucking your ass. "That''s right slave and what can I do with it?" She asks.'
  1024. 'You reply to her. "Anything you want Mistress Kendra."'
  1025. 'She smiles even bigger. "That''s right bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" She commands'
  1026. 'Despite the pain, you moan in pleasure as she continues fucking your ass. "It''s your ass and you can fuck it anytime you want Mistress Kendra." She fucks your ass with the strap-on for a couple of more minutes as if to make her point before she finally pulls it out of you, as she does she pulls you off the table onto your feet.'
  1027. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1028. gs 'stat'
  1029. act 'Finish': gt 'sexshop', 'kendrafinish'
  1030. end
  1031. gs 'willpower', 'action', 'resist', 'medium'
  1032. if will_cost <= pcs_willpwr:
  1033. act 'Resist (<<will_cost>> Willpower)':
  1034. *clr & cla
  1035. gs 'willpower', 'pay', 'resist'
  1036. gs 'stat'
  1037. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend13.jpg"></center>'
  1038. 'You decided not to tell her what she wants to hear. "It''s my butt Mistress Kendra, I just let you fuck it sometimes." You tell her.'
  1039. 'Just as you expected she starts fucking you a bit harder and faster. "You will learn your place slave. You will submit to me or I will fuck your ass raw." She explains and for several minutes she just fucks your butt before asking again. "Tell me your ass belongs to me slave!" She commands you. You know she will just fuck you harder until you submit, but maybe deep down that''s what you really want'
  1040. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1041. gs 'stat'
  1042. act 'Submit':
  1043. *clr & cla
  1044. gs 'stat'
  1045. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend6.jpg"></center>'
  1046. 'You submit to her command, telling her what she wants to hear, before she fucks your asshole raw. "It''s your ass Mistress Kendra."'
  1047. 'She smiles as she pushes your legs closed and fucking your ass. "That''s right slave and what can I do with it?" She asks.'
  1048. 'You reply to her. "Anything you want Mistress Kendra."'
  1049. 'She smiles even bigger. "That''s right bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" She commands'
  1050. 'Despite the pain, you moan in pleasure as she continues fucking your ass. "It''s your ass and you can fuck it anytime you want Mistress Kendra." She fucks your ass with the strap-on for a couple of more minutes as if to make her point before she finally pulls it out of you, as she does she pulls you off the table onto your feet.'
  1051. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1052. gs 'stat'
  1053. act 'Finish': gt 'sexshop', 'kendrafinish'
  1054. end
  1055. gs 'willpower', 'action', 'resist', 'hard'
  1056. if will_cost <= pcs_willpwr:
  1057. act 'Resist (<<will_cost>> Willpower)':
  1058. *clr & cla
  1059. gs 'willpower', 'pay', 'resist'
  1060. gs 'stat'
  1061. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend6.jpg"></center>'
  1062. 'You decided to still not do as she asks. "No! Mistress Kendra, this is my ass and I decided who fucks it." You tell her.'
  1063. 'She starts fucking you harder and faster then before, she pushes your legs close so she can get a better grip on your hip. "You will learn your place slave. You will submit to me or I will fuck your ass raw." She explains and for several minutes she just fucks your butt before asking again. "Tell me your ass belongs to me slave!" She commands you. You know she will just fuck you harder until you submit, you doubt you can last until she gets tired. Eventually your asshole will start to get sore and it will start really hurting and not in the good way it is now.'
  1064. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1065. gs 'stat'
  1066. act 'Submit':
  1067. *clr & cla
  1068. gs 'stat'
  1069. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend14.jpg"></center>'
  1070. 'You finally submit to her command, telling her what she wants to hear. "It''s your ass Mistress Kendra."'
  1071. 'She smiles as she keeps fucking your ass. "That''s right slave and what can I do with it?" She asks.'
  1072. 'You reply to her. "Anything you want Mistress Kendra."'
  1073. 'She smiles even bigger. "That''s right bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" She commands'
  1074. 'Despite the pain, you moan in pleasure as she continues fucking your ass. "It''s your ass and you can fuck it anytime you want Mistress Kendra." She fucks your ass with the strap-on for a couple of more minutes as if to make her point before she finally pulls it out of you, as she does she pulls you off the table onto your feet.'
  1075. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1076. gs 'stat'
  1077. act 'Finish': gt 'sexshop', 'kendrafinish'
  1078. end
  1079. gs 'willpower', 'action', 'resist', 'hard'
  1080. if will_cost <= pcs_willpwr:
  1081. act 'Resist (<<will_cost>> Willpower)':
  1082. *clr & cla
  1083. gs 'willpower', 'pay', 'resist'
  1084. gs 'stat'
  1085. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend14.jpg"></center>'
  1086. 'Still you refuse and resist her. "No!" Not able to tell her more as it is starting to hurt now.'
  1087. 'She slams it balls deep into your butt and starts hammering your ass as hard and fast as she can. "You will learn your place slave. You will submit to me or I can stay her all day and fuck your ass until you weep and beg me to stop." She explains and for several minutes she just fucks your butt before asking again. "Tell me your ass belongs to me slave!" She commands you. Your ass is starting to hurt, feeling like it is starting to burn, you just can''t take it anymore and you have to give in.'
  1088. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1089. gs 'pain', 1, 'asshole', 'tear'
  1090. gs 'stat'
  1091. act 'Submit':
  1092. *clr & cla
  1093. gs 'stat'
  1094. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend15.jpg"></center>'
  1095. 'You finally submit to her command as your ass starts to have a burning sensation, telling her what she wants to hear. "It''s your ass Mistress Kendra."'
  1096. 'She smiles as she keeps fucking your butt. "That''s right slave and what can I do with it?" She asks.'
  1097. 'You grimace as you reply to her. "Anything you want Mistress Kendra."'
  1098. 'She smiles even bigger. "That''s right bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" She commands'
  1099. 'You grunt and squeeze your eyes shut as she continues fucking your ass. "It''s your ass and you can fuck it anytime you want Mistress Kendra." She fucks your ass with the strap-on for a couple of more minutes as if to make her point before she finally pulls it out of you, as she does she pulls you off the table onto your feet.'
  1100. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1101. gs 'pain', 1, 'asshole', 'tear'
  1102. gs 'stat'
  1103. act 'Finish': gt 'sexshop', 'kendrafinish'
  1104. end
  1105. end
  1106. else
  1107. act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1108. end
  1109. end
  1110. else
  1111. act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1112. end
  1113. end
  1114. else
  1115. act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1116. end
  1117. end
  1118. if $ARGS[0] = 'kendrafinish':
  1119. $location_type = 'event'
  1120. *clr & cla
  1121. gs 'stat'
  1122. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend16.jpg"></center>'
  1123. 'As you stand up, she grabs you by the throat and pulls you close. "Stick out your tongue."'
  1124. 'You do as she says and stick out your tongue. She licks your tongue with hers and the two of you lick each others tongue for a few moments. Finally she stops and grabs your butt cheek roughly and digs her nails into your backside. Hard enough it hurts a little, then she lets go and steps away and the pain quickly fades. She starts taking off her harness, she cleans the dildo and then puts it away, before getting dressed. Once she is fully dressed she finally turns to you again. "You may not get dressed slave."'
  1125. *nl
  1126. '"Thank you Mistress." You tell her as you get dressed.'
  1127. 'Once you are both fully dressed she says. "Give me your number, so I can summon you, when I feel the need to use my little white slave." You do as you are told and give her your number. With that done, she gives you a little shooing motion. "You may go now."'
  1128. '"Yes Mistress Kendra." You reply, with that you leave the basement and go back up to the shop above.'
  1129. gs 'arousal', 'foreplay', 5, 'lesbian', 'sub'
  1130. gs 'arousal', 'end'
  1131. gs 'stat'
  1132. act 'Return to the store':gt 'sexshop', 'start'
  1133. end
  1134. if $ARGS[0] = 'shprod':
  1135. $location_type = 'event'
  1136. *clr & cla
  1137. menu_off = 1
  1138. minut += 5
  1139. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/shprod.jpg"></center>'
  1140. '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"'
  1141. act 'Refuse':gt 'sexshop', 'start'
  1142. act 'Try it on':
  1143. *clr & cla
  1144. picrand = 47
  1145. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/shprod1.jpg"></center>'
  1146. '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.'
  1147. '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.'
  1148. gs 'willpower', 'cuni', 'resist', 'medium'
  1149. if will_cost <= pcs_willpwr:
  1150. act 'Push him away(<<will_cost>> Willpower)':
  1151. *clr & cla
  1152. gs 'willpower', 'pay', 'resist'
  1153. gs 'stat'
  1154. gt 'sexshop', 'start'
  1155. end
  1156. else
  1157. act 'Push him away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1158. end
  1159. act 'Let him':gs 'boyStat', 'A181' & gt 'sex', 'kuni'
  1160. end
  1161. end
  1162. --- sexshop ---------------------------------