pain.qsrc 3.6 KB

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