123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944 |
- :: willpower[include]
- <<set $here = 'willpower'>>
- <<set $ARGS = $location_var[$here]>>
- <!-- !!To use it call it with gs 'willpower', 'action', 'type'-->
- <!-- !!Action: Determines what action sveta is resisting, forcing somebody to do or forcing herself to do-->
- <!-- !!List of actions:-->
- <!-- !! 'voyeur', 'flash', 'mast', 'hj', 'bj', 'cuni', 'sex', 'anal', 'group', 'gangbang', 'prostitution', 'swallow', 'cum_inside', 'cum_inside_anal', 'rape',-->
- <!-- !! 'kiss', 'humiliation', 'footjob', 'titjob', 'trib', 'rimming', 'BDSM', 'pee', 'cum_outside', 'drink', 'drugs', 'crime', 'exhib', 'sleep', 'chore'-->
- <!-- !! there is also 'foreplay' for things like touching and fondling-->
- <!-- !! and two special cases 'misc' and 'skill'-->
- <!-- !! 'chore' is meant to be used for menial tasks that should not greatly affect willpower max, only drain from the pool-->
- <!-- !!Type: Determines what kind of willpower check sveta needs to do ('resist', 'force', 'self').-->
- <!-- !! -'resist' is used if sveta is resisting to do the 'action' somebody else wants her to do.-->
- <!-- !! -'force' is used if sveta forces somebody else to do the 'action'.-->
- <!-- !! -'self' should be used if sveta forces herself to do the 'action' (this should be used only in rare occasions)-->
- <!-- !!Example 1: Sveta is forcing somebody to perform a blowjob: gs 'willpower', 'bj', 'force'-->
- <!-- !!Example 2: Sveta is resisting doing drugs: gs 'willpower', 'drugs', 'resist'-->
- <!-- !!You can modify the difficulty of the check with adding an additional argument at the end. You can either add an 'easy' or a 'hard' to modify the difficulty.-->
- <!-- !!Example 1: Sveta is resisting doing drugs, a weak outcast is pressuring her to use them: gs 'willpower', 'drugs', 'resist', 'easy'-->
- <!-- !!Example 2: Sveta is resisting doing drugs, a group of gopniks are pressuring her to use them: gs 'willpower', 'drugs', 'resist', 'hard'-->
- <!-- !!There are two special cases: 'misc' and 'skill'-->
- <!-- !!'skill': Bridging a gap in skill for doing something, for succeeding when not quite meeting the required skill/attribute: gs 'willpower', '<skill>_lvl'-->
- <!-- !!Example for 'skill': gs 'willpower', 'skill', 'resist', 'pcs_makupskl_lvl' for a willpower check regarding something with pcs_makupskl_lvl (you can also apply 'easy' or 'hard' difficulty to a skill check)-->
- <!-- !!'misc': Use this 'action' if no other 'action' fits the scene. You can set three difficulty levels for this check 'easy', 'medium', 'hard' (Difficulty is only for 'misc' checks)-->
- <!-- !!To call 'misc' do the following: gs 'willpower', 'misc', 'type', 'difficulty'-->
- <!-- !!Example 1 for 'misc': Sveta wants to bring herself to slap a weak looking nerd: gs 'willpower', 'misc', 'self', 'easy'-->
- <!-- !!Example 2 for 'misc': Sveta wants to force Artem to go to Vitek and call him an asshole: gs 'willpower', 'misc', 'force', 'hard'-->
- <!-- !!After Sveta has taken the willpower action the cost must be paid with: gs 'willpower', 'pay', 'type'-->
- <!-- !!Example: Sveta has to pay for resisting to do a blowjob: gs 'willpower', 'pay', 'resist'-->
- <!-- !!WARNING: When adding new options include gs 'willpower', 'difficulty', '<<$ARGS[2]>>' at the end of the ARGS to apply easy or hard.-->
- <!-- !!WARNING: If you have two or more actions that need willpower at the same time, you have to recalculate the willpower cost before the costs are payed (see Code Example 2)-->
- <!-- !{ Code Example 1 (one action needs willpower)
- gs 'willpower', 'misc', 'self', 'hard'
- if will_cost <= willpower:
- act 'Kick him in the balls (<<will_cost>> Willpower)':
- gs 'willpower', 'pay', 'self'
- 'Event text'
- act 'Next action': gt 'farawayistan'
- end
- else
- act 'Kick him in the balls (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don't have enough willpower to use this action.</font>'
- end
- } -->
- <!-- !{ Code Example 2 (several actions need willpower)
- gs 'willpower', 'misc', 'self', 'hard'
- if will_cost <= willpower:
- act 'Kick him in the balls (<<will_cost>> Willpower)':
- gs 'willpower', 'misc', 'self', 'hard' <- recalculate the willpower cost here
- gs 'willpower', 'pay', 'self'
- 'Event text'
- act 'Next action': gt 'farawayistan'
- end
- else
- act 'Kick him in the balls (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don't have enough willpower to use this action.</font>'
- end
- gs 'willpower', 'misc', 'self', 'medium'
- if will_cost <= willpower:
- act 'Slap him across the face (<<will_cost>> Willpower)':
- gs 'willpower', 'misc', 'self', 'medium' <- recalculate the willpower cost here
- gs 'willpower', 'pay', 'self'
- 'Event text'
- act 'Next action': gt 'farawayistan'
- end
- else
- act 'Slap him across the face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don't have enough willpower to use this action.</font>'
- end
- } -->
- <<switch $location_var[$here][0]>>
- <<case 'cost'>>
- <<if typeof $location_var[$here][1] == 'object'>>
- <<gs $here $location_var[$here][1][0] $location_var[$here][1][1] $location_var[$here][1][2] $location_var[$here][1][3]>>
- <<else>>
- <<gs $here $location_var[$here][1] $location_var[$here][2] $location_var[$here][3] $location_var[$here][4]>>
- <</if>>
- <<set $result = Math.round($will_cost)>>
- <<case 'calc'>>
- <<gs 'willpower' 'dnd'>>
- <<set $will_calc = $will_dnd>>
- <!-- !!fatigue-->
- <<if $pc.pcs_sleep < 5>>
- <<set $will_calc += 50>>
- <<elseif $pc.pcs_sleep < 10>>
- <<set $will_calc += 25>>
- <<elseif $pc.pcs_sleep < 20>>
- <<set $will_calc += 10>>
- <<elseif $pc.pcs_sleep < 30>>
- <<set $will_calc += 5>>
- <</if>>
- <!-- !!exhaustion (stamina)-->
- <<if $pc.pcs_stam <= 0>>
- <<set $will_calc += 10>>
- <<elseif $pc.pcs_stam < $pc.stammax / 5>>
- <<set $will_calc += 5>>
- <</if>>
- <!-- !!hunger-->
- <<if $pc.pcs_energy < 5>>
- <<set $will_calc += 50>>
- <<elseif $pc.pcs_energy < 10>>
- <<set $will_calc += 25>>
- <<elseif $pc.pcs_energy < 20>>
- <<set $will_calc += 10>>
- <<elseif $pc.pcs_energy < 30>>
- <<set $will_calc += 5>>
- <</if>>
- <!-- !!thirst-->
- <<if $pc.pcs_hydra < 5>>
- <<set $will_calc += 50>>
- <<elseif $pc.pcs_hydra < 10>>
- <<set $will_calc += 25>>
- <<elseif $pc.pcs_hydra < 20>>
- <<set $will_calc += 10>>
- <<elseif $pc.pcs_hydra < 30>>
- <<set $will_calc += 5>>
- <</if>>
- <!-- !!Bad syphilis, you is mental-->
- <<if getvar("$Sifilis") >= 50>>
- <<setn $will_calc += 100>>
- <</if>>
- <!-- !!feeling sick-->
- <<if getvar("$sick") > 72>>
- <<set $will_calc += 35>>
- <<elseif getvar("$sick") > 48>>
- <<set $will_calc += 20>>
- <<elseif getvar("$sick") > 24>>
- <<set $will_calc += 10>>
- <<elseif getvar("$sick") > 1>>
- <<set $will_calc += 5>>
- <</if>>
- <<set $will_calc += $pc.painTotal>>
- <!-- !! Modifier becuse of arousal only used for sex acts-->
- <<set $will_arousal_mod = Math.max(Math.min(($pc.horny - 50)/2,25),-25)>>
- <<case 'voyeur'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $pc.sexStat('voyeur') + $pc.sexStat('voyeur_sex') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('voyeur') - $pc.sexStat('voyeur_sex') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('voyeur') + $pc.sexStat('voyeur_sex') <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('voyeur') - $pc.sexStat('voyeur_sex') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $pc.sexStat('voyeur') + $pc.sexStat('voyeur_sex') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('voyeur') + $pc.sexStat('voyeur_sex') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'flash'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $pc.sexStat('flash') + ($pc.sexStat('flashlite') / 2) <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('flash') - ($pc.sexStat('flashlite') / 2) + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('flash') + ($pc.sexStat('flashlite') / 2) <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('flash') - ($pc.sexStat('flashlite') / 2) + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $pc.sexStat('flash') + ($pc.sexStat('flashlite') / 2) <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('flash') + ($pc.sexStat('flashlite') / 2) + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'mast'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $pc.sexStat('mast') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('mast') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('mast') <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('mast') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $pc.sexStat('mast') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('mast') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'hj'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if $pc.sexStat('hj') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('hj') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('hj') <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('hj') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if $pc.sexStat('hj') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('hj') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'bj'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if $pc.sexStat('bj') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('bj') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('bj') <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('bj') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if $pc.sexStat('bj') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('bj') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'cuni'>>
- <<gs 'willpower' 'calc'>>
- <<set $cuni_check = ($pc.sexStat('cuni') + $pc.sexStat('cuni_give')) / 2>>
- <<if $location_var[$here][1] == 'self'>>
- <<if getvar("$cuni_check") <= 90>>
- <<set $will_cost = (100 - $cuni_check + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if getvar("$cuni_check") <= 40>>
- <<set $will_cost = (110 - $will_enforced - $cuni_check + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if getvar("$cuni_check") <= 90>>
- <<set $will_cost = (10 + $cuni_check + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<set $cuni_check to null>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'sex' 'vaginal'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if $pc.sexStat('vaginal') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('vaginal') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('vaginal') <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('vaginal') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if $pc.sexStat('vaginal') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('vaginal') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'anal'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if $pc.sexStat('anal') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('anal') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('anal') <= 40>>
- <<set $will_cost = (160 - $will_enforced * 2 - $pc.sexStat('anal') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if $pc.sexStat('anal') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('anal') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'gangbang' 'group'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if getvar("$gang") <= 90>>
- <<set $will_cost = (100 - $gang + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if getvar("$gang") <= 40>>
- <<set $will_cost = (160 - $will_enforced * 2 - $gang + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if getvar("$gang") <= 90>>
- <<set $will_cost = (10 + $gang + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'prostitution'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if getvar("$slutty") <= 90>>
- <<set $will_cost = (100 - $slutty + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if getvar("$slutty") <= 40>>
- <<set $will_cost = (160 - $will_enforced * 2 - $slutty + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<set $prost_will = $pc.fame('pav_prostitute') + $pc.fame('city_prostitute') + $pc.fame('pushkin_prostitute') + $pc.fame('village_prostitute') + $slutty / 2>>
- <<if getvar("$prost_will") <= 90>>
- <<set $will_cost = (10 + $prost_will + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <<set $prost_will to null>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'humiliation'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if $pc.sexStat('humiliation') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('humiliation') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if $pc.sexStat('humiliation') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('humiliation') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'footjob'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $pc.sexStat('footjob') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('footjob') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('footjob') <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('footjob') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $pc.sexStat('footjob') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('footjob') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'titjob'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $pc.sexStat('titjob') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('titjob') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('titjob') <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('titjob') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $pc.sexStat('titjob') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('titjob') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'trib'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $pc.sexStat('trib') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('trib') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('trib') <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('trib') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $pc.sexStat('trib') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('trib') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'rimming'>>
- <<gs 'willpower' 'calc'>>
- <<set $rimming_check = ($pc.sexStat('rimming') + $pc.sexStat('rimming_give')) / 2>>
- <<if $location_var[$here][1] == 'self'>>
- <<if getvar("$rimming_check") <= 90>>
- <<set $will_cost = (100 - $rimming_check + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if getvar("$rimming_check") <= 40>>
- <<set $will_cost = (110 - $will_enforced - $rimming_check + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if getvar("$rimming_check") <= 90>>
- <<set $will_cost = (10 + $rimming_check + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'BDSM'>>
- <<gs 'willpower' 'calc'>>
- <!-- ! It seems to me like 'force' should strictly be BDSM_give, and resist strictly BDSM.-->
- <!-- !bdsm_check = (stat['BDSM'] + stat['BDSM_give']) / 2-->
- <!-- ! Also, this category could benifit from sum, dom, maso, bound inclusion in some way-->
- <!-- !bdsm_exp = (maso['exp'] + bound['exp'] + sub['exp'] + maso['exp'])/4-->
- <<if $location_var[$here][1] == 'self'>>
- <<if ($pc.sexStat('BDSM') + $pc.sexStat('BDSM_give')) / 2 <= 90>>
- <<set $will_cost = (100 - (($pc.sexStat('BDSM') + $pc.sexStat('BDSM_give')) / 2) + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('BDSM_give') <= 40>>
- <<set $will_cost = (160 - $will_enforced - $pc.sexStat('BDSM_give') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (120 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $pc.sexStat('BDSM') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('BDSM') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'cum_outside'>>
- <<gs 'willpower' 'calc'>>
- <!-- ! I'm including internal stats, since it makes sense those would influence Sveta''s willingness to being cum on-->
- <<set $cum_check = facial + frot + (swallow) + ($pcs_cp_safe_known + $pcs_cp_notsafe_known + $pcs_cp_risky_known) + (pcs_acp_known)>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if $pc.cumAtLocation(1) + $pc.cumAtLocation(2) + $pc.cumAtLocation(4) + $pc.cumAtLocation(5) + $pc.cumAtLocation(6) + $pc.cumAtLocation(7) + $pc.cumAtLocation(8) + $pc.cumAtLocation(9) + $pc.cumAtLocation(10) + $pc.cumAtLocation(11) + $pc.cumAtLocation(13) + $pc.cumAtLocation(14) + $pc.cumAtLocation(15) + $pc.cumAtLocation(16) > 0 or getvar("$cum_check") > 90>>
- <<set $will_cost = (10 + $cum_check + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if $pc.cumAtLocation(1) + $pc.cumAtLocation(2) + $pc.cumAtLocation(4) + $pc.cumAtLocation(5) + $pc.cumAtLocation(6) + $pc.cumAtLocation(7) + $pc.cumAtLocation(8) + $pc.cumAtLocation(9) + $pc.cumAtLocation(10) + $pc.cumAtLocation(11) + $pc.cumAtLocation(13) + $pc.cumAtLocation(14) + $pc.cumAtLocation(15) + $pc.cumAtLocation(16) > 0 or getvar("$cum_check") > 90>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $cum_check + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'swallow'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if $pc.trait('cumeater') == 1 or $pc.cumAtLocation(12) > 0>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<set $will_cost = (80 - $will_enforced - $pc.trait('cumeater') * 10 + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if $pc.trait('cumeater') == 1 or $pc.cumAtLocation(12) > 0>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'cum_inside'>>
- <<gs 'willpower' 'calc'>>
- <<set $creampie_count = $pcs_cp_safe_known + $pcs_cp_notsafe_known + $pcs_cp_risky_known>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if $pc.cumAtLocation(0) > 0 or getvar("$creampie_count") > 90>>
- <<set $will_cost = (10 + $creampie_count + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if $pc.cumAtLocation(0) > 0 or getvar("$creampie_count") > 90>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $creampie_count + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'cum_inside_anal'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<if $pc.cumAtLocation(3) > 0 or getvar("$pcs_acp_known") > 90>>
- <<set $will_cost = (10 + $pcs_acp_known + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if $pc.cumAtLocation(3) > 0 or getvar("$pcs_acp_known") > 90>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $pcs_acp_known + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'kiss'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $pc.sexStat('kiss') <= 90>>
- <<set $will_cost = (100 - $pc.sexStat('kiss') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('kiss') <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('kiss') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $pc.sexStat('kiss') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('kiss') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'foreplay'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if ($pc.sexStat('foreplay') + stat['foreplay_give']) / 2>>
- <<set $will_cost = (100 - (($pc.sexStat('foreplay') + $pc.sexStat('foreplay_give')) / 2) + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('foreplay_give') <= 40>>
- <<set $will_cost = (110 - $will_enforced - $pc.sexStat('foreplay_give') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $pc.sexStat('foreplay') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('foreplay') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'pee'>>
- <<gs 'willpower' 'calc'>>
- <!-- ! Same as with BDSM concerning 'force' and 'resist'-->
- <!-- !pee_check = (stat['pee'] + stat['pee_give']) / 2-->
- <<if $location_var[$here][1] == 'self'>>
- <<if ($pc.sexStat('pee') + $pc.sexStat('pee_give')) / 2 <= 90>>
- <<set $will_cost = (100 - (($pc.sexStat('pee') + $pc.sexStat('pee_give')) / 2) + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<if $pc.sexStat('pee_give') <= 40>>
- <<set $will_cost = (160 - $will_enforced - $pc.sexStat('pee_give') + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (120 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
- <</if>>
- <<else>>
- <<if $pc.sexStat('pee') <= 90>>
- <<set $will_cost = (10 + $pc.sexStat('pee') + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'skill'>>
- <!-- !! requires the skill to be named with the _lvl postfix-->
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'resist' or $location_var[$here][1] == 'force' or $location_var[$here][1] == 'self'>>
- <<if $location_var[$here][2] == 'inhib_lvl'>>
- <<set $will_cost = (100 - $pc.pcs_inhib + $will_calc) / 10>>
- <<else>>
- <<set $will_cost = (100 - $ARGS[2] + $will_calc)/10>>
- <</if>>
- <<gs 'willpower' 'difficulty' '$ARGS[3]'>>
- <<else>>
- <<if $location_var[$here][1] == 'inhib_lvl'>>
- <<set $will_cost = (100 - $pc.pcs_inhib + $will_calc) / 10>>
- <<else>>
- <<set will_cost = (100 - $ARGS[1] + will_calc)/10>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <</if>>
- <<case 'rape'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<if $missCum >= $timeTresh>>
- <<set $will_calc = 0>>
- <</if>>
- <<set $will_cost = (100 + $will_calc - $will_arousal_mod) / 10>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<set $will_cost = (200 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
- <<else>>
- <<if $missCum >= $timeTresh>>
- <<setn $will_calc += 100>>
- <</if>>
- <<if getvar("$rape") == 0>>
- <<set $will_cost = (10 + $will_calc + $will_arousal_mod) / 10>>
- <<else>>
- <<set $will_cost = (100 + $rape + $will_calc + $will_arousal_mod) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'drink'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<set $will_cost = (60 - $alcohol_exp * 40 + $will_calc) / 10>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<set $will_cost = (100 - $will_enforced - $alcohol_exp * 30 + $will_calc) / 10>>
- <<else>>
- <<if $pc.alko > 10>>
- <<set $will_cost = (20 + $alcohol_exp * 10 + $will_calc) / 10>>
- <<elseif $pc.alko > 6>>
- <<set $will_cost = (80 + $alcohol_exp * 40 + $will_calc) / 10>>
- <<elseif $pc.alko > 3>>
- <<set $will_cost = (60 + $alcohol_exp * 30 + $will_calc) / 10>>
- <<else>>
- <<set $will_cost = (10 + $alcohol_exp * 20 + $will_calc) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'drugs'>>
- <!-- !!Drug needs already included in the will_calc so just a small base cost here-->
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<set $will_cost = (100 - $addictive_trait_lvl * 30 + $will_calc) / 10>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<set $will_cost = (100 - $will_enforced - $addictive_trait_lvl * 10 + $will_calc) / 10>>
- <<else>>
- <<if getvar("$addictive_trait_lvl") > 0>>
- <<set $will_cost = ($addictive_trait_lvl * 30 + $will_calc) / 10>>
- <<else>>
- <<set $will_cost = (10 + $will_calc) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'crime'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][0] == 'force'>>
- <<set $will_cost = (80 - $will_enforced + $will_calc) / 10>>
- <<else>>
- <<set $will_cost = (60 + $will_calc) / 10>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'exhib'>>
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'self'>>
- <<set $will_cost = (100 - getvar('$Exhibitionist_lvl') * 20 - $pc.pcs_inhib / 5 + $will_calc) / 10>>
- <<elseif $location_var[$here][1] == 'force'>>
- <<set $will_cost = (100 - $will_enforced - getvar('$Exhibitionist_lvl') * 10 + $will_calc) / 10>>
- <<else>>
- <<set $will_cost = (getvar('$Exhibitionist_lvl') * 25 + $pc.pcs_inhib / 4 + $will_calc) / 10>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'sleep'>>
- <!-- !!this is to force you to stay wake so will cost nothing if you have more than 5 sleep, it has no base cost as there will always be a sleep cost in calc-->
- <<gs 'willpower' 'calc'>>
- <<set $will_cost = 0>>
- <<if $pc.pcs_sleep <= 5>>
- <<set $will_cost = $will_calc / 10>>
- <</if>>
- <!-- !! Not sure if this one belongs. It doesn''t look like it's used anywhere.-->
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'misc' 'chore'>>
- <!-- !!Choose this if nothing else fits and for chore which is same thing but without gains for max willpower-->
- <<gs 'willpower' 'calc'>>
- <<if $location_var[$here][1] == 'force'>>
- <<if $location_var[$here][2] == 'easy'>>
- <<set $will_cost = (60 - $will_enforced + $will_calc) / 10>>
- <<elseif $location_var[$here][2] == 'hard'>>
- <<set $will_cost = (90 - $will_enforced + $will_calc) / 10>>
- <<else>>
- <<set $will_cost = (70 - $will_enforced + $will_calc) / 10>>
- <</if>>
- <<else>>
- <<if $location_var[$here][2] == 'easy'>>
- <<set $will_cost = (10 + $will_calc) / 10>>
- <<elseif $location_var[$here][2] == 'hard'>>
- <<set $will_cost = (40 + $will_calc) / 10>>
- <<else>>
- <<set $will_cost = (20 + $will_calc) / 10>>
- <</if>>
- <</if>>
- <<gs 'willpower' 'difficulty' $ARGS[2]>>
- <<case 'choreSchool'>>
- <<set _schoolDifficulty = 'medium'>>
- <<if $quest('school').func('isGroupMember','gopniks') and $pc.trait('nerd_status') == 0>>
- <<set _schoolDifficulty = 'hard'>>
- <<elseif $pc.trait('nerd_status') > 0>>
- <<set _schoolDifficulty = 'easy'>>
- <</if>>
- <<gs 'willpower' 'chore' 'self' _schoolDifficulty>>
- <<switch $pc.trait('nerd_status')>>
- <<case 2>>
- <<set $will_cost = $will_cost / 2>>
- <<case 3>>
- <<set $will_cost = 0>>
- <</switch>>
- <<case 'dnd'>>
- <!-- !!modifiers for drink an drugs-->
- <<set $will_dnd = 0>>
- <<if $pc.alko > 10>>
- <<set $will_dnd += 160>>
- <<elseif $pc.alko > 6>>
- <<set $will_dnd += 80>>
- <<elseif $pc.alko > 3>>
- <<set $will_dnd += 30>>
- <</if>>
- <!-- !!cigarettes-->
- <<if getvar("$smokerNeed") > 10>>
- <<setn $will_dnd += 10>>
- <</if>>
- <!-- !!weed-->
- <<if getvar("$jointhigh") > 0>>
- <<setn $will_dnd -= 10>>
- <</if>>
- <!-- !!amphetamines-->
- <<if getvar("$amphWithdrawl") > 2>>
- <<set $will_dnd += 40>>
- <<elseif getvar("$amphHigh") > 0>>
- <<set $will_dnd += 80>>
- <</if>>
- <!-- !!heroine-->
- <<if getvar("$SLomka") > 0>>
- <<set $will_dnd += 100>>
- <<elseif $pc.strongNarkota > 0>>
- <<set $will_dnd += 60>>
- <</if>>
- <!-- !!cocaine-->
- <<if getvar("$pc.narkoman") == 1>>
- <<set $will_dnd += 60>>
- <<elseif $pc.nark < 0>>
- <<set $will_dnd -= 20>>
- <</if>>
- <<case 'difficulty'>>
- <!-- !!Multiplier to make willpower cost more. Use if all total costs need adjusting.-->
- <<set $will_cost = $will_cost * 3 / 2>>
- <<if $location_var[$here][1] == 'easy'>>
- <<set $will_cost = $will_cost * 2 / 3>>
- <<if getvar("$will_cost") < 5>>
- <<set $will_cost = 5>>
- <</if>>
- <<elseif $location_var[$here][1] == 'hard'>>
- <<set $will_cost = $will_cost * 3 / 2>>
- <<if getvar("$will_cost") < 7>>
- <<set $will_cost = 7>>
- <</if>>
- <<else>>
- <<if getvar("$will_cost") < 6>>
- <<set $will_cost = 6>>
- <</if>>
- <</if>>
- <<if getvar("$cheatWillpower") == 1>>
- <<set $will_cost = 0>>
- <</if>>
- <<case 'pay'>>
- <<set _will_cost = $location_var[$here][1]>>
- <<if _will_cost < 1 and getvar("$cheatWillpower") == 0>>
- <<set $will_cost = 1>>
- <</if>>
- <<set $pc.willpower -= _will_cost>>
- <<if $location_var[$here][1] == 'force'>>
- <<if $pc.willpowermax < 150>>
- <<set $pc.will_counter+= 10>>
- <</if>>
- <<if getvar("$will_enforced") < 20>>
- <<setn $will_enforced += 1>>
- <</if>>
- <<elseif $location_var[$here][1] != 'chore'>>
- <<if $pc.willpowermax < 150>>
- <<set $pc.will_counter+= 1>>
- <</if>>
- <</if>>
- <<if getvar("$will_counter") >= 20>>
- <<set $pc.will_counter= 0>> <<setn $pc.willpowermax += 1>>
- <</if>>
- <</switch>>
|