1
0

arousal 16 KB

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