dinSex.qsrc 50 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242
  1. # dinSex
  2. $dinrandbj = {
  3. tperbjran = rand(0, 3)
  4. if tperbjran = 0:$tperbj = 'Your <<$liptalk>> wraps around <<$xyr>> <<dick>> centimeter member'
  5. if tperbjran = 1:$tperbj = 'Your <<$liptalk>> clasps <<$xyr>> the purple head of the <<dick>> centimeter member'
  6. if tperbjran = 2:$tperbj = 'You hold your <<$liptalk>> on the head of <<$xyr>> <<dick>> centimeter member and pull it into your mouth'
  7. if tperbjran = 3:$tperbj = 'The <<dick>> centimeter dick rests between your <<$liptalk>>, you open them slightly and let the dick in your mouth.'
  8. if tperbjran = 4:$tperbj = ''
  9. if tperbjran = 5:$tperbj = ''
  10. tperbjran2 = rand(0, 2)
  11. if tperbjran2 = 0:$tperbj2 = 'Your mouth quickly opens and is filled by a slightly salty and hard cock, which you start to suck.'
  12. if tperbjran2 = 1:$tperbj2 = 'The big cock inside your mouth grows hard and hot, and you start sucking'
  13. if tperbjran2 = 2:$tperbj2 = 'The hard cock around your <<$liptalk>> is filling your whole mouth and with every move it''s going down your throat.'
  14. if tperbjran2 = 3:$tperbj2 = ''
  15. if tperbjran2 = 4:$tperbj2 = ''
  16. if tperbjran2 = 5:$tperbj2 = ''
  17. '<<$tperbj>>. <<$tperbj2>>'
  18. }
  19. $dinrandswallow = {
  20. tperswalrand = rand(0, 2)
  21. if tperswalrand = 0:$tperswal = 'Suddenly shots of viscous semen fill your mouth.'
  22. if tperswalrand = 1:$tperswal = 'The cock twitches and jets of sperm fly between your lips into your mouth.'
  23. if tperswalrand = 2:$tperswal = 'Your mouth is filled with sperm and you move back to allow the dick to slide out.'
  24. tperswalrand2 = rand(0, 2)
  25. if tperswalrand2 = 0:$tperswal2 = 'Your mouth quickly fills with warm sperm and you feel its sharp taste.'
  26. if tperswalrand2 = 1:$tperswal2 = 'Your mouth fills with cum and begins to run down your <<$liptalk2>>'
  27. if tperswalrand2 = 2:$tperswal2 = 'Hot seed quickly fills your mouth, making you experience the whole stale and sharp taste of sperm.'
  28. tperswalrand3 = rand(0, 2)
  29. if tperswalrand3 = 0:$tperswal3 = 'You gulp and swallow the sperm filling your mouth. The taste of semen stays in your mouth and you can smell <<$xyr>> scent.'
  30. if tperswalrand3 = 1:$tperswal3 = 'You swallow the warm cum that fills your mouth and lick the remnants of the seed with your <<$liptalk3>>.'
  31. if tperswalrand3 = 2:$tperswal3 = 'You swallow the viscous semen that is filling your mouth, and then lick your lips to make sure you don''t leave a single drop.'
  32. '<<$tperswal>> <<$tperswal2>> <<$tperswal3>>'
  33. }
  34. $venerasiak = {
  35. tipvenerarand = rand(0, 10)
  36. if protect = 1:
  37. venrand = rand(0, 1000)
  38. if venrand = 1000: dynamic $veneradinitog
  39. else
  40. venrand = rand(0, 100)
  41. if venrand >= 80:dynamic $veneradinitog
  42. end
  43. }
  44. $venerasiakOral = {
  45. tipvenerarand = rand(0, 10)
  46. if protect = 1:
  47. venrand = rand(0, 1000)
  48. if venrand = 1000: dynamic $veneradinitogOral
  49. else
  50. venrand = rand(0, 100)
  51. if venrand >= 80:dynamic $veneradinitogOral
  52. end
  53. }
  54. $veneradinitogOral = {
  55. if cheatHealth = 0:
  56. if tipvenerarand >= 5 and tipvenerarand < 7:
  57. if rand(1, 100) > 95: Venera += 1
  58. if TriperOnce = 0:
  59. TriperOnce = 1
  60. TriperOral += 1
  61. if rand (0,100) < 15: TriperOralSigns = 1
  62. end
  63. elseif tipvenerarand = 7:
  64. if rand(0,1) = 1:
  65. !!syphilis
  66. if rand(1, 100) > 95: Venera += 1
  67. if SifacOnce = 0:
  68. SifacOnce = 1
  69. Sifilis += 1
  70. end
  71. end
  72. elseif tipvenerarand < 5:
  73. !!candidiasis/thrush
  74. if rand(1, 100) > 85:
  75. if KandidozOnce = 0:
  76. KandidozOnce = 1
  77. Kandidoz += 1
  78. end
  79. end
  80. elseif tipvenerarand = 8:
  81. !!herpes
  82. if rand(1, 100) > 90:
  83. if GerpesOnce = 0:
  84. GerpesOnce = 1
  85. Venera += 1
  86. Gerpes += 1
  87. OrHerpes = 1
  88. end
  89. end
  90. end
  91. end
  92. }
  93. $veneradinitog = {
  94. if cheatHealth = 0:
  95. if tipvenerarand = 8:
  96. !!herpes
  97. if rand(1, 100) > 90:
  98. if GerpesOnce = 0:
  99. GerpesOnce = 1
  100. Venera += 1
  101. Gerpes += 1
  102. GenHerpes = 1
  103. end
  104. end
  105. elseif tipvenerarand = 7:
  106. !!syphilis
  107. if rand(1, 100) > 95: Venera += 1
  108. if SifacOnce = 0:
  109. SifacOnce = 1
  110. Sifilis += 1
  111. end
  112. elseif tipvenerarand >= 5 and tipvenerarand < 7:
  113. !!gonorrhea/triper
  114. if rand(1, 100) > 95: Venera += 1
  115. if TriperOnce = 0:
  116. TriperOnce = 1
  117. Triper += 1
  118. end
  119. elseif tipvenerarand < 5:
  120. !!candidiasis/thrush
  121. if rand(1, 100) > 85:
  122. if KandidozOnce = 0:
  123. KandidozOnce = 1
  124. Kandidoz += 1
  125. end
  126. end
  127. end
  128. end
  129. }
  130. $sexstart = {
  131. protect = 0
  132. vidageday -= 1
  133. if prezik > 0:
  134. dynamic $prezik
  135. protect = 1
  136. if preziktype = 2:
  137. sexcontra = 7
  138. '<<$boydesc>> takes your sabotaged condom and puts it on <<$xyr>> <<dick>> centimeter member.'
  139. else
  140. sexcontra = 3
  141. '<<$boydesc>> takes your condom and puts it on <<$xyr>> <<dick>> centimeter member.'
  142. end
  143. else
  144. sexcontra = 0
  145. end
  146. }
  147. $sexstart2 = {
  148. frost = 0
  149. if cycle <= 0:
  150. !!Menstruation makes orgasm impossible
  151. pcs_horny = 0
  152. pcs_mood -= 10
  153. pcs_willpwr -= 10
  154. 'Menstruation blood slowly flows from your vagina while <<$xe>> fucks you. It feels painful and also pleasant. You moan while <<$xyr>> <<dick>> centimeter dick fucks your pussy.'
  155. elseif cycle > 0 and pcs_vag > 0:
  156. !!No Menstruatsion
  157. !!horny - excitement
  158. !!pcs_vag - vagina elasticity
  159. !!silavag - male skill:0-clumsy, 1-middle, 2-stud
  160. !!dick - <<$xyr>> penis size
  161. !!orgazm - what kind of orgasm
  162. !!0 - very painful, 1 - hurts, 2 - unpleasant, 3 - so-so, 4 - little orgasm, 5 - orgasm, 6- little orgasm
  163. smazka = pcs_horny / 10
  164. prinat = smazka + pcs_vag
  165. if dick >= prinat * 2:
  166. !!member of the critical features more years
  167. if silavag = 0: orgazm = 0
  168. if silavag = 1: orgazm = 1
  169. if silavag = 2: orgazm = 2
  170. elseif dick < prinat * 2 and dick > prinat:
  171. !!member more options gg
  172. if silavag = 0:
  173. if pcs_horny >= 100: orgazm = 5
  174. if pcs_horny >= 90 and pcs_horny < 100: orgazm = 4
  175. if pcs_horny >= 80 and pcs_horny < 90: orgazm = 3
  176. if pcs_horny >= 70 and pcs_horny < 80: orgazm = 2
  177. if pcs_horny >= 60 and pcs_horny < 70: orgazm = 1
  178. if pcs_horny < 60: orgazm = 0
  179. elseif silavag = 1:
  180. if pcs_horny >= 90: orgazm = 5
  181. if pcs_horny >= 80 and pcs_horny < 90: orgazm = 4
  182. if pcs_horny >= 70 and pcs_horny < 80: orgazm = 3
  183. if pcs_horny >= 60 and pcs_horny < 70: orgazm = 2
  184. if pcs_horny >= 50 and pcs_horny < 60: orgazm = 1
  185. if pcs_horny < 50: orgazm = 0
  186. elseif silavag = 2:
  187. if pcs_horny >= 80: orgazm = 5
  188. if pcs_horny >= 70 and pcs_horny < 80: orgazm = 4
  189. if pcs_horny >= 60 and pcs_horny < 70: orgazm = 3
  190. if pcs_horny >= 50 and pcs_horny < 60: orgazm = 2
  191. if pcs_horny >= 40 and pcs_horny < 50: orgazm = 1
  192. if pcs_horny < 40: orgazm = 0
  193. end
  194. elseif dick <= prinat and dick >= pcs_vag:
  195. !!Member fewer opportunities gg
  196. if silavag = 0:
  197. if pcs_horny >= 80: orgazm = 5
  198. if pcs_horny >= 60 and pcs_horny < 80: orgazm = 4
  199. if pcs_horny >= 40 and pcs_horny < 60: orgazm = 3
  200. if pcs_horny < 40: orgazm = 2
  201. elseif silavag = 1:
  202. if pcs_horny >= 70: orgazm = 5
  203. if pcs_horny >= 50 and pcs_horny < 70: orgazm = 4
  204. if pcs_horny >= 30 and pcs_horny < 50: orgazm = 3
  205. if pcs_horny < 30: orgazm = 2
  206. elseif silavag = 2:
  207. if pcs_horny >= 60: orgazm = 5
  208. if pcs_horny >= 40 and pcs_horny < 60: orgazm = 4
  209. if pcs_horny >= 20 and pcs_horny < 40: orgazm = 3
  210. if pcs_horny < 20: orgazm = 2
  211. end
  212. elseif dick <= prinat and dick < pcs_vag:
  213. if silavag = 0:
  214. if pcs_horny >= 100: orgazm = 5
  215. if pcs_horny >= 90 and pcs_horny < 100: orgazm = 4
  216. if pcs_horny < 90: orgazm = 6
  217. elseif silavag = 1:
  218. if pcs_horny >= 90: orgazm = 5
  219. if pcs_horny >= 80 and pcs_horny < 90: orgazm = 4
  220. if pcs_horny < 80: orgazm = 6
  221. elseif silavag = 2:
  222. if pcs_horny >= 80: orgazm = 5
  223. if pcs_horny >= 70 and pcs_horny < 80: orgazm = 4
  224. if pcs_horny < 70: orgazm = 6
  225. end
  226. end
  227. if oragazm = 5:
  228. preOrg += 1
  229. if razeba < 4:
  230. if silavag = 2:
  231. orgrand = rand(50, 300)
  232. if orgrand > preOrg: oragazm = 4
  233. elseif silavag < 2:
  234. oragazm = 4
  235. end
  236. elseif razeba = 4:
  237. if silavag = 2:
  238. orgrand = rand(0, 100)
  239. if orgrand > preOrg: oragazm = 4
  240. elseif silavag < 2:
  241. orgrand = rand(50, 300)
  242. if orgrand > preOrg: oragazm = 4
  243. end
  244. elseif razeba >= 5:
  245. if silavag = 2:
  246. orgrand = rand(0, 50)
  247. if orgrand > preOrg: oragazm = 4
  248. elseif silavag < 2:
  249. orgrand = rand(0, 100)
  250. if orgrand > preOrg: oragazm = 4
  251. end
  252. end
  253. end
  254. if orgazm = 0:
  255. vgape = 3
  256. pcs_horny = 0
  257. pcs_mood -= 15
  258. pcs_willpwr -= 15
  259. 'You groan in pain when <<$boydesc>> penetrates your pussy. Tears flow from your eyes and it feels like someone drove a red-hot poker in your vagina. You cry and moan while <<$xyr>> strong <<dick>> centimeter dick fucks your pussy.'
  260. elseif orgazm = 1:
  261. if vgape < 2:vgape = 2
  262. pcs_horny -= 10
  263. pcs_mood -= 10
  264. pcs_willpwr -= 10
  265. 'You bite your lip in pain when <<$boydesc>> enters, it is very painful. You frown and moan in pain while <<$xyr>> strong <<dick>> centimeter dick fucks your pussy.'
  266. elseif orgazm = 2:
  267. if vgape < 1:vgape = 1
  268. pcs_horny -= 5
  269. pcs_mood -= 5
  270. pcs_willpwr -= 5
  271. 'You wince at the sudden pain when <<$boydesc>> enters, it hurts but it gradually becomes quite tolerable. You are trying to get aroused while <<$xyr>> <<dick>> centimeter dick fucks your pussy, but you do not succeed.'
  272. elseif orgazm = 3:
  273. pcs_mood += 5
  274. pcs_willpwr += 5
  275. 'You are startled by the feeling that your pussy is stretching when <<$boydesc>> enters you. It feels good when <<$xyr>> <<dick>> centimeter dick fucks your pussy.'
  276. elseif orgazm = 4:
  277. pcs_horny += 10
  278. pcs_mood += 10
  279. pcs_willpwr += 10
  280. 'You are startled by the feeling that your pussy is stretching as <<$boydesc>> enters you. It feels good when <<$xyr>> strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreases a little and remains like that until the end.'
  281. elseif orgazm = 5:
  282. pcs_horny = 0
  283. pcs_mood += 15
  284. pcs_willpwr += 15
  285. orgasm += 1
  286. vaginalOrgasm += 1
  287. 'You flinched from a pleasant feeling when your pussy is stretched by <<$xyr>> dick. It feels good when <<$xyr>> <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling becomes unbearable and your entire body is covered with hot waves of orgasm, you scream with pleasure.'
  288. elseif orgazm = 6:
  289. pcs_horny += 5
  290. pcs_mood += 5
  291. pcs_willpwr += 5
  292. 'You can feel <<$xyr>> penis entering your pussy. This feels nice between your legs, but <<$xyr>> <<dick>> cm dick is significantly less than what your pussy needs. This is not enough for you. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreases a little and remains like that until the end.'
  293. end
  294. if pcs_vag = 0:
  295. pcs_horny = 0
  296. pcs_mood -= 15
  297. pcs_willpwr -= 15
  298. pcs_vag += 1
  299. 'You are biting your <<$liptalk>> in pain and tears start to flow from your eyes when <<$boydesc>> enters, breaking your hymen. You moan while crying and <<$xyr>> <<dick>> centimeter dick fucks your bloody pussy.'
  300. elseif pcs_vag <= dick:
  301. pcs_vag += 1
  302. end
  303. end
  304. if pcs_vag < dick: pcs_vag += 1
  305. cumprecheck = 1
  306. gs 'cum_manage'
  307. }
  308. $sexstart3 = {
  309. frost = 0
  310. if cycle <= 0:
  311. !!periods, orgasm is not possible
  312. pcs_horny = 0
  313. pcs_mood -= 10
  314. pcs_willpwr -= 10
  315. 'You have your period and blood slowly flows from your vagina while you move on <<$xyr>> dick. This is giving you painful and pleasant sensations .You moan while <<$xyr>> strong <<dick>> centimeter penis fucks you.'
  316. elseif cycle > 0 and pcs_vag > 0:
  317. !!no monthly
  318. !!horny - excitement
  319. !!pcs_vag - the elasticity of the vagina
  320. !!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
  321. !!dick - penis Man
  322. !!orgazm - Total coefficient of pleasure
  323. !!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
  324. smazka = pcs_horny / 10
  325. prinat = smazka + pcs_vag
  326. if dick >= prinat * 2:
  327. !!member of the critical features more years
  328. if silavag = 0:orgazm = 0
  329. if silavag = 1:orgazm = 1
  330. if silavag = 2:orgazm = 2
  331. elseif dick < prinat * 2 and dick > prinat:
  332. !!member more options gg
  333. if silavag = 0:
  334. if pcs_horny >= 100:orgazm = 5
  335. if pcs_horny >= 90 and pcs_horny < 100:orgazm = 4
  336. if pcs_horny >= 80 and pcs_horny < 90:orgazm = 3
  337. if pcs_horny >= 70 and pcs_horny < 80:orgazm = 2
  338. if pcs_horny >= 60 and pcs_horny < 70:orgazm = 1
  339. if pcs_horny < 60:orgazm = 0
  340. elseif silavag = 1:
  341. if pcs_horny >= 90:orgazm = 5
  342. if pcs_horny >= 80 and pcs_horny < 90:orgazm = 4
  343. if pcs_horny >= 70 and pcs_horny < 80:orgazm = 3
  344. if pcs_horny >= 60 and pcs_horny < 70:orgazm = 2
  345. if pcs_horny >= 50 and pcs_horny < 60:orgazm = 1
  346. if pcs_horny < 50:orgazm = 0
  347. elseif silavag = 2:
  348. if pcs_horny >= 80:orgazm = 5
  349. if pcs_horny >= 70 and pcs_horny < 80:orgazm = 4
  350. if pcs_horny >= 60 and pcs_horny < 70:orgazm = 3
  351. if pcs_horny >= 50 and pcs_horny < 60:orgazm = 2
  352. if pcs_horny >= 40 and pcs_horny < 50:orgazm = 1
  353. if pcs_horny < 40:orgazm = 0
  354. end
  355. elseif dick <= prinat and dick >= pcs_vag:
  356. !!Member fewer opportunities gg
  357. if silavag = 0:
  358. if pcs_horny >= 80:orgazm = 5
  359. if pcs_horny >= 60 and pcs_horny < 80:orgazm = 4
  360. if pcs_horny >= 40 and pcs_horny < 60:orgazm = 3
  361. if pcs_horny < 40:orgazm = 2
  362. elseif silavag = 1:
  363. if pcs_horny >= 70:orgazm = 5
  364. if pcs_horny >= 50 and pcs_horny < 70:orgazm = 4
  365. if pcs_horny >= 30 and pcs_horny < 50:orgazm = 3
  366. if pcs_horny < 30:orgazm = 2
  367. elseif silavag = 2:
  368. if pcs_horny >= 60:orgazm = 5
  369. if pcs_horny >= 40 and pcs_horny < 60:orgazm = 4
  370. if pcs_horny >= 20 and pcs_horny < 40:orgazm = 3
  371. if pcs_horny < 20:orgazm = 2
  372. end
  373. elseif dick <= prinat and dick < pcs_vag:
  374. if silavag = 0:
  375. if pcs_horny >= 100:orgazm = 5
  376. if pcs_horny >= 90 and pcs_horny < 100:orgazm = 4
  377. if pcs_horny < 90:orgazm = 6
  378. elseif silavag = 1:
  379. if pcs_horny >= 90:orgazm = 5
  380. if pcs_horny >= 80 and pcs_horny < 90:orgazm = 4
  381. if pcs_horny < 80:orgazm = 6
  382. elseif silavag = 2:
  383. if pcs_horny >= 80:orgazm = 5
  384. if pcs_horny >= 70 and pcs_horny < 80:orgazm = 4
  385. if pcs_horny < 70:orgazm = 6
  386. end
  387. end
  388. if oragazm = 5:
  389. preOrg += 1
  390. if razeba < 4:
  391. if silavag = 2:
  392. orgrand = rand(50, 300)
  393. if orgrand > preOrg:oragazm = 4
  394. elseif silavag < 2:
  395. oragazm = 4
  396. end
  397. elseif razeba = 4:
  398. if silavag = 2:
  399. orgrand = rand(0, 100)
  400. if orgrand > preOrg:oragazm = 4
  401. elseif silavag < 2:
  402. orgrand = rand(50, 300)
  403. if orgrand > preOrg:oragazm = 4
  404. end
  405. elseif razeba >= 5:
  406. if silavag = 2:
  407. orgrand = rand(0, 50)
  408. if orgrand > preOrg:oragazm = 4
  409. elseif silavag < 2:
  410. orgrand = rand(0, 100)
  411. if orgrand > preOrg:oragazm = 4
  412. end
  413. end
  414. end
  415. if orgazm = 0:
  416. if vgape < 3:vgape = 3
  417. pcs_horny = 0
  418. pcs_mood -= 15
  419. pcs_willpwr -= 15
  420. 'You groan in pain as <<$boydesc>> penetrates your pussy. Tears flow from your eyes and it feels like someone drove a red hot poker in your vagina. You cry and moan while <<$xyr>> strong <<dick>> centimeter dick fucks your pussy.'
  421. elseif orgazm = 1:
  422. if vgape < 2:vgape = 2
  423. pcs_horny -= 10
  424. pcs_mood -= 10
  425. pcs_willpwr -= 10
  426. 'You bite your lip in pain as feel <<$boydesc>>''s cock entering you. It really hurts between your legs. You are frowning and moaning in pain while moving up and down on his strong <<dick>> centimeter penis.'
  427. elseif orgazm = 2:
  428. if vgape < 1:vgape = 1
  429. pcs_horny -= 5
  430. pcs_mood -= 5
  431. pcs_willpwr -= 5
  432. 'You wince at the sudden pain as you feel the penis of <<$boydesc>> entering you. The pain between your legs gradually disappears and it becomes quite tolerable. You are trying to get aroused while rhythmically moving on <<$xyr>> sturdy and strong <<dick>> centimeter dick fucking your pussy, but you do not succeed.'
  433. elseif orgazm = 3:
  434. pcs_horny += 5
  435. pcs_mood += 5
  436. pcs_willpwr += 5
  437. 'You are startled by the feeling that your pussy is stretched as you lower yourself on the cock of <<$boydesc>> and you can feel him entering you. Between your legs you get a little nice feeling as you move up and down on a strong <<dick>> centimeter penis.'
  438. elseif orgazm = 4:
  439. pcs_horny += 10
  440. pcs_mood += 10
  441. pcs_willpwr += 10
  442. 'You try to enjoy the unique feeling of your pussy being stretched as you lower yourself on the <<$boydesc>>''s cock and you feel him entering you. Between your legs you get a little nice feeling as you move up and down on a strong <<dick>> centimeter penis. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreases a little and remains like that until the end.'
  443. elseif orgazm = 5:
  444. pcs_horny = 0
  445. pcs_mood += 15
  446. pcs_willpwr += 15
  447. orgasm += 1
  448. vaginalOrgasm += 1
  449. 'You flinch from a pleasant feeling as your pussy is stretched by <<$xyr>> dick. Between your legs you are getting a very warm and pleasant feeling as you move up and down on the strong <<dick>> centimeter penis. Gradually a pleasant warmth and some pulsations start building up in your stomach. Then the feeling becomes unbearable and your entire body is covered with hot waves of orgasm. You scream with pleasure.'
  450. elseif orgazm = 6:
  451. pcs_horny += 5
  452. pcs_mood += 5
  453. pcs_willpwr += 5
  454. 'You can feel <<$xyr>> penis entering your pussy. This feels nice between your legs, but <<$xyr>> <<dick>> cm dick is significantly less than what your pussy needs. This is not enough for you. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreases a little and remains like that until the end.'
  455. end
  456. if pcs_vag = 0:
  457. pcs_horny = 0
  458. pcs_mood -= 15
  459. pcs_willpwr -= 15
  460. pcs_vag += 1
  461. 'You are biting your <<$liptalk>> in pain and tears start to flow from your eyes as <<$boydesc>> enters you, breaking your hymen. You moan while crying and <<$xyr>> <<dick>> centimeter dick fucks your bloody pussy.'
  462. elseif pcs_vag <= dick:
  463. pcs_vag += 1
  464. end
  465. end
  466. cumprecheck = 1
  467. gs 'cum_manage'
  468. }
  469. $sexstart4 = {
  470. frost = 0
  471. if cycle <= 0:
  472. !!periods, orgasm is not possible
  473. pcs_horny = 0
  474. pcs_mood = pcs_mood - 10
  475. pcs_willpwr = pcs_willpwr - 10
  476. 'You are menstruating but this does not stop <<$xe>> from ramming <<$xyr>> dick into you. Vaginal blood flows slowly out of your pussy. You are experiencing both painful and pleasant sensations. You moan while the strong <<dick>> centimeter dick fucks your pussy.'
  477. elseif cycle > 0 and pcs_vag > 0:
  478. !!no monthly
  479. !!horny - excitement
  480. !!pcs_vag - the elasticity of the vagina
  481. !!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
  482. !!dick - penis Man
  483. !!orgazm - Total coefficient of pleasure
  484. !!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
  485. smazka = pcs_horny / 10
  486. prinat = smazka + pcs_vag
  487. if dick >= prinat * 2:
  488. !!member of the critical features more years
  489. if silavag = 0:orgazm = 0
  490. if silavag = 1:orgazm = 1
  491. if silavag = 2:orgazm = 2
  492. elseif dick < prinat * 2 and dick > prinat:
  493. !!member more options gg
  494. if silavag = 0:
  495. if pcs_horny >= 100:orgazm = 5
  496. if pcs_horny >= 90 and pcs_horny < 100:orgazm = 4
  497. if pcs_horny >= 80 and pcs_horny < 90:orgazm = 3
  498. if pcs_horny >= 70 and pcs_horny < 80:orgazm = 2
  499. if pcs_horny >= 60 and pcs_horny < 70:orgazm = 1
  500. if pcs_horny < 60:orgazm = 0
  501. elseif silavag = 1:
  502. if pcs_horny >= 90:orgazm = 5
  503. if pcs_horny >= 80 and pcs_horny < 90:orgazm = 4
  504. if pcs_horny >= 70 and pcs_horny < 80:orgazm = 3
  505. if pcs_horny >= 60 and pcs_horny < 70:orgazm = 2
  506. if pcs_horny >= 50 and pcs_horny < 60:orgazm = 1
  507. if pcs_horny < 50:orgazm = 0
  508. elseif silavag = 2:
  509. if pcs_horny >= 80:orgazm = 5
  510. if pcs_horny >= 70 and pcs_horny < 80:orgazm = 4
  511. if pcs_horny >= 60 and pcs_horny < 70:orgazm = 3
  512. if pcs_horny >= 50 and pcs_horny < 60:orgazm = 2
  513. if pcs_horny >= 40 and pcs_horny < 50:orgazm = 1
  514. if pcs_horny < 40:orgazm = 0
  515. end
  516. elseif dick <= prinat and dick >= pcs_vag:
  517. !!Member fewer opportunities gg
  518. if silavag = 0:
  519. if pcs_horny >= 80:orgazm = 5
  520. if pcs_horny >= 60 and pcs_horny < 80:orgazm = 4
  521. if pcs_horny >= 40 and pcs_horny < 60:orgazm = 3
  522. if pcs_horny < 40:orgazm = 2
  523. elseif silavag = 1:
  524. if pcs_horny >= 70:orgazm = 5
  525. if pcs_horny >= 50 and pcs_horny < 70:orgazm = 4
  526. if pcs_horny >= 30 and pcs_horny < 50:orgazm = 3
  527. if pcs_horny < 30:orgazm = 2
  528. elseif silavag = 2:
  529. if pcs_horny >= 60:orgazm = 5
  530. if pcs_horny >= 40 and pcs_horny < 60:orgazm = 4
  531. if pcs_horny >= 20 and pcs_horny < 40:orgazm = 3
  532. if pcs_horny < 20:orgazm = 2
  533. end
  534. elseif dick <= prinat and dick < pcs_vag:
  535. if silavag = 0:
  536. if pcs_horny >= 100:orgazm = 5
  537. if pcs_horny >= 90 and pcs_horny < 100:orgazm = 4
  538. if pcs_horny < 90:orgazm = 6
  539. elseif silavag = 1:
  540. if pcs_horny >= 90:orgazm = 5
  541. if pcs_horny >= 80 and pcs_horny < 90:orgazm = 4
  542. if pcs_horny < 80:orgazm = 6
  543. elseif silavag = 2:
  544. if pcs_horny >= 80:orgazm = 5
  545. if pcs_horny >= 70 and pcs_horny < 80:orgazm = 4
  546. if pcs_horny < 70:orgazm = 6
  547. end
  548. end
  549. if oragazm = 5:
  550. preOrg += 1
  551. if razeba < 4:
  552. if silavag = 2:
  553. orgrand = rand(50, 300)
  554. if orgrand > preOrg:oragazm = 4
  555. elseif silavag < 2:
  556. oragazm = 4
  557. end
  558. elseif razeba = 4:
  559. if silavag = 2:
  560. orgrand = rand(0, 100)
  561. if orgrand > preOrg:oragazm = 4
  562. elseif silavag < 2:
  563. orgrand = rand(50, 300)
  564. if orgrand > preOrg:oragazm = 4
  565. end
  566. elseif razeba >= 5:
  567. if silavag = 2:
  568. orgrand = rand(0, 50)
  569. if orgrand > preOrg:oragazm = 4
  570. elseif silavag < 2:
  571. orgrand = rand(0, 100)
  572. if orgrand > preOrg:oragazm = 4
  573. end
  574. end
  575. end
  576. if orgazm = 0:
  577. vgape = 3
  578. pcs_horny = 0
  579. pcs_mood -= 15
  580. pcs_willpwr -= 15
  581. 'You groan in pain when <<$boydesc>> penetrates your pussy. Tears flow from your eyes and it feels like someone drove a red hot poker into your vagina. You cry and moan while <<$xyr>> strong <<dick>> centimeter dick fucks your pussy.'
  582. elseif orgazm = 1:
  583. if vgape < 2:vgape = 2
  584. pcs_horny -= 10
  585. pcs_mood -= 10
  586. pcs_willpwr -= 10
  587. 'You bit your lip in pain when <<$boydesc>> penetrates you. You feel some pain between your legs. You are frowning and moaning in pain while a strong <<dick>> centimeter dick fucks your pussy.'
  588. elseif orgazm = 2:
  589. if vgape < 1:vgape = 1
  590. pcs_horny -= 5
  591. pcs_mood -= 5
  592. pcs_willpwr -= 5
  593. 'You flinched at the sudden pain when <<$boydesc>> penetrates you. You feel some pain between your legs. It gradually settles down and becomes quite tolerable. You are trying to get aroused while a strong <<dick>> centimeter dick fucks your pussy, but you could not succeed.'
  594. elseif orgazm = 3:
  595. pcs_horny = pcs_horny + 5
  596. pcs_mood += 5
  597. pcs_willpwr += 5
  598. 'You flinch from the feeling that your pussy is being stretched, when <<$boydesc>> penetrates you. You have a little nice sensation between your legs while a strong <<dick>> centimeter dick fucks your pussy.'
  599. elseif orgazm = 4:
  600. pcs_horny = pcs_horny + 10
  601. pcs_mood += 10
  602. pcs_willpwr += 10
  603. 'You flinch from the feeling that your pussy is being stretched when <<$boydesc>> penetrates you. You have a little nice sensation between your legs while a strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreases a little and remains like that until the end.'
  604. elseif orgazm = 5:
  605. pcs_horny = 0
  606. pcs_mood += 15
  607. pcs_willpwr += 15
  608. orgasm += 1
  609. vaginalOrgasm += 1
  610. 'You are startled by a pleasant sensation when your pussy is stretched as it starts taking a dick. You have a very warm and pleasant feeling between the legs when a strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling became unbearable and your entire body is covered with hot waves of orgasm, you scream with pleasure.'
  611. elseif orgazm = 6:
  612. pcs_horny += 5
  613. pcs_mood += 5
  614. pcs_willpwr += 5
  615. 'You feel <<$xyr>> penis entering your pussy. This feels nice between your legs, but <<$xyr>> <<dick>> cm dick is significantly less than what your pussy needs. This is not enough for you. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreases a little and remains like that until the end.'
  616. end
  617. if pcs_vag = 0:
  618. pcs_horny = 0
  619. pcs_mood -= 15
  620. pcs_willpwr -= 15
  621. pcs_vag += 1
  622. 'You suddenly bite your <<$liptalk>> in pain and tears start to flow from your eyes when <<$boydesc>> enters you, breaking your hymen. You moan while crying and <<$xyr>> <<dick>> centimeter dick fucks your bloody pussy.'
  623. elseif pcs_vag <= dick:
  624. pcs_vag += 1
  625. end
  626. end
  627. cumprecheck = 1
  628. gs 'cum_manage'
  629. }
  630. $sexcum = {
  631. frost = 0
  632. sexpartkno = 1
  633. if protect ! 1:
  634. !!Unprotected sex
  635. finrand = rand(0, 1)
  636. if finrand = 0:
  637. cumvag_text = RAND(0,2)
  638. if cumvag_text = 0: '<<$xyrc>> movements speed up and <<$xe>> drives <<$xyr>> cock balls deep into you. With a beatific smile <<$xe>> cums deep inside you. You feel a warm jet pour into your womb.'
  639. if cumvag_text = 1: '<<$xec>> does not pull out and instead pulls you tightly against <<$xem>> and your pussy is filled with splashes of semen.'
  640. if cumvag_text = 2: '<<$xec>> groans, and you feel a jet of sperm hit you inside your body.'
  641. gs 'cuminsidereact', $boydesc
  642. elseif finrand = 1:
  643. !!Out
  644. if pose = 0:
  645. spafinloc = 14
  646. '<<$boydesc>> groans and after pulling out <<$xyr>> dick, <<$xe>> cums on your stomach.'
  647. elseif pose = 1:
  648. spafinloc = 4
  649. '<<$boydesc>> groans and after pulling out <<$xyr>> dick, <<$xe>> cums on your ass.'
  650. end
  651. end
  652. gs 'Cum_Manage'
  653. elseif protect = 1:
  654. $tmp = ''
  655. if sexcontra = 7: $tmp = 'sabotaged '
  656. '<<$boydesc>> groans and you realize that <<$xe>> came in the <<$tmp>>condom.'
  657. gs 'Cum_Manage'
  658. if sexcontra = 4:
  659. 'Pulling out of you and looking at <<$xyr>> dick, <<$boydesc>> says "Hmm, the condom burst."'
  660. elseif sexcontra = 5:
  661. 'Pulling out of you and looking at <<$xyr>> dick, <<$boydesc>> says "What the fuck? The condom is missing."'
  662. end
  663. gs 'cuminsidereact'
  664. protect = 0
  665. end
  666. sexcontra = 0
  667. pose = 0
  668. }
  669. $sexcumsk = {
  670. frost = 0
  671. gs 'boyStat', $shultextID33
  672. sexpartkno = 1
  673. if protect ! 1:
  674. !unprotected sex
  675. finrand = RAND(0,1)
  676. if finrand = 0:
  677. !inside
  678. cumvag_text = RAND(0,2)
  679. if cumvag_text = 0: '<<$xyrc>> movements speed up and <<$xe>> drives <<$xyr>> cock balls deep into you. With a beatific smile, <<$xe>> cums deep inside you. You feel a warm jet pour into your womb.'
  680. if cumvag_text = 1: '<<$xec>> does not pull out and instead pulls you tightly against <<$xem>> and your pussy is filled with splashes of semen.'
  681. if cumvag_text = 2: '<<$xec>> groans, and you feel a jet of sperm hit you inside your body.'
  682. pcs_mood = pcs_mood - 15
  683. pcs_willpwr = pcs_willpwr - 15
  684. gs 'cuminsidereact'
  685. elseif finrand = 1:
  686. !out
  687. if pose = 0:
  688. spafinloc = 14
  689. '<<$shultextrand33>> groans and pulls <<$xyr>> cock out of you and cums on your stomach.'
  690. elseif pose = 1:
  691. spafinloc = 4
  692. '<<$shultextrand33>> groans and pulls <<$xyr>> cock out of you and cums on your ass.'
  693. end
  694. end
  695. gs 'Cum_Manage'
  696. elseif protect = 1:
  697. $tmp = ''
  698. if sexcontra = 7: $tmp = 'sabotaged '
  699. '<<$shultextrand33>> groans and you realize that <<$xe>> came in the <<$tmp>>condom.'
  700. gs 'Cum_Manage'
  701. if sexcontra = 4:
  702. 'Pulls <<$xyr>> cock out of you and, looking at <<$xyr>> dick, <<$shultextrand33>> says "Hmm, the condom burst."'
  703. elseif sexcontra = 5
  704. 'Pulls <<$xyr>> cock out of you and, looking at <<$xyr>> dick, <<$shultextrand33>> says "What the fuck? The condom is missing."'
  705. end
  706. gs 'cuminsidereact'
  707. protect = 0
  708. end
  709. sexcontra = 0
  710. pose = 0
  711. }
  712. $analsex = {
  713. frost = 0
  714. sexpartkno = 1
  715. if analplugin = 1:
  716. !!!WD:No Anal Lube if Anal Plug
  717. !!analpluginbonus = 10
  718. lubonus = 10
  719. !!!
  720. analplugin = 0
  721. '<<$boydesc>> pulls out your ass plug'
  722. end
  723. if dick >= pcs_ass:pcs_ass += 3
  724. '<<$boydesc>> begins to massage your anus with <<$xyr>> fingers.'
  725. !!!WD: Replaced
  726. !!if lubri > 0:
  727. !!!
  728. if lubonus = 0 and lubri > 0:
  729. !!!
  730. lubri -= 1
  731. lubonus += rand(1, 5)
  732. 'You squeeze anal lube on your hand and begin to smear it in your ass. Then you give it to <<$xem>> and <<$xe>> smear it on <<$xyr>> dick'
  733. end
  734. if pcs_ass < 10:'<<$xec>> inserts three fingers into your ass and you groan in pain.'
  735. if pcs_ass >= 10:'<<$xec>> starts to stretch your anus with three fingers.'
  736. '<<$boydesc>> pulls <<$xyr>> fingers out of your ass and you feel <<$xyr>> hard cock near your hole.'
  737. if pcs_ass + lubonus + 10 < dick:'You scream and bite your lip from a sharp pain when <<$xyr>> <<dick>> centimeter dick enters your ass.'
  738. if pcs_ass + lubonus + 10 >= dick:'You moan when <<$xyr>> <<dick>> centimeter dick enters your ass.'
  739. '<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xyr>> cock in it, and then starts to slowly move, stretching your anus.'
  740. if pcs_ass + lubonus + 2 < dick:
  741. if pcs_makeup > 1:pcs_makeup = 0
  742. pcs_horny -= 20
  743. pcs_mood -= 20
  744. if agape < 3:agape = 3
  745. 'You cry and bite your lip when <<dick>> centimeter cock begins to fuck your ass full force. Your ass feels like it is on fire and all you want is for this torture to be over quickly.'
  746. elseif pcs_ass + lubonus + 2 >= dick:
  747. pcs_horny += 10
  748. if agape < 2 and lubonus = 0:agape = 2
  749. 'You started to moan rhythmically, matching the timings of <<$xyr>> cock''s movements inside you. You feel your anus stretching when <<$xyr>> penis enters you.'
  750. if pcs_horny >= 100:
  751. if stat['anal'] >= 10 and orgasm > 0:
  752. pcs_horny = 0
  753. orgasm += 1
  754. pcs_mood += 20
  755. if agape < 1 and lubonus = 0:agape = 1
  756. 'You moan in pleasure while <<$xyr>> dick moves inside your ass.'
  757. end
  758. end
  759. end
  760. lubonus = 0
  761. 'After some time <<$boydesc>> groans and you feel your ass filling up with a pleasant warmth.'
  762. spafinloc = 3
  763. gs 'Cum_Manage'
  764. }
  765. $analsex2 = {
  766. frost = 0
  767. sexpartkno = 1
  768. if analplugin = 1:
  769. !!!WD:No Anal Lube if Anal Plug
  770. !!analpluginbonus = 10
  771. lubonus = 10
  772. !!!
  773. analplugin = 0
  774. '<<$boydesc>> pulls your butt plug out of your narrow and tight ass.'
  775. end
  776. if dick >= pcs_ass:pcs_ass += 3
  777. '<<$boydesc>> begins to massage your anus with <<$xyr>> fingers.'
  778. !!!WD: Replaced
  779. !!if lubri > 0:
  780. !!!
  781. if lubonus = 0 and lubri > 0:
  782. !!!
  783. lubri -= 1
  784. lubonus += rand(1, 5)
  785. 'You squeeze anal lube on your hand and begin to smear it in your ass. Then you gave the guy a tube and <<$xe>> starts lucricating <<$xyr>> cock.'
  786. end
  787. if pcs_ass < 10:'When <<$xe>> enters three fingers in your ass you groan in pain.'
  788. if pcs_ass >= 10:'<<$xec>> started to stretch your anus with three fingers.'
  789. '<<$boydesc>> pulls <<$xyr>> fingers out of your ass and you feel <<$xyr>> hard cock near your hole.'
  790. !!!WD: Added lubonus
  791. if pcs_ass + lubonus + 10 < dick:'You scream and bit your lip from a sharp pain as <<$xyr>> <<dick>> centimeter dick enters your ass.'
  792. if pcs_ass + lubonus + 10 >= dick:'You moan as <<$xyr>> <<dick>> centimeter dick enters your ass.'
  793. !!!
  794. '<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xyr>> cock in it. Then he starts to slowly move, stretching your anus.'
  795. if pcs_ass + lubonus + 2 < dick:
  796. if pcs_makeup > 1:pcs_makeup = 0
  797. pcs_horny -= 20
  798. pcs_mood -= 20
  799. if agape < 3:agape = 3
  800. 'You cry and bite your lip as <<dick>> centimeter cock begins to fuck your ass on with <<$xyr>> full force. Your ass feels like it is on fire and all you want is for this torture to be over quickly.'
  801. elseif pcs_ass + lubonus + 2 >= dick:
  802. pcs_horny += 10
  803. if agape < 2 and lubonus = 0:agape = 2
  804. 'You started to moan rhythmically following the movements of <<$xyr>> cock inside you. You can feel your anus stretching as <<$xyr>> penis enters you.'
  805. if pcs_horny >= 100:
  806. if stat['anal'] >= 10 and orgasm > 0:
  807. pcs_horny = 0
  808. orgasm += 1
  809. pcs_mood += 20
  810. if agape < 1 and lubonus = 0:agape = 1
  811. 'You moan in pleasure while <<$xyr>> dick moves inside your ass.'
  812. end
  813. end
  814. end
  815. lubonus = 0
  816. 'After some time <<$boydesc>> groans and you feel your ass filling with a pleasant warmth.'
  817. spafinloc = 3
  818. gs 'Cum_Manage'
  819. }
  820. $analsexrude = {
  821. frost = 0
  822. sexpartkno = 1
  823. if analplugin = 1:
  824. !!!WD:No Anal Lube if Anal Plug
  825. !!analpluginbonus = 10
  826. lubonus = 10
  827. !!!
  828. analplugin = 0
  829. '<<$boydesc>> pulls your butt plug out of your narrow and tight ass.'
  830. end
  831. if dick >= pcs_ass:pcs_ass += 3
  832. '<<$boydesc>> tucks a finger into your anus, then a second one.'
  833. if pcs_ass < 10:'When <<$xe>> enters three fingers in your ass you groan in pain.'
  834. if pcs_ass >= 10:'<<$xec>> started to stretch your anus with three fingers.'
  835. '<<$boydesc>> pulls <<$xyr>> fingers out of your ass and you feel <<$xyr>> pushing his hard cock into your hole.'
  836. if pcs_ass + lubonus + 10 < dick:'You scream and bite your lip from a sharp pain when <<$xyr>> <<dick>> centimeter dick enters your ass.'
  837. if pcs_ass + lubonus + 10 >= dick:'You moan when <<$xyr>> <<dick>> centimeter dick enters your ass.'
  838. '<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xyr>> cock in it. Then he starts to slowly move, stretching your anus.'
  839. if pcs_ass + lubonus + 2 < dick:
  840. if pcs_makeup > 1:pcs_makeup = 0
  841. pcs_horny -= 20
  842. pcs_mood -= 20
  843. if agape < 3:agape = 3
  844. 'You cry and bite your lip when <<dick>> centimeter cock began to fuck your ass on (! full force !). Your ass feels like it is on fire and all you want is for this torture to be over quickly.'
  845. elseif pcs_ass + lubonus + 2 >= dick:
  846. pcs_horny += 10
  847. if agape < 2 and lubonus = 0:agape = 2
  848. 'You start to moan rhythmically, following the movements of <<$xyr>> cock inside you. You can feel your anus stretching when <<$xyr>> penis enters you.'
  849. if pcs_horny >= 100:
  850. if stat['anal'] >= 10 and orgasm > 0:
  851. pcs_horny = 0
  852. orgasm += 1
  853. pcs_mood += 20
  854. if agape < 1 and lubonus = 0:agape = 1
  855. 'You moan in pleasure while <<$xyr>> dick moves inside your ass.'
  856. end
  857. end
  858. end
  859. lubonus = 0
  860. spafinloc = 3
  861. gs 'Cum_Manage'
  862. 'After some time <<$boydesc>> groan and you feel your ass filling with a pleasant warmth.'
  863. }
  864. ! "deal_with_condom" procedure should be replacement of "sexstart" dynamic procedure
  865. !! gs 'dinsex', 'boy_puts_condom'
  866. if $ARGS[0] = 'boy_puts_condom':
  867. protect = iif(prezik > 0,1,0)
  868. vidageday -= 1 &! the people guess that you are a bit more older than you are in fact
  869. if $ARGS[1] = '':
  870. ! do you have condoms?
  871. if prezik > 0:
  872. if rand(1,prezik) <= badprezik:
  873. badprezik -= 1
  874. noprotect = 1
  875. sexcontra = 7
  876. *p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc)-1)>> takes your '+iif(preziktype = 2,'sabotaged ','')+ 'condom and puts it on <<$xyr>> <<dick>> centimeter dick.'
  877. else
  878. sexcontra = 3
  879. *p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc)-1)>> takes your condom and puts it on <<$xyr>> <<dick>> centimeter dick.'
  880. noprotect = 0
  881. end
  882. prezik -= 1
  883. sexcontra = iif(preziktype = 2,7,sexcontra)
  884. else
  885. sexcontra = 0
  886. !! the hormonal contraception is still taken in account
  887. end
  888. else
  889. $custmsg = $ARGS[1]
  890. *p '<<$custmsg>>'
  891. ! do you have condoms?
  892. if prezik > 0:
  893. if rand(1,prezik) <= badprezik:
  894. badprezik -= 1
  895. noprotect = 1
  896. sexcontra = 7
  897. else
  898. sexcontra = 3
  899. noprotect = 0
  900. end
  901. prezik -= 1
  902. sexcontra = iif(preziktype = 2,7,sexcontra)
  903. else
  904. sexcontra = 0
  905. !! the hormonal contraception is still taken in account
  906. end
  907. end
  908. end &! --- boy_puts_condom ---
  909. !! gs 'dinsex', 'boy_puts_his_condom'[, $boydesc]
  910. if $ARGS[0] = 'boy_puts_his_condom':
  911. $bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
  912. protect = 1
  913. sexcontra = 3
  914. *p '<<ucase(mid($bwa_boy,1,1))>><<mid($bwa_boy,2,len($bwa_boy)-1)>> takes his condom and puts it on his <<dick>> centimeter dick.'
  915. !! the hormonal contraception is still taken in account
  916. end &! --- boy_puts_his_condom ---
  917. !! gs 'dinsex', 'pc_puts_condom'
  918. if $ARGS[0] = 'pc_puts_condom':
  919. protect = iif(prezik > 0,1,0)
  920. vidageday -= 1 &! the people guess that you are a bit more older than you are in fact
  921. if $ARGS[1] = '':
  922. ! do you have condoms?
  923. if prezik > 0:
  924. if rand(1,prezik) <= badprezik:
  925. badprezik -= 1
  926. noprotect = 1
  927. sexcontra = 7
  928. *p 'You take your '+iif(preziktype = 2,'sabotaged ','')+ 'condom and put it on <<$xyr>> <<dick>> centimeter dick.'
  929. else
  930. sexcontra = 3
  931. *p 'You take your condom and put it on <<$xyr>> <<dick>> centimeter dick.'
  932. noprotect = 0
  933. end
  934. prezik -= 1
  935. sexcontra = iif(preziktype = 2,7,sexcontra)
  936. else
  937. sexcontra = 0
  938. !! the hormonal contraception is still taken in account
  939. end
  940. else
  941. $custmsg = $ARGS[1]
  942. *p '<<$custmsg>>'
  943. ! do you have condoms?
  944. if prezik > 0:
  945. if rand(1,prezik) <= badprezik:
  946. badprezik -= 1
  947. noprotect = 1
  948. sexcontra = 7
  949. else
  950. sexcontra = 3
  951. noprotect = 0
  952. end
  953. prezik -= 1
  954. sexcontra = iif(preziktype = 2,7,sexcontra)
  955. else
  956. sexcontra = 0
  957. !! the hormonal contraception is still taken in account
  958. end
  959. end
  960. end &! --- pc_puts_condom ---
  961. !! gs 'dinsex','boy_wants_anal' [, $boydesc [, 'lubri']]
  962. if $ARGS[0] = 'boy_wants_anal':
  963. $bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
  964. if $bwa_boy = 'lubri': $bwa_boy = $boydesc
  965. if analplugin = 1:
  966. '<<$bwa_boy>> pulls the plug out of your narrow and tight ass.'
  967. analplugout = 1
  968. end
  969. if $ARGS[2] = 'lubri':
  970. lubri +=1
  971. '<<$bwa_boy>> takes a tube of lubricant, squeezes a little on <<$xyr>> palm and rubs your anus.'
  972. gs 'arousal', 'anal_finger', 1,'lube'
  973. else
  974. if lubri = 0:
  975. 'You have no lube, <<$bwa_boy>> spits on his fingers and using saliva he massages your anus.'
  976. gs 'arousal', 'anal_finger', 1,'lube'
  977. elseif lubri > 0:
  978. if rand(0,2) = 0:
  979. 'You take a tube of lubricant and hand it to <<$bwa_boy>>, he squeezes a little on his palm and rubs your anus.'
  980. elseif rand(0,1) = 0:
  981. 'You squeeze anal lube on your hand and begin to smear it in your ass. Then you give the guy a tube and <<$xe>> starts lucricating <<$xyr>> cock.'
  982. else
  983. 'You squeeze anal lube on your hand and begin to smear it in your ass. Then you give it to <<$xem>> and <<$xe>> smears it on <<$xyr>> dick'
  984. end
  985. gs 'arousal', 'anal_finger', 1,'lube'
  986. end
  987. end
  988. killvar '$bwa_boy'
  989. end &! --- boy_wants_anal ---
  990. !! gs 'dinsex', 'girl_wants_anal'[, $boydesc [, 'lubri']]
  991. if $ARGS[0] = 'girl_wants_anal':
  992. $bwa_girl = iif($ARGS[1] = '',$boydesc,$ARGS[1])
  993. if $bwa_girl = 'lubri': $bwa_girl = $boydesc
  994. if analplugin = 1:
  995. '<<$bwa_girl>> pulls the plug out of your narrow and tight ass.'
  996. analplugin = 0
  997. analplugout = 1
  998. end
  999. if $ARGS[2] = 'lubri':
  1000. lubri +=1
  1001. '<<$bwa_girl>> takes a tube of lubricant, squeezes a little on her palm and rubs your anus.'
  1002. gs 'arousal', 'anal_finger', 1,'lube'
  1003. else
  1004. if lubri = 0:
  1005. 'You have no lube, <<$bwa_girl>> spits on her fingers and using saliva she massages your anus.'
  1006. gs 'arousal', 'anal_finger', 1,'lube'
  1007. elseif lubri > 0:
  1008. 'You take a tube of lubricant and hand it to <<$bwa_girl>>, she squeezes a little on her palm and rubs your anus.'
  1009. gs 'arousal', 'anal_finger', 1,'lube'
  1010. end
  1011. end
  1012. killvar '$bwa_girl'
  1013. end &! --- girl_wants_anal ---
  1014. !! gs 'dinsex', 'after_anal','boy',$boydesc
  1015. if $ARGS[0] = 'after_anal':
  1016. if analplugout = 1:
  1017. if $ARGS[1] = 'boy':
  1018. analplugin = 1
  1019. '<<$ARGS[2]>> takes your butt plug and he puts it back into your anus. He grins: "Continue your training"'
  1020. end
  1021. if $ARGS[1] = 'girl':
  1022. analplugin = 1
  1023. '<<$ARGS[2]>> takes your butt plug and she puts it back into your anus. She grins: "Continue your training"'
  1024. end
  1025. if $ARGS[1] = 'pc':
  1026. analplugin = 1
  1027. 'You take your butt plug and put it back into your anus. You grin: "I have to keep my butt trained"'
  1028. end
  1029. if $ARGS[1] = 'no_plug':
  1030. analplugin = 0
  1031. 'You take your butt plug and put it into your purse. Your anus has to rest for a while now.'
  1032. end
  1033. killvar 'analplugout'
  1034. end
  1035. end &! --- after_anal ---
  1036. !! replacement of "dynamic $sexstart2"
  1037. !! replacement of "dynamic $sexstart3"
  1038. !! replacement of "dynamic $sexstart4"
  1039. !! this procedure calls 'arousal','vaginal', so the rest of the parameters for arousal should be passed as parameters: call like gs 'dinsex','vaginal_sex',10,'rough','sub'
  1040. if $ARGS[0] = 'vaginal_sex':
  1041. frost = 0 &! the sex heats
  1042. if pcs_vag > 0:
  1043. gs 'arousal','vaginal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
  1044. $temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
  1045. if (vgrdif + vltdif) >= 30: 'You groan in pain when <<$boydesc>> penetrates you, tears flowed from your eyes and it feels like someone drove a red hot poker in your vagina. You cry and moan while <<$xyr>> strong <<dick>> centimeter dick fucks your pussy<<$temp_mens>>.'
  1046. if (vgrdif + vltdif) >= 20 and (vgrdif + vltdif) < 30: 'You bite your lip in pain when <<$boydesc>> enters, it is very painful. You are frowning and moaning in pain while <<$xyr>> strong <<dick>> centimeter dick fucks your pussy<<$temp_mens>>.'
  1047. if cycle <= 0: $temp_mens = ' even though' + $temp_mens
  1048. if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: 'You winced at the sudden pain when <<$boydesc>> enters, it hurt but gradually it became quite tolerable. You are trying to get aroused while <<$xyr>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>, but you did not succeed.'
  1049. if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: 'You are startled by the feeling that your pussy is stretching when <<$boydesc>> enters you. It feels good when <<$xyr>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>.'
  1050. if (vgrdif + vltdif) >= 2 and (vgrdif + vltdif) < 7: 'You are startled by the feeling that your pussy is stretching as <<$boydesc>> enters you. It feels good when <<$xyr>> strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remains like that until the end<<$temp_mens>>.'
  1051. if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You flinched from a pleasant feeling when your pussy is stretched by <<$xyr>> dick. It feels good when <<$xyr>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling became unbearable and your entire body is covered with hot waves of orgasm. You scream with pleasure.'
  1052. if (vgrdif + vltdif) < -3: 'You feel <<$xyr>> penis entering your pussy. This gives you a nice tingling feeling between your legs, but <<$xyr>> <<dick>> cm dick is significantly less than what your pussy needs. This is not enough for you. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remains like that until the end<<$temp_mens>>.'
  1053. else
  1054. $temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
  1055. pcs_horny = 0
  1056. pcs_mood -= 15
  1057. pcs_willpwr -= 15
  1058. 'You were biting your <<$liptalk>> in pain and tears started to flow from your eyes when <<$boydesc>> penetrates you, breaking your hymen. You moan while crying and <<$xyr>> <<dick>> centimeter dick fucks your bloody pussy.'
  1059. gs 'arousal','vaginal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
  1060. end
  1061. killvar '$temp_mens'
  1062. end
  1063. !! replacement of "dynamic $analsex"
  1064. !! replacement of "dynamic $analsex2"
  1065. !! replacement of "dynamic $analsexrude"
  1066. !! this procedure calls 'cum_call','anus',$boy,1
  1067. !! use gs 'dinSex','boy_wants_anal'[,'lubri'] together with gs 'dinsex','analsex'
  1068. if $ARGS[0] = 'analsex':
  1069. frost = 0 &! the sex heats
  1070. '<<$boydesc>> tucks a finger into your anus, then a second one .'
  1071. if pcs_ass < 10:'When <<$xe>> inserts three fingers into your ass you groan in pain.'
  1072. if pcs_ass >= 10:'<<$xec>> starts to stretch your anus with three fingers.'
  1073. *p '<<$boydesc>> pulls <<$xyr>> fingers out of your ass and you feel '
  1074. if rand(0,1)=0: '<<$xyr>> hard cock near your hole.' else '<<$xem>> pushing <<$xyr>> hard cock into your hole.'
  1075. gs 'arousal','anal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
  1076. if (agrdif + altdif) >= 20:'You scream and bite your lip from the sharp pain when <<$xyr>> <<dick>> centimeter dick enters your ass.'
  1077. if (agrdif + altdif) < 20:'You moan when <<$xyr>> <<dick>> centimeter dick enters your ass.'
  1078. '<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xyr>> cock in it. Then he starts to slowly move, stretching your anus.'
  1079. if (agrdif + altdif) >= 30:
  1080. if pcs_makeup > 1:pcs_makeup = 0
  1081. 'You cry and bite your lip when <<dick>> centimeter cock begins to fuck your ass on (! full force !). Your ass feels like it is on fire and all you want is for this torture to be over quickly.'
  1082. elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
  1083. pcs_horny += 10
  1084. 'You start to moan rhythmically in time with <<$xyr>> cock''s movements inside you. You feel like your anus is stretched when <<$xyr>> penis enters you.'
  1085. end
  1086. 'After some time <<$boydesc>> groan and you feel a pleasant warmth filling your ass.'
  1087. gs 'cum_call','anus',$boy,1
  1088. end &! --- analsex ---
  1089. !! replacement of "dynamic $sexcum"
  1090. !! this procedure calls 'cum_call','',$boy,1
  1091. !! use gs 'dinsex','sexcum'
  1092. if $ARGS[0] = 'sexcum':
  1093. frost = 0
  1094. if protect ! 1:
  1095. !!Unprotected sex
  1096. if rand(0, 1) = 0 or pose = 3:
  1097. cumvag_text = RAND(0,2)
  1098. if cumvag_text = 0: '<<$xyrc>> movements speed up and <<$xe>> drives <<$xyr>> cock balls deep into you. With a beatific smile, <<$xe>> cums deep inside you. You feel a warm jet pour into your womb.'
  1099. if cumvag_text = 1: '<<$xec>> does not pull out and instead pulls you tightly against <<$xem>> and your pussy is filled with splashes of semen.'
  1100. if cumvag_text = 2: '<<$xec>> groans, and you feel a jet of sperm hit you inside your body.'
  1101. gs 'cuminsidereact', $boydesc
  1102. gs 'cum_call','',$boy,1
  1103. else
  1104. !!Out
  1105. if pose = 0:
  1106. spafinloc = 14
  1107. '<<$boydesc>> groans and after pulling out <<$xyr>> dick, <<$xe>> came on your stomach.'
  1108. gs 'cum_call','stomach',$boy,1
  1109. elseif pose = 1:
  1110. '<<$boydesc>> groans and after pulling out <<$xyr>> dick, <<$xe>> came on your ass.'
  1111. gs 'cum_call','butt',$boy,1
  1112. end
  1113. end
  1114. else
  1115. $tmp = iif(sexcontra = 7,'sabotaged ','')
  1116. '<<$boydesc>> groans and you realized that <<$xe>> ejaculated in the <<$tmp>>condom.'
  1117. if sexcontra = 4:
  1118. 'Pulling out of you and looking at <<$xyr>> dick, <<$boydesc>> said "Hmm, the condom burst."'
  1119. elseif sexcontra = 5:
  1120. 'Pulling out of you and looking at <<$xyr>> dick, <<$boydesc>> said "Fuck! The condom is missing."'
  1121. end
  1122. eff_contra = sexcontra
  1123. gs 'cum_call','',$boy,1
  1124. gs 'cuminsidereact',$boydesc, eff_contra
  1125. protect = 0
  1126. end
  1127. pose = 0
  1128. killvar 'eff_contra'
  1129. end &! --- sexcum ---
  1130. !! replacement of "dynamic $dinrandbj"
  1131. !! use gs 'dinsex','dinrandbj'
  1132. !! phrases rewrited by Filicophyte
  1133. if $ARGS[0] = 'dinrandbj':
  1134. tperbjran = rand(0, 3)
  1135. if tperbjran = 0:$tperbj = 'You wraps your <<$liptalk>> around <<$xyr>> <<dick>>cm member.'
  1136. if tperbjran = 1:$tperbj = 'Your <<$liptalk>> engulf the purple head of <<$xyr>> <<dick>>cm member.'
  1137. if tperbjran = 2:$tperbj = 'You plant your <<$liptalk>> on the bulbous tip of <<$xyr>> <<dick>>cm cock and greedily slide your mouth down along <<$xyr>> throbbing maleness.'
  1138. if tperbjran = 3:$tperbj = 'The <<dick>> centimeters dick rests between your <<$liptalk>> then you slightly part them and allow the delicious invador to slide into your mouth.'
  1139. tperbjran = rand(0, 2)
  1140. if tperbjran = 0:$tperbj2 = 'You give <<$xyr>> face a sultry look while <<$xyr>> cock rests in your mouth then you greedily lean forwards, taking <<$xyr>> tasty penis deeper in your mouth and lustfully start to bob your head back and forth along <<$xyr>> <<dick>>cm tool.'
  1141. if tperbjran = 1:$tperbj2 = 'You playfully roll your tongue around the engorged boner and start giving one hell of a blowjob, swallowing the whole length down your throat and making lewd slurping noises everytime you hilt.'
  1142. if tperbjran = 2:$tperbj2 = 'That hard cock between your <<$liptalk>> is definitely yummy! You just can''t hold back and hungrily take the whole length in your mouth until its tip is resting at the entrance of your throat, you grin and relax your muscles to let it in, deepthroating this <<dick>>cm cock like there''s no tomorrow.'
  1143. '<<$tperbj>> <<$tperbj2>>'
  1144. killvar 'tperbjran'
  1145. killvar '$tperbj2'
  1146. killvar '$tperbj'
  1147. end &! --- dinrandbj ---
  1148. !! replacement of "dynamic $dinrandswallow"
  1149. !! use gs 'dinsex','dinrandswallow'
  1150. !! phrases rewrited by Filicophyte
  1151. if $ARGS[0] = 'dinrandswallow':
  1152. tperswalrand = rand(0, 2)
  1153. if tperswalrand = 0:$tperswal = 'Suddenly, your mouth is filled with a viscous load of semen.'
  1154. if tperswalrand = 1:$tperswal = 'The cock twitches and jets of sperm flew between your lips into your greedy mouth.'
  1155. if tperswalrand = 2:$tperswal = 'Your mouth is filled with warm and sticky sperm and you lovingly close your <<$liptalk>> around the drained member to suck it clean.'
  1156. tperswalrand = rand(0, 2)
  1157. if tperswalrand = 0:$tperswal2 = 'Your mouth is quickly filled with warm sperm and you smile as you gulp it down and enjoy the sharp taste.'
  1158. if tperswalrand = 1:$tperswal2 = 'Your mouth is filled with cum which messily runs out on your <<$liptalk>> and falls on the floor.'
  1159. if tperswalrand = 2:$tperswal2 = 'Hot seed fills your mouth making you smile with pride before you greedily swallow the salty load.'
  1160. tperswalrand = rand(0, 2)
  1161. if tperswalrand = 0:$tperswal3 = 'You gulp down and swallow the sperm filling your mouth, the taste remains intact and you lean forward to plant a tender kiss on that freshly milked cock.'
  1162. if tperswalrand = 1:$tperswal3 = 'You swallow the warm cum that fills your mouth and greedily lick the sticky leftovers with your tongue.'
  1163. if tperswalrand = 2:$tperswal3 = 'You swallow the viscous semen that is filling your mouth, then lick the softening member clean.'
  1164. '<<$tperswal>> <<$tperswal2>> <<$tperswal3>>'
  1165. killvar 'tperswalrand'
  1166. killvar '$tperswal'
  1167. killvar '$tperswal2'
  1168. killvar '$tperswal3'
  1169. end &! --- dinrandswallow ---
  1170. !! use gs 'dinsex','enema'
  1171. if $ARGS[0] = 'enema':
  1172. cumspclnt = 7
  1173. gs 'cum_cleanup'
  1174. minut += 5
  1175. klismaday = daystart
  1176. klismaday1= 1
  1177. if $ARGS[1]='':
  1178. *p 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
  1179. elseif $ARGS[1]!' ':
  1180. *p '<<$ARGS[1]>>'
  1181. end
  1182. end &! --- enema ---
  1183. --- dinSex ---------------------------------