# pain
if $ARGS[0] = 'calc':

    paintmp1 = func('shortgs','modul',pain['head'],pain['hair'],pain['ears'],pain['eyebrows'],pain['eyes'],pain['cheeks'],pain['nose'],pain['mouth'])
    paintmp2 = func('shortgs','modul',pain['tummy'],pain['pubic'],pain['vaginal'],pain['labia'],pain['clitoris'],pain['urethra'],pain['cervix'],pain['lips'])
    paintmp3 = func('shortgs','modul',pain['throat'],pain['asscheeks'],pain['asshole'],pain['hips'],pain['thighs'],pain['legL'],pain['legR'],pain['feet'])
    paintmp4 = func('shortgs','modul',pain['toes'],pain['shoulders'],pain['armL'],pain['armR'],pain['hands'],pain['fingers'],pain['chest'],pain['breasts'])
    paintmp5 = func('shortgs','modul',pain['tongue'],pain['neck'],pain['back'],pain['nipples'],pain['ribs'],vgape * 2, agape * 4,spanked * 24)

    pain['total'] = func('shortgs','modul',paintmp1,paintmp2,paintmp3,paintmp4,paintmp5)

    if pain['total'] > 100: pain['total'] = 100
    pain['damage'] = pain['total']

    pain['relief'] = 0
    gs 'drugs', 'pain_relief'
    if pain['relief'] ! 0:
        if (pain['total'] / pain['relief']) > 0:
            pain['total'] = pain['total'] / pain['relief']
        elseif pain['total'] > 0:
            pain['total'] = 0
        end
    end

    if pain['total'] > 80:
        if (pcs_health * 5)      >= healthmax: pcs_health = pcs_health * 20 / 100
        if (pcs_mood * 5)        >= 100: pcs_mood = pcs_mood * 20 / 100
    elseif pain['total'] > 60:
        if (pcs_health * 5 / 2)  >= healthmax: pcs_health = pcs_health * 40 / 100
        if (pcs_mood * 5 / 2)    >= 100: pcs_mood = pcs_mood * 40 / 100
    elseif pain['total'] > 40:
        if (pcs_health * 5 / 3)  >= healthmax: pcs_health = pcs_health * 60 / 100
        if (pcs_mood * 5 / 3)    >= 100: pcs_mood = pcs_mood * 60 / 100
    elseif pain['total'] > 20:
        if (pcs_health * 5 / 4)  >= healthmax: pcs_health = pcs_health * 80 / 100
        if (pcs_mood * 5 / 4)    >= 100: pcs_mood = pcs_mood * 80 / 100
    elseif pain['total'] > 0:
        if (pcs_health * 10 / 9) >= healthmax: pcs_health = pcs_health * 90 / 100
        if (pcs_mood * 10 / 9)   >= 100: pcs_mood = pcs_mood * 90 / 100
    end

elseif $ARGS[0] = 'manage':
    !! first initialization
    if pain['timer'] <= 0 and pain['total'] > 0: pain['timer'] = totminut+10

    if pain['timer'] < totminut and pain['total'] > 0:
        tmp = max(1, (totminut - pain['timer']) / 10)

        if pain['hair'] > 0:      pain['hair']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['hair']     ) * max(0, insleep)))
        if pain['head'] > 0:      pain['head']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['head']     ) * max(0, insleep)))
        if pain['ears'] > 0:      pain['ears']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['ears']     ) * max(0, insleep)))
        if pain['eyebrows'] > 0:  pain['eyebrows']  -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['eyebrows'] ) * max(0, insleep)))
        if pain['eyes'] > 0:      pain['eyes']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['eyes']     ) * max(0, insleep)))
        if pain['cheeks'] > 0:    pain['cheeks']    -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['cheeks']   ) * max(0, insleep)))
        if pain['nose'] > 0:      pain['nose']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['nose']     ) * max(0, insleep)))
        if pain['mouth'] > 0:     pain['mouth']     -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['mouth']    ) * max(0, insleep)))
        if pain['lips'] > 0:      pain['lips']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['lips']     ) * max(0, insleep)))
        if pain['tongue'] > 0:    pain['tongue']    -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['tongue']   ) * max(0, insleep)))
        if pain['throat'] > 0:    pain['throat']    -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['throat']   ) * max(0, insleep)))
        if pain['neck'] > 0:      pain['neck']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['neck']     ) * max(0, insleep)))
        if pain['shoulders'] > 0: pain['shoulders'] -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['shoulders']) * max(0, insleep)))
        if pain['armL'] > 0:      pain['armL']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['armL']     ) * max(0, insleep)))
        if pain['armR'] > 0:      pain['armR']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['armR']     ) * max(0, insleep)))
        if pain['hands'] > 0:     pain['hands']     -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['hands']    ) * max(0, insleep)))
        if pain['fingers'] > 0:   pain['fingers']   -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['fingers']  ) * max(0, insleep)))
        if pain['chest'] > 0:     pain['chest']     -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['chest']    ) * max(0, insleep)))
        if pain['ribs'] > 0:      pain['ribs']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['ribs']     ) * max(0, insleep)))
        if pain['breasts'] > 0:   pain['breasts']   -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['breasts']  ) * max(0, insleep)))
        if pain['nipples'] > 0:   pain['nipples']   -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['nipples']  ) * max(0, insleep)))
        if pain['tummy'] > 0:     pain['tummy']     -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['tummy']    ) * max(0, insleep)))
        if pain['back'] > 0:      pain['back']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['back']     ) * max(0, insleep)))
        if pain['hips'] > 0:      pain['hips']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['hips']     ) * max(0, insleep)))
        if pain['thighs'] > 0:    pain['thighs']    -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['thighs']   ) * max(0, insleep)))
        if pain['pubic'] > 0:     pain['pubic']     -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['pubic']    ) * max(0, insleep)))
        if pain['asscheeks'] > 0: pain['asscheeks'] -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['asscheeks']) * max(0, insleep)))
        if pain['asshole'] > 0:   pain['asshole']   -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['asshole']  ) * max(0, insleep)))
        if pain['vaginal'] > 0:   pain['vaginal']   -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['vaginal']  ) * max(0, insleep)))
        if pain['labia'] > 0:     pain['labia']     -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['labia']    ) * max(0, insleep)))
        if pain['clitoris'] > 0:  pain['clitoris']  -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['clitoris'] ) * max(0, insleep)))
        if pain['urethra'] > 0:   pain['urethra']   -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['urethra']  ) * max(0, insleep)))
        if pain['cervix'] > 0:    pain['cervix']    -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['cervix']   ) * max(0, insleep)))
        if pain['legL'] > 0:      pain['legL']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['legL']     ) * max(0, insleep)))
        if pain['legR'] > 0:      pain['legR']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['legR']     ) * max(0, insleep)))
        if pain['feet'] > 0:      pain['feet']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['feet']     ) * max(0, insleep)))
        if pain['toes'] > 0:      pain['toes']      -= max(rand(tmp/3, tmp), (rand(tmp/2, tmp) + rand(pain['toes']     ) * max(0, insleep)))

        i = arrsize('pain')
        :statpainloop
        if i > 0:
            i -= 1
            if pain[i] < 0: pain[i] = 0
            jump 'statpainloop'
        end

        gs 'pain', 'calc'

        !! 10 min here, but 30 when just received pain
        pain['timer'] = totminut+10

        killvar 'tmp'
        killvar 'i'
    end
else
    !For checking pain and when applicable triggering arousal.
    !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',
    !'fingers', 'chest', 'breasts', 'nipples', 'ribs', 'tummy', 'pubic', 'vaginal', 'labia', 'clitoris', 'urethra', 'cervix',
    !'wrists', 'ankles'
    !$ARGS[2] The action the participant has performed on Sveta (some of these can cause arousal if Sveta is into pain)
    !Acts: 'pierce', 'slap', 'spank', 'pinch', 'bite', 'burn', 'freeze', 'hit', 'kick', 'Slam', 'shock', 'bind', 'stretch'
    !'tear', 'break', 'twist', 'ache', 'cramp', 'labor', 'choke', 'fall', 'pull'
    !Format to use: gs 'pain', n, 'BobyPart', 'Act'
    !For pain to multiple body parts, use multiple calls

    pain[1] = min(ARGS[0]+ARGS[1]+ARGS[2],9)
    if pain[1]<1: exit

    pain[2] = 0
    if arrpos('$ARGS', 'slap') >= 0:    pain[2] = 1
    if arrpos('$ARGS', 'bind') >= 0:    pain[2] = 1
    if arrpos('$ARGS', 'spank') >= 0:   pain[2] = 3 & spank += 1
    if arrpos('$ARGS', 'choke') >= 0:   pain[2] = 3
    if arrpos('$ARGS', 'shock') >= 0:   pain[2] = 4
    if arrpos('$ARGS', 'twist') >= 0:   pain[2] = 4
    if arrpos('$ARGS', 'pull') >= 0:    pain[2] = 4	
    if arrpos('$ARGS', 'fall') >= 0:    pain[2] = 4
    if arrpos('$ARGS', 'labor') >= 0:   pain[2] = 4
    if arrpos('$ARGS', 'pinch') >= 0:   pain[2] = 5
    if arrpos('$ARGS', 'stretch') >= 0: pain[2] = 6
    if arrpos('$ARGS', 'slam') >= 0:    pain[2] = 6
    if arrpos('$ARGS', 'burn') >= 0:    pain[2] = 7
    if arrpos('$ARGS', 'freeze') >= 0:  pain[2] = 7
    if arrpos('$ARGS', 'hit') >= 0:     pain[2] = 7
    if arrpos('$ARGS', 'pierce') >= 0:  pain[2] = 8
    if arrpos('$ARGS', 'bite') >= 0:    pain[2] = 8
    if arrpos('$ARGS', 'tear') >= 0:    pain[2] = 9
    if arrpos('$ARGS', 'ache') >= 0:    pain[2] = 9
    if arrpos('$ARGS', 'kick') >= 0:    pain[2] = 10
    if arrpos('$ARGS', 'break') >= 0:   pain[2] = 10
    if arrpos('$ARGS', 'cramp') >= 0:   pain[2] = 10
    if pain[2]<1: exit

    pain[3] = 0
    if arrpos('$ARGS', 'hair') >= 0:      pain[3] = 1  & $painPart = 'hair'
    if arrpos('$ARGS', 'asscheeks') >= 0: pain[3] = 2  & $painPart = 'asscheeks'
    if arrpos('$ARGS', 'feet') >= 0:      pain[3] = 2  & $painPart = 'feet'
    if arrpos('$ARGS', 'shoulders') >= 0: pain[3] = 2  & $painPart = 'shoulders'
    if arrpos('$ARGS', 'wrists') >= 0:    pain[3] = 2  & $painPart = 'wrists'
    if arrpos('$ARGS', 'ankles') >= 0:    pain[3] = 2  & $painPart = 'ankles'
    if arrpos('$ARGS', 'armL') >= 0:      pain[3] = 2  & $painPart = 'armL'
    if arrpos('$ARGS', 'armR') >= 0:      pain[3] = 2  & $painPart = 'armR'
    if arrpos('$ARGS', 'cheeks') >= 0:    pain[3] = 3  & $painPart = 'cheeks'
    if arrpos('$ARGS', 'legL') >= 0:      pain[3] = 3  & $painPart = 'legL'
    if arrpos('$ARGS', 'legR') >= 0:      pain[3] = 3  & $painPart = 'legR'
    if arrpos('$ARGS', 'hands') >= 0:     pain[3] = 3  & $painPart = 'hands'
    if arrpos('$ARGS', 'mouth') >= 0:     pain[3] = 4  & $painPart = 'mouth'
    if arrpos('$ARGS', 'jaw') >= 0:       pain[3] = 4  & $painPart = 'jaw'
    if arrpos('$ARGS', 'thighs') >= 0:    pain[3] = 4  & $painPart = 'thighs'
    if arrpos('$ARGS', 'toes') >= 0:      pain[3] = 4  & $painPart = 'toes'
    if arrpos('$ARGS', 'fingers') >= 0:   pain[3] = 4  & $painPart = 'fingers'
    if arrpos('$ARGS', 'nose') >= 0:      pain[3] = 5  & $painPart = 'nose'
    if arrpos('$ARGS', 'back') >= 0:      pain[3] = 5  & $painPart = 'back'
    if arrpos('$ARGS', 'ribs') >= 0:      pain[3] = 5  & $painPart = 'ribs'
    if arrpos('$ARGS', 'hips') >= 0:      pain[3] = 5  & $painPart = 'hips'
    if arrpos('$ARGS', 'head') >= 0:      pain[3] = 6  & $painPart = 'head'
    if arrpos('$ARGS', 'ears') >= 0:      pain[3] = 6  & $painPart = 'ears'
    if arrpos('$ARGS', 'eyebrows') >= 0:  pain[3] = 6  & $painPart = 'eyebrows'
    if arrpos('$ARGS', 'lips') >= 0:      pain[3] = 6  & $painPart = 'lips'
    if arrpos('$ARGS', 'throat') >= 0:    pain[3] = 6  & $painPart = 'throat'
    if arrpos('$ARGS', 'tummy') >= 0:     pain[3] = 6  & $painPart = 'tummy'
    if arrpos('$ARGS', 'pubic') >= 0:     pain[3] = 6  & $painPart = 'pubic'
    if arrpos('$ARGS', 'urethra') >= 0:   pain[3] = 6  & $painPart = 'urethra'
    if arrpos('$ARGS', 'tongue') >= 0:    pain[3] = 7  & $painPart = 'tongue'
    if arrpos('$ARGS', 'neck') >= 0:      pain[3] = 7  & $painPart = 'neck'
    if arrpos('$ARGS', 'chest') >= 0:     pain[3] = 7  & $painPart = 'chest'
    if arrpos('$ARGS', 'eyes') >= 0:      pain[3] = 8  & $painPart = 'eyes'
    if arrpos('$ARGS', 'breasts') >= 0:   pain[3] = 8  & $painPart = 'breasts'
    if arrpos('$ARGS', 'vaginal') >= 0:   pain[3] = 8  & $painPart = 'vaginal'
    if arrpos('$ARGS', 'labia') >= 0:     pain[3] = 8  & $painPart = 'labia'
    if arrpos('$ARGS', 'cervix') >= 0:    pain[3] = 8  & $painPart = 'cervix'
    if arrpos('$ARGS', 'asshole') >= 0:   pain[3] = 9  & $painPart = 'asshole'
    if arrpos('$ARGS', 'nipples') >= 0:   pain[3] = 9  & $painPart = 'nipples'
    if arrpos('$ARGS', 'clitoris') >= 0:  pain[3] = 10 & $painPart = 'clitoris'
    if pain[3]<1: exit

    curpain = (pain[1] * pain[2] * pain[3]) /10
    prevpain = pain[$painPart]

    if arrpos('$ARGS', 'get') >= 0:
        RESULT = func('shortgs','modul',prevpain,curpain)
    else
        !! lastpain var can be used elsewhere, do not kill it
        $lastpain = $painPart
        lastpain = func('shortgs','modul',prevpain,curpain)

        pain[$painPart] = lastpain
        if pain[$painPart] > 100: pain[$painPart] = 100
        pain['timer'] = totminut+30
    end

    killvar 'prevpain'
    killvar 'curpain'
    killvar '$painPart'

    !arousal calculation
    !arousal += (pain[1] * pain[2]) * pain[3] * masochism['pref'] / 1000
	gs 'pain', 'calc'
end

--- pain ---------------------------------