sexshop 33 KB

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