|
@@ -418,141 +418,143 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
|
|
|
stim['feet'] = 1
|
|
|
end
|
|
|
|
|
|
- i = 2
|
|
|
- :stimloop
|
|
|
- if $ARGS[i] ! '' or $ARGS[i] ! 'porn' or $ARGS[i] ! 'voyeur':
|
|
|
-!!Skipping lesbian and foot where auto added to avoid duplication
|
|
|
- if stim_les = 1 and $ARGS[i] = 'lesbian':i += 1 & jump 'stimloop'
|
|
|
- if stim_foot = 1 and $ARGS[i] = 'feet':i += 1 & jump 'stimloop'
|
|
|
- if $ARGS[i] = 'bound':
|
|
|
- stim['kink'] += bondage['exp']
|
|
|
- stim['pref'] += bondage['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['bound'] = 1
|
|
|
- elseif $ARGS[i] = 'beast':
|
|
|
- stim['kink'] += bestiality['exp']
|
|
|
- stim['pref'] += bestiality['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['beast'] = 1
|
|
|
- elseif $ARGS[i] = 'exhibitionism':
|
|
|
- stim['kink'] += exhibitionism['exp']
|
|
|
- stim['pref'] += exhibitionism['pref']
|
|
|
- inhib_exp += rand(2,6)
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['exhibitionism'] = 1
|
|
|
- elseif $ARGS[i] = 'rough':
|
|
|
- stim['kink'] += rough['exp']
|
|
|
- stim['pref'] += rough['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['rough'] = 1
|
|
|
- elseif $ARGS[i] = 'prostitution':
|
|
|
- stim['kink'] += prostitution['exp']
|
|
|
- stim['pref'] += prostitution['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- if temp_unaware = 1:
|
|
|
- stim['hidden_prostitution'] = 1
|
|
|
- else
|
|
|
- stim['prostitution'] = 1
|
|
|
+ if $ARGS[1] ! 'porn' and $ARGS[1] ! 'voyeur':
|
|
|
+ i = 2
|
|
|
+ :stimloop
|
|
|
+ if $ARGS[i] ! '':
|
|
|
+ !!Skipping lesbian and foot where auto added to avoid duplication
|
|
|
+ if stim_les = 1 and $ARGS[i] = 'lesbian':i += 1 & jump 'stimloop'
|
|
|
+ if stim_foot = 1 and $ARGS[i] = 'feet':i += 1 & jump 'stimloop'
|
|
|
+ if $ARGS[i] = 'bound':
|
|
|
+ stim['kink'] += bondage['exp']
|
|
|
+ stim['pref'] += bondage['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['bound'] = 1
|
|
|
+ elseif $ARGS[i] = 'beast':
|
|
|
+ stim['kink'] += bestiality['exp']
|
|
|
+ stim['pref'] += bestiality['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['beast'] = 1
|
|
|
+ elseif $ARGS[i] = 'exhibitionism':
|
|
|
+ stim['kink'] += exhibitionism['exp']
|
|
|
+ stim['pref'] += exhibitionism['pref']
|
|
|
+ inhib_exp += rand(2,6)
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['exhibitionism'] = 1
|
|
|
+ elseif $ARGS[i] = 'rough':
|
|
|
+ stim['kink'] += rough['exp']
|
|
|
+ stim['pref'] += rough['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['rough'] = 1
|
|
|
+ elseif $ARGS[i] = 'prostitution':
|
|
|
+ stim['kink'] += prostitution['exp']
|
|
|
+ stim['pref'] += prostitution['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ if temp_unaware = 1:
|
|
|
+ stim['hidden_prostitution'] = 1
|
|
|
+ else
|
|
|
+ stim['prostitution'] = 1
|
|
|
+ end
|
|
|
+ elseif $ARGS[i] = 'dom':
|
|
|
+ stim['kink'] += dom['exp']
|
|
|
+ stim['pref'] += pcs_dom
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['dom'] = 1
|
|
|
+ elseif $ARGS[i] = 'sub':
|
|
|
+ stim['kink'] += sub['exp']
|
|
|
+ stim['pref'] += sub
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['sub'] = 1
|
|
|
+ elseif $ARGS[i] = 'incest':
|
|
|
+ stim['kink'] += incest['exp']
|
|
|
+ stim['pref'] += incest['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['incest'] = 1
|
|
|
+ elseif $ARGS[i] = 'feet':
|
|
|
+ stim['kink'] += feet['exp']
|
|
|
+ stim['pref'] += feet['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['feet'] = 1
|
|
|
+ elseif $ARGS[i] = 'lesbian':
|
|
|
+ stim['kink'] += lesbian['exp']
|
|
|
+ stim['pref'] += lesbian['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ if temp_unaware = 1:
|
|
|
+ stim['hidden_lesbian'] = 1
|
|
|
+ else
|
|
|
+ stim['lesbian'] = 1
|
|
|
+ end
|
|
|
+ elseif $ARGS[i] = 'group':
|
|
|
+ stim['kink'] += group['exp']
|
|
|
+ stim['pref'] += group['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ if temp_unaware = 1:
|
|
|
+ stim['hidden_group'] = 1
|
|
|
+ else
|
|
|
+ stim['group'] = 1
|
|
|
+ end
|
|
|
+ elseif $ARGS[i] = 'gangbang':
|
|
|
+ stim['kink'] += gang['exp']
|
|
|
+ stim['pref'] += gang['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ if temp_unaware = 1:
|
|
|
+ stim['hidden_gang'] = 1
|
|
|
+ else
|
|
|
+ stim['gang'] = 1
|
|
|
+ end
|
|
|
+ elseif $ARGS[i] = 'humiliation':
|
|
|
+ stim['kink'] += humiliation['exp']
|
|
|
+ stim['pref'] += humiliation['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['humiliation'] = 1
|
|
|
+ elseif $ARGS[i] = 'maso':
|
|
|
+ stim['kink'] += maso['exp']
|
|
|
+ stim['pref'] += maso['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['maso'] = 1
|
|
|
+ elseif $ARGS[i] = 'deepthroat':
|
|
|
+ stim['kink'] += deepthroat['exp']
|
|
|
+ stim['pref'] += deepthroat['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['deepthroat'] = 1
|
|
|
+ !!unknown is for sex with an unknown partner, this could be a gloryhole or unconscious
|
|
|
+ elseif $ARGS[i] = 'unknown':
|
|
|
+ stim['kink'] += unknown['exp']
|
|
|
+ stim['pref'] += unknown['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ stim['unknown'] = 1
|
|
|
+ elseif $ARGS[i] = 'gloryhole':
|
|
|
+ stim['kink'] += gloryhole['exp']
|
|
|
+ stim['pref'] += gloryhole['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ if temp_unaware = 1:
|
|
|
+ stim['hidden_gloryhole'] = 1
|
|
|
+ else
|
|
|
+ stim['gloryhole'] = 1
|
|
|
+ end
|
|
|
+ elseif $ARGS[i] = 'rape':
|
|
|
+ stim['kink'] += rape['exp']
|
|
|
+ stim['pref'] += rape['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ if temp_unaware = 1:
|
|
|
+ stim['hidden_rape'] = 1
|
|
|
+ else
|
|
|
+ stim['rape'] = 1
|
|
|
+ end
|
|
|
+ elseif $ARGS[i] = 'futa':
|
|
|
+ stim['kink'] += futa['exp']
|
|
|
+ stim['pref'] += futa['pref']
|
|
|
+ stim['kinkno'] += 1
|
|
|
+ if temp_unaware = 1:
|
|
|
+ stim['hidden_futa'] = 1
|
|
|
+ else
|
|
|
+ stim['futa'] = 1
|
|
|
+ end
|
|
|
end
|
|
|
- elseif $ARGS[i] = 'dom':
|
|
|
- stim['kink'] += dom['exp']
|
|
|
- stim['pref'] += pcs_dom
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['dom'] = 1
|
|
|
- elseif $ARGS[i] = 'sub':
|
|
|
- stim['kink'] += sub['exp']
|
|
|
- stim['pref'] += sub
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['sub'] = 1
|
|
|
- elseif $ARGS[i] = 'incest':
|
|
|
- stim['kink'] += incest['exp']
|
|
|
- stim['pref'] += incest['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['incest'] = 1
|
|
|
- elseif $ARGS[i] = 'feet':
|
|
|
- stim['kink'] += feet['exp']
|
|
|
- stim['pref'] += feet['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['feet'] = 1
|
|
|
- elseif $ARGS[i] = 'lesbian':
|
|
|
- stim['kink'] += lesbian['exp']
|
|
|
- stim['pref'] += lesbian['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- if temp_unaware = 1:
|
|
|
- stim['hidden_lesbian'] = 1
|
|
|
- else
|
|
|
- stim['lesbian'] = 1
|
|
|
- end
|
|
|
- elseif $ARGS[i] = 'group':
|
|
|
- stim['kink'] += group['exp']
|
|
|
- stim['pref'] += group['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- if temp_unaware = 1:
|
|
|
- stim['hidden_group'] = 1
|
|
|
- else
|
|
|
- stim['group'] = 1
|
|
|
- end
|
|
|
- elseif $ARGS[i] = 'gangbang':
|
|
|
- stim['kink'] += gang['exp']
|
|
|
- stim['pref'] += gang['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- if temp_unaware = 1:
|
|
|
- stim['hidden_gang'] = 1
|
|
|
- else
|
|
|
- stim['gang'] = 1
|
|
|
- end
|
|
|
- elseif $ARGS[i] = 'humiliation':
|
|
|
- stim['kink'] += humiliation['exp']
|
|
|
- stim['pref'] += humiliation['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['humiliation'] = 1
|
|
|
- elseif $ARGS[i] = 'maso':
|
|
|
- stim['kink'] += maso['exp']
|
|
|
- stim['pref'] += maso['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['maso'] = 1
|
|
|
- elseif $ARGS[i] = 'deepthroat':
|
|
|
- stim['kink'] += deepthroat['exp']
|
|
|
- stim['pref'] += deepthroat['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['deepthroat'] = 1
|
|
|
-!!unknown is for sex with an unknown partner, this could be a gloryhole or unconscious
|
|
|
- elseif $ARGS[i] = 'unknown':
|
|
|
- stim['kink'] += unknown['exp']
|
|
|
- stim['pref'] += unknown['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- stim['unknown'] = 1
|
|
|
- elseif $ARGS[i] = 'gloryhole':
|
|
|
- stim['kink'] += gloryhole['exp']
|
|
|
- stim['pref'] += gloryhole['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- if temp_unaware = 1:
|
|
|
- stim['hidden_gloryhole'] = 1
|
|
|
- else
|
|
|
- stim['gloryhole'] = 1
|
|
|
- end
|
|
|
- elseif $ARGS[i] = 'rape':
|
|
|
- stim['kink'] += rape['exp']
|
|
|
- stim['pref'] += rape['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- if temp_unaware = 1:
|
|
|
- stim['hidden_rape'] = 1
|
|
|
- else
|
|
|
- stim['rape'] = 1
|
|
|
- end
|
|
|
- elseif $ARGS[i] = 'futa':
|
|
|
- stim['kink'] += futa['exp']
|
|
|
- stim['pref'] += futa['pref']
|
|
|
- stim['kinkno'] += 1
|
|
|
- if temp_unaware = 1:
|
|
|
- stim['hidden_futa'] = 1
|
|
|
- else
|
|
|
- stim['futa'] = 1
|
|
|
- end
|
|
|
- end
|
|
|
|
|
|
- i += 1
|
|
|
- jump 'stimloop'
|
|
|
+ i += 1
|
|
|
+ jump 'stimloop'
|
|
|
+ end
|
|
|
end
|
|
|
|
|
|
!!Fetishes are divided by total number of fetishes
|