arousal.qsrc 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954
  1. # arousal
  2. !!{ For checking arousal and when applicable triggering orgasms.
  3. $ARGS[0] the action causing arousal:
  4. All acts are from Sveta''s perspective and in cases of both giving and receiving, receiving should be used.
  5. It can be when receiving any of the following
  6. 'masturbate' - self stimulation
  7. 'porn' - viewing pornographic material
  8. 'voyeur_sex' - watching, usually as in spying on, other people have sex
  9. 'voyeur' - watching, usually as in spying on, erotic acts of others
  10. 'erotic' - being aroused by eroticism
  11. 'erotic_nudity' - being aroused by nudity of others
  12. 'trib' - rubbing pussy against another pussy
  13. 'massage' - rubbing your body, back, feet, etc. with their hands/arms
  14. 'cuni' - stimulation of your pussy by someones toungue
  15. 'rimming' - stimulation of your anus by someones toungue
  16. 'vaginal' 'vaginal_finger' 'vaginal_fist' 'vaginal_dildo' 'vaginal_strap' 'vaginal_vibe' - stimulation of your vagina with a penis and various others
  17. 'anal' 'anal_finger' 'anal_fist' 'anal_dildo' 'anal_strap' 'anal_vibe' - stimulation of your anus with a penis and various others
  18. 'kiss' - snogging, tonsil tennis, lip locking, etc.
  19. 'BDSM' - receiving candle wax, flogging, leash play, bondage etc
  20. 'pee' - being peed upon
  21. also when giving any of the following:
  22. 'flashlite' - flashing underwear
  23. 'flash' - flashing naked breasts/arse/vagina
  24. 'massage_give' - rubbing their body, back, feet, etc. with your hands/arms
  25. 'cuni_give' - stimulating someones pussy with your toungue
  26. 'rimming_give' - stimulating someones anus with your toungue
  27. 'vaginal_finger_give' 'vaginal_fist_give' 'vaginal_dildo_give' 'vaginal_strap_give' 'vaginal_vibe_give' - stimulating someones vagina in various ways
  28. 'anal_finger_give' 'anal_fist_give' 'anal_dildo_give' 'anal_vibe_give' 'anal_strap_give' - stimulating someones anus in various ways
  29. 'hj' - jerking a guy off with your hand
  30. 'bj' - sucking a guy off
  31. 'titjob' - using boobs to jerk off a guy
  32. 'footjob' - using feet to jerk off a guy
  33. 'BDSM_give' - giving candle wax, flogging, leash play, bondage etc
  34. 'pee_give' - peeing on somone
  35. finally
  36. 'foreplay' - receiving other stuff
  37. 'foreplay_give' - giving other stuff
  38. ARGS[1] for time taken in minutes - it is use partly for arousal calculation and partly for moving time ahead. If you want to calculate just the arousal and do not move time (simultaneous stimulation), use negative value.
  39. $ARGS[2] can be used for passing the name of boys dick variable .. 'dick' is default, which belong to $boy, else can be passed 'dick1' .. 'dick4' or 'dick[i]' along the boys parameters activation
  40. The variables used can be set by calling boyStat e.g. gs 'boyStat', 'A75', 'a' will set dick1 for NPC A75
  41. $ARGS[2] - [8] Are optional but can be upto 7 fetishes involved in the act and can be any of the following:
  42. 'maso' 'bound' 'beast' 'exhibitionism' 'rough' 'prostitution' 'dom' 'sub' 'incest' 'feet' 'lesbian' 'group' 'gangbang' 'humiliation' 'deepthroat' 'unknown' 'gloryhole' 'rape' 'futa'
  43. Format to use: gs 'arousal', 'act', 'duration', 'fetish', 'fetish', 'fetish', 'fetish', 'fetish', 'fetish', 'fetish'
  44. eg: gs 'arousal', 'trib', 10, 'bound', 'sub'
  45. In this case lesbianism is automatically added, much as feet would be applied to 'footjob'
  46. Lubrication - if one of the arguments $ARGS[2] - [8] is set to 'lube', it supposes that it is used some kind of lubricant - preferably from PCs supply of lube.
  47. The lube will remain applied to the orifice in question until 'end' is called. The usage of Svetas lube and checks for her having any must be done in the sex act.
  48. The lubrication is binded with anal or vaginal action. I think that the best combo is with 'anal_finger' and 'vaginal_finger'
  49. Only call one at a time, if more required, use multiple calls
  50. Unaware - if one of the arguments $ARGS[2] - [8] is set to 'unaware', Sveta is not aware of this Sexact. Sveta will never know she had Sex!
  51. no_orgasm_msg - if one of the arguments $ARGS[2] - [8] is set to 'no_orgasm_msg', the system will not generate a generic arousal message
  52. You can override the orgasm to force or prevent, to do so use:
  53. $orgasm_or = 'yes' to force orgasm, it will reset in orgasm call so if you want to force it again, you have to enter it again
  54. $orgasm_or = 'custom' to force orgasm and use custom text set as $orgasm_txt - *you can just add the text and call with 'yes' this is old method
  55. $orgasm_or = 'yes' and 'custom' require that the first arousal call is a call that can trigger an orgasm, the following arousal calls can trigger it: masturbate, cuni, rimming, trib, anal, anal_finger, anal_fist, anal_dildo, anal_strap, anal_vibe, vaginal, vaginal_finger, vaginal_fist, vaginal_dildo, vaginal_strap, vaginal_vibe can trigger
  56. $orgasm_or = 'no' to prevent orgasm, it will remain in place until manually changed, or if end is called.
  57. $orgasm_txt is used to add custom text that will be called if Sveta orgasms in the next arousal call. It will remain until cleared or orgasm so you must clear it if not forcing orgasm and don''t want it to be used on next orgasm.
  58. }
  59. temp_anal = 0
  60. temp_unaware = 0
  61. !!turns orgasm text off, there will be no confirmation that Sveta has orgasmed
  62. temp_text = 0
  63. !!orgasms restricted to direct stimulation using this flag
  64. orgasm_flag = 0
  65. if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0] ! 'count2':
  66. if strpos($ARGS[2]+$ARGS[3]+$ARGS[4]+$ARGS[5]+$ARGS[6]+ $ARGS[7]+ $ARGS[8],'unaware') > 0:
  67. temp_unaware = 1
  68. end
  69. if strpos($ARGS[2]+$ARGS[3]+$ARGS[4]+$ARGS[5]+$ARGS[6]+ $ARGS[7]+ $ARGS[8],'no_orgasm_msg') > 0:
  70. temp_text = 1
  71. end
  72. if mid($ARGS[2],1,4) = 'dick':
  73. temp_dick = dyneval('result='+$ARGS[2])
  74. temp_silavag = dyneval('result=silavag'+mid($ARGS[2],5,len($ARGS[2])-4))
  75. $temp_dick_girth = dyneval('$result=$dick_girth'+mid($ARGS[2],5,len($ARGS[2])-4))
  76. else
  77. temp_dick = dick
  78. temp_silavag = silavag
  79. $temp_dick_girth = $dick_girth
  80. end
  81. if strpos($ARGS[2]+$ARGS[3]+$ARGS[4]+$ARGS[5]+$ARGS[6]+ $ARGS[7]+ $ARGS[8],'rough')+strpos($ARGS[2]+$ARGS[3]+$ARGS[4]+$ARGS[5]+$ARGS[6]+ $ARGS[7]+ $ARGS[8],'beast') > 0: temp_silavag = 0
  82. grange = dyneval('result=strpos(''skinny slimx well pr thicker thickx massive monstrous'',$ARGS[0])',mid($temp_dick_girth+'x',1,6))/2
  83. !! first let us determine how slippery are pc''s holes
  84. if vaginal_slip < pcs_horny / 10: vaginal_slip = pcs_horny / 10
  85. if strpos($ARGS[2]+$ARGS[3]+$ARGS[4]+$ARGS[5]+$ARGS[6]+ $ARGS[7]+ $ARGS[8],'lube') > 0:
  86. if ar_anal_lube = 0:
  87. if mid($ARGS[0],1,4) = 'anal':
  88. anal_slip = 8
  89. ar_anal_lube = 1
  90. end
  91. end
  92. if ar_vag_lube = 0:
  93. if mid($ARGS[0],1,4) = 'vagi':
  94. vaginal_slip = 8
  95. ar_vag_lube = 1
  96. end
  97. end
  98. end
  99. !! This is to allow a Succubus with the right skill level to handle any size then go back to original size
  100. if succubusflag = 1 and sucskill >= 4:
  101. if mid($ARGS[0],1,4) = 'vagi' and temp_dick ! pcs_vag:
  102. if temp_dick < pcs_vag - 5 or temp_dick > pcs_vag + 5: pcs_mood -= 10
  103. if sucvagorg = 0: sucvagorg = pcs_vag
  104. pcs_vag = temp_dick
  105. end
  106. if mid($ARGS[0],1,4) = 'anal' and temp_dick ! pcs_ass:
  107. if temp_dick < pcs_ass - 5 or temp_dick > pcs_ass + 5: pcs_mood -= 10
  108. if sucanusorg = 0: sucanusorg = pcs_ass
  109. pcs_ass = temp_dick
  110. end
  111. end
  112. !!set a magnitude as a random
  113. stim['mag'] = rand(0,3) + rand(0,3) + rand(0,3)
  114. !!add count and effects due to action
  115. if $ARGS[0] = 'masturbate':
  116. orgasm_flag = 1
  117. count['mast'] = 1
  118. stim['mag'] += 6
  119. stim['act'] = 100
  120. elseif $ARGS[0] = 'porn':
  121. count['porn'] = 1
  122. stim['act'] = 25
  123. elseif $ARGS[0] = 'voyeur':
  124. count['voyeur'] = 1
  125. stim['act'] = 20
  126. elseif $ARGS[0] = 'voyeur_sex':
  127. count['voyeur_sex'] = 1
  128. stim['act'] = 35
  129. elseif $ARGS[0] = 'erotic':
  130. stim['act'] = 5
  131. elseif $ARGS[0] = 'erotic_nudity':
  132. stim['act'] = 5
  133. count['erotic_nudity'] = 1
  134. elseif $ARGS[0] = 'kiss':
  135. count['kiss'] = 1
  136. stim['act'] = 10
  137. !! elseif $ARGS[0] = 'breasts':
  138. !! stim['act'] = 30
  139. !! !! No idea where else to put this. This is used for breast stimulation which will eventually cause lactation in sveta without her knowledge. If anyone knows a better place for this, please let me know. - milky_boobs.
  140. !! milkedvolume += func('lact_lib','$get_breastmilk', 8, ARGS[1])
  141. elseif $ARGS[0] = 'massage':
  142. count['massage'] = 1
  143. stim['act'] = 25
  144. elseif $ARGS[0] = 'foreplay':
  145. count['foreplay'] = 1
  146. stim['act'] = 20
  147. elseif $ARGS[0] = 'cuni':
  148. orgasm_flag = 1
  149. count['cuni'] = 1
  150. stim['mag'] += 4
  151. stim['act'] = 80
  152. elseif $ARGS[0] = 'rimming':
  153. orgasm_flag = 1
  154. temp_anal = 1
  155. count['rimming'] = 1
  156. stim['act'] = 30
  157. if traits['buttslut_lvl'] = 1:
  158. stim['mag'] += 2
  159. stim['act'] = 50
  160. elseif traits['buttslut_lvl'] >= 2:
  161. stim['mag'] += 4
  162. stim['act'] = 80
  163. end
  164. elseif $ARGS[0] = 'trib':
  165. orgasm_flag = 1
  166. count['trib'] = 1
  167. stim['mag'] += 3
  168. stim['act'] = 70
  169. stim_les = 1
  170. elseif $ARGS[0] = 'anal':
  171. orgasm_flag = 1
  172. temp_anal = 1
  173. if temp_unaware = 1:
  174. count['hidden_anal'] = 1
  175. else
  176. count['anal'] = 1
  177. end
  178. if traits['buttslut_lvl'] = 1:
  179. stim['mag'] += 1
  180. elseif traits['buttslut_lvl'] >= 2:
  181. stim['mag'] += 3
  182. end
  183. if pcs_ass < temp_dick:pcs_ass += 1
  184. if pcs_ass*2 < temp_dick:pcs_ass += 1
  185. !! length and girth abilities of anus are not also separated , but I suppose that they are related although it is not propable
  186. !! we can estimate difference in girth and length anal_girth_difference and anal_lenght_difference - names are shortened
  187. altdif = temp_dick - pcs_ass
  188. agrdif = grange - pcs_ass
  189. !! negative influence of the difference can be reduced by sex skill and also by lubricant
  190. !! I made it as simply as possible so you do not complain about reality, feel free to modify the algorithm
  191. !! when the boy is skilled, he can compensate the difference partly
  192. altdif = altdif / (temp_silavag+1)
  193. agrdif = agrdif *(5/4 - 1/(4 - temp_silavag))
  194. !! when the boy is skilled, he does not harm PC with his long dick
  195. if (temp_silavag = 2) and (altdif > 0): altdif = 0
  196. !! lube can compensate the difference a bit
  197. if -agrdif > anal_slip: agrdif = agrdif + anal_slip else if agrdif < 0: agrdif = 0
  198. if agrdif > anal_slip: agrdif = agrdif - anal_slip else if agrdif > 0: agrdif = 0
  199. stim['act'] = 80 - (iif(altdif>0,altdif,-altdif) + iif(agrdif >0,agrdif,-agrdif)) + temp_silavag*8
  200. !! if the dick is smaller, it cannot harm PC
  201. if agrdif < 0: agrdif = 0
  202. if altdif < 0: altdif = 0
  203. !! calculate the harm
  204. agape = iif((agrdif + altdif) > 10*agape,(agrdif + altdif)/10,agape)
  205. !! the pain lover the pleasure
  206. gs 'pain', (agrdif + altdif)/5 , 'asshole', 'stretch'
  207. stim['act'] = stim['act'] - (agrdif + altdif)
  208. elseif $ARGS[0] = 'anal_finger':
  209. orgasm_flag = 1
  210. temp_anal = 1
  211. count['anal_finger'] = 1
  212. stim['act'] = 40
  213. if traits['buttslut_lvl'] = 1:
  214. stim['mag'] += 1
  215. stim['act'] = 60
  216. elseif traits['buttslut_lvl'] >= 2:
  217. stim['mag'] += 1
  218. stim['act'] = 80
  219. end
  220. elseif $ARGS[0] = 'anal_fist':
  221. orgasm_flag = 1
  222. temp_anal = 1
  223. count['anal_fist'] = 1
  224. stim['act'] = 30
  225. if traits['buttslut_lvl'] = 1:
  226. stim['act'] = 50
  227. elseif traits['buttslut_lvl'] >= 2:
  228. stim['act'] = 70
  229. end
  230. if pcs_ass + anal_slip < 30:
  231. pcs_ass = 30
  232. gs 'pain', 4-agape, 'asshole', 'stretch'
  233. if agape < 3:agape = 3
  234. end
  235. elseif $ARGS[0] = 'anal_dildo':
  236. orgasm_flag = 1
  237. temp_anal = 1
  238. count['anal_dildo'] = 1
  239. !! the same as for 'anal'
  240. altdif = temp_dick - pcs_ass
  241. agrdif = grange - pcs_ass
  242. altdif = altdif / (temp_silavag+1)
  243. agrdif = agrdif *(5/4 - 1/(4 - temp_silavag))
  244. if (temp_silavag = 2) and (altdif > 0): altdif = 0
  245. if agrdif > anal_slip: agrdif = agrdif - anal_slip else if agrdif > 0: agrdif = 0
  246. if -agrdif > anal_slip: agrdif = agrdif + anal_slip else if agrdif < 0: agrdif = 0
  247. stim['act'] = 80 - (iif(altdif>0,altdif,-altdif) + iif(agrdif >0,agrdif,-agrdif)) + temp_silavag*8
  248. if traits['buttslut_lvl'] = 1:
  249. stim['act'] += 10
  250. elseif traits['buttslut_lvl'] >= 2:
  251. stim['mag'] += 1
  252. end
  253. if agrdif < 0: agrdif = 0
  254. if altdif < 0: altdif = 0
  255. agape = iif((agrdif + altdif) > 10*agape,(agrdif + altdif)/10,agape)
  256. gs 'pain', (agrdif + altdif)/5 , 'asshole', 'stretch'
  257. stim['act'] = stim['act'] - (agrdif + altdif)
  258. elseif $ARGS[0] = 'anal_strap':
  259. orgasm_flag = 1
  260. temp_anal = 1
  261. count['anal_strap'] = 1
  262. !! the same as for 'anal'
  263. altdif = temp_dick - pcs_ass
  264. agrdif = grange - pcs_ass
  265. altdif = altdif / (temp_silavag+1)
  266. agrdif = agrdif *(5/4 - 1/(4 - temp_silavag))
  267. if (temp_silavag = 2) and (altdif > 0): altdif = 0
  268. if agrdif > anal_slip: agrdif = agrdif - anal_slip else if agrdif > 0: agrdif = 0
  269. if -agrdif > anal_slip: agrdif = agrdif + anal_slip else if agrdif < 0: agrdif = 0
  270. stim['act'] = 80 - (iif(altdif>0,altdif,-altdif) + iif(agrdif >0,agrdif,-agrdif)) + temp_silavag*8
  271. if traits['buttslut_lvl'] = 1:
  272. stim['act'] += 10
  273. elseif traits['buttslut_lvl'] >= 2:
  274. stim['mag'] += 1
  275. end
  276. if agrdif < 0: agrdif = 0
  277. if altdif < 0: altdif = 0
  278. agape = iif((agrdif + altdif) > 10*agape,(agrdif + altdif)/10,agape)
  279. gs 'pain', (agrdif + altdif)/5 , 'asshole', 'stretch'
  280. stim['act'] = stim['act'] - (agrdif + altdif)
  281. elseif $ARGS[0] = 'anal_vibe':
  282. orgasm_flag = 1
  283. temp_anal = 1
  284. count['anal_vibe'] = 1
  285. stim['mag'] += 1
  286. stim['act'] = 60
  287. if traits['buttslut_lvl'] = 1:
  288. stim['mag'] += 1
  289. stim['act'] = 70
  290. elseif traits['buttslut_lvl'] >= 2:
  291. stim['mag'] += 2
  292. stim['act'] = 90
  293. end
  294. elseif $ARGS[0] = 'vaginal':
  295. orgasm_flag = 1
  296. !! pre-cum check
  297. if rand(0,120) < ARGS[1]: cumprecheck = 1 & gs 'cum_manage'
  298. if temp_unaware = 1:
  299. count['hidden_vaginal'] = 1
  300. else
  301. count['vaginal'] = 1
  302. end
  303. stim['mag'] += 3
  304. !! This section deals with pcs_vag if she still thinks she is virgin. There are many instances where virginity is
  305. !! checked via pcs_vag = 0, so for the time being i will not adjust pcs_vag if she believes.
  306. if temp_unaware = 0 or count['vaginal'] > 0:
  307. if pcs_vag < dick:pcs_vag += 1
  308. if pcs_vag*2 < dick:pcs_vag += 1
  309. end
  310. !! length and girth abilities of vagina are not separated , but I suppose that they are related
  311. !! we can estimate difference in girth and length vaginal_girth_difference and vaginal_lenght_difference - names are shortened
  312. vgrdif = grange - pcs_vag
  313. vltdif = temp_dick - pcs_vag
  314. !! negative influence of the difference can be reduced by sex skill and also by PCs horniness, using of a lubricant is not established yet
  315. !! I made it as simply as possible so you do not complain about reality, feel free to modify the algorithm
  316. !! when the boy is skilled, he can compensate the difference partly
  317. vltdif = vltdif / (temp_silavag+1)
  318. vgrdif = vgrdif *(5/4 - 1/(4 - temp_silavag))
  319. !! when the boy is skilled, he does not harm PC with his long dick
  320. if (temp_silavag = 2) and (vltdif > 0): vltdif = 0
  321. !! even PC horniness can compensate the difference
  322. if vgrdif > vaginal_slip: vgrdif = vgrdif - vaginal_slip else if (vgrdif > 0): vgrdif = 0
  323. if -1*vgrdif > vaginal_slip: vgrdif = vgrdif + vaginal_slip else if (vgrdif < 0): vgrdif = 0
  324. stim['act'] = 80 - (iif(vltdif>0,vltdif,-vltdif) + iif(vgrdif >0,vgrdif,-vgrdif)) + temp_silavag*8
  325. !! if the dick is smaller, it cannot harm PC
  326. if vgrdif < 0: vgrdif = 0
  327. if vltdif < 0: vltdif = 0
  328. !! calculate the harm
  329. vgape = iif((vgrdif + vltdif) > 10*vgape,(vgrdif + vltdif)/10,vgape)
  330. !! the pain lover the pleasure
  331. gs 'pain', (vgrdif + vltdif)/5 , 'vaginal', 'stretch'
  332. stim['act'] = stim['act'] - (vgrdif + vltdif)
  333. elseif $ARGS[0] = 'vaginal_finger':
  334. orgasm_flag = 1
  335. count['vaginal_finger'] = 1
  336. stim['mag'] += 1
  337. stim['act'] = 80
  338. elseif $ARGS[0] = 'vaginal_fist':
  339. orgasm_flag = 1
  340. count['vaginal_fist'] = 1
  341. stim['act'] = 70
  342. if pcs_vag + vaginal_slip < 30:
  343. !! same as for 'vaginal'
  344. if temp_unaware = 0 or count['vaginal'] > 0:pcs_vag += 3
  345. gs 'pain', 3 - vgape, 'vaginal', 'stretch'
  346. if vgape < 3:vgape = 3
  347. end
  348. elseif $ARGS[0] = 'vaginal_dildo':
  349. orgasm_flag = 1
  350. count['vaginal_dildo'] = 1
  351. stim['mag'] += 1
  352. !! the same as for 'vaginal'
  353. if pcs_vag < temp_dick:pcs_vag += 1
  354. if pcs_vag*2 < temp_dick:pcs_vag += 1
  355. vgrdif = grange - pcs_vag
  356. vltdif = temp_dick - pcs_vag
  357. vltdif = vltdif / (temp_silavag+1)
  358. vgrdif = vgrdif *(5/4 - 1/(4 - temp_silavag))
  359. if (temp_silavag = 2) and (vltdif > 0): vltdif = 0
  360. if vgrdif > vaginal_slip: vgrdif = vgrdif - vaginal_slip else if (vgrdif > 0): vgrdif = 0
  361. if -1*vgrdif > vaginal_slip: vgrdif = vgrdif + vaginal_slip else if (vgrdif < 0): vgrdif = 0
  362. stim['act'] = 80 - (iif(vltdif>0,vltdif,-vltdif) + iif(vgrdif >0,vgrdif,-vgrdif)) + temp_silavag*8
  363. if vgrdif < 0: vgrdif = 0
  364. if vltdif < 0: vltdif = 0
  365. vgape = iif((vgrdif + vltdif) > 10*vgape,(vgrdif + vltdif)/10,vgape)
  366. gs 'pain', (vgrdif + vltdif)/5 , 'vaginal', 'stretch'
  367. stim['act'] = stim['act'] - (vgrdif + vltdif)
  368. elseif $ARGS[0] = 'vaginal_strap':
  369. orgasm_flag = 1
  370. count['vaginal_strap'] = 1
  371. stim['mag'] += 1
  372. !! virginal capacity increase
  373. if pcs_vag < temp_dick:pcs_vag += 1
  374. if pcs_vag*2 < temp_dick:pcs_vag += 1
  375. !! the same as for 'vaginal'
  376. vgrdif = grange - pcs_vag
  377. vltdif = temp_dick - pcs_vag
  378. vltdif = vltdif / (temp_silavag+1)
  379. vgrdif = vgrdif *(5/4 - 1/(4 - temp_silavag))
  380. if (temp_silavag = 2) and (vltdif > 0): vltdif = 0
  381. if vgrdif > vaginal_slip: vgrdif = vgrdif - vaginal_slip else if (vgrdif > 0): vgrdif = 0
  382. if -1*vgrdif > vaginal_slip: vgrdif = vgrdif + vaginal_slip else if (vgrdif < 0): vgrdif = 0
  383. stim['act'] = 80 - (iif(vltdif>0,vltdif,-vltdif) + iif(vgrdif >0,vgrdif,-vgrdif)) + temp_silavag*8
  384. if vgrdif < 0: vgrdif = 0
  385. if vltdif < 0: vltdif = 0
  386. vgape = iif((vgrdif + vltdif) > 10*vgape,(vgrdif + vltdif)/10,vgape)
  387. gs 'pain', (vgrdif + vltdif)/5 , 'vaginal', 'stretch'
  388. stim['act'] = stim['act'] - (vgrdif + vltdif)
  389. elseif $ARGS[0] = 'vaginal_vibe':
  390. orgasm_flag = 1
  391. count['vaginal_vibe'] = 1
  392. stim['mag'] += 2
  393. stim['act'] = 90
  394. elseif $ARGS[0] = 'flashlite':
  395. count['flashlite'] = 1
  396. stim['act'] = 10
  397. elseif $ARGS[0] = 'flash':
  398. count['flash'] = 1
  399. stim['act'] = 30
  400. elseif $ARGS[0] = 'BDSM':
  401. count['BDSM'] = 1
  402. stim['act'] = 20
  403. elseif $ARGS[0] = 'pee':
  404. count['pee'] = 1
  405. stim['act'] = 10
  406. elseif $ARGS[0] = 'massage_give':
  407. count['massage_give'] = 1
  408. stim['act'] = 10
  409. elseif $ARGS[0] = 'foreplay_give':
  410. count['foreplay_give'] = 1
  411. stim['act'] = 20
  412. elseif $ARGS[0] = 'cuni_give':
  413. count['cuni_give'] = 1
  414. stim['act'] = 30
  415. stim_les = 1
  416. elseif $ARGS[0] = 'rimming_give':
  417. count['rimming_give'] = 1
  418. stim['act'] = 25
  419. elseif $ARGS[0] = 'anal_finger_give':
  420. count['anal_finger_give'] = 1
  421. stim['act'] = 40
  422. elseif $ARGS[0] = 'anal_fist_give':
  423. count['anal_fist_give'] = 1
  424. stim['act'] = 30
  425. elseif $ARGS[0] = 'anal_dildo_give':
  426. count['anal_dildo_give'] = 1
  427. stim['act'] = 40
  428. elseif $ARGS[0] = 'anal_vibe_give':
  429. count['anal_vibe_give'] = 1
  430. stim['act'] = 40
  431. elseif $ARGS[0] = 'anal_strap_give':
  432. count['anal_strap_give'] = 1
  433. stim['act'] = 40
  434. elseif $ARGS[0] = 'vaginal_finger_give':
  435. count['vaginal_finger_give'] = 1
  436. stim['act'] = 60
  437. stim_les = 1
  438. elseif $ARGS[0] = 'vaginal_fist_give':
  439. count['vaginal_fist_give'] = 1
  440. stim['act'] = 50
  441. stim_les = 1
  442. elseif $ARGS[0] = 'vaginal_dildo_give':
  443. count['vaginal_dildo_give'] = 1
  444. stim['act'] = 60
  445. stim_les = 1
  446. elseif $ARGS[0] = 'vaginal_strap_give':
  447. count['vaginal_strap_give'] = 1
  448. stim['act'] = 70
  449. stim_les = 1
  450. elseif $ARGS[0] = 'vaginal_vibe_give':
  451. count['vaginal_vibe_give'] = 1
  452. stim['act'] = 60
  453. stim_les = 1
  454. elseif $ARGS[0] = 'hj':
  455. if temp_unaware = 1:
  456. count['hidden_hj'] = 1
  457. else
  458. count['hj'] = 1
  459. end
  460. stim['act'] = 25
  461. elseif $ARGS[0] = 'bj':
  462. if temp_unaware = 1:
  463. count['hidden_bj'] = 1
  464. else
  465. count['bj'] = 1
  466. end
  467. stim['act'] = 45
  468. if temp_dick > pcs_throat: pcs_throat += 1
  469. elseif $ARGS[0] = 'footjob':
  470. if temp_unaware = 1:
  471. count['hidden_footjob'] = 1
  472. else
  473. count['footjob'] = 1
  474. end
  475. stim['act'] = 25
  476. stim_foot = 1
  477. elseif $ARGS[0] = 'titjob':
  478. if temp_unaware = 1:
  479. count['hidden_titjob'] = 1
  480. else
  481. count['titjob'] = 1
  482. end
  483. stim['act'] = 45
  484. stim_titjob = 1
  485. elseif $ARGS[0] = 'BDSM_give':
  486. count['BDSM_give'] = 1
  487. stim['act'] = 20
  488. elseif $ARGS[0] = 'pee_give':
  489. count['pee_give'] = 1
  490. stim['act'] = 10
  491. end
  492. !! anal acts
  493. if (mid($ARGS[0],1,4) = 'anal' and mid($ARGS[0],len($ARGS[0])-3,len($ARGS[0])) ! 'give') or $ARGS[0] = 'rimming':
  494. if traits['buttslut_lvl'] = 3:
  495. stim['act'] += 20
  496. end
  497. end
  498. if stim['mag'] > 9: stim['mag'] = 9
  499. if ARGS[1] > 0: minut += ARGS[1]
  500. stim['time'] = iif(ARGS[1]>0,ARGS[1],-ARGS[1])
  501. !!Adds effects due to sexual perversions
  502. stim['kinkno'] = 0
  503. stim['kink'] = 0
  504. !! Auto adding of lesbian and foot fetishes for acts that must involve them
  505. if stim_les = 1:
  506. stim['kink'] += lesbian['exp']
  507. stim['pref'] += lesbian['pref']
  508. stim['kinkno'] += 1
  509. if temp_unaware = 1:
  510. stim['hidden_lesbian'] = 1
  511. else
  512. stim['lesbian'] = 1
  513. end
  514. end
  515. if stim_foot = 1:
  516. stim['kink'] += feet['exp']
  517. stim['pref'] += feet['pref']
  518. stim['kinkno'] += 1
  519. stim['feet'] = 1
  520. end
  521. if $ARGS[1] ! 'porn' and $ARGS[1] ! 'voyeur' and $ARGS[1] ! 'erotic':
  522. i = 2
  523. :stimloop
  524. if $ARGS[i] ! '':
  525. !!Skipping lesbian and foot where auto added to avoid duplication
  526. if stim_les = 1 and $ARGS[i] = 'lesbian':i += 1 & jump 'stimloop'
  527. if stim_foot = 1 and $ARGS[i] = 'feet':i += 1 & jump 'stimloop'
  528. if $ARGS[i] = 'bound':
  529. stim['kink'] += bound['exp']
  530. stim['pref'] += bound['pref']
  531. stim['kinkno'] += 1
  532. stim['bound'] = 1
  533. elseif $ARGS[i] = 'beast':
  534. stim['kink'] += beast['exp']
  535. stim['pref'] += beast['pref']
  536. stim['kinkno'] += 1
  537. stim['beast'] = 1
  538. elseif $ARGS[i] = 'exhibitionism':
  539. stim['kink'] += exhibitionism['exp']
  540. stim['pref'] += exhibitionism['pref']
  541. inhib_exp += rand(2,6)
  542. stim['kinkno'] += 1
  543. stim['exhibitionism'] = 1
  544. elseif $ARGS[i] = 'rough':
  545. stim['kink'] += rough['exp']
  546. stim['pref'] += rough['pref']
  547. stim['kinkno'] += 1
  548. stim['rough'] = 1
  549. elseif $ARGS[i] = 'prostitution':
  550. stim['kink'] += prostitution['exp']
  551. stim['pref'] += prostitution['pref']
  552. stim['kinkno'] += 1
  553. if temp_unaware = 1:
  554. stim['hidden_prostitution'] = 1
  555. else
  556. stim['prostitution'] = 1
  557. end
  558. elseif $ARGS[i] = 'dom':
  559. stim['kink'] += dom['exp']
  560. stim['pref'] += dom['pref']
  561. stim['kinkno'] += 1
  562. stim['dom'] = 1
  563. elseif $ARGS[i] = 'sub':
  564. stim['kink'] += sub['exp']
  565. stim['pref'] += sub['pref']
  566. stim['kinkno'] += 1
  567. stim['sub'] = 1
  568. elseif $ARGS[i] = 'incest':
  569. stim['kink'] += incest['exp']
  570. stim['pref'] += incest['pref']
  571. stim['kinkno'] += 1
  572. stim['incest'] = 1
  573. elseif $ARGS[i] = 'feet':
  574. stim['kink'] += feet['exp']
  575. stim['pref'] += feet['pref']
  576. stim['kinkno'] += 1
  577. stim['feet'] = 1
  578. elseif $ARGS[i] = 'lesbian':
  579. stim['kink'] += lesbian['exp']
  580. stim['pref'] += lesbian['pref']
  581. stim['kinkno'] += 1
  582. if temp_unaware = 1:
  583. stim['hidden_lesbian'] = 1
  584. else
  585. stim['lesbian'] = 1
  586. end
  587. elseif $ARGS[i] = 'group':
  588. stim['kink'] += group['exp']
  589. stim['pref'] += group['pref']
  590. stim['kinkno'] += 1
  591. if temp_unaware = 1:
  592. stim['hidden_group'] = 1
  593. else
  594. stim['group'] = 1
  595. end
  596. elseif $ARGS[i] = 'gangbang':
  597. stim['kink'] += gang['exp']
  598. stim['pref'] += gang['pref']
  599. stim['kinkno'] += 1
  600. if temp_unaware = 1:
  601. stim['hidden_gang'] = 1
  602. else
  603. stim['gang'] = 1
  604. end
  605. elseif $ARGS[i] = 'humiliation':
  606. stim['kink'] += humiliation['exp']
  607. stim['pref'] += humiliation['pref']
  608. stim['kinkno'] += 1
  609. stim['humiliation'] = 1
  610. elseif $ARGS[i] = 'maso':
  611. stim['kink'] += maso['exp']
  612. stim['pref'] += maso['pref']
  613. stim['kinkno'] += 1
  614. stim['maso'] = 1
  615. elseif $ARGS[i] = 'deepthroat':
  616. stim['kink'] += deepthroat['exp']
  617. stim['pref'] += deepthroat['pref']
  618. stim['kinkno'] += 1
  619. stim['deepthroat'] = 1
  620. !!unknown is for sex with an unknown partner, this could be a gloryhole or unconscious
  621. elseif $ARGS[i] = 'unknown':
  622. stim['kink'] += unknown['exp']
  623. stim['pref'] += unknown['pref']
  624. stim['kinkno'] += 1
  625. stim['unknown'] = 1
  626. elseif $ARGS[i] = 'gloryhole':
  627. stim['kink'] += gloryhole['exp']
  628. stim['pref'] += gloryhole['pref']
  629. stim['kinkno'] += 1
  630. if temp_unaware = 1:
  631. stim['hidden_gloryhole'] = 1
  632. else
  633. stim['gloryhole'] = 1
  634. end
  635. elseif $ARGS[i] = 'rape':
  636. stim['kink'] += rape['exp']
  637. stim['pref'] += rape['pref']
  638. stim['kinkno'] += 1
  639. rapeday = daystart
  640. if temp_unaware = 1:
  641. stim['hidden_rape'] = 1
  642. else
  643. stim['rape'] = 1
  644. end
  645. elseif $ARGS[i] = 'futa':
  646. stim['kink'] += futa['exp']
  647. stim['pref'] += futa['pref']
  648. stim['kinkno'] += 1
  649. if temp_unaware = 1:
  650. stim['hidden_futa'] = 1
  651. else
  652. stim['futa'] = 1
  653. end
  654. end
  655. i += 1
  656. jump 'stimloop'
  657. end
  658. end
  659. !!Fetishes are divided by total number of fetishes
  660. if stim['kinkno'] ! 0:
  661. stim['kink'] = stim['kink']/stim['kinkno']
  662. stim['pref'] = (stim['pref']/stim['kinkno'])
  663. stim['kinkno'] = 0
  664. end
  665. !!Bonus from fetishes, randomised chance for each level of bonus
  666. if rand(0,100) < stim['kink']:
  667. stim['kink'] = 120
  668. elseif rand(0,80) < stim['kink']:
  669. stim['kink'] = 110
  670. elseif rand(0,60) < stim['kink']:
  671. stim['kink'] = 100
  672. elseif rand(0,40) < stim['kink']:
  673. stim['kink'] = 90
  674. else
  675. stim['kink'] = 80
  676. end
  677. !!arousal calculation
  678. stim['total'] = ((stim['mag']*stim['act']*stim['kink']/100) + stim['pref'])*stim['time'] / 120
  679. !!Reduction in arousal linked to pain, masochism helps to deal with this
  680. if pain['total'] > 0:
  681. if maso['pref'] <= 0 and pain['total'] < 50:
  682. if pain['total'] - (maso['exp'] + 1 / 6) > 0:stim['total'] -= (pain['total'] - (maso['exp'] / 6))
  683. elseif maso['pref'] < 25 and pain['total'] < 55:
  684. stim['total'] += (pain['total'] * maso['exp'] +1 / 400)/60*stim['time']
  685. elseif maso['pref'] < 50 and pain['total'] < 70:
  686. stim['total'] += (pain['total'] * maso['exp'] + 1 / 300)/60*stim['time']
  687. elseif maso['pref'] < 75 and pain['total'] < 85:
  688. stim['total'] += (pain['total'] * maso['exp'] + 1 / 200)/60*stim['time']
  689. elseif maso['pref'] >= 75:
  690. stim['total'] += (pain['total'] * maso['exp'] + 1 / 100)/60*stim['time']
  691. else
  692. stim['total'] = 0
  693. end
  694. end
  695. stim['event'] += stim['total']
  696. pcs_horny += stim['total']
  697. !! This is to allow a Succubus with the right skill level to handle any size then go back to original size
  698. if sucvagorg ! 0 and sucvagorg ! pcs_vag: pcs_vag = sucvagorg & killvar 'sucvagorg'
  699. if sucanusorg ! 0 and sucanusorg ! pcs_ass: pcs_ass = sucanusorg & killvar 'sucanusorg'
  700. !!-------------------Orgasm-------------------
  701. !!This is intended to be hidden and the stats and calculations should not appear in game.
  702. if orgasm_flag ! 0: nymphosex_flag = 1
  703. orgasm_buildup += stim['total']
  704. !! This is determining if Sveta will orgasm
  705. if $orgasm_or ! 'no' and $ARGS[0] ! 'flashlite' and $ARGS[0] ! 'flash' and orgasm_flag ! 0:
  706. if $orgasm_or = 'yes' or $orgasm_or = 'custom':
  707. gs 'orgasm', $ARGS[0]
  708. elseif orgasm_buildup >= 100 and stim['total'] > 10 and rand(1,100) <= 20:
  709. gs 'orgasm', $ARGS[0]
  710. elseif orgasm_buildup >= 150 and stim['total'] > 6 and rand(1,100) <= 50:
  711. gs 'orgasm', $ARGS[0]
  712. elseif orgasm_buildup >= 200 and stim['total'] > 4:
  713. gs 'orgasm', $ARGS[0]
  714. end
  715. end
  716. !!This is release is Sveta is so horny and pent up that she can cum with minimal stimulation
  717. if $orgasm_or ! 'no' and orgasm_buildup >= 300 and pcs_horny >= 60: gs 'orgasm', $ARGS[0]
  718. !!Clearing temporary variables with orgasm as a gs this will catch anything there too
  719. killvar 'temp_dick'
  720. killvar 'temp_unaware'
  721. killvar 'temp_text'
  722. killvar '$orgasm_txt'
  723. killvar '$stim_les'
  724. killvar '$stim_foot'
  725. gs 'nichUtil','onArouse',$ARGS[0]
  726. end
  727. !!-----------------------------------------------
  728. !!This calculates the various sex stats and includes a small cooldown of stimulation so only use it once per event
  729. if $ARGS[0] = 'end':
  730. if orgasm_buildup > 350: orgasm_buildup = 350
  731. if orgasm_buildup > 300: orgasm_buildup -= 10
  732. if orgasm_buildup > 200: orgasm_buildup -= 10
  733. if orgasm_buildup > 100: orgasm_buildup -= 10
  734. if stim['lesbian'] = 1: lesbian += 1
  735. if stim['hidden_lesbian'] = 1: hidden_lesbian += 1
  736. if stim['gang'] = 1 or stim['group'] = 1: gang += 1
  737. if stim['hidden_gang'] = 1 or stim['hidden_group'] = 1: hidden_gang += 1
  738. if stim['gloryhole'] = 1: gloryhole += 1
  739. if stim['hidden_gloryhole'] = 1: hidden_gloryhole += 1
  740. if stim['rape'] = 1: rape += 1
  741. if stim['hidden_rape'] = 1: hidden_rape += 1
  742. if stim['futa'] = 1: futa += 1
  743. if stim['hidden_futa'] = 1: hidden_futa += 1
  744. if stim['prostitution'] = 1: slutty += 1
  745. if stim['hidden_prostitution'] = 1: hidden_slutty += 1
  746. killvar 'anal_slip'
  747. killvar 'ar_anal_lube'
  748. killvar 'vaginal_slip'
  749. killvar 'ar_vag_lube'
  750. killvar '$orgasm_or'
  751. !!Updating fetish exp for acts carried out and clearing data
  752. gs 'arousal', 'checks', 'maso'
  753. gs 'arousal', 'checks', 'bound'
  754. gs 'arousal', 'checks', 'beast'
  755. gs 'arousal', 'checks', 'exhibitionism'
  756. gs 'arousal', 'checks', 'rough'
  757. gs 'arousal', 'checks', 'prostitution'
  758. gs 'arousal', 'checks', 'hidden_prostitution'
  759. gs 'arousal', 'checks', 'dom'
  760. gs 'arousal', 'checks', 'sub'
  761. gs 'arousal', 'checks', 'incest'
  762. gs 'arousal', 'checks', 'feet'
  763. gs 'arousal', 'checks', 'lesbian'
  764. gs 'arousal', 'checks', 'hidden_lesbian'
  765. gs 'arousal', 'checks', 'group'
  766. gs 'arousal', 'checks', 'hidden_group'
  767. gs 'arousal', 'checks', 'gang'
  768. gs 'arousal', 'checks', 'hidden_gang'
  769. gs 'arousal', 'checks', 'humiliation'
  770. gs 'arousal', 'checks', 'deepthroat'
  771. gs 'arousal', 'checks', 'unknown'
  772. gs 'arousal', 'checks', 'gloryhole'
  773. gs 'arousal', 'checks', 'hidden_gloryhole'
  774. gs 'arousal', 'checks', 'rape'
  775. gs 'arousal', 'checks', 'hidden_rape'
  776. gs 'arousal', 'checks', 'futa'
  777. gs 'arousal', 'checks', 'hidden_futa'
  778. stim['event'] = 0
  779. !!Adding to counts for character stats
  780. gs 'arousal', 'count', 'foreplay'
  781. gs 'arousal', 'count', 'mast'
  782. gs 'arousal', 'count', 'porn'
  783. gs 'arousal', 'count', 'cuni'
  784. gs 'arousal', 'count', 'rimming'
  785. gs 'arousal', 'count', 'trib'
  786. gs 'arousal', 'count', 'anal'
  787. gs 'arousal', 'count', 'hidden_anal'
  788. gs 'arousal', 'count', 'anal_finger'
  789. gs 'arousal', 'count', 'anal_fist'
  790. gs 'arousal', 'count', 'anal_dildo'
  791. gs 'arousal', 'count', 'anal_strap'
  792. gs 'arousal', 'count', 'anal_vibe'
  793. gs 'arousal', 'count', 'vaginal'
  794. gs 'arousal', 'count', 'hidden_vaginal'
  795. gs 'arousal', 'count', 'vaginal_finger'
  796. gs 'arousal', 'count', 'vaginal_fist'
  797. gs 'arousal', 'count', 'vaginal_dildo'
  798. gs 'arousal', 'count', 'vaginal_strap'
  799. gs 'arousal', 'count', 'vaginal_vibe'
  800. gs 'arousal', 'count', 'BDSM'
  801. gs 'arousal', 'count', 'pee'
  802. gs 'arousal', 'count', 'massage'
  803. gs 'arousal', 'count', 'foreplay_give'
  804. gs 'arousal', 'count', 'cuni_give'
  805. gs 'arousal', 'count', 'rimming_give'
  806. gs 'arousal', 'count', 'anal_finger_give'
  807. gs 'arousal', 'count', 'anal_fist_give'
  808. gs 'arousal', 'count', 'anal_dildo_give'
  809. gs 'arousal', 'count', 'anal_vibe_give'
  810. gs 'arousal', 'count', 'anal_strap_give'
  811. gs 'arousal', 'count', 'vaginal_finger_give'
  812. gs 'arousal', 'count', 'vaginal_fist_give'
  813. gs 'arousal', 'count', 'vaginal_dildo_give'
  814. gs 'arousal', 'count', 'vaginal_strap_give'
  815. gs 'arousal', 'count', 'vaginal_vibe_give'
  816. gs 'arousal', 'count', 'hj'
  817. gs 'arousal', 'count', 'hidden_hj'
  818. gs 'arousal', 'count', 'bj'
  819. gs 'arousal', 'count', 'hidden_bj'
  820. gs 'arousal', 'count', 'footjob'
  821. gs 'arousal', 'count', 'hidden_footjob'
  822. gs 'arousal', 'count', 'titjob'
  823. gs 'arousal', 'count', 'hidden_titjob'
  824. gs 'arousal', 'count', 'BDSM_give'
  825. gs 'arousal', 'count', 'pee_give'
  826. gs 'arousal', 'count', 'massage_give'
  827. gs 'arousal', 'count2', 'flashlite'
  828. gs 'arousal', 'count2', 'flash'
  829. gs 'arousal', 'count2', 'voyeur'
  830. gs 'arousal', 'count2', 'voyeur_sex'
  831. gs 'arousal', 'count2', 'erotic_nudity'
  832. !! Thats here because there is currently a variable zoo.
  833. if zoo > beast['exp']: beast['exp'] = zoo
  834. if beast['exp'] > zoo: zoo = beast['exp']
  835. !!
  836. end
  837. if $ARGS[0] = 'count':
  838. if dyneval('RESULT = count[''<<$ARGS[1]>>'']') = 1:
  839. dynamic 'count[''<<$ARGS[1]>>''] = 0'
  840. dynamic 'stat[''<<$ARGS[1]>>''] += 1'
  841. count['flashlite'] = 0
  842. count['flash'] = 0
  843. count['voyeur'] = 0
  844. end
  845. end
  846. if $ARGS[0] = 'count2':
  847. if dyneval('RESULT = count[''<<$ARGS[1]>>'']') = 1:
  848. dynamic 'count[''<<$ARGS[1]>>''] = 0'
  849. dynamic 'stat[''<<$ARGS[1]>>''] += 1'
  850. end
  851. end
  852. if $ARGS[0] = 'checks':
  853. if dyneval('RESULT = stim[''<<$ARGS[1]>>'']') = 1:
  854. dynamic 'stim[''<<$ARGS[1]>>''] = 0'
  855. dynamic '<<$ARGS[1]>>[''exp''] += 1'
  856. end
  857. end
  858. !!The auto lube application
  859. !!to use enter gs 'arousal', 'auto_lube', 'anal' or 'vag'
  860. !!add 'custom' to display a custom or no text by setting $lube_txt, if $lube_txt is '' no text will be displayed
  861. if $ARGS[0] = 'auto_lube':
  862. if $ARGS[1] = 'anal' and auto_anal_lube = 1:
  863. if lubri > 0:
  864. if $ARGS[2] ! 'custom':
  865. 'You rub some lube in and around your anus.'
  866. elseif $lube_txt ! '':
  867. $lube_txt
  868. end
  869. gs 'arousal', 'anal_finger', 1
  870. anal_slip = 8
  871. ar_anal_lube = 1
  872. lubri -= 1
  873. elseif $ARGS[2] ! 'custom' or ($ARGS[2] = 'custom' and $lube_txt ! ''):
  874. 'You do not have any lube left so cannot use it during this sex act.'
  875. end
  876. end
  877. if $ARGS[1] = 'vag' and auto_vag_lube = 1:
  878. if lubri > 0:
  879. if $ARGS[2] ! 'custom':
  880. 'You rub some lube in and around your vagina.'
  881. elseif $lube_txt ! '':
  882. $lube_txt
  883. end
  884. gs 'arousal', 'vaginal_finger', 1
  885. vaginal_slip = 8
  886. ar_vag_lube = 1
  887. lubri -= 1
  888. elseif $ARGS[2] ! 'custom' or ($ARGS[2] = 'custom' and $lube_txt ! ''):
  889. 'You do not have any lube left so cannot use it during this sex act.'
  890. end
  891. end
  892. killvar '$lube_txt'
  893. end
  894. --- arousal ---------------------------------