arousal.qsrc 34 KB

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