1
0

arousal.qsrc 29 KB

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