arousal 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588
  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' 'porn' 'voyeur' 'kiss' 'breasts' 'massage' 'foreplay' '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'
  5. also when giving any of the following:
  6. 'flash_breasts' 'flash_pussy' 'flash_ass' 'kiss_give' 'breasts_give' 'massage_give' 'foreplay_give' 'cuni_give' 'rimming_give' 'anal_finger_give' 'anal_fist_give' 'anal_dildo_give' 'anal_vibe_give' 'anal_strap_give'
  7. 'vaginal_finger_give' 'vaginal_fist_give' 'vaginal_dildo_give' 'vaginal_strap_give' 'vaginal_vibe_give' 'hj' 'bj' 'footjob'
  8. All acts are from Sveta''s perspective and in cases of both giving and receiving, receiving should be used.
  9. ARGS[1] for time taken in minutes
  10. $ARGS[2] - [8] Are optional but can be upto 7 fetishes involved in the act and can be any of the following:
  11. 'maso' 'bound' 'beast' 'exhibitionism' 'rough' 'prostitution' 'dom' 'sub' 'incest' 'feet' 'lesbian' 'group' 'gangbang' 'humiliation' 'deepthroat' 'unknown'
  12. Format to use: gs 'arousal', 'act', 'duration', 'fetish', 'fetish', 'fetish', 'fetish', 'fetish', 'fetish', 'fetish'
  13. eg: gs 'arousal', 'trib', 10, 'bound', 'sub'
  14. In this case lesbianism is automatically added, much as feet would be applied to 'footjob'
  15. Only call one at a time, if more required, use multiple calls
  16. You can override the orgasm to force or prevent, to do so use:
  17. $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
  18. *$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
  19. $orgasm_or = 'no' to prevent orgasm, it will remain in place until manually changed, or if end is called.
  20. }
  21. temp_anal = 0
  22. if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks':
  23. !! This is to allow a Succubus with the right skill level to handle any size then go back to original size
  24. if succubusflag = 1 and sucskill >= 4:
  25. if dick ! pcs_vag:
  26. if dick < pcs_vag - 5 or dick > pcs_vag + 5: pcs_mood -= 10
  27. if sucvagorg = 0: sucvagorg = pcs_vag
  28. pcs_vag = dick
  29. end
  30. if dick ! pcs_ass:
  31. if dick < pcs_ass - 5 or dick > pcs_ass + 5: pcs_mood -= 10
  32. if sucanusorg = 0: sucanusorg = pcs_ass
  33. pcs_ass = dick
  34. end
  35. end
  36. !!set a magnitude as a random
  37. stim['mag'] = rand(1,100)
  38. if stim['mag'] < 3:
  39. stim['mag'] = 0
  40. elseif stim['mag'] < 13:
  41. stim['mag'] = 1
  42. elseif stim['mag'] < 24:
  43. stim['mag'] = 2
  44. elseif stim['mag'] < 40:
  45. stim['mag'] = 3
  46. elseif stim['mag'] < 50:
  47. stim['mag'] = 4
  48. elseif stim['mag'] < 60:
  49. stim['mag'] = 5
  50. elseif stim['mag'] < 70:
  51. stim['mag'] = 6
  52. elseif stim['mag'] < 85:
  53. stim['mag'] = 7
  54. elseif stim['mag'] < 95:
  55. stim['mag'] = 8
  56. else
  57. stim['mag'] = 9
  58. end
  59. !!add counter and effects due to action
  60. if $ARGS[0] = 'masturbate':
  61. counter['mast'] = 1
  62. stim['mag'] += 6
  63. stim['act'] = 100
  64. elseif $ARGS[0] = 'porn':
  65. counter['porn'] = 1
  66. stim['act'] = 20
  67. elseif $ARGS[0] = 'voyeur':
  68. counter['voyeur'] = 1
  69. stim['act'] = 30
  70. elseif $ARGS[0] = 'kiss':
  71. stim['act'] = 10
  72. elseif $ARGS[0] = 'breasts':
  73. stim['act'] = 30
  74. elseif $ARGS[0] = 'massage':
  75. stim['act'] = 25
  76. elseif $ARGS[0] = 'foreplay':
  77. stim['act'] = 20
  78. elseif $ARGS[0] = 'cuni':
  79. counter['cuni'] = 1
  80. stim['mag'] += 4
  81. stim['act'] = 80
  82. elseif $ARGS[0] = 'rimming':
  83. counter['rimming'] = 1
  84. stim['act'] = 30
  85. elseif $ARGS[0] = 'trib':
  86. counter['trib'] = 1
  87. stim['mag'] += 3
  88. stim['act'] = 70
  89. stim_les = 1
  90. elseif $ARGS[0] = 'anal':
  91. temp_anal = 1
  92. counter['anal'] = 1
  93. if dick > pcs_ass: pcs_ass += 1
  94. if ((pcs_ass + lubonus + 2) * 2) <= dick:
  95. !!Painfully too big for PC
  96. stim['act'] = 20
  97. if agape < 3:agape = 3
  98. elseif (pcs_ass + lubonus + 2) < dick:
  99. !!Big, but more bearable
  100. stim['act'] = 65
  101. if agape < 1:agape = 1
  102. elseif pcs_ass + lubonus + 2 >= dick:
  103. !!Perfect size
  104. stim['act'] = 80
  105. end
  106. elseif $ARGS[0] = 'anal_finger':
  107. temp_anal = 1
  108. counter['anal_finger'] = 1
  109. stim['act'] = 40
  110. elseif $ARGS[0] = 'anal_fist':
  111. temp_anal = 1
  112. counter['anal_fist'] = 1
  113. stim['act'] = 30
  114. if pcs_ass > 30:
  115. pcs_ass += 30
  116. if agape < 3:agape = 3
  117. end
  118. elseif $ARGS[0] = 'anal_dildo':
  119. temp_anal = 1
  120. counter['anal_dildo'] = 1
  121. if dick > pcs_ass: pcs_ass += 1
  122. if ((pcs_ass + lubonus + 2) * 2) <= dick:
  123. !!Painfully too big for PC
  124. stim['act'] = 20
  125. if agape < 3:agape = 3
  126. elseif (pcs_ass + lubonus + 2) < dick:
  127. !!Big, but more bearable
  128. stim['act'] = 65
  129. if agape < 1:agape = 1
  130. elseif pcs_ass + lubonus + 2 >= dick:
  131. !!Perfect size
  132. stim['act'] = 80
  133. end
  134. elseif $ARGS[0] = 'anal_strap':
  135. temp_anal = 1
  136. counter['anal_strap'] = 1
  137. if dick > pcs_ass: pcs_ass += 1
  138. if ((pcs_ass + lubonus + 2) * 2) <= dick:
  139. !!Painfully too big for PC
  140. stim['act'] = 20
  141. if agape < 3:agape = 3
  142. elseif (pcs_ass + lubonus + 2) < dick:
  143. !!Big, but more bearable
  144. stim['act'] = 65
  145. if agape < 1:agape = 1
  146. elseif pcs_ass + lubonus + 2 >= dick:
  147. !!Perfect size
  148. stim['act'] = 80
  149. end
  150. elseif $ARGS[0] = 'anal_vibe':
  151. temp_anal = 1
  152. counter['anal_vibe'] = 1
  153. stim['mag'] += 1
  154. stim['act'] = 60
  155. elseif $ARGS[0] = 'vaginal':
  156. counter['vaginal'] = 1
  157. stim['mag'] += 3
  158. if dick > pcs_vag: pcs_vag += 1
  159. prinat = pcs_vag + (pcs_horny / 10)
  160. if dick >= prinat * 2:
  161. !!Painfully too big for PC
  162. stim['act'] = 40
  163. if vgape < 3:vgape = 3
  164. elseif dick > prinat:
  165. !!Big, but more bearable
  166. stim['act'] = 75
  167. if vgape < 1:vgape = 1
  168. elseif dick <= prinat and dick >= pcs_vag:
  169. !!Perfect size
  170. stim['act'] = 90
  171. elseif dick < pcs_vag:
  172. !!On the small side
  173. stim['act'] = 80
  174. end
  175. elseif $ARGS[0] = 'vaginal_finger':
  176. counter['vaginal_finger'] = 1
  177. stim['mag'] += 1
  178. stim['act'] = 80
  179. elseif $ARGS[0] = 'vaginal_fist':
  180. counter['vaginal_fist'] = 1
  181. stim['act'] = 70
  182. if pcs_vag + (pcs_horny / 10) < 30:
  183. pcs_vag += 3
  184. if vgape < 3:vgape = 3
  185. end
  186. elseif $ARGS[0] = 'vaginal_dildo':
  187. counter['vaginal_dildo'] = 1
  188. stim['mag'] += 1
  189. if dick > pcs_vag: pcs_vag += 1
  190. prinat = pcs_vag + (pcs_horny / 10)
  191. if dick >= prinat * 2:
  192. !!Painfully too big for PC
  193. stim['act'] = 20
  194. if vgape < 3:vgape = 3
  195. elseif dick > prinat:
  196. !!Big, but more bearable
  197. stim['act'] = 65
  198. if vgape < 1:vgape = 1
  199. elseif dick <= prinat and dick >= pcs_vag:
  200. !!Perfect size
  201. stim['act'] = 80
  202. elseif dick < pcs_vag:
  203. !!On the small side
  204. stim['act'] = 70
  205. end
  206. elseif $ARGS[0] = 'vaginal_strap':
  207. counter['vaginal_strap'] = 1
  208. stim['mag'] += 1
  209. if dick > pcs_vag: pcs_vag += 1
  210. prinat = pcs_vag + (pcs_horny / 10)
  211. if dick >= prinat * 2:
  212. !!Painfully too big for PC
  213. stim['act'] = 20
  214. if vgape < 3:vgape = 3
  215. elseif dick > prinat:
  216. !!Big, but more bearable
  217. stim['act'] = 65
  218. if vgape < 1:vgape = 1
  219. elseif dick <= prinat and dick >= pcs_vag:
  220. !!Perfect size
  221. stim['act'] = 80
  222. elseif dick < pcs_vag:
  223. !!On the small side
  224. stim['act'] = 70
  225. end
  226. elseif $ARGS[0] = 'vaginal_vibe':
  227. counter['vaginal_vibe'] = 1
  228. stim['mag'] += 2
  229. stim['act'] = 90
  230. elseif $ARGS[0] = 'flash_breasts':
  231. counter['flash_breasts'] = 1
  232. stim['act'] = 30
  233. elseif $ARGS[0] = 'flash_pussy':
  234. counter['flash_pussy'] = 1
  235. stim['act'] = 10
  236. elseif $ARGS[0] = 'flash_ass':
  237. counter['flash_ass'] = 1
  238. stim['act'] = 10
  239. elseif $ARGS[0] = 'kiss_give':
  240. stim['act'] = 20
  241. elseif $ARGS[0] = 'breasts_give':
  242. stim['act'] = 20
  243. elseif $ARGS[0] = 'massage_give':
  244. stim['act'] = 10
  245. elseif $ARGS[0] = 'foreplay_give':
  246. stim['act'] = 20
  247. elseif $ARGS[0] = 'cuni_give':
  248. counter['cuni_give'] = 1
  249. stim['act'] = 30
  250. stim_les = 1
  251. elseif $ARGS[0] = 'rimming_give':
  252. counter['rimming_give'] = 1
  253. stim['act'] = 25
  254. elseif $ARGS[0] = 'anal_finger_give':
  255. counter['anal_finger_give'] = 1
  256. stim['act'] = 40
  257. elseif $ARGS[0] = 'anal_fist_give':
  258. counter['anal_fist_give'] = 1
  259. stim['act'] = 30
  260. elseif $ARGS[0] = 'anal_dildo_give':
  261. counter['anal_dildo_give'] = 1
  262. stim['act'] = 40
  263. elseif $ARGS[0] = 'anal_vibe_give':
  264. counter['anal_vibe_give'] = 1
  265. stim['act'] = 40
  266. elseif $ARGS[0] = 'anal_strap_give':
  267. counter['anal_strap_give'] = 1
  268. stim['act'] = 40
  269. elseif $ARGS[0] = 'vaginal_finger_give':
  270. counter['vaginal_finger_give'] = 1
  271. stim['act'] = 60
  272. stim_les = 1
  273. elseif $ARGS[0] = 'vaginal_fist_give':
  274. counter['vaginal_fist_give'] = 1
  275. stim['act'] = 50
  276. stim_les = 1
  277. elseif $ARGS[0] = 'vaginal_dildo_give':
  278. counter['vaginal_dildo_give'] = 1
  279. stim['act'] = 60
  280. stim_les = 1
  281. elseif $ARGS[0] = 'vaginal_strap_give':
  282. counter['vaginal_strap_give'] = 1
  283. stim['act'] = 70
  284. stim_les = 1
  285. elseif $ARGS[0] = 'vaginal_vibe_give':
  286. counter['vaginal_vibe_give'] = 1
  287. stim['act'] = 60
  288. stim_les = 1
  289. elseif $ARGS[0] = 'hj':
  290. counter['hj'] = 1
  291. stim['act'] = 25
  292. elseif $ARGS[0] = 'bj':
  293. counter['bj'] = 1
  294. stim['act'] = 45
  295. if dick > pcs_throat: pcs_throat += 1
  296. stim_foot = 1
  297. elseif $ARGS[0] = 'footjob':
  298. counter['footjob'] = 1
  299. stim['act'] = 25
  300. end
  301. if stim['mag'] > 9: stim['mag'] = 9
  302. minut += ARGS[1]
  303. stim['time'] = ARGS[1]
  304. !!Adds effects due to sexual perversions
  305. stim['kinkno'] = 0
  306. stim['kink'] = 0
  307. !! Auto adding of lesbian and foot fetishes for acts that must involve them
  308. if stim_les = 1:
  309. stim['kink'] += lesbian['exp']
  310. stim['pref'] += lesbian['pref']
  311. stim['kinkno'] += 1
  312. stim['lesbian'] = 1
  313. end
  314. if stim_foot = 1:
  315. stim['kink'] += feet['exp']
  316. stim['pref'] += feet['pref']
  317. stim['kinkno'] += 1
  318. stim['feet'] = 1
  319. end
  320. i = 2
  321. :stimloop
  322. if $ARGS[i] ! '':
  323. !!Skipping lesbian and foot where auto added to avoid duplication
  324. if stim_les = 1 and $ARGS[i] = 'lesbian':i += 1 & jump 'stimloop'
  325. if stim_foot = 1 and $ARGS[i] = 'feet':i += 1 & jump 'stimloop'
  326. if $ARGS[i] = 'bound':
  327. stim['kink'] += bondage['exp']
  328. stim['pref'] += bondage['pref']
  329. stim['kinkno'] += 1
  330. stim['bound'] = 1
  331. elseif $ARGS[i] = 'beast':
  332. stim['kink'] += bestiality['exp']
  333. stim['pref'] += bestiality['pref']
  334. stim['kinkno'] += 1
  335. stim['beast'] = 1
  336. elseif $ARGS[i] = 'exhibitionism':
  337. stim['kink'] += exhibitionism['exp']
  338. stim['pref'] += exhibitionism['pref']
  339. exhibition_exp += rand(2,6)
  340. stim['kinkno'] += 1
  341. stim['exhibitionism'] = 1
  342. elseif $ARGS[i] = 'rough':
  343. stim['kink'] += rough['exp']
  344. stim['pref'] += rough['pref']
  345. stim['kinkno'] += 1
  346. stim['rough'] = 1
  347. elseif $ARGS[i] = 'prostitution':
  348. stim['kink'] += prostitution['exp']
  349. stim['pref'] += prostitution['pref']
  350. stim['kinkno'] += 1
  351. stim['prostitution'] = 1
  352. elseif $ARGS[i] = 'dom':
  353. stim['kink'] += dom['exp']
  354. stim['pref'] += pcs_dom
  355. stim['kinkno'] += 1
  356. stim['dom'] = 1
  357. elseif $ARGS[i] = 'sub':
  358. stim['kink'] += sub['exp']
  359. stim['pref'] += sub
  360. stim['kinkno'] += 1
  361. stim['sub'] = 1
  362. elseif $ARGS[i] = 'incest':
  363. stim['kink'] += incest['exp']
  364. stim['pref'] += incest['pref']
  365. stim['kinkno'] += 1
  366. stim['incest'] = 1
  367. elseif $ARGS[i] = 'feet':
  368. stim['kink'] += feet['exp']
  369. stim['pref'] += feet['pref']
  370. stim['kinkno'] += 1
  371. stim['feet'] = 1
  372. elseif $ARGS[i] = 'lesbian':
  373. stim['kink'] += lesbian['exp']
  374. stim['pref'] += lesbian['pref']
  375. stim['kinkno'] += 1
  376. stim['lesbian'] = 1
  377. elseif $ARGS[i] = 'group':
  378. stim['kink'] += group['exp']
  379. stim['pref'] += group['pref']
  380. stim['kinkno'] += 1
  381. stim['group'] = 1
  382. elseif $ARGS[i] = 'gangbang':
  383. stim['kink'] += gangbang['exp']
  384. stim['pref'] += gangbang['pref']
  385. stim['kinkno'] += 1
  386. stim['gangbang'] = 1
  387. elseif $ARGS[i] = 'humiliation':
  388. stim['kink'] += humiliation['exp']
  389. stim['pref'] += humiliation['pref']
  390. stim['kinkno'] += 1
  391. stim['humiliation'] = 1
  392. elseif $ARGS[i] = 'maso':
  393. stim['kink'] += maso['exp']
  394. stim['pref'] += maso['pref']
  395. stim['kinkno'] += 1
  396. stim['maso'] = 1
  397. elseif $ARGS[i] = 'deepthroat':
  398. stim['kink'] += deepthroat['exp']
  399. stim['pref'] += deepthroat['pref']
  400. stim['kinkno'] += 1
  401. stim['deepthroat'] = 1
  402. !!unknown is for sex with an unknown partner, this could be a gloryhole or unconscious
  403. elseif $ARGS[i] = 'unknown':
  404. stim['kink'] += unknown['exp']
  405. stim['pref'] += unknown['pref']
  406. stim['kinkno'] += 1
  407. stim['unknown'] = 1
  408. end
  409. i += 1
  410. jump 'stimloop'
  411. end
  412. !!Fetishes are divided by total number of fetishes
  413. if stim['kinkno'] ! 0:
  414. stim['kink'] = stim['kink']/stim['kinkno']
  415. stim['pref'] = (stim['pref']/stim['kinkno'])
  416. stim['kinkno'] = 0
  417. end
  418. !!Bonus from fetishes, randomised chance for each level of bonus
  419. if rand(0,100) < stim['kink']:
  420. stim['kink'] = 120
  421. elseif rand(0,80) < stim['kink']:
  422. stim['kink'] = 110
  423. elseif rand(0,60) < stim['kink']:
  424. stim['kink'] = 100
  425. elseif rand(0,40) < stim['kink']:
  426. stim['kink'] = 90
  427. else
  428. stim['kink'] = 80
  429. end
  430. !!arousal calculation
  431. stim['total'] = ((stim['mag']*stim['act']*stim['kink']/100) + stim['pref'])*stim['time'] / 120
  432. !!Reduction in arousal linked to pain, masochism helps to deal with this
  433. if pain['total'] > 0:
  434. if maso['pref'] <= 0 and pain['total'] < 50:
  435. if pain['total'] - (maso['exp'] + 1 / 6) > 0:stim['total'] -= (pain['total'] - (maso['exp'] / 6))
  436. elseif maso['pref'] < 25 and pain['total'] < 55:
  437. stim['total'] += (pain['total'] * maso['exp'] +1 / 400)/60*stim['time']
  438. elseif maso['pref'] < 50 and pain['total'] < 70:
  439. stim['total'] += (pain['total'] * maso['exp'] + 1 / 300)/60*stim['time']
  440. elseif maso['pref'] < 75 and pain['total'] < 85:
  441. stim['total'] += (pain['total'] * maso['exp'] + 1 / 200)/60*stim['time']
  442. elseif maso['pref'] >= 75:
  443. stim['total'] += (pain['total'] * maso['exp'] + 1 / 100)/60*stim['time']
  444. else
  445. stim['total'] = 0
  446. end
  447. end
  448. stim['event'] += stim['total']
  449. pcs_horny += stim['total']
  450. !! This is to allow a Succubus with the right skill level to handle any size then go back to original size
  451. if sucvagorg ! 0 and sucvagorg ! pcs_vag: pcs_vag = sucvagorg & killvar 'sucvagorg'
  452. if sucanusorg ! 0 and sucanusorg ! pcs_ass: pcs_ass = sucanusorg & killvar 'sucanusorg'
  453. !!-------------------Orgasm-------------------
  454. !!This is intended to be hidden and the stats and calculations should not appear in game.
  455. orgasm_buildup += stim['total']
  456. if $orgasm_or ! 'no':
  457. if $orgasm_or = 'yes' or $orgasm_or = 'custom':
  458. gs 'orgasm', $ARGS[0]
  459. elseif orgasm_buildup >= 100 and stim['total'] > 10 and rand(1,100) <= 20:
  460. gs 'orgasm', $ARGS[0]
  461. elseif orgasm_buildup >= 150 and stim['total'] > 6 and rand(1,100) <= 50:
  462. gs 'orgasm', $ARGS[0]
  463. elseif orgasm_buildup >= 200 and stim['total'] > 4:
  464. gs 'orgasm', $ARGS[0]
  465. end
  466. end
  467. end
  468. !!-----------------------------------------------
  469. if $ARGS[0] = 'end':
  470. if orgasm_buildup > 200: orgasm_buildup -= 10
  471. if orgasm_buildup > 150: orgasm_buildup -= 10
  472. if orgasm_buildup > 100: orgasm_buildup -= 10
  473. if stim['lesbian'] = 1: lesbian += 1
  474. if stim['gang'] = 1 or stim['group'] = 1: gang += 1
  475. if $orgasm_or = 'no': $orgasm_or = ''
  476. !!Updating fetish exp for acts carried out and clearing data
  477. gs 'arousal', 'checks', 'maso'
  478. gs 'arousal', 'checks', 'bound'
  479. gs 'arousal', 'checks', 'beast'
  480. gs 'arousal', 'checks', 'exhibitionism'
  481. gs 'arousal', 'checks', 'rough'
  482. gs 'arousal', 'checks', 'prostitution'
  483. gs 'arousal', 'checks', 'dom'
  484. gs 'arousal', 'checks', 'sub'
  485. gs 'arousal', 'checks', 'incest'
  486. gs 'arousal', 'checks', 'feet'
  487. gs 'arousal', 'checks', 'lesbian'
  488. gs 'arousal', 'checks', 'group'
  489. gs 'arousal', 'checks', 'gangbang'
  490. gs 'arousal', 'checks', 'humiliation'
  491. gs 'arousal', 'checks', 'deepthroat'
  492. gs 'arousal', 'checks', 'unknown'
  493. stim['event'] = 0
  494. !!Adding to counters for character stats
  495. gs 'arousal', 'counter', 'mast'
  496. gs 'arousal', 'counter', 'porn'
  497. gs 'arousal', 'counter', 'cuni'
  498. gs 'arousal', 'counter', 'rimming'
  499. gs 'arousal', 'counter', 'trib'
  500. gs 'arousal', 'counter', 'anal'
  501. gs 'arousal', 'counter', 'anal_finger'
  502. gs 'arousal', 'counter', 'anal_fist'
  503. gs 'arousal', 'counter', 'anal_dildo'
  504. gs 'arousal', 'counter', 'anal_strap'
  505. gs 'arousal', 'counter', 'anal_vibe'
  506. gs 'arousal', 'counter', 'vaginal'
  507. gs 'arousal', 'counter', 'vaginal_finger'
  508. gs 'arousal', 'counter', 'vaginal_fist'
  509. gs 'arousal', 'counter', 'vaginal_dildo'
  510. gs 'arousal', 'counter', 'vaginal_strap'
  511. gs 'arousal', 'counter', 'vaginal_vibe'
  512. gs 'arousal', 'counter', 'cuni_give'
  513. gs 'arousal', 'counter', 'rimming_give'
  514. gs 'arousal', 'counter', 'anal_finger_give'
  515. gs 'arousal', 'counter', 'anal_fist_give'
  516. gs 'arousal', 'counter', 'anal_dildo_give'
  517. gs 'arousal', 'counter', 'anal_vibe_give'
  518. gs 'arousal', 'counter', 'anal_strap_give'
  519. gs 'arousal', 'counter', 'vaginal_finger_give'
  520. gs 'arousal', 'counter', 'vaginal_fist_give'
  521. gs 'arousal', 'counter', 'vaginal_dildo_give'
  522. gs 'arousal', 'counter', 'vaginal_strap_give'
  523. gs 'arousal', 'counter', 'vaginal_vibe_give'
  524. gs 'arousal', 'counter', 'hj'
  525. gs 'arousal', 'counter', 'bj'
  526. gs 'arousal', 'counter', 'footjob'
  527. gs 'arousal', 'counter2', 'flash_breasts'
  528. gs 'arousal', 'counter2', 'flash_pussy'
  529. gs 'arousal', 'counter2', 'flash_ass'
  530. gs 'arousal', 'counter2', 'voyeur'
  531. end
  532. if $ARGS[0] = 'counter':
  533. if dyneval('RESULT = counter[''<<$ARGS[1]>>'']') = 1:
  534. dynamic 'counter[''<<$ARGS[1]>>''] = 0'
  535. dynamic 'stat[''<<$ARGS[1]>>''] += 1'
  536. counter['flash_breasts'] = 0
  537. counter['flash_pussy'] = 0
  538. counter['flash_ass'] = 0
  539. end
  540. end
  541. if $ARGS[0] = 'counter2':
  542. if dyneval('RESULT = counter[''<<$ARGS[1]>>'']') = 1:
  543. dynamic 'counter[''<<$ARGS[1]>>''] = 0'
  544. dynamic 'stat[''<<$ARGS[1]>>''] += 1'
  545. end
  546. end
  547. if $ARGS[0] = 'checks':
  548. if dyneval('RESULT = stim[''<<$ARGS[1]>>'']') = 1:
  549. dynamic 'stim[''<<$ARGS[1]>>''] = 0'
  550. dynamic '<<$ARGS[1]>>[''exp''] += 1'
  551. end
  552. end
  553. --- arousal ---------------------------------