pain.qsrc 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161
  1. # pain
  2. !For checking pain and when applicable triggering arousal.
  3. !ARGS[0] magnitude of pain inflicted 1 is very light, 9 is the maximum value in the given way of causing pain
  4. !$ARGS[1] should equal the body part being hurt from any of the following:
  5. !BobyPart 'head', 'hair', 'ears', 'eyebrows', 'eyes', 'cheeks', 'nose', 'mouth', 'lips', 'tongue', 'throat', 'neck', 'back',
  6. !'asscheeks', 'asshole', 'hips', 'thighs', 'legL', 'legR', 'feet', 'toes', 'shoulders', 'armL', 'armR', 'handL', 'handR',
  7. !'fingers', 'chest', 'breasts', 'nipples', 'ribs', 'tummy', 'pubic', 'vaginal', 'labia', 'clitoris', 'urethra', 'cervix',
  8. !'wrists', 'ankles'
  9. !$ARGS[2] The action the participant has performed on Sveta (some of these can cause arousal if Sveta is into pain)
  10. !Acts: 'pierce', 'slap', 'spank', 'pinch', 'bite', 'burn', 'freeze', 'hit', 'kick', 'Slam', 'shock', 'bind', 'stretch'
  11. !'tear', 'break', 'twist', 'ache', 'cramp', 'labor', 'choke', 'fall', 'pull'
  12. !Format to use: gs 'pain', n, 'BobyPart', 'Act'
  13. !For pain to multiple body parts, use multiple calls
  14. pain[1] = min(ARGS[0],9)
  15. if pain[1]<1:exit
  16. if $ARGS[2] = 'slap':
  17. pain[2] = 1
  18. elseif $ARGS[2] = 'bind':
  19. pain[2] = 1
  20. elseif $ARGS[2] = 'spank':
  21. pain[2] = 3
  22. spank += 1
  23. elseif $ARGS[2] = 'choke':
  24. pain[2] = 3
  25. elseif $ARGS[2] = 'shock':
  26. pain[2] = 4
  27. elseif $ARGS[2] = 'twist':
  28. pain[2] = 4
  29. elseif $ARGS[2] = 'pull':
  30. pain[2] = 4
  31. elseif $ARGS[2] = 'fall':
  32. pain[2] = 4
  33. elseif $ARGS[2] = 'labor':
  34. pain[2] = 4
  35. elseif $ARGS[2] = 'pinch':
  36. pain[2] = 5
  37. elseif $ARGS[2] = 'stretch':
  38. pain[2] = 6
  39. elseif $ARGS[2] = 'slam':
  40. pain[2] = 6
  41. elseif $ARGS[2] = 'burn':
  42. pain[2] = 7
  43. elseif $ARGS[2] = 'freeze':
  44. pain[2] = 7
  45. elseif $ARGS[2] = 'hit':
  46. pain[2] = 7
  47. elseif $ARGS[2] = 'pierce':
  48. pain[2] = 8
  49. elseif $ARGS[2] = 'bite':
  50. pain[2] = 8
  51. elseif $ARGS[2] = 'tear':
  52. pain[2] = 9
  53. elseif $ARGS[2] = 'ache':
  54. pain[2] = 9
  55. elseif $ARGS[2] = 'kick':
  56. pain[2] = 10
  57. elseif $ARGS[2] = 'break':
  58. pain[2] = 10
  59. elseif $ARGS[2] = 'cramp':
  60. pain[2] = 10
  61. end
  62. if $ARGS[1] = 'hair':
  63. pain[3] = 1
  64. elseif $ARGS[1] = 'asscheeks':
  65. pain[3] = 2
  66. elseif $ARGS[1] = 'feet':
  67. pain[3] = 2
  68. elseif $ARGS[1] = 'shoulders':
  69. pain[3] = 2
  70. elseif $ARGS[1] = 'wrists':
  71. pain[3] = 2
  72. elseif $ARGS[1] = 'ankles':
  73. pain[3] = 2
  74. elseif $ARGS[1] = 'armL':
  75. pain[3] = 2
  76. elseif $ARGS[1] = 'armR':
  77. pain[3] = 2
  78. elseif $ARGS[1] = 'cheeks':
  79. pain[3] = 3
  80. elseif $ARGS[1] = 'legL':
  81. pain[3] = 3
  82. elseif $ARGS[1] = 'legR':
  83. pain[3] = 3
  84. elseif $ARGS[1] = 'hands':
  85. pain[3] = 3
  86. elseif $ARGS[1] = 'mouth':
  87. pain[3] = 4
  88. elseif $ARGS[1] = 'jaw':
  89. pain[3] = 4
  90. elseif $ARGS[1] = 'thighs':
  91. pain[3] = 4
  92. elseif $ARGS[1] = 'toes':
  93. pain[3] = 4
  94. elseif $ARGS[1] = 'fingers':
  95. pain[3] = 4
  96. elseif $ARGS[1] = 'nose':
  97. pain[3] = 5
  98. elseif $ARGS[1] = 'back':
  99. pain[3] = 5
  100. elseif $ARGS[1] = 'ribs':
  101. pain[3] = 5
  102. elseif $ARGS[1] = 'hips':
  103. pain[3] = 5
  104. elseif $ARGS[1] = 'head':
  105. pain[3] = 6
  106. elseif $ARGS[1] = 'ears':
  107. pain[3] = 6
  108. elseif $ARGS[1] = 'eyebrows':
  109. pain[3] = 6
  110. elseif $ARGS[1] = 'lips':
  111. pain[3] = 6
  112. elseif $ARGS[1] = 'throat':
  113. pain[3] = 6
  114. elseif $ARGS[1] = 'tummy':
  115. pain[3] = 6
  116. elseif $ARGS[1] = 'pubic':
  117. pain[3] = 6
  118. elseif $ARGS[1] = 'urethra':
  119. pain[3] = 6
  120. elseif $ARGS[1] = 'tongue':
  121. pain[3] = 7
  122. elseif $ARGS[1] = 'neck':
  123. pain[3] = 7
  124. elseif $ARGS[1] = 'chest':
  125. pain[3] = 7
  126. elseif $ARGS[1] = 'eyes':
  127. pain[3] = 8
  128. elseif $ARGS[1] = 'breasts':
  129. pain[3] = 8
  130. elseif $ARGS[1] = 'vaginal':
  131. pain[3] = 8
  132. elseif $ARGS[1] = 'labia':
  133. pain[3] = 8
  134. elseif $ARGS[1] = 'cervix':
  135. pain[3] = 8
  136. elseif $ARGS[1] = 'asshole':
  137. pain[3] = 9
  138. elseif $ARGS[1] = 'nipples':
  139. pain[3] = 9
  140. elseif $ARGS[1] = 'clitoris':
  141. pain[3] = 10
  142. end
  143. curpain = (pain[1] * pain[2] * pain[3]) /10
  144. prevpain = pain[$ARGS[1]]
  145. pain[$ARGS[1]] = func( 'shortgs','modul',prevpain,curpain)
  146. if pain[$ARGS[1]] > 100: pain[$ARGS[1]] = 100
  147. killvar 'prevpain'
  148. killvar 'curpain'
  149. !arousal calculation
  150. !arousal += (pain[1] * pain[2]) * pain[3] * masochism['pref'] / 1000
  151. --- pain ---------------------------------