|
@@ -1,6 +1,6 @@
|
|
|
# pain
|
|
|
!For checking pain and when applicable triggering arousal.
|
|
|
-!ARGS[0] magnitude of pain inflicted 1 is very light, 9 is extreme, potentially hospitalizing
|
|
|
+!ARGS[0] magnitude of pain inflicted 1 is very light, 9 is the maximum value in the given way of causing pain
|
|
|
!$ARGS[1] should equal the body part being hurt from any of the following:
|
|
|
!BobyPart 'head', 'hair', 'ears', 'eyebrows', 'eyes', 'cheeks', 'nose', 'mouth', 'lips', 'tongue', 'throat', 'neck', 'back',
|
|
|
!'asscheeks', 'asshole', 'hips', 'thighs', 'legL', 'legR', 'feet', 'toes', 'shoulders', 'armL', 'armR', 'handL', 'handR',
|
|
@@ -11,219 +11,136 @@
|
|
|
!Format to use: gs 'pain', n, 'BobyPart', 'Act'
|
|
|
!For pain to multiple body parts, use multiple calls
|
|
|
|
|
|
-!pain[1] = ARGS[0]
|
|
|
-if ARGS[0] = 1:
|
|
|
- pain[1] = 1
|
|
|
-elseif ARGS[0] = 2:
|
|
|
- pain[1] = 2
|
|
|
-elseif ARGS[0] = 3:
|
|
|
- pain[1] = 3
|
|
|
-elseif ARGS[0] = 4:
|
|
|
- pain[1] = 4
|
|
|
-elseif ARGS[0] = 5:
|
|
|
- pain[1] = 5
|
|
|
-elseif ARGS[0] = 6:
|
|
|
- pain[1] = 6
|
|
|
-elseif ARGS[0] = 7:
|
|
|
- pain[1] = 7
|
|
|
-elseif ARGS[0] = 8:
|
|
|
- pain[1] = 8
|
|
|
-elseif ARGS[0] = 9:
|
|
|
- pain[1] = 9
|
|
|
-end
|
|
|
-
|
|
|
+pain[1] = min(ARGS[0],9)
|
|
|
+if pain[1]<1:exit
|
|
|
|
|
|
-if $ARGS[2] = 'pierce':
|
|
|
- pain[2] = 8
|
|
|
-elseif $ARGS[2] = 'slap':
|
|
|
+if $ARGS[2] = 'slap':
|
|
|
+ pain[2] = 1
|
|
|
+elseif $ARGS[2] = 'bind':
|
|
|
pain[2] = 1
|
|
|
elseif $ARGS[2] = 'spank':
|
|
|
pain[2] = 3
|
|
|
spank += 1
|
|
|
+elseif $ARGS[2] = 'shock':
|
|
|
+ pain[2] = 4
|
|
|
+elseif $ARGS[2] = 'twist':
|
|
|
+ pain[2] = 4
|
|
|
+elseif $ARGS[2] = 'labor':
|
|
|
+ pain[2] = 4
|
|
|
elseif $ARGS[2] = 'pinch':
|
|
|
pain[2] = 5
|
|
|
-elseif $ARGS[2] = 'bite':
|
|
|
- pain[2] = 8
|
|
|
+elseif $ARGS[2] = 'stretch':
|
|
|
+ pain[2] = 6
|
|
|
+elseif $ARGS[2] = 'Slam':
|
|
|
+ pain[2] = 6
|
|
|
elseif $ARGS[2] = 'burn':
|
|
|
pain[2] = 7
|
|
|
elseif $ARGS[2] = 'freeze':
|
|
|
pain[2] = 7
|
|
|
elseif $ARGS[2] = 'hit':
|
|
|
pain[2] = 7
|
|
|
-elseif $ARGS[2] = 'kick':
|
|
|
- pain[2] = 10
|
|
|
-elseif $ARGS[2] = 'Slam':
|
|
|
- pain[2] = 6
|
|
|
-elseif $ARGS[2] = 'shock':
|
|
|
- pain[2] = 4
|
|
|
-elseif $ARGS[2] = 'bind':
|
|
|
- pain[2] = 1
|
|
|
-elseif $ARGS[2] = 'stretch':
|
|
|
- pain[2] = 6
|
|
|
+elseif $ARGS[2] = 'pierce':
|
|
|
+ pain[2] = 8
|
|
|
+elseif $ARGS[2] = 'bite':
|
|
|
+ pain[2] = 8
|
|
|
elseif $ARGS[2] = 'tear':
|
|
|
pain[2] = 9
|
|
|
-elseif $ARGS[2] = 'break':
|
|
|
- pain[2] = 10
|
|
|
-elseif $ARGS[2] = 'twist':
|
|
|
- pain[2] = 4
|
|
|
elseif $ARGS[2] = 'ache':
|
|
|
pain[2] = 9
|
|
|
+elseif $ARGS[2] = 'kick':
|
|
|
+ pain[2] = 10
|
|
|
+elseif $ARGS[2] = 'break':
|
|
|
+ pain[2] = 10
|
|
|
elseif $ARGS[2] = 'cramp':
|
|
|
pain[2] = 10
|
|
|
-elseif $ARGS[2] = 'labor':
|
|
|
- pain[2] = 4
|
|
|
end
|
|
|
|
|
|
-if $ARGS[1] = 'head':
|
|
|
- pain[3] = 6
|
|
|
- pain['head'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['head'] > 100: pain['head'] = 100
|
|
|
-elseif $ARGS[1] = 'hair':
|
|
|
+if $ARGS[1] = 'hair':
|
|
|
pain[3] = 1
|
|
|
- pain['hair'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['hair'] > 50: pain['hair'] = 50
|
|
|
-elseif $ARGS[1] = 'ears':
|
|
|
- pain[3] = 6
|
|
|
- pain['ears'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['ears'] > 60: pain['ears'] = 60
|
|
|
-elseif $ARGS[1] = 'eyebrows':
|
|
|
- pain[3] = 6
|
|
|
- pain['eyebrows'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['eyebrows'] > 40: pain['eyebrows'] = 40
|
|
|
-elseif $ARGS[1] = 'eyes':
|
|
|
- pain[3] = 8
|
|
|
- pain['eyes'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['eyes'] > 100: pain['eyes'] = 100
|
|
|
-elseif $ARGS[1] = 'cheeks':
|
|
|
- pain[3] = 3
|
|
|
- pain['cheeks'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['cheeks'] > 50: pain['cheeks'] = 50
|
|
|
-elseif $ARGS[1] = 'nose':
|
|
|
- pain[3] = 5
|
|
|
- pain['nose'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['nose'] > 80: pain['nose'] = 80
|
|
|
-elseif $ARGS[1] = 'mouth':
|
|
|
- pain[3] = 4
|
|
|
- pain['mouth'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['mouth'] > 90: pain['mouth'] = 90
|
|
|
-elseif $ARGS[1] = 'lips':
|
|
|
- pain[3] = 6
|
|
|
- pain['lips'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['lips'] > 90: pain['lips'] = 90
|
|
|
-elseif $ARGS[1] = 'tongue':
|
|
|
- pain[3] = 7
|
|
|
- pain['tongue'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['tongue'] > 95: pain['tongue'] = 95
|
|
|
-elseif $ARGS[1] = 'throat':
|
|
|
- pain[3] = 6
|
|
|
- pain['throat'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['throat'] > 90: pain['throat'] = 90
|
|
|
-elseif $ARGS[1] = 'neck':
|
|
|
- pain[3] = 7
|
|
|
- pain['neck'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['neck'] > 70: pain['neck'] = 70
|
|
|
-elseif $ARGS[1] = 'back':
|
|
|
- pain[3] = 5
|
|
|
- pain['back'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['back'] > 90: pain['back'] = 90
|
|
|
elseif $ARGS[1] = 'asscheeks':
|
|
|
pain[3] = 2
|
|
|
- pain['asscheeks'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['asscheeks'] > 65: pain['asscheeks'] = 65
|
|
|
-elseif $ARGS[1] = 'asshole':
|
|
|
- pain[3] = 9
|
|
|
- pain['asshole'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['asshole'] > 100: pain['asshole'] = 100
|
|
|
-elseif $ARGS[1] = 'hips':
|
|
|
- pain[3] = 5
|
|
|
- pain['hips'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['hips'] > 75: pain['hips'] = 75
|
|
|
-elseif $ARGS[1] = 'thighs':
|
|
|
- pain[3] = 4
|
|
|
- pain['thighs'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['thighs'] > 80: pain['thighs'] = 80
|
|
|
-elseif $ARGS[1] = 'legL':
|
|
|
- pain[3] = 3
|
|
|
- pain['legL'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['legL'] > 70: pain['legL'] = 70
|
|
|
-elseif $ARGS[1] = 'legR':
|
|
|
- pain[3] = 3
|
|
|
- pain['legR'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['legR'] > 70: pain['legR'] = 70
|
|
|
elseif $ARGS[1] = 'feet':
|
|
|
pain[3] = 2
|
|
|
- pain['feet'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['feet'] > 85: pain['feet'] = 85
|
|
|
-elseif $ARGS[1] = 'toes':
|
|
|
- pain[3] = 4
|
|
|
- pain['toes'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['toes'] > 80: pain['toes'] = 80
|
|
|
elseif $ARGS[1] = 'shoulders':
|
|
|
pain[3] = 2
|
|
|
- pain['shoulders'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['shoulders'] > 60: pain['shoulders'] = 60
|
|
|
elseif $ARGS[1] = 'armL':
|
|
|
pain[3] = 2
|
|
|
- pain['armL'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['armL'] > 70: pain['armL'] = 70
|
|
|
elseif $ARGS[1] = 'armR':
|
|
|
pain[3] = 2
|
|
|
- pain['armR'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['armR'] > 70: pain['armR'] = 70
|
|
|
+elseif $ARGS[1] = 'cheeks':
|
|
|
+ pain[3] = 3
|
|
|
+elseif $ARGS[1] = 'legL':
|
|
|
+ pain[3] = 3
|
|
|
+elseif $ARGS[1] = 'legR':
|
|
|
+ pain[3] = 3
|
|
|
elseif $ARGS[1] = 'hands':
|
|
|
pain[3] = 3
|
|
|
- pain['hands'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['hands'] > 80: pain['hands'] = 80
|
|
|
+elseif $ARGS[1] = 'mouth':
|
|
|
+ pain[3] = 4
|
|
|
+elseif $ARGS[1] = 'thighs':
|
|
|
+ pain[3] = 4
|
|
|
+elseif $ARGS[1] = 'toes':
|
|
|
+ pain[3] = 4
|
|
|
elseif $ARGS[1] = 'fingers':
|
|
|
pain[3] = 4
|
|
|
- pain['fingers'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['fingers'] > 90: pain['fingers'] = 90
|
|
|
-elseif $ARGS[1] = 'chest':
|
|
|
- pain[3] = 7
|
|
|
- pain['chest'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['chest'] > 80: pain['chest'] = 80
|
|
|
-elseif $ARGS[1] = 'breasts':
|
|
|
- pain[3] = 8
|
|
|
- pain['breasts'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['breasts'] > 85: pain['breasts'] = 85
|
|
|
-elseif $ARGS[1] = 'nipples':
|
|
|
- pain[3] = 9
|
|
|
- pain['nipples'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['nipples'] > 95: pain['nipples'] = 95
|
|
|
+elseif $ARGS[1] = 'nose':
|
|
|
+ pain[3] = 5
|
|
|
+elseif $ARGS[1] = 'back':
|
|
|
+ pain[3] = 5
|
|
|
elseif $ARGS[1] = 'ribs':
|
|
|
pain[3] = 5
|
|
|
- pain['ribs'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['ribs'] > 80: pain['ribs'] = 80
|
|
|
+elseif $ARGS[1] = 'hips':
|
|
|
+ pain[3] = 5
|
|
|
+elseif $ARGS[1] = 'head':
|
|
|
+ pain[3] = 6
|
|
|
+elseif $ARGS[1] = 'ears':
|
|
|
+ pain[3] = 6
|
|
|
+elseif $ARGS[1] = 'eyebrows':
|
|
|
+ pain[3] = 6
|
|
|
+elseif $ARGS[1] = 'lips':
|
|
|
+ pain[3] = 6
|
|
|
+elseif $ARGS[1] = 'throat':
|
|
|
+ pain[3] = 6
|
|
|
elseif $ARGS[1] = 'tummy':
|
|
|
pain[3] = 6
|
|
|
- pain['tummy'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['tummy'] > 80: pain['tummy'] = 80
|
|
|
elseif $ARGS[1] = 'pubic':
|
|
|
pain[3] = 6
|
|
|
- pain['pubic'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['pubic'] > 75: pain['pubic'] = 75
|
|
|
+elseif $ARGS[1] = 'urethra':
|
|
|
+ pain[3] = 6
|
|
|
+elseif $ARGS[1] = 'tongue':
|
|
|
+ pain[3] = 7
|
|
|
+elseif $ARGS[1] = 'neck':
|
|
|
+ pain[3] = 7
|
|
|
+elseif $ARGS[1] = 'chest':
|
|
|
+ pain[3] = 7
|
|
|
+elseif $ARGS[1] = 'eyes':
|
|
|
+ pain[3] = 8
|
|
|
+elseif $ARGS[1] = 'breasts':
|
|
|
+ pain[3] = 8
|
|
|
elseif $ARGS[1] = 'vaginal':
|
|
|
pain[3] = 8
|
|
|
- pain['vaginal'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['vaginal'] > 90: pain['vaginal'] = 90
|
|
|
elseif $ARGS[1] = 'labia':
|
|
|
pain[3] = 8
|
|
|
- pain['labia'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['labia'] > 80: pain['labia'] = 80
|
|
|
-elseif $ARGS[1] = 'clitoris':
|
|
|
- pain[3] = 10
|
|
|
- pain['clitoris'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['clitoris'] > 100: pain['clitoris'] = 100
|
|
|
-elseif $ARGS[1] = 'urethra':
|
|
|
- pain[3] = 6
|
|
|
- pain['urethra'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['urethra'] > 95: pain['urethra'] = 95
|
|
|
elseif $ARGS[1] = 'cervix':
|
|
|
pain[3] = 8
|
|
|
- pain['cervix'] += '<<pain[1]>>' * '<<pain[2]>>' * '<<pain[3]>>' /10
|
|
|
- if pain['cervix'] > 90: pain['cervix'] = 90
|
|
|
+elseif $ARGS[1] = 'asshole':
|
|
|
+ pain[3] = 9
|
|
|
+elseif $ARGS[1] = 'nipples':
|
|
|
+ pain[3] = 9
|
|
|
+elseif $ARGS[1] = 'clitoris':
|
|
|
+ pain[3] = 10
|
|
|
end
|
|
|
|
|
|
+curpain = (pain[1] * pain[2] * pain[3]) /10
|
|
|
+prevpain = pain[$ARGS[1]]
|
|
|
+
|
|
|
+pain[$ARGS[1]] = func( 'shortgs','modul',prevpain,curpain)
|
|
|
+
|
|
|
+if pain[$ARGS[1]] > 100: pain[$ARGS[1]] = 100
|
|
|
+
|
|
|
+killvar 'prevpain'
|
|
|
+killvar 'curpain'
|
|
|
+
|
|
|
!arousal calculation
|
|
|
!arousal += (pain[1] * pain[2]) * pain[3] * masochism['pref'] / 1000
|
|
|
|