sexshop.qsrc 57 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377
  1. # sexshop
  2. $location_type = 'public_indoors'
  3. if $ARGS[0] = 'start':
  4. CLOSE ALL
  5. $loc = 'sexshop'
  6. $loc_arg = '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 and kendra[1] < daystart: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 'city_industrial', '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 find you rather interesting...'
  37. act 'Leave': minut += 5 & gt 'city_industrial', '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 of your eye, that the seller is trying to get your attention.'
  45. act 'Approach to learn what he 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 the cocks. Well? Other offers won''t 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 head to the studio with Peter, looking around at the others there.'
  56. 'You are approached by a young man, who Peter introduces to you. You are greeted by him.'
  57. act 'Explain 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 smiles, and says "New actresses are always welcome. However, in this business, many women do not take well to the work. You will have to do an audition, and if you do well, you can have the job."'
  62. '"I''ll tell you about the work here and now, 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. '"Good, good. Well, first there is a casting call for actresses. As I said, if you don''t take well to the work, your only hope will be 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, we select the lead role."'
  71. '"For the lead role, you must be the most beautiful girl."'
  72. act '...':
  73. *clr & cla
  74. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/film_0.jpg"></center>'
  75. '"And then comes the filming itself, which is the most exciting and fun part."'
  76. '"And after the filming, we create a video to sell it for profit!"'
  77. act '...':
  78. *clr & cla
  79. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/dvd-disx.jpg"></center>'
  80. '"This is what makes us the money."'
  81. act 'You understand, but how and where do they sell the videos? Maybe you want to see one for yourself...':
  82. *clr & cla
  83. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/pierre_2.jpg"></center>'
  84. '"Well, we have the sauna which is in the residential area. We have one man there. And also the sex shop, of course. We''re thinking about selling them at the university as well. If we had some help to get connections there, profits would be increased. And whoever helps would get a bonus for being an assistant, of course."'
  85. act '"Are there any problems with the law?"':
  86. *clr & cla
  87. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/ment_0.jpg"></center>'
  88. '"We''ve got contracts with the police to leave us alone. Maybe in the future you will be able to help us to keep those in place, or improve them. But for now, you would only be able to work on the weekend."'
  89. act 'You understand.':
  90. *clr & cla
  91. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/pierre_2.jpg"></center>'
  92. '"Alright, girl. Enjoy yourself."'
  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 < 145 and karta + bankDebtLimit < 145:
  124. 'You cannot afford lubricant.'
  125. else
  126. if money >= 145:
  127. act 'Buy lubricant 145 <b>₽</b> (cash)':
  128. *clr & cla
  129. menu_off = 1
  130. lubri += 20
  131. money -= 145
  132. minut += 5
  133. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  134. 'You buy some lubricant and pay the cashier.'
  135. gs 'stat'
  136. act 'Move away from the counter':gt 'sexshop', 'start'
  137. end
  138. end
  139. if karta + bankDebtLimit >= 145:
  140. act 'Buy lubricant 145 <b>₽</b> (card)':
  141. *clr & cla
  142. menu_off = 1
  143. lubri += 20
  144. karta -= 145
  145. minut += 5
  146. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  147. 'You buy some lubricant and pay the cashier.'
  148. gs 'stat'
  149. act 'Move away from the counter':gt 'sexshop', 'start'
  150. end
  151. end
  152. end
  153. if pornMagazine <= 1 and (money < 400 and karta + bankDebtLimit < 400):
  154. 'You cannot afford the porn magazine.'
  155. else
  156. if pornMagazine <= 1 and money >= 400:
  157. act 'Buy a porn magazine 400 <b>₽</b> (cash)':
  158. *clr & cla
  159. menu_off = 1
  160. minut += 5
  161. money -= 400
  162. pornMagazine = 50
  163. gs 'stat'
  164. 'You buy a porn magazine and pay the cashier.'
  165. act 'Move away from the counter':gt 'sexshop','start'
  166. end
  167. end
  168. if pornMagazine <= 1 and karta + bankDebtLimit >= 400:
  169. act 'Buy a porn magazine 400 <b>₽</b> (card)':
  170. *clr & cla
  171. menu_off = 1
  172. minut += 5
  173. karta -= 400
  174. pornMagazine = 50
  175. gs 'stat'
  176. 'You buy a porn magazine and pay the cashier.'
  177. act 'Move away from the counter':gt 'sexshop','start'
  178. end
  179. end
  180. end
  181. if dildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  182. 'You cannot afford the 10cm dildo.'
  183. else
  184. if money >= 800 and dildo = 0:
  185. act 'Buy 10cm dildo 800 <b>₽</b> (cash)':
  186. *clr & cla
  187. menu_off = 1
  188. minut += 5
  189. dildo = 1
  190. money -= 800
  191. gs 'stat'
  192. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  193. 'You bought a dildo and paid the cashier.'
  194. act 'Move away from the counter':gt 'sexshop', 'start'
  195. end
  196. end
  197. if karta + bankDebtLimit >= 800 and dildo = 0:
  198. act 'Buy 10cm dildo 800 <b>₽</b> (card)':
  199. *clr & cla
  200. menu_off = 1
  201. minut += 5
  202. dildo = 1
  203. karta -= 800
  204. gs 'stat'
  205. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  206. 'You bought a dildo and paid the cashier.'
  207. act 'Move away from the counter':gt 'sexshop', 'start'
  208. end
  209. end
  210. end
  211. if middildo = 0 and (money < 850 and karta + bankDebtLimit < 850):
  212. 'You cannot afford the 15cm dildo.'
  213. else
  214. if money >= 850 and middildo = 0:
  215. act 'Buy 15cm long dildo 850 <b>₽</b> (cash)':
  216. *clr & cla
  217. menu_off = 1
  218. minut += 5
  219. middildo = 1
  220. money -= 850
  221. gs 'stat'
  222. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  223. 'You bought a 15cm long dildo and paid the cashier.'
  224. act 'Move away from the counter':gt 'sexshop','start'
  225. end
  226. end
  227. if karta + bankDebtLimit >= 850 and middildo = 0:
  228. act 'Buy 15cm long dildo 850 <b>₽</b> (card)':
  229. *clr & cla
  230. menu_off = 1
  231. minut += 5
  232. middildo = 1
  233. karta -= 850
  234. gs 'stat'
  235. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  236. 'You bought a 15cm long dildo and paid the cashier.'
  237. act 'Move away from the counter':gt 'sexshop','start'
  238. end
  239. end
  240. end
  241. if largedildo = 0 and (money < 900 and karta + bankDebtLimit < 900):
  242. 'You cannot afford the 20cm dildo.'
  243. else
  244. if money >= 900 and largedildo = 0:
  245. act 'Buy 20cm long dildo 900 <b>₽</b> (cash)':
  246. *clr & cla
  247. menu_off = 1
  248. minut += 5
  249. largedildo = 1
  250. money -= 900
  251. gs 'stat'
  252. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  253. 'You bought a 20cm long dildo and paid the cashier.'
  254. act 'Move away from the counter':gt 'sexshop','start'
  255. end
  256. end
  257. if karta + bankDebtLimit >= 900 and largedildo = 0:
  258. act 'Buy 20cm long dildo 900 <b>₽</b> (card)':
  259. *clr & cla
  260. menu_off = 1
  261. minut += 5
  262. largedildo = 1
  263. karta -= 900
  264. gs 'stat'
  265. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  266. 'You bought a 20cm long dildo and paid the cashier.'
  267. act 'Move away from the counter':gt 'sexshop','start'
  268. end
  269. end
  270. end
  271. if suction_dildo = 0 and money >= 1000:
  272. act 'Buy a 15cm suction dildo 1000 <b>₽</b> (cash':
  273. cla
  274. minut += 5
  275. suction_dildo += 1
  276. money -= 1000
  277. pcs_horny += 10
  278. '<center><img <<$set_imgh>> src="images/pc/items/15cm.jpg"></center>'
  279. if pcs_inhib < 35:
  280. 'You buy the dildo and hastily hide it, while your face blushes with embarrassment.'
  281. else
  282. 'You buy the dildo and calmly hide it.'
  283. end
  284. act 'Leave':gt 'pav_train_market', 'start'
  285. act 'Buy something else':gt 'pav_train_market', 4
  286. end
  287. elseif suction_dildo > 0 and money >= 1000:
  288. act 'Buy another 15cm suction dildo 1000 <b>₽</b> (cash':
  289. cla
  290. minut += 5
  291. suction_dildo += 1
  292. money -= 1000
  293. pcs_horny += 10
  294. '<center><img <<$set_imgh>> src="images/pc/items/15cm.jpg"></center>'
  295. if pcs_inhib < 35:
  296. 'You buy the dildo and hastily hide it, while your face blushes with embarrassment.'
  297. else
  298. 'You buy the dildo and calmly hide it.'
  299. end
  300. act 'Leave':gt 'pav_train_market', 'start'
  301. act 'Buy something else':gt 'pav_train_market', 4
  302. end
  303. end
  304. if suction_dildo > 0 and (karta + bankDebtLimit >= 950):
  305. act 'Buy another 15cm suction dildo 1000 <b>₽</b> (card0':
  306. cla
  307. minut += 5
  308. suction_dildo += 1
  309. karta -= 1000
  310. pcs_horny += 10
  311. '<center><img <<$set_imgh>> src="images/pc/items/15cm.jpg"></center>'
  312. if pcs_inhib < 35:
  313. 'You buy the dildo and hastily hide it, while your face blushes with embarrassment.'
  314. else
  315. 'You buy the dildo and calmly hide it.'
  316. end
  317. act 'Leave':gt 'pav_train_market', 'start'
  318. act 'Buy something else':gt 'pav_train_market', 4
  319. end
  320. elseif (karta + bankDebtLimit >= 950):
  321. act 'Buy 15cm suction dildo 1000 <b>₽</b> (card0':
  322. cla
  323. minut += 5
  324. suction_dildo += 1
  325. karta -= 1000
  326. pcs_horny += 10
  327. '<center><img <<$set_imgh>> src="images/pc/items/15cm.jpg"></center>'
  328. if pcs_inhib < 35:
  329. 'You buy the dildo and hastily hide it, while your face blushes with embarrassment.'
  330. else
  331. 'You buy the dildo and calmly hide it.'
  332. end
  333. act 'Leave':gt 'pav_train_market', 'start'
  334. act 'Buy something else':gt 'pav_train_market', 4
  335. end
  336. end
  337. if bigdildo = 0 and (money < 950 and karta + bankDebtLimit < 950):
  338. 'You cannot afford the 25cm dildo.'
  339. else
  340. if money >= 950 and bigdildo = 0:
  341. act 'Buy 25cm long dildo 950 <b>₽</b> (cash)':
  342. *clr & cla
  343. menu_off = 1
  344. minut += 5
  345. bigdildo = 1
  346. money -= 950
  347. gs 'stat'
  348. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  349. 'You bought a 25cm long dildo and paid the cashier.'
  350. act 'Move away from the counter':gt 'sexshop','start'
  351. end
  352. end
  353. if karta + bankDebtLimit >= 950 and bigdildo = 0:
  354. act 'Buy 25cm long dildo 950 <b>₽</b> (card)':
  355. *clr & cla
  356. menu_off = 1
  357. minut += 5
  358. bigdildo = 1
  359. karta -= 950
  360. gs 'stat'
  361. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  362. 'You bought a 25cm long dildo and paid the cashier.'
  363. act 'Move away from the counter':gt 'sexshop','start'
  364. end
  365. end
  366. end
  367. if extradildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  368. 'You cannot afford the 30cm dildo.'
  369. else
  370. if money >= 1000 and extradildo = 0:
  371. act 'Buy 30cm long dildo (1,000 <b>₽</b>)':
  372. *clr & cla
  373. menu_off = 1
  374. minut += 5
  375. extradildo = 1
  376. money -= 1000
  377. gs 'stat'
  378. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  379. 'You bought a 30cm long dildo and paid the cashier.'
  380. act 'Move away from the counter':gt 'sexshop','start'
  381. end
  382. end
  383. if karta + bankDebtLimit >= 1000 and extradildo = 0:
  384. act 'Buy 30cm long dildo (1,000 <b>₽</b>)':
  385. *clr & cla
  386. menu_off = 1
  387. minut += 5
  388. extradildo = 1
  389. karta -= 1000
  390. gs 'stat'
  391. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  392. 'You bought a 30cm long dildo and paid the cashier.'
  393. act 'Move away from the counter':gt 'sexshop','start'
  394. end
  395. end
  396. end
  397. if superdildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  398. 'You cannot afford the 35cm dildo.'
  399. else
  400. if money >= 1100 and superdildo = 0:
  401. act 'Buy 35cm long dildo (1,100 <b>₽</b>)':
  402. *clr & cla
  403. menu_off = 1
  404. minut += 5
  405. superdildo = 1
  406. money -= 1100
  407. gs 'stat'
  408. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  409. 'You bought a 35cm long dildo and paid the cashier.'
  410. act 'Move away from the counter':gt 'sexshop','start'
  411. end
  412. end
  413. if karta + bankDebtLimit >= 1100 and superdildo = 0:
  414. act 'Buy 35cm long dildo (1,100 <b>₽</b>)':
  415. *clr & cla
  416. menu_off = 1
  417. minut += 5
  418. superdildo = 1
  419. karta -= 1100
  420. gs 'stat'
  421. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  422. 'You bought a 35cm long dildo and paid the cashier.'
  423. act 'Move away from the counter':gt 'sexshop','start'
  424. end
  425. end
  426. end
  427. if maddildo = 0 and (money < 800 and karta + bankDebtLimit < 800):
  428. 'You cannot afford the 40cm dildo.'
  429. else
  430. if money >= 1200 and maddildo = 0:
  431. act 'Buy 40cm long dildo (1,200 <b>₽</b>)':
  432. *clr & cla
  433. menu_off = 1
  434. minut += 5
  435. maddildo = 1
  436. money -= 1200
  437. gs 'stat'
  438. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  439. 'You bought a 40cm long dildo and paid the cashier.'
  440. act 'Move away from the counter':gt 'sexshop','start'
  441. end
  442. end
  443. if karta + bankDebtLimit >= 1200 and maddildo = 0:
  444. act 'Buy 40cm long dildo (1,200 <b>₽</b>)':
  445. *clr & cla
  446. menu_off = 1
  447. minut += 5
  448. maddildo = 1
  449. karta -= 1200
  450. gs 'stat'
  451. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  452. 'You bought a 40cm long dildo and paid the cashier.'
  453. act 'Move away from the counter':gt 'sexshop','start'
  454. end
  455. end
  456. end
  457. if vibrator = 0 and (money < 800 and karta + bankDebtLimit < 800):
  458. 'You cannot afford the vibrator.'
  459. else
  460. if money >= 800 and vibrator = 0:
  461. act 'Buy vibrator (800 <b>₽</b>)':
  462. *clr & cla
  463. menu_off = 1
  464. minut += 5
  465. vibrator = 1
  466. money -= 800
  467. gs 'stat'
  468. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  469. 'You bought a vibrator and paid the cashier.'
  470. act 'Move away from the counter':gt 'sexshop', 'start'
  471. end
  472. end
  473. if karta + bankDebtLimit >= 800 and vibrator = 0:
  474. act 'Buy vibrator (800 <b>₽</b>)':
  475. *clr & cla
  476. menu_off = 1
  477. minut += 5
  478. vibrator = 1
  479. karta -= 800
  480. gs 'stat'
  481. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  482. 'You bought a vibrator and paid the cashier.'
  483. act 'Move away from the counter':gt 'sexshop', 'start'
  484. end
  485. end
  486. end
  487. if strapon = 0:
  488. if (money > 1200 and karta + bankDebtLimit > 1200) and (dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo = 0):
  489. 'You cannot afford the strap-on.'
  490. if money >= 1200:
  491. act 'Buy a strap-on with a 15cm dildo 1,200 <b>₽</b> (cash)':
  492. *clr & cla
  493. menu_off = 1
  494. minut += 5
  495. strapon = 1
  496. middildo = 1
  497. strapnumber = 2
  498. money -= 1200
  499. gs 'stat'
  500. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  501. 'You bought a strap-on and paid the cashier.'
  502. act 'Move away from the counter':gt 'sexshop', 'start'
  503. end
  504. end
  505. if karta + bankDebtLimit >= 1200:
  506. act 'Buy a strap-on with a 15cm dildo 1,200 <b>₽</b> (card)':
  507. *clr & cla
  508. menu_off = 1
  509. minut += 5
  510. strapon = 1
  511. middildo = 1
  512. strapnumber = 2
  513. karta -= 1200
  514. gs 'stat'
  515. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  516. 'You bought a strap-on and paid the cashier.'
  517. act 'Move away from the counter':gt 'sexshop', 'start'
  518. end
  519. end
  520. elseif (money > 500 or karta + bankDebtLimit > 500) and (dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo ! 0):
  521. if money >= 500:
  522. act 'Buy a strap-on harness 500 <b>₽</b> (cash)':
  523. *clr & cla
  524. menu_off = 1
  525. minut += 5
  526. strapon = 1
  527. money -= 500
  528. gs 'stat'
  529. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  530. 'You bought a strap-on and paid the cashier. You have to attach one of your dildos to it.'
  531. act 'Move away from the counter':gt 'sexshop', 'start'
  532. end
  533. end
  534. if karta + bankDebtLimit >= 500:
  535. act 'Buy a strap-on harness 500 <b>₽</b> (card)':
  536. *clr & cla
  537. menu_off = 1
  538. minut += 5
  539. strapon = 1
  540. karta -= 500
  541. gs 'stat'
  542. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  543. 'You bought a strap-on and paid the cashier. You have to attach one of your dildos to it.'
  544. act 'Move away from the counter':gt 'sexshop', 'start'
  545. end
  546. end
  547. end
  548. end
  549. if analplug = 0 and (money < 800 and karta + bankDebtLimit < 800):
  550. 'You cannot afford the butt plug.'
  551. else
  552. if money >= 800 and analplug = 0:
  553. act 'Buy butt plug 800 <b>₽</b> (cash)':
  554. *clr & cla
  555. menu_off = 1
  556. minut += 5
  557. analplug = 1
  558. money -= 800
  559. gs 'stat'
  560. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  561. 'You bought a butt plug and paid the cashier.'
  562. act 'Move away from the counter':gt 'sexshop', 'start'
  563. end
  564. end
  565. if karta + bankDebtLimit >= 800 and analplug = 0:
  566. act 'Buy butt plug 800 <b>₽</b> (card)':
  567. *clr & cla
  568. menu_off = 1
  569. minut += 5
  570. analplug = 1
  571. karta -= 800
  572. gs 'stat'
  573. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
  574. 'You bought a butt plug and paid the cashier.'
  575. act 'Move away from the counter':gt 'sexshop', 'start'
  576. end
  577. end
  578. end
  579. end
  580. if $ARGS[0] = 'clo':
  581. $loc_arg = 'clo'
  582. $loc = 'sexshop'
  583. $menu_loc = 'sexshop'
  584. $menu_arg = 'clo'
  585. menu_off = 0
  586. *clr & cla
  587. gs'stat'
  588. '<center><b><font color="maroon">Fetish clothing - for all your personal needs</font></b></center>'
  589. *nl
  590. gs 'clothing_QV', 'shop_header'
  591. act 'Return': minut += 1 & gt 'sexshop', 'start'
  592. i = Clothingstock + 1
  593. if Clothingstock > 20:
  594. i -= 20
  595. elseif Clothingstock > 16:
  596. i -= 16
  597. elseif Clothingstock > 12:
  598. i -= 12
  599. elseif Clothingstock > 8:
  600. i -= 8
  601. elseif Clothingstock > 4:
  602. i -= 4
  603. end
  604. clothingfilter['qualitycheck'] = 7
  605. :loopquality
  606. :loopfetish
  607. if fetish[i] = 0:
  608. gs 'clothing_attributes', 'fetish', i
  609. gs 'clothing_QV', 'shop_filter'
  610. if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
  611. 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>'
  612. end
  613. end
  614. i += 4
  615. if i <= 94:jump 'loopfetish'
  616. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
  617. end
  618. if $ARGS[0] = 'fetish':
  619. cla
  620. if fetish[i] ! 0:
  621. msg 'You already own these clothes.'
  622. gt 'sexshop', 'clo'
  623. end
  624. gt 'clothing', 'view_clothing_item', 'shop', 'fetish',i, 1000
  625. end
  626. if $ARGS[0] = 'clo2':
  627. $loc_arg = 'clo2'
  628. $loc = 'sexshop'
  629. $menu_loc = 'sexshop'
  630. $menu_arg = 'clo2'
  631. menu_off = 0
  632. *clr & cla
  633. gs'stat'
  634. '<center><b><font color="maroon">Burlesque clothing - for entertainers and those most special of occasions</font></b></center>'
  635. *nl
  636. $Headerstring = '<TH>Prostitute clothing '
  637. if clothingfilter_prost = 0:
  638. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  639. else
  640. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  641. end
  642. $Headerstring += '<TH>Bimbo clothing '
  643. if clothingfilter_bimbo = 0:
  644. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  645. else
  646. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  647. end
  648. $Headerstring += '<TH>Clothing you are comfortable wearing '
  649. if clothingfilter_comf = 0:
  650. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  651. else
  652. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  653. end
  654. $Headerstring += '<TH>Daring clothing '
  655. if clothingfilter_daring = 0:
  656. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  657. else
  658. $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  659. end
  660. $Headerstring += '<TH>Too daring for you clothing '
  661. if clothingfilter_too_daring = 0:
  662. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
  663. else
  664. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
  665. end
  666. '<center><table border=1><<$Headerstring>></center>'
  667. act 'Return': minut += 1 & gt 'sexshop', 'start'
  668. if Clothingstock > 11:
  669. i = 1
  670. else
  671. i = 2
  672. end
  673. :loopburlesque
  674. if burlesque[i] = 0:
  675. gs 'clothing_attributes', 'burlesque', i
  676. if clothingfilter_comf = 0 and CloInhibit + 10 < pcs_inhib:
  677. 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>'
  678. elseif clothingfilter_daring = 0 and CloInhibit + 10 >= pcs_inhib and CloInhibit <= pcs_inhib:
  679. 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>'
  680. elseif clothingfilter_too_daring = 0 and CloInhibit > pcs_inhib:
  681. 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>'
  682. end
  683. end
  684. i += 2
  685. if i <= 22:jump 'loopburlesque'
  686. end
  687. if $ARGS[0] = 'burlesque':
  688. cla
  689. if burlesque[i] ! 0:
  690. msg 'You already own these clothes.'
  691. gt 'sexshop', 'clo2'
  692. end
  693. gt 'clothing', 'view_clothing_item', 'shop', 'burlesque',i, 1500
  694. end
  695. if $ARGS[0] = 'shoes':
  696. $loc_arg = 'shoes'
  697. $loc = 'sexshop'
  698. $menu_loc = 'sexshop'
  699. $menu_arg = 'shoes'
  700. menu_off = 0
  701. *clr & cla
  702. gs'stat'
  703. act 'Return': minut += 1 & gt 'sexshop', 'start'
  704. if Clothingstock > 11:
  705. i = 1
  706. else
  707. i = 2
  708. end
  709. :loopfetish_shoes
  710. 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>'
  711. i += 2
  712. if i <= 27:jump 'loopfetish_shoes'
  713. end
  714. if $ARGS[0] = 'fetish_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'fetish',i, 2500
  715. if $ARGS[0] = 'panties':
  716. $loc_arg = 'panties'
  717. $loc = 'sexshop'
  718. $menu_loc = 'sexshop'
  719. $menu_arg = 'panties'
  720. menu_off = 0
  721. *clr & cla
  722. gs'stat'
  723. act 'Return': minut += 1 & gt 'sexshop', 'start'
  724. i = 1
  725. :loopsexshop_panties
  726. 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> '
  727. i += 1
  728. if i <= 43:jump 'loopsexshop_panties'
  729. end
  730. if $ARGS[0] = 'panties2':
  731. cla
  732. if sexshop_panties[i] ! 0:
  733. msg 'You already own these panties.'
  734. gt 'sexshop', 'panties'
  735. end
  736. gt 'panties', 'view_panty_item', 'shop', 'sexshop',i, 500
  737. end
  738. if $ARGS[0] = 'bras':
  739. $loc_arg = 'bras'
  740. $loc = 'sexshop'
  741. $menu_loc = 'sexshop'
  742. $menu_arg = 'bras'
  743. menu_off = 0
  744. *clr & cla
  745. gs'stat'
  746. act 'Return': minut += 1 & gt 'sexshop', 'start'
  747. i = 1
  748. :loopsexshop_bras
  749. 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> '
  750. i += 1
  751. if i <= 27:jump 'loopsexshop_bras'
  752. end
  753. if $ARGS[0] = 'bras2':
  754. cla
  755. if sexshop_bras[i] ! 0:
  756. msg 'You already own this bra.'
  757. gt 'sexshop', 'bras'
  758. end
  759. gt 'bras', 'view_bra_item', 'shop', 'sexshop',i, 500
  760. end
  761. if $ARGS[0] = 'podval':
  762. $menu_loc = 'sexshop'
  763. $loc = 'sexshop'
  764. $loc_arg = 'podval'
  765. $menu_arg = 'podval'
  766. menu_off = 0
  767. *clr & cla
  768. minut += 1
  769. gs 'stat'
  770. gs 'themes', 'indoors'
  771. '<center><b><font color="maroon">Basement with cubicles for watching movies</font></b></center>'
  772. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/gloryholebooths1.jpg"></center>'
  773. *nl
  774. act 'Leave the basement':gt 'sexshop', 'start'
  775. act 'Enter a free booth':gt 'sexshop', 'pip'
  776. act 'Enter the bathroom':gt 'sexshop', 'toi'
  777. if masharab = 1:act 'Go to Masha':gt 'masharoom', 'start'
  778. end
  779. if $ARGS[0] = 'toi':
  780. $loc_arg = $ARGS[0]
  781. $loc = 'sexshop'
  782. $location_type = 'bathroom'
  783. $locM = 'sexshop'
  784. $locM_arg = 'toi'
  785. $menu_loc = 'sexshop'
  786. $menu_arg = 'toi'
  787. menu_off = 0
  788. *clr & cla
  789. minut += 1
  790. gs 'stat'
  791. gs 'themes', 'indoors'
  792. '<center><b><font color="maroon">WC</font></b></center>'
  793. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
  794. act 'Leave the toilet':gt 'sexshop', 'podval'
  795. act 'Look in the mirror': gt 'mirror', 'start'
  796. if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
  797. dynamic $tampon
  798. dynamic $quickwash
  799. dynamic $basin
  800. dynamic $publicpan
  801. end
  802. if $ARGS[0] = 'pip':
  803. $location_type = 'private'
  804. *clr & cla
  805. menu_off = 1
  806. minut += 5
  807. gs 'stat'
  808. gs 'themes', 'indoors'
  809. '<center><b><font color="maroon">Booth movies</font></b></center>'
  810. '<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghbooths.jpg"></center>'
  811. 'Small cabinet with a TV on the wall, terminal and two holes in the walls at waist level.'
  812. if mistressqwest > 0 and mistressqwest <= 20:
  813. GHchance = rand(6,10)
  814. ghnowcheck = ghnow
  815. else
  816. GHchance = rand(1,10)
  817. ghnowcheck = ghnow * 2
  818. end
  819. if ghnow > 0:'You served <<ghnow>> cocks.'
  820. act 'Get out of the booth':gt 'sexshop', 'podval'
  821. if money >= 50 and (hour >= 11 or hour < 3):
  822. act 'Stick 50 <b>₽</b> in the machine':
  823. cla
  824. money -= 50
  825. minut += 15
  826. 'Once you have paid the money, the TV on the wall begins showing porn movies.'
  827. 'You sit in a chair and watch the porn. You began to get a little excited.'
  828. act 'The movie ended':gt 'sexshop', 'pip'
  829. act 'Masturbate':
  830. cla
  831. 'You caress your pussy with your fingers and enjoy the pleasant sensation between your legs.'
  832. gs 'arousal', 'masturbate', 5
  833. gs 'arousal', 'end'
  834. gs 'stat'
  835. act 'The movie ended':gt 'sexshop', 'pip'
  836. end
  837. if GHchance >= 10 - ghnowcheck:
  838. 'You hear the TV turn on in the next stall.'
  839. act 'Stick a finger in the hole (serve a stranger)':
  840. cla
  841. *clr
  842. ghnow += 1
  843. if ghnow < 5:
  844. money += 300
  845. else
  846. money += 150
  847. end
  848. fingerRand = rand(1, 5)
  849. ! WD: Rename missing Image ~ 'ghFinger.jpg' to 'ghFinger5.jpg'
  850. '<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger<<fingerRand>>.jpg"></center>'
  851. 'You poke your finger in the hole, letting them know that you are ready to serve the stranger.'
  852. 'The stranger slips ' + iif(ghnow < 5, '300', '150') + '<b>₽</b> into the hole, and then his erect cock pokes out of the hole.'
  853. act 'Suck dick':
  854. cla
  855. *clr
  856. gloryhole += 1
  857. swallow += 1
  858. gs 'dinSex', 'std_trigger_oral'
  859. ghprand = rand(1, 38)
  860. '<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/gloryhole<<ghprand>>.jpg"></center>'
  861. 'You take the cock in your mouth and start to suck it, blowing him enthusiastically.'
  862. 'The stranger''s cock begins to throb, and finally, the stranger cums in your mouth - filling it with a huge amount of thick sperm. You swallow it, and 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.'
  863. gs 'arousal', 'bj', 5
  864. gs 'arousal', 'end'
  865. gs 'stat'
  866. if mistressqwest > 0:
  867. mistressqwest += 1
  868. 'You have sucked <<mistressqwest - 1>> cocks for Mistress.'
  869. end
  870. act 'Wipe your face':gt 'sexshop', 'pip'
  871. end
  872. end
  873. end
  874. end
  875. end
  876. end
  877. if $ARGS[0] = 'kendra':
  878. $location_type = 'event'
  879. *clr & cla
  880. menu_off = 1
  881. minut += 10
  882. gs 'stat'
  883. if meet_kendra = 1:
  884. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend0.jpg"></center>'
  885. 'As you browse the store, you see Kendra again. She is browsing through some of the sex toys, then she notices you at about the same time.'
  886. 'After a couple of minutes, she walks over and boldly caresses your hair. "Hello again. You change your mind about serving me?" she asks.'
  887. act 'No':
  888. *clr & cla
  889. kendrano = 1
  890. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
  891. 'You smile to her. "Sorry, no. I still don''t belong to anyone."'
  892. 'She sighs softly. "Such a waste. Oh well, there are plenty of pretty little white Russian bitches that love being owned by an Ebony Mistress. Perhaps we will meet again and you will change your mind. I go to the University on the island, you should stop by sometime." She gives you directions to which dorm building is hers, and which floor and room number is her dorm room. With that you both say your goodbyes and she returns to shopping. As do you.'
  893. act 'Leave': minut += 5 & gt 'city_industrial', 'redlight'
  894. act 'Go back to shopping':gt 'sexshop', 'start'
  895. end
  896. act 'Yes':
  897. *clr & cla
  898. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
  899. 'You look down a little to show your submission to her. "Yes, Mistress Kendra."'
  900. '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."'
  901. act 'Serve Kendra':
  902. *clr & cla
  903. kendraslave += 1
  904. kendratoy = rand(1,2)
  905. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend1.jpg"></center>'
  906. '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 continue to lick her pussy and suck on her clit, while Kendra squeals and moans in pleasure.'
  907. '"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.'
  908. gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
  909. gs 'stat'
  910. if kendratoy = 1:
  911. act 'She pulls out a dildo':gt 'sexshop', 'kendra1'
  912. else
  913. act 'She pulls out a strap-on':gt 'sexshop', 'kendra2'
  914. end
  915. end
  916. end
  917. elseif kendraslave >= 1:
  918. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
  919. 'As you browse the store, you see Kendra trying on latex clothes. Then she notices you, at about the same time.'
  920. '"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.'
  921. gs 'willpower', 'sex', 'resist', 'medium'
  922. if will_cost <= pcs_willpwr:
  923. act 'Leave the shop (<<will_cost>> Willpower)':
  924. *clr & cla
  925. gs 'willpower', 'pay', 'resist'
  926. gs 'stat'
  927. minut += 5
  928. gt 'city_industrial', 'redlight'
  929. end
  930. else
  931. 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>'
  932. end
  933. act 'Serve Kendra':
  934. *clr & cla
  935. kendratoy = rand(1,2)
  936. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend1.jpg"></center>'
  937. '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. You continue to lick her pussy and suck on her clit, as Kendra squeals and moans in pleasure.'
  938. '"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.'
  939. gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
  940. gs 'stat'
  941. if kendratoy = 1:
  942. act 'She pulls out a dildo':gt 'sexshop', 'kendra1'
  943. else
  944. act 'She pulls out a strap-on':gt 'sexshop', 'kendra2'
  945. end
  946. end
  947. elseif hotcat >= 5:
  948. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend0.jpg"></center>'
  949. 'As you browse the store, you see a very attractive young black woman about your age trying on latex clothes. She notices you at about the same time.'
  950. 'After a couple of minutes, she walks over and boldly caresses your hair. "You''re a pretty little thing, what''s your name?" she asks.'
  951. 'You decide to tell her. "My name is <<$pcs_firstname>>, but most people call me <<$pcs_nickname>>. What''s your name?"'
  952. 'She smiles. "<<$pcs_nickname>>, what a pretty name. My name is Kendra, but you can call me Mistress Kendra." She says in confidence.'
  953. '"Oh" You reply, so she is one of those.'
  954. act 'Leave': minut += 5 & gt 'city_industrial', 'redlight'
  955. act 'Go back to shopping':gt 'sexshop', 'start'
  956. act 'Talk to her':
  957. *clr & cla
  958. meet_kendra = 1
  959. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend01.jpg"></center>'
  960. 'You ask her about her clothes, and soon the two of you are talking. You tell her that you live in Pavlovsk, and are in your final year of school. She tells you she is attending the University to get a degree. You find out she is from the Republic of Congo, on a student visa. You talk about a wide range of things for a while. Eventually she says "You are very pretty. I love making pretty little Russian bitches into my slaves. Call me Mistress Kendra, <<$pcs_nickname>>, and become mine." Should you call her mistress? You have no doubt where that will lead.'
  961. act 'Call her Kendra':
  962. *clr & cla
  963. kendrano = 1
  964. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
  965. 'You smile to her. "Sorry, but I don''t belong to anyone."'
  966. 'She sighs softly. "Such a waste. Oh well, there are plenty of pretty little white Russian bitches that love being owned by an Ebony Mistress. Perhaps we will meet again and you will change your mind. I go to the University on the island, you should stop by sometime." She gives you directions to which dorm building is hers, and which floor and room number is her dorm room. With that you both say your goodbyes and she returns to shopping. As do you.'
  967. act 'Go back to shopping':gt 'sexshop', 'start'
  968. end
  969. act 'Call her Mistress Kendra':
  970. *clr & cla
  971. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
  972. 'You look down a little to show your submission to her. "Yes, Mistress Kendra."'
  973. '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."'
  974. act 'Serve Kendra':
  975. *clr & cla
  976. kendraslave += 1
  977. kendratoy = rand(1,2)
  978. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend1.jpg"></center>'
  979. '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. You continue to lick her pussy and suck on her clit, as Kendra squeals and moans in pleasure.'
  980. '"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.'
  981. gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
  982. gs 'stat'
  983. if kendratoy = 1:
  984. act 'She pulls out a dildo':gt 'sexshop', 'kendra1'
  985. else
  986. act 'She pulls out a strap-on':gt 'sexshop', 'kendra2'
  987. end
  988. end
  989. end
  990. end
  991. else
  992. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend0.jpg"></center>'
  993. 'As you browse the store, you see a very attractive young black woman about your age trying on latex clothes. She notices you at about the same time.'
  994. 'She gives you a quick once over, and then stops paying attention to you. After a few moments she moves to another section of the store.'
  995. act 'Leave': minut += 5 & gt 'city_industrial', 'redlight'
  996. act 'Go back to shopping':gt 'sexshop', 'start'
  997. end
  998. end
  999. if $ARGS[0] = 'kendra1':
  1000. $location_type = 'event'
  1001. *clr & cla
  1002. menu_off = 1
  1003. minut += 10
  1004. gs 'stat'
  1005. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend2.jpg"></center>'
  1006. 'You take the dildo from her, and insert it into Kendra''s pussy. While you use one hand to fuck her with the dildo, your other hand caresses her clit, trying to bring her to orgasm. Kendra moans and writhes, sitting on the table, enjoying your efforts.'
  1007. gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
  1008. gs 'stat'
  1009. act 'Continue':
  1010. *clr & cla
  1011. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend3.jpg"></center>'
  1012. 'You dutifully continue to thrust the dildo, still stroking her clit. Her juices begin dripping from the dildo onto your hand. "That''s right, slave, that''s it. Just keep doing that!" she commands you.'
  1013. gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
  1014. gs 'stat'
  1015. act 'Continue':
  1016. *clr & cla
  1017. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend4.jpg"></center>'
  1018. '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, totaly committed to serving me. Now lick me clean" she orders.'
  1019. gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
  1020. gs 'stat'
  1021. act 'Lick':
  1022. *clr & cla
  1023. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend5.jpg"></center>'
  1024. 'You pull the dildo out of her soaking wet pussy, and dutifully move your head between her legs to begin slowly licking the juices from her thighs and pussy.'
  1025. '"Keep going, you slut" Kendra orders you. You began to lick faster, licking her thighs and pussy completely clean of her juices.'
  1026. '"Now, it''s time for your reward" she says as she pulls a strap-on out of her bag next.'
  1027. gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
  1028. gs 'stat'
  1029. act 'Yes, Mistress':gt 'sexshop', 'kendra2'
  1030. end
  1031. end
  1032. end
  1033. end
  1034. if $ARGS[0] = 'kendra2':
  1035. $location_type = 'event'
  1036. *clr & cla
  1037. menu_off = 1
  1038. minut += 3
  1039. gs 'stat'
  1040. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend8.jpg"></center>'
  1041. if pcs_vag = 0:
  1042. '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 kisses you. One of her hands wanders down to your pussy and rubs it for 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."'
  1043. else
  1044. '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 kisses you. One of her hands wanders down to your pussy and rubs it for 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.'
  1045. end
  1046. act 'Suck her strap-on':
  1047. *clr & cla
  1048. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend7.jpg"></center>'
  1049. 'You kneel down and take ahold of the strap-on 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.'
  1050. gs 'arousal', 'bj', 5, 'lesbian', 'sub'
  1051. gs 'stat'
  1052. act 'Deep throat':
  1053. *clr & cla
  1054. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend7.jpg"></center>'
  1055. '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. Your 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.'
  1056. gs 'arousal', 'bj', 5, 'lesbian', 'sub', 'deepthroat'
  1057. gs 'stat'
  1058. if pcs_vag = 0:
  1059. act 'Anal':gt 'sexshop', 'kendraanal'
  1060. else
  1061. act 'Vaginal':gt 'sexshop', 'kendravag'
  1062. end
  1063. end
  1064. end
  1065. end
  1066. if $ARGS[0] = 'kendravag':
  1067. $location_type = 'event'
  1068. *clr & cla
  1069. menu_off = 1
  1070. gs 'stat'
  1071. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend10.jpg"></center>'
  1072. 'Kendra commands you. "Impale your pussy on my cock, and fuck 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 under you - trying to shove it as deep into your pussy as possible. Several minutes pass, and each thrust increases your arousal. You decide to rub your clit to increase the amount of pleasure you are recieving.'
  1073. gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
  1074. gs 'stat'
  1075. act 'Rub clit':
  1076. *clr & cla
  1077. gs 'stat'
  1078. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend12.jpg"></center>'
  1079. '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 an 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.'
  1080. gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
  1081. gs 'arousal', 'mast', 5, 'lesbian', 'sub'
  1082. minut -= 5
  1083. gs 'stat'
  1084. act 'Anal':gt 'sexshop', 'kendraanal'
  1085. end
  1086. end
  1087. if $ARGS[0] = 'kendraanal':
  1088. $location_type = 'event'
  1089. *clr & cla
  1090. menu_off = 1
  1091. gs 'boyStat', 'D4'
  1092. gs 'stat'
  1093. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend9.jpg"></center>'
  1094. 'You stand up, as does she. "Lay on the table" she commands you. You jump up onto 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. She stops a moment to give your ass time to adjust to the size. Then, she begins to thrust the strap-on up your 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'
  1095. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1096. gs 'stat'
  1097. act 'Submit':
  1098. *clr & cla
  1099. gs 'stat'
  1100. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend13.jpg"></center>'
  1101. 'You submit to her command, telling her "My ass belongs to you, Mistress Kendra!"'
  1102. 'She smiles at you as she continues fucking your ass. "That''s right, Slave. And what can I do with it?" she asks.'
  1103. 'You reply to her. "Anything you want, Mistress Kendra, I belong to you!"'
  1104. 'Her smile gets bigger. "That''s right, bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" she commands'
  1105. 'Despite the pain, you moan in pleasure as she continues fucking your ass. "My ass belongs to you and you can fuck it anytime you want, Mistress Kendra!" you scream. She fucks your ass with the strap-on for a couple 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.'
  1106. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1107. gs 'stat'
  1108. act 'Finish': gt 'sexshop', 'kendrafinish'
  1109. end
  1110. gs 'willpower', 'action', 'resist', 'medium'
  1111. if will_cost <= pcs_willpwr:
  1112. act 'Resist (<<will_cost>> Willpower)':
  1113. *clr & cla
  1114. gs 'willpower', 'pay', 'resist'
  1115. gs 'stat'
  1116. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend13.jpg"></center>'
  1117. '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.'
  1118. 'Just as you expected, she starts fucking you 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 ordering you once again. "Tell me your ass belongs to me, Slave!" You know she will just fuck you harder until you submit, but maybe deep down that''s what you really want...'
  1119. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1120. gs 'stat'
  1121. act 'Submit':
  1122. *clr & cla
  1123. gs 'stat'
  1124. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend6.jpg"></center>'
  1125. 'You submit to her command, telling her what she wants to hear before she fucks your asshole raw. "My ass belongs to you, Mistress Kendra!"'
  1126. 'She smiles at you, pushing your legs together as she continues to fuck your asshole. "That''s right, Slave. And what can I do with it?" she asks.'
  1127. 'You reply to her. "Anything you want, Mistress Kendra, I belong to you!"'
  1128. 'Her smile gets bigger. "That''s right, bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" she commands'
  1129. 'Despite the pain, you moan in pleasure as she continues fucking your ass. "My ass belongs to you and you can fuck it anytime you want, Mistress Kendra!" you scream. She fucks your ass with the strap-on for a couple 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.'
  1130. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1131. gs 'stat'
  1132. act 'Finish': gt 'sexshop', 'kendrafinish'
  1133. end
  1134. gs 'willpower', 'action', 'resist', 'hard'
  1135. if will_cost <= pcs_willpwr:
  1136. act 'Resist (<<will_cost>> Willpower)':
  1137. *clr & cla
  1138. gs 'willpower', 'pay', 'resist'
  1139. gs 'stat'
  1140. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend6.jpg"></center>'
  1141. 'You decide to resist again. "No, Mistress Kendra! This is my ass, and I decided who fucks it!" You tell her.'
  1142. 'She starts fucking you even harder and even faster than before. She pushes your legs close, so she can get a better grip on your hips. "Learn your damn place, Slave! You belong to me! You will submit to me now, or else no matter what you say, I will fuck your ass raw right now!" she shouts, and for several minutes she pounds into your asshole, commanding you once again. "Tell me your ass belongs to me, Slave! Now!" 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.'
  1143. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1144. gs 'stat'
  1145. act 'Submit':
  1146. *clr & cla
  1147. gs 'stat'
  1148. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend14.jpg"></center>'
  1149. 'You finally submit to her command, telling her what she wants to hear before she fucks your asshole raw. "My ass belongs to you, Mistress Kendra!"'
  1150. 'She smiles at you, pushing your legs together as she continues to fuck your asshole. "That''s right, Slave. And what can I do with it?" she asks.'
  1151. 'You reply to her. "Anything you want, Mistress Kendra, I belong to you!"'
  1152. 'Her smile gets bigger. "That''s right, bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" she commands'
  1153. 'Despite the pain, you moan in pleasure as she continues fucking your ass. "My ass belongs to you and you can fuck it anytime you want, Mistress Kendra!" you scream. She fucks your ass with the strap-on for a couple 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.'
  1154. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1155. gs 'stat'
  1156. act 'Finish': gt 'sexshop', 'kendrafinish'
  1157. end
  1158. gs 'willpower', 'action', 'resist', 'hard'
  1159. if will_cost <= pcs_willpwr:
  1160. act 'Resist (<<will_cost>> Willpower)':
  1161. *clr & cla
  1162. gs 'willpower', 'pay', 'resist'
  1163. gs 'stat'
  1164. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend14.jpg"></center>'
  1165. 'Still, you refuse and resist her. "No!" Unable to tell her more than a simple no, as it is starting to hurt now.'
  1166. 'She slams it balls deep into your ass, and starts hammering you as hard and fast as she can. "You will learn your place, right this instant, Slave. You will submit to me, now, or I will stay her all day and fuck your ass until you weep and beg me to stop." For several minutes, she pounds into your sore asshole over and over - it is beginning to hurt a lot. "Tell me, right now, 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.'
  1167. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1168. gs 'pain', 1, 'asshole', 'tear'
  1169. gs 'stat'
  1170. act 'Submit':
  1171. *clr & cla
  1172. gs 'stat'
  1173. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend15.jpg"></center>'
  1174. 'You finally submit to her command as your ass starts to have a burning sensation, telling her what she wants to hear. "My ass belongs to you, Mistress Kendra!"'
  1175. 'She smiles at you as she continues to fuck your asshole. "That''s right, Slave. And what can I do with it?" she asks.'
  1176. 'You reply to her. "Anything you want, Mistress Kendra, I belong to you!"'
  1177. 'Her smile gets bigger. "That''s right, bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" she commands'
  1178. 'Despite the burning pain, you moan in pleasure as she continues fucking your ass. "My ass belongs to you and you can fuck it anytime you want, Mistress Kendra!" you scream. She fucks your ass with the strap-on for a couple 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.'
  1179. gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
  1180. gs 'pain', 1, 'asshole', 'tear'
  1181. gs 'stat'
  1182. act 'Finish': gt 'sexshop', 'kendrafinish'
  1183. end
  1184. end
  1185. else
  1186. act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1187. end
  1188. end
  1189. else
  1190. act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1191. end
  1192. end
  1193. else
  1194. act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1195. end
  1196. end
  1197. if $ARGS[0] = 'kendrafinish':
  1198. $location_type = 'event'
  1199. kendra[1] = daystart + 6
  1200. *clr & cla
  1201. gs 'stat'
  1202. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend16.jpg"></center>'
  1203. 'As you stand up, she grabs you by the throat and pulls you close. "Stick out your tongue."'
  1204. 'You do as she says and stick out your tongue. She licks your tongue with hers, and the two of you lick each others'' tongues for a few moments. Finally, she stops and grabs your butt cheek roughly - digging her nails into your backside. Hard enough it hurts a little. Then she lets go and steps away, and the pain quickly fades. She begins 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 get dressed, Slave."'
  1205. *nl
  1206. '"Thank you, Mistress" you tell her, as you get dressed.'
  1207. 'Once you are both fully dressed she says "You should come visit me, I live in the dorms at the University on the island." She gives you directions to which of the dorm buildings is hers, and the floor and room number of her dorm room. "I expect my little white slave to come visit me. Often."'
  1208. '"Yes, Mistress Kendra" you reply. With that, you leave the basement and go back up to the shop above.'
  1209. gs 'arousal', 'foreplay', 5, 'lesbian', 'sub'
  1210. gs 'arousal', 'end'
  1211. gs 'stat'
  1212. act 'Return to the store':gt 'sexshop', 'start'
  1213. end
  1214. if $ARGS[0] = 'shprod':
  1215. $location_type = 'event'
  1216. *clr & cla
  1217. menu_off = 1
  1218. minut += 5
  1219. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/shprod.jpg"></center>'
  1220. '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?"'
  1221. act 'Refuse':gt 'sexshop', 'start'
  1222. act 'Try it on':
  1223. *clr & cla
  1224. picrand = 47
  1225. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/shprod1.jpg"></center>'
  1226. '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 it looks more like a belt. It does not cover anything. All your charms are visible, from all directions.'
  1227. 'Approaching the mirror, you are considering this so-called skirt. The cashier kneels behind you and starts praising your ass in that skirt. His hands already wandering around your hips as he get his lips as close to your butt as he can. He says that he wants to "kiss your skin". Words soon cease, and just the feeling of his lips against your skin remain. Closer and closer to your pussy.'
  1228. gs 'willpower', 'cuni', 'resist', 'medium'
  1229. if will_cost <= pcs_willpwr:
  1230. act 'Push him away(<<will_cost>> Willpower)':
  1231. *clr & cla
  1232. gs 'willpower', 'pay', 'resist'
  1233. gs 'stat'
  1234. gt 'sexshop', 'start'
  1235. end
  1236. else
  1237. 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>'
  1238. end
  1239. act 'Let him':gs 'boyStat', 'A181' & gt 'sex', 'kuni'
  1240. end
  1241. end
  1242. --- sexshop ---------------------------------