1
0

selfplay.qsrc 45 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121
  1. # selfplay
  2. $d_self_ass_fingering = {
  3. }
  4. if $ARGS[0] = 'start':
  5. if mastrOnce = 0:
  6. stat['mast'] += 1
  7. mastrOnce = 1
  8. org_temp = orgasm
  9. if pcs_inhib < 30:inhib_exp += rand(1,3)
  10. end
  11. if org_temp < orgasm:
  12. act 'Finish': gt 'selfplay', 'stop'
  13. exit
  14. end
  15. gs 'stat'
  16. if $loc = 'bedrPar' or $loc = 'gadsarai':'<center><img <<$set_imgh>> src="images/shared/sex/mast/start.jpg"></center>'
  17. if $loc = 'vanrPar':'<center><video autoplay loop src="images/shared/sex/mast/startvann.mp4"></video></center>'
  18. if sisboytrio > 0 and sis_watch = 0 and $loc = 'bedrPar':
  19. sis_watch = 1
  20. if sisterHere > 0:sis_watch = 2 & 'Anya smiles and lets you carry on.'
  21. end
  22. !!then the calculation invasion
  23. if $loc = 'vanrPar':
  24. if selfplaytime >= 60:
  25. end
  26. end
  27. gs 'selfplay', 'sis_prov'
  28. ! This keeps resetting your dildo choices and makes it impossible to masturbate with them. Sicaa
  29. !if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo ! 0:
  30. ! dildonumber = 0
  31. !end
  32. if dildonumber > 0: gs 'boyStat', 'D<<dildonumber>>' & dildohand = (dildonumber + 1) * 5
  33. gs 'selfplay', 'dildo_options'
  34. if pcs_horny > 0:
  35. act 'Caress your clitoris':
  36. cls
  37. selfplaytime += 5
  38. gs 'selfplay', 'sis_prov'
  39. !!if $loc = 'bedrPar':'<center><video autoplay loop src="images/shared/sex/mast/klit.mp4"></video></center>'
  40. if $loc = 'vanrPar':
  41. '<center><img <<$set_imgh>> src="images/shared/sex/mast/klitvann.jpg"></center>'
  42. else
  43. '<center><video autoplay loop src="images/shared/sex/mast/klit.mp4"></video></center>'
  44. end
  45. if pcs_mood >= 20:
  46. pcs_horny += rand(5, 10)
  47. 'You put your hand down between your legs and gently rub your fingers over your groin. Running your fingers between your pussy lips, you scout out your clitoris and lightly run your finger over it repeatedly. The feeling you get out of this is great, and you feel a pleasant warmth spreading in your lower area.'
  48. else
  49. pcs_horny += rand(0, 1)
  50. 'You caress your clit with your fingers. It feels nice, but you''re in such a bad mood that you''re too distracted to really enjoy it.'
  51. end
  52. $orgasm_txt = 'Suddenly, you rub your clit just right and your whole body starts to shiver in orgasm. The intensity of the orgasm nearly makes you scream, but you bite down on your lip and do your best to stifle down the moans so no one hears you.'
  53. gs 'arousal', 'masturbate', 20
  54. minut -= 15
  55. gs 'stat'
  56. '<<$AnyaMsg>>'
  57. act 'Stop touching yourself':gt 'selfplay', 'stop'
  58. if org_temp = orgasm:gs 'selfplay', 'fingering'
  59. end
  60. end
  61. if pcs_horny > 0 and agape < 3:
  62. act 'Put a finger in your ass':
  63. cls
  64. selfplaytime += 5
  65. gs 'selfplay', 'sis_prov'
  66. !!if $loc = 'bedrPar':'<center><video autoplay loop src="images/shared/sex/mast/klit.mp4"></video></center>'
  67. !!if $loc = 'vanrPar':'<center><img <<$set_imgh>> src="images/shared/sex/mast/klitvann.jpg"></center>'
  68. '<center><img <<$set_imgh>> src="images/shared/sex/mast/1.jpg"></center>'
  69. gs 'arousal', 'masturbate', 5
  70. gs 'stat'
  71. if pcs_ass >= 5:
  72. 'You press a finger against your asshole and push it in. It slides in quite easily.'
  73. else
  74. pcs_ass += 1
  75. 'You press a finger against your tight asshole and push it in. Your anus is squeezing your finger tightly.'
  76. end
  77. if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'
  78. gs 'stat'
  79. '<<$AnyaMsg>>'
  80. act 'Stop touching yourself':gt $loc, $loc_arg
  81. if org_temp = orgasm:
  82. act 'Add a second finger':
  83. cls
  84. selfplaytime += 5
  85. gs 'selfplay', 'sis_prov'
  86. '<center><img <<$set_imgh>> src="images/shared/sex/mast/2.jpg"></center>'
  87. gs 'arousal', 'masturbate', 5
  88. gs 'stat'
  89. if pcs_ass >= 10:
  90. 'You relax and squeeze a second finger in, alongside the first. It slides in fairly easily.'
  91. if agape > 0:
  92. if agape = 2:agape = 3
  93. if agape = 1:agape = 2
  94. pcs_horny -= 50
  95. if pcs_ass > 1:pcs_ass -= 1
  96. 'Pushing a second finger into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
  97. end
  98. elseif pcs_ass >= 5 and pcs_ass < 10:
  99. analplay += 1
  100. 'You slide a second finger into your asshole. You can feel your anus squeezing your fingers tightly.'
  101. if agape > 0:
  102. if agape = 2:agape = 3
  103. if agape = 1:agape = 2
  104. pcs_horny -= 50
  105. pcs_ass += 1
  106. 'Pushing a second finger into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
  107. end
  108. else
  109. pcs_ass += 1
  110. if agape = 2:agape = 3
  111. if agape = 1:agape = 2
  112. if agape = 0:agape = 1
  113. pcs_horny -= 50
  114. 'When you slide in the second finger, you feel a sharp pain in your anus. You may have tried too much, too fast.'
  115. end
  116. gs 'stat'
  117. '<<$AnyaMsg>>'
  118. act 'Stop touching yourself':gt 'selfplay', 'stop'
  119. if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'
  120. if org_temp = orgasm and agape < 3:
  121. act 'Thrust three fingers in':
  122. cls
  123. selfplaytime += 5
  124. gs 'selfplay', 'sis_prov'
  125. '<center><img <<$set_imgh>> src="images/shared/sex/mast/3.jpg"></center>'
  126. gs 'arousal', 'masturbate', 5
  127. gs 'stat'
  128. if pcs_ass >= 15:
  129. 'Your asshole is fairly loose, and you manage to slide three fingers in without much effort.'
  130. if agape > 0:
  131. if agape = 2:agape = 3
  132. if agape = 1:agape = 2
  133. pcs_horny -= 50
  134. if pcs_ass > 1:pcs_ass += 1
  135. 'Pushing three fingers into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
  136. end
  137. elseif pcs_ass >= 10 and pcs_ass < 15:
  138. analplay += 1
  139. 'You slide three fingers into your asshole. You can feel your anus squeezing your fingers tightly.'
  140. if agape > 0:
  141. if agape = 2:agape = 3
  142. if agape = 1:agape = 2
  143. pcs_horny -= 50
  144. pcs_ass += 1
  145. 'Pushing three fingers into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
  146. end
  147. else
  148. pcs_ass += 1
  149. if agape = 2:agape = 3
  150. if agape = 1:agape = 2
  151. if agape = 0:agape = 1
  152. pcs_horny -= 50
  153. 'When you slide in three fingers, you feel a sharp pain in your anus. You may have tried too much, too fast.'
  154. end
  155. if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'
  156. gs 'stat'
  157. '<<$AnyaMsg>>'
  158. act 'Stop touching yourself':gt 'selfplay', 'stop'
  159. if org_temp = orgasm and agape < 3:
  160. act 'Push four fingers into your asshole':
  161. cls
  162. selfplaytime += 5
  163. gs 'selfplay', 'sis_prov'
  164. '<center><img <<$set_imgh>> src="images/shared/sex/mast/4.jpg"></center>'
  165. gs 'arousal', 'masturbate', 5
  166. gs 'stat'
  167. if pcs_ass >= 20:
  168. 'Your asshole is very loose, and you manage to push four fingers into it.'
  169. if agape > 0:
  170. if agape = 2:agape = 3
  171. if agape = 1:agape = 2
  172. pcs_horny -= 50
  173. if pcs_ass > 1:pcs_ass -= 1
  174. 'Pushing four fingers into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
  175. end
  176. elseif pcs_ass >= 15 and pcs_ass < 20:
  177. analplay += 1
  178. 'You manage to push four fingers into your asshole. You can feel your anus squeezing your fingers tightly.'
  179. if agape > 0:
  180. if agape = 2:agape = 3
  181. if agape = 1:agape = 2
  182. pcs_horny -= 50
  183. pcs_ass += 1
  184. 'Pushing four fingers into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
  185. end
  186. else
  187. pcs_ass += 1
  188. if agape = 2:agape = 3
  189. if agape = 1:agape = 2
  190. if agape = 0:agape = 1
  191. pcs_horny -= 50
  192. 'When you slide in four fingers, you feel a sharp pain in your anus. You may have tried too much, too fast.'
  193. end
  194. if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'
  195. gs 'stat'
  196. '<<$AnyaMsg>>'
  197. act 'Stop touching yourself':gt 'selfplay', 'stop'
  198. if org_temp = orgasm and agape < 3:
  199. act 'Put your whole hand in':
  200. cls
  201. SelfFisting += 1
  202. selfplaytime += 5
  203. gs 'selfplay', 'sis_prov'
  204. '<center><img <<$set_imgh>> src="images/shared/sex/mast/5.jpg"></center>'
  205. gs 'arousal', 'masturbate', 5
  206. gs 'stat'
  207. if pcs_ass >= 25:
  208. 'Slowly but surely, you manage to get your entire hand into your ass.'
  209. if agape > 0:
  210. if agape = 2:agape = 3
  211. if agape = 1:agape = 2
  212. pcs_horny -= 50
  213. if pcs_ass > 1:pcs_ass -= 1
  214. 'Pushing your whole hand into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
  215. end
  216. elseif pcs_ass >= 20 and pcs_ass < 25:
  217. analplay += 1
  218. 'It takes a lot of effort, but over the course of several minutes you manage to work your whole hand into your ass. You feel your anus squeeze your wrist tightly.'
  219. if agape > 0:
  220. if agape = 2:agape = 3
  221. if agape = 1:agape = 2
  222. pcs_horny -= 50
  223. pcs_ass += 1
  224. 'Pushing your whole hand into your already sore asshole was a bad idea. It hurts a lot and you feel like you damaged it further.'
  225. end
  226. else
  227. pcs_ass += 1
  228. if agape = 2:agape = 3
  229. if agape = 1:agape = 2
  230. if agape = 0:agape = 1
  231. pcs_horny -= 50
  232. 'When you push your hand into your asshole, you feel a sharp pain in your anus. You may have tried too much, too fast.'
  233. end
  234. act 'Stop touching yourself':gt 'selfplay', 'stop'
  235. if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'
  236. gs 'stat'
  237. '<<$AnyaMsg>>'
  238. end
  239. end
  240. end
  241. end
  242. end
  243. end
  244. end
  245. end
  246. end
  247. end
  248. if pcs_horny > 10:
  249. if dildo >= 1 or middildo = 1 or largedildo = 1 or bigdildo = 1 or extradildo = 1 or superdildo = 1 or maddildo = 1:
  250. if dildonumber > 0:
  251. gs 'boyStat', 'D<<dildonumber>>'
  252. if vgape <= 0:
  253. act 'Use the dildo on your pussy':
  254. if pcs_vag = 0 and dick >= 20:
  255. 'Are you sure? Doing so will most likely break your hymen.'
  256. act 'Yes, do it':
  257. cls
  258. selfplaytime += 15
  259. gs 'selfplay', 'sis_prov'
  260. if husband > 0 and housrA = 1 and husbandrink ! 10 and $loc = 'bedr': gt 'husbsex','husb_mastr_vtor'
  261. !!if $loc = 'bedrPar':'<center><img <<$set_imgh>> src="images/shared/sex/mast/dildo.jpg"></center>'
  262. if $loc = 'vanrPar':
  263. '<center><img <<$set_imgh>> src="images/shared/sex/mast/dildovann.jpg"></center>'
  264. else
  265. '<center><img <<$set_imgh>> src="images/shared/sex/mast/dildo.jpg"></center>'
  266. end
  267. gs 'dinsex2', 'd_vag_sex_dildo', 15
  268. gs 'stat'
  269. '<<$AnyaMsg>>'
  270. act 'Stop using the dildo':gt 'selfplay', 'start'
  271. end
  272. act 'On second thoughts, no': gt 'selfplay', 'start'
  273. else
  274. cls
  275. selfplaytime += 15
  276. gs 'selfplay', 'sis_prov'
  277. if husband > 0 and housrA = 1 and husbandrink ! 10 and $loc = 'bedr': gt 'husbsex','husb_mastr_vtor'
  278. !!if $loc = 'bedrPar':'<center><img <<$set_imgh>> src="images/shared/sex/mast/dildo.jpg"></center>'
  279. if $loc = 'vanrPar':
  280. '<center><img <<$set_imgh>> src="images/shared/sex/mast/dildovann.jpg"></center>'
  281. else
  282. '<center><img <<$set_imgh>> src="images/shared/sex/mast/dildo.jpg"></center>'
  283. end
  284. gs 'dinsex2', 'd_vag_sex_dildo', 15
  285. gs 'stat'
  286. '<<$AnyaMsg>>'
  287. act 'Stop using the dildo':gt 'selfplay', 'start'
  288. end
  289. end
  290. end
  291. if agape <= 0:
  292. act 'Use the dildo on your ass':
  293. cls
  294. selfplaytime += 15
  295. gs 'selfplay', 'sis_prov'
  296. !!if $loc = 'bedrPar':'<center><img <<$set_imgh>> src="images/shared/sex/mast/dildoanal.jpg"></center>'
  297. if $loc = 'vanrPar':
  298. '<center><img <<$set_imgh>> src="images/shared/sex/mast/dildovann.jpg"></center>'
  299. else
  300. '<center><img <<$set_imgh>> src="images/shared/sex/mast/dildoanal.jpg"></center>'
  301. end
  302. gs 'dinsex2', 'd_analsex_dildo',15
  303. gs 'stat'
  304. '<<$AnyaMsg>>'
  305. act 'Stop using the dildo':gt 'selfplay', 'start'
  306. end
  307. end
  308. end
  309. end
  310. end
  311. if pcs_horny > 0:gs 'selfplay', 'fingering'
  312. act 'Stop masturbating': gt 'selfplay', 'stop'
  313. if $loc = 'vanrPar' and selfplaytime >= 60:gs 'selfplay', 'van_vtor'
  314. if $loc = 'gadsarai':
  315. npc_horny['A66'] += 1
  316. 'Bandit the dog is watching you curiously.'
  317. end
  318. end
  319. if $ARGS[0] = 'dildo_options':
  320. if dildonumber ! 0: *pl & *pl 'You are using a <<dick>>cm long dildo.'
  321. *pl
  322. if dildo = 1:
  323. if dildonumber = 1:
  324. *pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 10cm long dildo.'
  325. else
  326. *pl '<a href="exec:dildonumber = 1 & gs ''boyStat'', ''D1'' & gt ''selfplay'', ''start''">Start</a> using the 10cm long dildo.'
  327. end
  328. end
  329. if middildo = 1:
  330. if dildonumber = 2:
  331. *pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 15cm long dildo.'
  332. else
  333. *pl '<a href="exec:dildonumber = 2 & gs ''boyStat'', ''D2'' & gt ''selfplay'', ''start''">Start</a> using the 15cm long dildo.'
  334. end
  335. end
  336. if largedildo = 1:
  337. if dildonumber = 3:
  338. *pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 20cm long dildo.'
  339. else
  340. *pl '<a href="exec:dildonumber = 3 & gs ''boyStat'', ''D3'' & gt ''selfplay'', ''start''">Start</a> using the 20cm long dildo.'
  341. end
  342. end
  343. if bigdildo = 1:
  344. if dildonumber = 4:
  345. *pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 25cm long dildo.'
  346. else
  347. *pl '<a href="exec:dildonumber = 4 & gs ''boyStat'', ''D4'' & gt ''selfplay'', ''start''">Start</a> using the 25cm long dildo.'
  348. end
  349. end
  350. if extradildo = 1:
  351. if dildonumber = 5:
  352. *pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 30cm long dildo.'
  353. else
  354. *pl '<a href="exec:dildonumber = 5 & gs ''boyStat'', ''D5'' & gt ''selfplay'', ''start''">Start</a> using the 30cm long dildo.'
  355. end
  356. end
  357. if superdildo = 1:
  358. if dildonumber = 6:
  359. *pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 35cm long dildo.'
  360. else
  361. *pl '<a href="exec:dildonumber = 6 & gs ''boyStat'', ''D6'' & gt ''selfplay'', ''start''">Start</a> using the 35cm long dildo.'
  362. end
  363. end
  364. if maddildo = 1:
  365. if dildonumber = 7:
  366. *pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 40cm long dildo.'
  367. else
  368. *pl '<a href="exec:dildonumber = 7 & gs ''boyStat'', ''D7'' & gt ''selfplay'', ''start''">Start</a> using the 40cm long dildo.'
  369. end
  370. end
  371. end
  372. !! Bathroom Dildo Info
  373. !! bathtub_suction_dildo - dildo that is applied on the low wall of a bathtub
  374. !! bath_shower_dildo - dildo that is applied onto the wall of a bathtub that also has a shower
  375. !! glass_shower_dildo - dildo applied to glass wall of a shower with no tub
  376. if $ARGS[0] = 'suction_dildo':
  377. *nl
  378. if dyneval('result = <<$loc>>_bathtub_dildo') ! 1 and suction_dildo > 0:
  379. 'You can stick your suction dildo to the <a href="exec:gs ''selfplay'',''bathtub_suction_dildo_apply'' & gt $loc, $loc_arg">bath tub</a> to play with.'
  380. elseif dyneval('result = <<$loc>>_bathtub_dildo') = 1:
  381. 'Your <a href="exec:gs ''selfplay'',''bath_suction_dildo''">suction dildo</a> is stuck to the bath tub.'
  382. end
  383. *nl
  384. if suction_dildo > 0 and dyneval('result = <<$loc>>_bath_shower_dildo') ! 1 and dyneval('result = <<$loc>>_glass_shower_dildo') ! 1:
  385. 'You can also stick a suction dildo inside <a href="exec:gs ''selfplay'',''shower_suction_dildo_apply'' & gt $loc, $loc_arg">the shower</a>.'
  386. elseif dyneval('result = <<$loc>>_bath_shower_dildo') = 1 or dyneval('result = <<$loc>>_glass_shower_dildo') = 1:
  387. 'Your suction dildo is <a href="exec:gt ''selfplay'',''shower_suction_dildo''">inside the shower</a>.'
  388. end
  389. *nl
  390. end
  391. if $ARGS[0] = 'bathtub_suction_dildo_apply':
  392. dynamic('<<$loc>>_bathtub_dildo = 1')
  393. dynamic('<<$loc>>_suction_dildo += 1')
  394. suction_dildo -= 1
  395. end
  396. if $ARGS[0] = 'bathtub_suction_dildo_remove':
  397. dynamic('<<$loc>>_bathtub_dildo = 0')
  398. dynamic('<<$loc>>_suction_dildo -= 1')
  399. suction_dildo += 1
  400. end
  401. if $ARGS[0] = 'shower_suction_dildo_apply':
  402. dynamic('<<$loc>>_suction_dildo += 1')
  403. if $bathtype = 'bathtub shower':
  404. dynamic('<<$loc>>_bath_shower_dildo = 1')
  405. elseif $bathtype = 'glass shower' or $bathtype = 'glass shower and tub':
  406. dynamic('<<$loc>>_glass_shower_dildo = 1')
  407. end
  408. suction_dildo -= 1
  409. end
  410. if $ARGS[0] = 'shower_suction_dildo_remove':
  411. dynamic('<<$loc>>_suction_dildo -= 1')
  412. if $bathtype = 'bathtub shower':
  413. dynamic('<<$loc>>_bath_shower_dildo = 0')
  414. elseif $bathtype = 'glass shower' or $bathtype = 'glass shower and tub':
  415. dynamic('<<$loc>>_glass_shower_dildo = 0')
  416. end
  417. suction_dildo += 1
  418. end
  419. if $ARGS[0] = 'bathtub_dildo_check':
  420. if dyneval('result = <<$loc>>_bathtub_dildo') = 1:
  421. act 'Ride your bathtub dildo':gt'selfplay','bath_bathtub_suction_dildo_ride'
  422. end
  423. end
  424. if $ARGS[0] = 'shower_dildo_check':
  425. if dyneval('result = <<$loc>>_bathtub_dildo') = 1:
  426. act 'Ride your bathtub dildo':gt'selfplay','shower_bathtub_suction_dildo_ride'
  427. end
  428. if dyneval('result = <<$loc>>_glass_shower_dildo') = 1:
  429. act 'Ride your wall mounted dildo':gt'selfplay','glass_shower_suction_dildo_ride'
  430. elseif dyneval('result = <<$loc>>_bath_shower_dildo') = 1:
  431. act 'Ride your wall mounted dildo':gt'selfplay','shower_bathtub_wall_dildo_fuck'
  432. end
  433. end
  434. if $ARGS[0] = 'bath_suction_dildo':
  435. cla & *clr
  436. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/bathtub_dildo.jpg"></center>'
  437. 'Your suction dildo is currently stuck onto the bathtub.'
  438. act'Leave it there':gt $loc, $loc_arg
  439. act'Take it off':gs'selfplay','bathtub_suction_dildo_remove' & gt $loc, $loc_arg
  440. act'Ride it':gt'selfplay','bath_suction_dildo_ride'
  441. end
  442. if $ARGS[0] = 'shower_suction_dildo':
  443. cla & *clr
  444. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shower_dildo.jpg"></center>'
  445. 'Your suction dildo is currently stuck on the wall of the shower.'
  446. act'Leave it there':gt $loc, $loc_arg
  447. act'Take it off':gs'selfplay','shower_suction_dildo_remove' & gt $loc, $loc_arg
  448. end
  449. !! for using a dildo suctioned to the BATHTUB when not bathing
  450. if $ARGS[0] = 'bath_suction_dildo_ride':
  451. pcs_horny += 20
  452. gs 'boyStat', 'D2'
  453. gs 'stat'
  454. '<center><video autoplay loop src="images/shared/home/bathroom/bath_dildo.mp4"></video></center>'
  455. if dildo_timer = 0:
  456. dildo_timer = 1
  457. dildo_start_minute = minut
  458. dildo_start_hour = hour
  459. end
  460. if pcs_vag = 0:
  461. 'You wince in pain as you sit down on your dildo and it tears through your hymen. After giving yourself a minute to adjust, you tentatively bounce up and down on it, until you start to enjoy yourself.'
  462. elseif dildo_start_minute = minut and dildo_start_hour = hour:
  463. 'You spend 5 minutes bouncing up and down on the dildo mounted on your bathtub wall and having a good time.'
  464. else
  465. 'You spend 5 more minutes happily bouncing up and down on your bathtub mounted dildo.'
  466. end
  467. *nl
  468. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam yourself all the way down onto your dildo and climax hard all over it. Your walls squeeze tight and you can feel the entire shape of the rubber cock inside you. Gasping, quivering, and clenching, you ride out your orgasm while impaled on your bathtub dildo.'
  469. if pcs_horny >= 90:$orgasm_or = 'yes'
  470. gs'arousal','vaginal_dildo',5
  471. act'Keep masturbating': gt'selfplay','bath_suction_dildo_ride'
  472. act'Finish masturbating':
  473. dildo_timer = 0
  474. gs'arousal','end'
  475. gt $loc, $loc_arg
  476. end
  477. act'Finish masturbating and unmount your dildo':
  478. dildo_timer = 0
  479. gs'arousal','end'
  480. gs 'selfplay','bathtub_suction_dildo_remove'
  481. gt $loc, $loc_arg
  482. end
  483. end
  484. !! this is riding a dildo mounted on the low wall of a bath tub during a SHOWER
  485. if $ARGS[0] = 'shower_bathtub_suction_dildo_ride':
  486. vaginal_slip = 10
  487. pcs_horny += 20
  488. gs 'boyStat','D2'
  489. gs 'stat'
  490. '<center><video autoplay loop src="images/shared/home/bathroom/shower_bath_dildo1.mp4"></video></center>'
  491. if dildo_timer = 0:
  492. dildo_timer = 1
  493. dildo_start_minute = minut
  494. dildo_start_hour = hour
  495. end
  496. *nl
  497. if pcs_vag = 0:
  498. 'Leaving the shower running, you move the curtain aside and ease down onto your bathtub mounted rubber cock.'
  499. *nl
  500. 'You wince in pain as it tears through your hymen and slip on the wet tub floor, gasping aloud when you suddenly find yourself ass-to-tub and the entire thing shoved up your pussy.'
  501. *nl
  502. '<i>Ow! Ow! Ow! Ow! I did not mean to take the full length of that thing right away!</i>'
  503. *nl
  504. 'Biting hard on your lip, you give yourself a minute to adjust and let your walls stretch out. Eventually you feel a little braver and you tentatively bounce up and down on it. One bounce becomes two, two becomes twelve, and suddenly you are jumping up and down on it with reckless abandon, very much enjoying your big rubber cock.'
  505. elseif dildo_start_minute = minut and dildo_start_hour = hour:
  506. 'Leaving the shower running, you move the curtain aside and ease down onto your bathtub mounted rubber cock.'
  507. *nl
  508. if $loc = 'vanrPar':
  509. '<i>Haahhh~! Hhhh~! Mmmm~! Unnnh~!</i>'
  510. *nl
  511. if indorf = 1:
  512. 'Your cries of pleasure echo off the walls of the bathroom as you ride your dildo, thoroughly enjoying yourself and the fact that your family is gone for the weekend.'
  513. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam yourself all the way down onto your dildo and climax hard all over it. Your walls squeeze tight and you can feel the entire shape of the rubber cock inside you. Gasping, quivering, and clenching, you cry out loudly and ride out your orgasm while your voice echos back at you off the walls.'
  514. else
  515. 'You bounce up and down on your dildo, allowing yourself to sofly moan in pleasure, fairly certain that the sound of the shower ought to cover up most of your voice. Maybe it''s just the steam but you feel like you''re enjoying yourself a lot more than you might otherwise.'
  516. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam yourself all the way down onto your dildo and climax hard all over it. Your walls squeeze tight and you can feel the entire shape of the rubber cock inside you. Gasping, quivering, and clenching, you ride out your orgasm while impaled on your bathtub dildo doing your best not to allow your voice escape and let your family know what you''ve been up to.'
  517. end
  518. else
  519. '<i>Haahhh~! Hhhh~! Unnnh~! Unnnh~! Ahhh~!</i>'
  520. *nl
  521. 'Your cries of pleasure echo off the walls of the bathroom as you ride your dildo, thoroughly enjoying yourself and making sure anyone on the other side of the wall knows you''re enjoying yourself too.'
  522. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam yourself all the way down onto your dildo and climax hard all over it. Your walls squeeze tight and you can feel the entire shape of the rubber cock inside you. You cry out loudly in climax, caught in the euphoric bliss of release, before slowly winding down.'
  523. end
  524. else
  525. if $loc = 'vanrPar':
  526. '<i>Hnnn~! Hnnnnhhh~! Nnnnn~! Mmmmm~!</i>'
  527. *nl
  528. 'You continue bouncing up and down on your dildo, unwilling to finish your shower while you''re still enjoying yourself.'
  529. else
  530. '<i>Haahhh~! Hhhh~! Unnnh~! Unnnh~! Ahhh~!</i>'
  531. *nl
  532. 'Your cries of pleasure echo off the walls of the bathroom as you ride your dildo, thoroughly enjoying yourself and making sure anyone on the other side of the wall knows you''re enjoying yourself too.'
  533. end
  534. end
  535. *nl
  536. if pcs_horny >= 90:$orgasm_or = 'yes'
  537. gs'arousal','vaginal_dildo',5
  538. act'Keep masturbating':gt'selfplay','shower_bathtub_suction_dildo_ride'
  539. act'Finish masturbating and dry off':
  540. dildo_timer = 0
  541. gs'arousal','end'
  542. mirror_steam = hour
  543. gt $loc, $loc_arg
  544. end
  545. act'Finish masturbating, unmount your dildo, and get out and dry off':
  546. dildo_timer = 0
  547. gs 'selfplay','bathtub_suction_dildo_remove'
  548. gs'arousal','end'
  549. mirror_steam = hour
  550. gt $loc, $loc_arg
  551. end
  552. end
  553. !! this is riding a dildo mounted on the low wall of a bath tub during a BATH
  554. if $ARGS[0] = 'bath_bathtub_suction_dildo_ride':
  555. vaginal_slip = 10
  556. pcs_horny += 20
  557. gs 'boyStat','D2'
  558. gs 'stat'
  559. '<center><video autoplay loop src="images/shared/home/bathroom/shower_bath_dildo2.mp4"></video></center>'
  560. if dildo_timer = 0:
  561. dildo_timer = 1
  562. dildo_start_minute = minut
  563. dildo_start_hour = hour
  564. end
  565. if pcs_vag = 0:
  566. 'Pulling yourself up out of the bath, you point your ass towards your suction mounted dildo and ease your pussy onto it.'
  567. *nl
  568. 'You wince in pain as it tears through your hymen and you slip, the bathwater sloshing around from your sudden movement. Next thing you know, you''re gasping aloud when you suddenly find yourself ass-to-tub and the entire dildo shoved up your pussy to the hilt.'
  569. *nl
  570. '<i>Ow! Ow! Ow! Ow! I did not mean to take the full length of that thing right away!</i>'
  571. *nl
  572. 'Biting hard on your lip, you give yourself a minute to adjust and let your walls stretch out. Eventually you feel a little braver and you tentatively bounce up and down on it. One bounce becomes two, two becomes twelve, and suddenly you are jumping up and down on it with reckless abandon, creating mini waves in the bathwater and very much enjoying your big rubber cock.'
  573. elseif dildo_start_minute = minut and dildo_start_hour = hour:
  574. 'Pulling yourself out of the bath, you decide it''s time for a different kind of relaxation and ease down onto your bathtub mounted rubber cock.'
  575. if $loc = 'vanrPar':
  576. '<i>Haahhh~! Hhhh~! Unnnh~! Unnnh~! Ahhh~!</i>'
  577. *nl
  578. if indorf = 1:
  579. 'You bounce up and down on your dildo, creating sloshes in the bathwater with your motion and moaning loudly, taking advantage of the fact your family is gone for the weekend.'
  580. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam yourself all the way down onto your dildo and climax hard all over it. Your walls squeeze tight and you can feel the entire shape of the rubber cock inside you. Legs shaking and splashing bathwater everywhere, you ride out your orgasm while impaled on your dildo, crying out in a loud voice that echos off the bathroom walls.'
  581. else
  582. '<i>Haahhh~! Hhhh~! Mmmm~! Unnnh~!</i>'
  583. *nl
  584. 'You bounce up and down on your dildo, creating ripples in the bathwater with your motion. In a very tiny voice, you let out small moans, doing your best but unable to completely hold it.'
  585. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam yourself all the way down onto your dildo and climax hard all over it. Your walls squeeze tight and you can feel the entire shape of the rubber cock inside you. Legs shaking and splashing bathwater everywhere, you ride out your orgasm while impaled on your bathtub dildo taking strained breaths to prevent your voice escaping and let your family know what you''ve been up to.'
  586. end
  587. else
  588. '<i>Haahhh~! Hhhh~! Unnnh~! Unnnh~! Ahhh~!</i>'
  589. *nl
  590. 'Your cries of pleasure echo off the walls of the bathroom as you ride your dildo, thoroughly enjoying yourself and making sure anyone on the other side of the wall knows you''re enjoying yourself too.'
  591. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam yourself all the way down onto your dildo and climax hard all over it. Your walls squeeze tight and you can feel the entire shape of the rubber cock inside you. You cry out loudly in climax, caught in the euphoric bliss of release, before it slowly winds down.'
  592. end
  593. else
  594. if $loc = 'vanrPar':
  595. if indorf = 1:
  596. '<i>Ahh~! Aaahhhh~! Ahhhh~! Aaaaahhhh~!</i>'
  597. *nl
  598. 'You continue bouncing up and down on your dildo, unwilling to finish your shower while you''re still enjoying yourself. Maybe it''s just the steam in the room but your body feels like its on fire right now and you can''t help but cry out loudly, so happy your family is gone for the weekend.'
  599. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam yourself all the way down onto your dildo and climax hard all over it. Your walls squeeze tight and you can feel the entire shape of the rubber cock inside you. Legs shaking and splashing bathwater everywhere, you groan loudly and ride out your orgasm while impaled on your dildo.'
  600. else
  601. '<i>Hnnn~! Hnnnnhhh~! Nnnnn~! Mmmmm~!</i>'
  602. *nl
  603. 'You continue bouncing up and down on your dildo, unwilling to finish your shower while you''re still enjoying yourself. Maybe it''s just the steam in the room but your body feels like its on fire right now and it''s so difficult to not let your voice escape and travel into the hallway.'
  604. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam yourself all the way down onto your dildo and climax hard all over it. Your walls squeeze tight and you can feel the entire shape of the rubber cock inside you. Legs shaking and splashing bathwater everywhere, you ride out your orgasm while impaled on your dildo taking strained breaths to prevent your voice escaping and let your family know what you''ve been up to.'
  605. end
  606. else
  607. '<i>Haahhh~! Hhhh~! Unnnh~! Unnnh~! Ahhh~!</i>'
  608. *nl
  609. 'Your cries of pleasure echo off the walls of the bathroom as you ride your dildo, thoroughly enjoying yourself and making sure anyone on the other side of the wall knows you''re enjoying yourself too.'
  610. end
  611. end
  612. *nl
  613. if pcs_horny >= 90:$orgasm_or = 'yes'
  614. gs'arousal','vaginal_dildo',5
  615. act'Keep masturbating':gt'selfplay','bath_bathtub_suction_dildo_ride'
  616. act'Finish masturbating and dry off':
  617. dildo_timer = 0
  618. gs'arousal','end'
  619. mirror_steam = hour
  620. gt $loc, $loc_arg
  621. end
  622. act'Finish masturbating, unmount your dildo, and get out and dry off':
  623. dildo_timer = 0
  624. gs 'selfplay','bathtub_suction_dildo_remove'
  625. gs'arousal','end'
  626. mirror_steam = hour
  627. gt $loc, $loc_arg
  628. end
  629. end
  630. !! this is using a dildo mounted on WALL the shower in a bathtub during a SHOWER
  631. if $ARGS[0] = 'shower_bathtub_wall_dildo_fuck':
  632. vaginal_slip = 10
  633. pcs_mood += 1
  634. pcs_horny += 20
  635. gs 'boyStat','D2'
  636. gs 'stat'
  637. '<center><video autoplay loop src="images/shared/home/bathroom/shower_dildo2.mp4"></video></center>'
  638. $orgasm_txt = 'You can''t take it anymore and throw yourself as far back onto the dildo as you can, impaling yourself to the hilt on it. Spraying your clit with the showerhead, you don''t stop even when your orgasm makes you a quivering mess, standing up on your tip toes as pleasure rocks your entire body.'
  639. if dildo_timer = 0:
  640. dildo_timer = 1
  641. dildo_start_minute = minut
  642. dildo_start_hour = hour
  643. end
  644. if pcs_vag = 0:
  645. 'Leaving the shower running, you bend over, pointing your bottom towards your wall mounted dildo. You figure it''s time that you test this thing out.'
  646. *nl
  647. 'Lining it up with your pussy, you slowly push yourself back onto it, feeling it stretch you and penetrate you until you feel it bumping against your hymen. After taking a deep breath, you force your ass backward, immediately letting out a whimper of pain when you feel it tear through your maidenhood.'
  648. *nl
  649. 'Biting hard on your lip, you give yourself a minute to adjust and let your walls stretch out. Eventually you feel a little braver and you tentatively slide off of it and then push back on again. With big long strokes, you pull all the way off and then push slowly back on until your filled and you feel your ass touching the wall. Soon it starts to feel good, and you pick up the pace. And then you grab the shower head and start spraying your clit with it while you slam yourself back on forth on your rubber cock.'
  650. *nl
  651. '<i>Ohhhhhh yeahhhhhh.... I could get used to this...</i>'
  652. elseif dildo_start_minute = minut and dildo_start_hour = hour:
  653. if $loc = 'vanrPar':
  654. 'Using the wall of the tub as leverage, you breathe hard as you push your ass back and forth on the dildo mounted on the wall. Hot water from the shower rains down and steam fills the air and you to play tag with the bathtub wall, repeatedly tapping it with the back of your ass while your pussy gets stuffed with rubber.'
  655. *nl
  656. if indorf = 1:
  657. '<b>thump</b><b>thump</b><b>thump</b><b>thump'
  658. *nl
  659. '<i>Ahh~! Aaahhhh~! Ahhhh~! Aaaaahhhh~!</i>'
  660. *nl
  661. 'The echos of your moans and your ass bounce off the shower walls as you happily take advantage of the fact your family is away for the weekend.'
  662. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam your ass all the way to the wall and climax hard all over your dildo. Your walls squeeze tight and you can perfectly feel the shape of the entire rubber cock inside you. Legs shaking and knees trying not to buckle, you ride out your orgasm while impaled on your shower dildo, screaming out an orgasm that can probably be heard from your room.'
  663. else
  664. '<i>Haahhh~! Hhhh~! Mmmm~! Unnnh~!</i>'
  665. *nl
  666. 'Though whimpers and gasps escape your lips, you do your best to keep your voice under control so your family doesn''t catch you masturbating in the shower.'
  667. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam your ass all the way to the wall and climax hard all over your dildo. Your walls squeeze tight and you can perfectly feel the shape of the entire rubber cock inside you. Legs shaking and knees trying not to buckle, you ride out your orgasm while impaled on your shower dildo, taking gasping breaths instead of screaming and letting your family know what you''ve been up to.'
  668. end
  669. else
  670. '<b>thump</b><b>thump</b><b>thump</b><b>thump'
  671. *nl
  672. '<i>Haahhh~! Hhhh~! Unnnh~! Unnnh~! Ahhh~!</i>'
  673. *nl
  674. 'Your cries of pleasure echo off the walls of the bathroom as you slap your ass back and forth against the shower wall, thorougly enjoying the dildo that''s pumping in and out of you right now.'
  675. $orgasm_txt = 'Pleasure and heat build between your legs until finally you slam your ass all the way to the wall and climax hard all over your dildo. Your walls squeeze tight and you can perfectly feel the shape of the entire rubber cock inside you. You cry out loudly in climax, legs shaking and knees trying not to buckle, as you ride out your orgasm caught in euphoric bliss.'
  676. end
  677. else
  678. if $loc = 'vanrPar':
  679. if indorf = 1:
  680. '<b>thump</b><b>thump</b><b>thump</b><b>thump'
  681. *nl
  682. '<i>Ahh~! Aaahhhh~! Ahhhh~! Aaaaahhhh~!</i>'
  683. *nl
  684. 'The shower keeps raining down on you just as you keep fucking your wall mounted dildo, making squelching noises as you occassionally slide it up and down with the force of your thrusts. Loud gasps escape your lips and you are so happy your family isn''t here right now.'
  685. else
  686. '<i>Hnnn~! Hnnnnhhh~! Nnnnn~! Mmmmm~!</i>'
  687. *nl
  688. 'You''re not done yet. The shower keeps raining down on you just as you keep fucking your wall mounted dildo, making squelching noises as you occassionally slide it up and down with the force of your thrusts. Maybe it''s just the steam in the room but your body feels like its on fire right now and it''s so difficult to not let your voice escape and travel into the hallway.'
  689. end
  690. else
  691. '<i><b>thump</b></i> <i><b>thump</b></i> <i><b>thump</b></i> <i><b>thump</b></i>'
  692. '<i>Haahhh~! Hhhh~! Unnnh~! Unnnh~! Ahhh~!</i>'
  693. *nl
  694. 'Your cries of pleasure echo off the walls of the bathroom as you ride your dildo, thoroughly enjoying yourself and making sure anyone on the other side of the wall knows you''re enjoying yourself too.'
  695. end
  696. end
  697. *nl
  698. if pcs_horny >= 90:$orgasm_or = 'yes'
  699. gs'arousal','vaginal_dildo',5
  700. act'Keep masturbating':gt'selfplay','shower_bathtub_wall_dildo_fuck'
  701. act'Finish masturbating and dry off':
  702. dildo_timer = 0
  703. mirror_steam = hour
  704. gs'arousal','end'
  705. gt $loc, $loc_arg
  706. end
  707. act'Finish masturbating, unmount your dildo, and get out and dry off':
  708. dildo_timer = 0
  709. gs 'selfplay','shower_suction_dildo_remove'
  710. mirror_steam = hour
  711. gs'arousal','end'
  712. gt $loc, $loc_arg
  713. end
  714. end
  715. !! this is for using a dildo mounted of the glass WALL of a SHOWER with no tub
  716. if $ARGS[0] = 'glass_shower_suction_dildo_fuck':
  717. pcs_mood += 1
  718. pcs_horny += 20
  719. vaginal_slip = 10
  720. gs 'boyStat','D2'
  721. gs 'stat'
  722. '<center><video autoplay loop src="images/shared/home/bathroom/shower_dildo1.mp4"></video></center>'
  723. $orgasm_txt = 'You can''t take it anymore and throw yourself as far back onto the dildo as you can, impaling yourself to the hilt on it. Spraying your clit with the showerhead, you don''t stop even when your orgasm makes you a quivering mess, standing up on your tip toes as pleasure rocks your entire body.'
  724. if dildo_timer = 0:
  725. dildo_timer = 1
  726. dildo_start_minute = minut
  727. dildo_start_hour = hour
  728. end
  729. if pcs_vag = 0:
  730. 'Moving your bottom over towards your wall mounted dildo, you figure it''s time that you test this thing out.'
  731. *nl
  732. 'Lining it up with your pussy, you slowly push yourself back onto it, feeling it stretch you and penetrate you until you feel it bumping against your hymen. After taking a deep breath, you force your ass backward, immediately letting out a whimper of pain when you feel it tear through your maidenhood.'
  733. *nl
  734. 'Biting hard on your lip, you give yourself a minute to adjust and let your walls stretch out. Eventually you feel a little braver and you tentatively slide off of it and then push back on again. With big long strokes, you pull all the way off and then push slowly back on until your filled and you feel your ass touching the wall. Soon it starts to feel good, and you pick up the pace. And then you grab the shower head and start spraying your clit with it while you slam yourself back on forth on your rubber cock.'
  735. *nl
  736. '<i>Ohhhhhh yeahhhhhh.... I could get used to this...</i>'
  737. elseif dildo_start_minute = minut and dildo_start_hour = hour:
  738. '"Haahhh~!" <i>thump</i> "Hhhh~!" <i>thump</i> "Unnnh~!" <i>thump</i> "Unnnh~!" <i>thump</i> "Ahhh~!"'
  739. *nl
  740. 'Cries of pleasure echo inside the shower, as you repeatedly slam yourself back against your wall mounted dildo. Your ass makes a thumping sound every time you drive yourself to the base of the dildo and the only other sound is the white noise of the shower head spraying against your clit.'
  741. else
  742. '"Anngh~!" <i><b>thump</b></i> "Hnnngh~!" <i><b>thump</b></i> "Unnngh~!" <i><b>thump</b></i> "Mmmnngh~!" <i><b>thump</b></i> "Ahhh~!!</i>'
  743. *nl
  744. 'The thump of your ass against the wall is even louder now, but your voice too. In the far back of your mind, you vaguely wonder how awkward it might be if you have to explain to the landlord you shattered the shower by fucking a rubber cock you suctioned to it.'
  745. end
  746. *nl
  747. if pcs_horny >= 90:$orgasm_or = 'yes'
  748. gs'arousal','masturbate',-5
  749. gs'arousal','vaginal_dildo',5
  750. act'Keep masturbating':gt'selfplay','glass_shower_suction_dildo_fuck'
  751. act'Finish masturbating and dry off':
  752. dildo_timer = 0
  753. mirror_steam = hour
  754. gs'arousal','end'
  755. gt $loc, $loc_arg
  756. end
  757. act'Finish masturbating, unmount your dildo, and get out and dry off':
  758. dildo_timer = 0
  759. gs 'selfplay','shower_suction_dildo_remove'
  760. mirror_steam = hour
  761. gs'arousal','end'
  762. gt $loc, $loc_arg
  763. end
  764. end
  765. if $ARGS[0] = 'sis_prov':
  766. $AnyaMsg = ''
  767. if $loc = 'bedrPar' and (hour >= 7 or hour < 23):
  768. gs 'family'
  769. if sister_indorf = 0:
  770. if sisterHere = 0 and proverkasisterhere = 0:proverkasisterhere = 1
  771. if sisterHere > 0:
  772. cls
  773. if sisboytrio > 0 and sis_watch = 1:
  774. sis_watch = 2
  775. $AnyaMsg = 'Anya smiles as she enters the room and waves at you to carry on.'
  776. else
  777. if proverkasisterhere = 2 and RAND(1,3) = 3:
  778. SisterKnowMastr += 1
  779. $AnyaMsg = '<font color="red"><b>Anya saw you masturbate.</b></font>'
  780. end
  781. if proverkasisterhere = 1:
  782. proverkasisterhere = 2
  783. $AnyaMsg = '<font color="red"><b>You hear footsteps approaching your room.</b></font>'
  784. end
  785. end
  786. end
  787. end
  788. end
  789. end
  790. ! WD: Masturbating at night only has 10% chance to be discovered
  791. if $ARGS[0] = 'van_vtor':
  792. if indorf = 0 and (hour >= 6 or Rand(1, 10) = 1):
  793. cls
  794. pcs_horny -= 50
  795. pcs_mood -= 10
  796. gs 'stat'
  797. 'You hear shouting from outside the bathroom: "<<$pcs_nickname>>! Are you drowning in there or something? What''s taking so long? Get out of there!"'
  798. act 'Get out of the bath and dry yourself off':
  799. gt 'selfplay', 'stop'
  800. end
  801. exit
  802. else
  803. selfplaytime -= 15
  804. end
  805. end
  806. if $ARGS[0] = 'fingering':
  807. act 'Put a finger inside your vagina':
  808. cls
  809. selfplaytime += 2
  810. gs 'selfplay', 'sis_prov'
  811. gs 'stat'
  812. '<center><img <<$set_imgh>> src="images/shared/sex/mast/finger.jpg"></center>'
  813. if pcs_vag = 0 and mesec <= 0:
  814. 'You let your fingers dart over your soft and wet pussy lips, before gradually attempting to slide your finger into your pussy. You feel your hymen stretch a little as you slide first one and then a second finger inside.'
  815. gs 'arousal', 'masturbate', 2
  816. gs 'stat'
  817. gs 'selfplay', 'fingering2'
  818. elseif pcs_vag > 0:
  819. 'You slide one finger into your vagina, and then another.'
  820. if pcs_vag < 5:
  821. pcs_horny += rand(2, 5)
  822. 'You feel your pussy clasping around your fingers very tightly.'
  823. elseif pcs_vag < 10:
  824. pcs_horny += rand(5, 10)
  825. 'You feel your slippery pussy walls around your fingers. It feels nice and tight.'
  826. else
  827. pcs_horny += rand(2, 5)
  828. 'Having your fingers in your pussy feels nice, but it doesn''t feel very tight. You feel like you can take more.'
  829. end
  830. gs 'arousal', 'masturbate', 2
  831. gs 'stat'
  832. '<<$AnyaMsg>>'
  833. if org_temp = orgasm: gs 'selfplay', 'fingering2'
  834. elseif mesec > 0:
  835. pcs_mood -= 5
  836. 'Your vagina has some dried up blood from your period on it. You attempt to shove your finger in, but then are kind of grossed out by the idea and reconsider.'
  837. end
  838. act 'Stop touching yourself':gt 'selfplay', 'stop'
  839. end
  840. end
  841. if $ARGS[0] = 'fingering2':
  842. act 'Fuck your fingers':
  843. cls
  844. selfplaytime += 10
  845. gs 'selfplay', 'sis_prov'
  846. '<center><img <<$set_imgh>> src="images/shared/sex/mast/finger.jpg"></center>'
  847. if args[1] = 1:
  848. 'You continue fucking yourself with your fingers, massaging and squeezing your breasts.'
  849. else
  850. 'You start moving your fingers in and out, softly pinching your nipples as you play with yourself.'
  851. end
  852. *nl
  853. if pcs_vag <= 12:'Your pussy walls are stretched nicely from the finger fucking, and you feel a pleasant warmth spread in your lower body.'
  854. if pcs_vag > 12:'Your pussy is quite loose, and you have to work hard to get much enjoyment out of it.'
  855. gs 'arousal', 'masturbate', 10
  856. gs 'stat'
  857. '<<$AnyaMsg>>'
  858. gs 'selfplay', 'fingering2', 1
  859. if org_temp = orgasm and pcs_vag > 0: gs 'selfplay', 'fingering3'
  860. act 'Stop touching yourself':gt 'selfplay', 'stop'
  861. end
  862. end
  863. if $ARGS[0] = 'fingering3':
  864. act 'Thrust all of your fingers into your vagina':
  865. cls
  866. selfplaytime += 2
  867. gs 'selfplay', 'sis_prov'
  868. '<center><img <<$set_imgh>> src="images/shared/sex/mast/hand.jpg"></center>'
  869. 'You shove all your fingers inside your pussy.'
  870. if pcs_vag < 10:
  871. if vgape = 2:vgape = 3
  872. if vgape = 1:vgape = 2
  873. if vgape = 0:vgape = 1
  874. pcs_horny -= 10
  875. pcs_mood -= 10
  876. 'You shove all your fingers inside your tight pussy, and feel it stretch out way more than it should. It''s rather painful.'
  877. elseif pcs_vag < 15:
  878. pcs_horny += rand(1, 3)
  879. 'You shove all your fingers inside your tight pussy, feeling your pussy grip them tightly. It doesn''t hurt, but doesn''t feel very good either.'
  880. elseif pcs_vag < 20:
  881. pcs_horny += rand(3, 6)
  882. 'You shove all your fingers inside your tight pussy, feeling your pussy grip them tightly.'
  883. else
  884. pcs_horny += rand(6, 12)
  885. 'You stick all of your fingers in your pussy, and feel how your vagina envelops them nicely. You get a pleasant feeling of fullness.'
  886. end
  887. if pcs_vag < 15:vaginaTemp += 1
  888. gs 'arousal', 'masturbate', 2
  889. gs 'stat'
  890. '<<$AnyaMsg>>'
  891. if org_temp = orgasm:
  892. act 'Fuck yourself with your fingers':
  893. cls
  894. selfplaytime += 10
  895. gs 'selfplay', 'sis_prov'
  896. if pcs_vag < 10:
  897. if vgape = 2:vgape = 3
  898. if vgape = 1:vgape = 2
  899. if vgape = 0:vgape = 1
  900. pcs_horny -= 10
  901. pcs_mood -= 10
  902. end
  903. '<center><img <<$set_imgh>> src="images/shared/sex/mast/hand.jpg"></center>'
  904. 'You start to slowly move your hand, thrusting your fingers into your pussy again and again.'
  905. gs 'arousal', 'masturbate', 10
  906. gs 'stat'
  907. if pcs_vag <= 15:pcs_horny -= 10 & pcs_mood -= 10 & 'You''re stretching your pussy to the point where it becomes rather painful, and don''t get any enjoyment out of it.'
  908. if pcs_vag > 10:pcs_horny += rand(10, 20) & 'Your pussy walls are stretched nicely from the finger fucking, and you feel a pleasant warmth spread in your lower body.'
  909. gs 'stat'
  910. if pcs_vag < 20:vaginaTemp += 1
  911. '<<$AnyaMsg>>'
  912. gs 'selfplay', 'fingering3'
  913. act 'Stop touching yourself':gt 'selfplay', 'stop'
  914. end
  915. else
  916. act 'Stop touching yourself':gt 'selfplay', 'stop'
  917. end
  918. end
  919. act 'Stop touching yourself':gt 'selfplay', 'stop'
  920. end
  921. if $ARGS[0] = 'stop':
  922. analplay = 0
  923. selfplaytime = 0
  924. mastrOnce = 0
  925. proverkasisterhere = 0
  926. if vaginaTemp > pcs_vag * 2:pcs_vag += 1 & vaginaTemp = 0
  927. gs 'arousal', 'end'
  928. gs 'stat'
  929. gt $loc, $loc_arg
  930. end
  931. --- selfplay ---------------------------------