:: stat_sklattrib_lvlset
<<set $here = 'stat_sklattrib_lvlset'>>
<<set $ARGS = $location_var[$here]>>
<<info "stat_sklattrib_lvlset is deactivated">>
::stat_sklattrib_lvlset_deactivated
<!-- !!--------------- Attribute set section -------------------------->
<!-- !!This is where an attribute pcs_"name" is set by "name"_lvl and any adjustments are added-->
<!-- !!Even though most of these could be done without doing a _lvl to pcs_ conversion, doing so is future proofing-->
<<run $pc.skillSetLevel('strength',$stren_lvl + $stren_plus_lvl)>>
<<if $pc.skillLevel("strength") < 1>>
	<<run $pc.skillSetLevel('strength',1)>>

<</if>>
<<run $pc.skillSetLevel('agility',$agil_lvl)>>
<<if $pc.skillLevel("agility") < 1>>
	<<run $pc.skillSetLevel('agility',1)>>

<</if>>
<<set $pc.vitality = $vital_lvl>>
<<if getvar("$pc.vitality") < 1>>
	<<set $pc.vitality = 1>>

<</if>>
<<run $pc.skillSetLevel('intelligence',$intel_lvl - $bimbostupidity - (5 * $noorgasm))>>
<<if $pc.skillLevel("intelligence") < 1>>
	<<run $pc.skillSetLevel('intelligence',1)>>

<</if>>
<<run $pc.skillSetLevel('reaction',$react_lvl)>>
<<if $pc.skillLevel("reaction") < 1>>
	<<run $pc.skillSetLevel('reaction',1)>>

<</if>>
<<run $pc.skillSetLevel('spirit',$sprt_lvl)>>
<<if $pc.skillLevel("spirit") < 1>>
	<<run $pc.skillSetLevel('spirit',1)>>

<</if>>
<<run $pc.skillSetLevel('charisma',$chrsm_lvl)>>
<<if $pc.skillLevel("charisma") < 1>>
	<<run $pc.skillSetLevel('charisma',1)>>

<</if>>
<<run $pc.skillSetLevel('perception',$prcptn_lvl)>>
<<if $pc.skillLevel("perception") < 1>>
	<<run $pc.skillSetLevel('perception',1)>>

<</if>>
<<set $pcs_magik = $magik_lvl>>
<<if getvar("$pcs_magik") < 0>>
	<<set $pcs_magik = 0>>

<</if>>
<<set $pc.pcs_butt_tr = $butt_tr_lvl / 10>>
<<if getvar("$pc.pcs_butt_tr") < 0>>
	<<set $pc.pcs_butt_tr = 0>>

<</if>>
<!-- !!---------------------- Skill set Section ------------------------->
<!-- !!Each skill has three lines, the first is the comment that says what the skill is, the next that sets pcs_"name", and the finial which sets "name"[1] to [$x] with the attribute index of the attribute(s) ending with a -1 to show end.-->
<!-- !! Clarification on the third line:-->
<!-- !!  These are the numerical attribute IDs (listed below) that are associated with the skill. They get a small portion (1/5) of the skill''s exp.-->
<!-- !! Example-->
<!-- !! jab[1] = 0 would add to attribute 0 which is strength-->
<!-- !! jab[2] = 1 would add to attribute 1 which is agility-->
<!-- !! jab[3] = -1 which closes the loop and must be included-->
<!-- !!Attribute variable list-->
<!-- !!$att_name[0] = 'stren'-->
<!-- !!$att_name[1] = 'agil'-->
<!-- !!$att_name[2] = 'vital'-->
<!-- !!$att_name[3] = 'intel'-->
<!-- !!$att_name[4] = 'react'-->
<!-- !!$att_name[5] = 'sprt'-->
<!-- !!$att_name[6] = 'chrsm'-->
<!-- !!$att_name[7] = 'prcptn'-->
<!-- !!$att_name[8] = 'magik'-->
<!-- !!Jabs; Quick strikes that do not have much power-->
<<run $pc.skillSetLevel('jabs',($jab_lvl + ($pc.skillLevel("agility") * 2 + $pc.skillLevel("strength")) / 3) / 2)>>
<<setinit $jab[1] = 0>> <<set $jab[2] = 1>> <<set $jab[3] = -1>>
<!-- !!Power Strikes; Hard strikes that are harder to land-->
<<run $pc.skillSetLevel('punch',($punch_lvl + ($pc.skillLevel("strength") * 2 + $pc.skillLevel("agility")) / 3) / 2)>>
<<setinit $punch[1] = 0>> <<set $punch[2] = 1>> <<set $punch[3] = -1>>
<!-- !!Kicks; Kicking, enough said-->
<<run $pc.skillSetLevel('kick',($kick_lvl + ($pc.skillLevel("strength") * 3 + $pc.skillLevel("agility")) / 4) / 2)>>
<<setinit $kick[1] = 0>> <<set $kick[2] = 1>> <<set $kick[3] = -1>>
<!-- !!Defence; Covers both blocking and dodging-->
<<run $pc.skillSetLevel('defense',($def_lvl + ($pc.skillLevel("agility") + $pc.skillLevel("strength") + $pc.skillLevel("reaction")) / 3) / 2)>>
<<setinit $def[1] = 0>> <<set $def[2] = 1>> <<set $def[3] = 4>> <<set $def[4] = -1>>
<!-- !!Marksmanship; Could be guns, bows, or spells-->
<<run $pc.skillSetLevel('shoot',($shoot_lvl + ($pc.skillLevel("agility") + $pc.skillLevel("reaction")) / 2) / 2)>>
<<setinit $shoot[1] = 1>> <<set $shoot[2] = 4>> <<set $shoot[3] = -1>>
<!-- !!Bushcraft; Wildlife survival and pathfinding skills-->
<<run $pc.skillSetLevel('bushcraft',($bushcraft_lvl + ($pc.skillLevel("agility") + $pc.skillLevel("strength") + $pc.skillLevel("intelligence")) / 3) / 2)>>
<<setinit $bushcraft[1] = 1>> <<set $bushcraft[2] = 4>> <<set $bushcraft[3] = -1>>
<!-- !!Singing; Should be self-explanatory-->
<<run $pc.skillSetLevel('singing',($vokal_lvl + ($pc.skillLevel("intelligence") + $pc.skillLevel("charisma")) / 2) / 2)>>
<<setinit $vokal[1] = 3>> <<set $vokal[2] = 6>> <<set $vokal[3] = -1>>
<!-- !!Tailoring; Should be self-explanatory-->
<<run $pc.skillSetLevel('sewing',($sewng_lvl + ($pc.skillLevel("agility") + $pc.skillLevel("intelligence")) / 2) / 2)>>
<<setinit $sewng[1] = 1>> <<set $sewng[2] = 3>> <<set $sewng[3] = -1>>
<!-- !!Instrumental Music; Skill at playing an instrument(s)-->
<<run $pc.skillSetLevel('playInstrument',($instrmusic_lvl + (2 * $pc.skillLevel("agility") + $pc.skillLevel("intelligence")) / 3) / 2)>>
<<setinit $instrmusic[1] = 1>> <<set $instrmusic[2] = 3>> <<set $instrmusic[3] = -1>>
<!-- !!Photography; Should be self-explanatory-->
<<run $pc.skillSetLevel('photo',($photoskl_lvl + (2 * $pc.skillLevel("intelligence") + $pc.skillLevel("reaction")) / 3) / 2)>>
<<setinit $photoskl[1] = 3>> <<set $photoskl[2] = 4>> <<set $photoskl[3] = -1>>
<!-- !!Artistic Skills; painting, drawing etc.-->
<<run $pc.skillSetLevel('art',($artskls_lvl + ($pc.skillLevel("intelligence") + $pc.skillLevel("reaction") + $pc.skillLevel("agility")) / 3) / 2)>>
<<setinit $artskls[1] = 1>> <<set $artskls[2] = 3>> <<set $artskls[3] = 4>> <<set $artskls[4] = -1>>
<!-- !!Modern Dancing; This is the basic dance skill and replaces 'dance'-->
<<run $pc.skillSetLevel('dance',($danc_lvl + ($pc.skillLevel("agility") + $pc.skillLevel("reaction") + $pc.vitality) / 3) / 2)>>
<<setinit $danc[1] = 1>> <<set $danc[2] = 2>> <<set $danc[3] = 4>> <<set $danc[4] = -1>>
<!-- !!Erotic Dancing; This is used when individual eroticism is being displayed, also covers & replaces strip tease-->
<<set $pc.skillLevel("dance")ero = ($dancero_lvl + ($pc.skillLevel("agility") + $pc.skillLevel("charisma") + $pc.vitality) / 3) / 2 + (3 * $flxibt)>>
<<setinit $dancero[1] = 1>> <<set $dancero[2] = 2>> <<set $dancero[3] = 6>> <<set $dancero[4] = -1>>
<!-- !!Pole Dancing; Should be self-explanatory-->
<<set $pc.skillLevel("dance")pol = ($dancpol_lvl + ($pc.skillLevel("agility") + $pc.skillLevel("strength") + $pc.skillLevel("charisma")) / 3) / 2 + (3 * $flxibt)>>
<<setinit $dancpol[1] = 0>> <<set $dancpol[2] = 1>> <<set $dancpol[3] = 6>> <<set $dancpol[4] = -1>>
<!-- !!Chess; Should be self-explanatory-->
<<run $pc.skillSetLevel('chess',($chess_lvl + $pc.skillLevel("intelligence")) / 2 + (5 * $logictrt))>>
<<setinit $chess[1] = 3>> <<set $chess[2] = -1>>
<!-- !!Gaming; Abstracts skills at all types of Table Top games-->
<<run $pc.skillSetLevel('gaming',($gaming_lvl + (2 * $pc.skillLevel("intelligence") + $pc.skillLevel("reaction")) / 3) / 2)>>
<<setinit $gaming[1] = 3>> <<set $gaming[2] = 4>> <<set $gaming[3] = -1>>
<!-- !!People skills; basic human interaction skill set-->
<<run $pc.skillSetLevel('people',($humint_lvl + ($pc.skillLevel("perception") + $pc.skillLevel("charisma") + $pc.skillLevel("reaction")) / 3) / 2 + (5 * $chrmng) - (5 * $meantrt))>>
<<setinit $humint[1] = 4>> <<set $humint[2] = 6>> <<set $humint[3] = 7>> <<set $humint[4] = -1>>
<!-- !!Persuasion; Trained skill at getting people to agree with you or like you-->
<<run $pc.skillSetLevel('persuasion',($persuas_lvl + ($pc.skillLevel("perception") + $pc.skillLevel("charisma")) / 2) / 2 + (5 * $chrmng) - (5 * $meantrt))>>
<<setinit $persuas[1] = 6>> <<set $persuas[2] = 7>> <<set $persuas[3] = -1>>
<!-- !!Running; Should be self-explanatory-->
<<run $pc.skillSetLevel('run',($run_lvl + (2 * ($pc.skillLevel("agility") + $pc.skillLevel("strength")) + $pc.vitality) / 5) / 2)>>
<<setinit $run[1] = 0>> <<set $run[2] = 1>> <<set $run[3] = 2>> <<set $run[4] = -1>>
<!-- !!Volleyball; Should be self-explanatory-->
<<run $pc.skillSetLevel('volleyball',($vball_lvl + (2 * $pc.skillLevel("agility") + $pc.skillLevel("reaction") + $pc.skillLevel("strength") + $pc.vitality) / 5) / 2)>>
<<setinit $vball[1] = 0>> <<set $vball[2] = 1>> <<set $vball[3] = 2>> <<set $vball[4] = 4>> <<set $vball[5] = -1>>
<!-- !!Ice Skating; Should be self-explanatory-->
<<run $pc.skillSetLevel('iceskating',($icesktng_lvl + (2 * $pc.skillLevel("agility") + $pc.skillLevel("strength")) / 3) / 2)>>
<<setinit $icesktng[1] = 0>> <<set $icesktng[2] = 1>> <<set $icesktng[3] = -1>>
<!-- !!Wrestling; Should be self-explanatory-->
<<run $pc.skillSetLevel('wrestling',($wrstlng_lvl + (2 * $pc.skillLevel("strength") + $pc.vitality + $pc.skillLevel("agility")) / 4) / 2)>>
<<setinit $wrstlng[1] = 0>> <<set $wrstlng[2] = 1>> <<set $wrstlng[3] = 2>> <<set $wrstlng[4] = -1>>
<!-- !!Football; Should be self-explanatory-->
<<run $pc.skillSetLevel('football',($ftbll_lvl + ($pc.vitality + $pc.skillLevel("agility") + $pc.skillLevel("strength")) / 3) / 2)>>
<<setinit $ftbll[1] = 0>> <<set $ftbll[2] = 1>> <<set $ftbll[3] = 2>> <<set $ftbll[4] = -1>>
<!-- !!Basketball; Should be self-explanatory-->
<<set $pcs_bkbll = ($bkbll_lvl + ($pc.vitality + $pc.skillLevel("agility") + $pc.skillLevel("reaction")) / 3) / 2>>
<<setinit $bkbll[1] = 0>> <<set $bkbll[2] = 1>> <<set $bkbll[3] = 2>> <<set $bkbll[4] = -1>>
<!-- !!Spell Casting; The ability to Successfully cast spells-->
<<set $pcs_splcstng = ($splcstng_lvl + ($pc.skillLevel("intelligence") + $pc.skillLevel("reaction")) / 2) / 2>>
<<setinit $splcstng[1] = 3>> <<set $splcstng[2] = 4>> <<set $splcstng[3] = -1>>
<!-- !!Observation; trained skill in noticing one''s surroundings and events (nothing but surface detail)-->
<<run $pc.skillSetLevel('observation',($observ_lvl + ($pc.skillLevel("perception") + $pc.skillLevel("reaction") + $pc.skillLevel("intelligence")) / 3) / 2)>>
<<setinit $observ[1] = 3>> <<set $observ[2] = 4>> <<set $observ[3] = 7>> <<set $observ[4] = -1>>
<!-- !!Makeup; Skill at applying makeup, goes into the vnesh calc as makupskl/5-->
<<run $pc.skillSetLevel('makeup',($makupskl_lvl + ($pc.skillLevel("intelligence") + $pc.skillLevel("agility")) / 2) / 2)>>
<<setinit $makupskl[1] = 1>> <<set $makupskl[2] = 3>> <<set $makupskl[3] = -1>>
<!-- !!Computer Skill; Skill at using and repairing computers-->
<<run $pc.skillSetLevel('computer',($compskl_lvl + $pc.skillLevel("intelligence")) / 2 + (5 * $logictrt))>>
<<setinit $compskl[1] = 3>> <<set $compskl[2] = -1>>
<!-- !!Hacking; Skill at hacking computer systems-->
<<run $pc.skillSetLevel('hacking',($comphckng_lvl + ($pc.skillLevel("intelligence") + $pc.skillLevel("reaction")) / 2) / 2 + (5 * $logictrt))>>
<<setinit $comphckng[1] = 3>> <<set $comphckng[2] = 4>> <<set $comphckng[3] = -1>>
<!-- !!Handy-work; Used for non-mechanic work, i.e. plumbing-->
<<run $pc.skillSetLevel('handyWork',($hndiwrk_lvl + (2 * $pc.skillLevel("agility") + $pc.skillLevel("intelligence")) / 3) / 2)>>
<<setinit $hndiwrk[1] = 1>> <<set $hndiwrk[2] = 3>> <<set $hndiwrk[3] = -1>>
<!-- !!Serving; Covers all aspects of waitressing and bartending-->
<<run $pc.skillSetLevel('serving',($servng_lvl + ($pc.skillLevel("intelligence") + $pc.vitality) / 2) / 2)>>
<<setinit $servng[1] = 2>> <<set $servng[2] = 3>> <<set $servng[3] = -1>>
<!-- !!Cleaning; knowing how to clean efficiently and effectively-->
<<set $pcs_cleaning = ($cleaning_lvl + ($pc.skillLevel("intelligence") + $pc.vitality) / 2) / 2>>
<<setinit $cleaning[1] = 2>> <<set $cleaning[2] = 3>> <<set $cleaning[3] = -1>>
<!-- !!Modelling; Knowing how to pose and hold poses for long periods of time. Recalc to a 75/25 split by KS-->
<<run $pc.skillSetLevel('modelling',(($mdlng_lvl * 3 / 2) + ($pc.skillLevel("agility") + $pc.vitality) / 4) / 2)>>
<<setinit $mdlng[1] = 1>> <<set $mdlng[2] = 2>> <<set $mdlng[3] = -1>>
<!-- !!Medicine; Basic medical knowledge up to the level of Nursing-->
<<run $pc.skillSetLevel('medicine',($medcn_lvl + ($pc.skillLevel("intelligence") + $pc.skillLevel("reaction") + $pc.skillLevel("perception")) / 3) / 2)>>
<<setinit $medcn[1] = 3>> <<set $medcn[2] = 4>> <<set $medcn[3] = 7>> <<set $medcn[4] = -1>>
<!-- !!Heels; Experience with walking in heels of increasing height-->
<!-- !!Currently only based on the skill itself, not linked to any attributes, but maybe the skill can affect agility, reaction and charisma-->
<<run $pc.skillSetLevel('highHeels',$heels_lvl)>>
<<setinit $heels[1] = 1>> <<set $heels[2] = 4>> <<set $heels[3] = 6>> <<set $heels[4] = -1>>
<!-- !! Billiard, Pool-->
<!-- !! pool level can affect intellect?-->
<<set $pcs_pool = (($pool_lvl * 3) + $pc.skillLevel("intelligence")) / 4>>
<<setinit $pool[1] = 3>> <<set $pool[2] = -1>>
<!-- !! inhibition-->
<<set $pc.pcs_inhib = $inhib_lvl + ($pc.alko * 3)>>
<<setinit $inhib[1] = 3>> <<set $inhib[2] = -1>>
<!-- !!Performance; Skill at things like acting or putting on a show-->
<<set $pcs_perform = ($perform_lvl + ($pc.skillLevel("charisma") + $pc.skillLevel("perception")) / 2) / 2>>
<<setinit $perform[1] = 6>> <<set $perform[2] = 7>> <<set $perform[3] = -1>>
<!-- !!Cheerleading; Should be self-explanatory-->
<<run $pc.skillSetLevel('cheerleading',($cheer_lvl + ($pc.skillLevel("agility") + $pc.skillLevel("reaction") + $pc.vitality) / 3) / 2)>>
<<setinit $cheer[1] = 1>> <<set $cheer[2] = 2>> <<set $cheer[3] = 4>> <<set $cheer[4] = -1>>
<!-- !!Music Production: Recording, mixing and producing music-->
<<set $pcs_musicprod = ($musicprod_lvl + ($pc.skillLevel("intelligence") + $pc.skillLevel("perception") + $pc.skillLevel("spirit")) / 3) / 2>>
<<setinit $musicprod[1] = 5>> <<set $musicprod[2] = 3>> <<set $musicprod[3] = 7>> <<set $musicprod[4] = -1>>
<!-- !!Skiing; Should be self-explanatory-->
<!-- !!To add this skill, copy this "$skl_name[$x] = 'skng'" to the end of the skils list above and replace the x with the next index number, then remove the comment and bracket marks on the next two lines and delete this line-->
<!-- !!pcs_skng = (skng_lvl + (2 * pcs_agil + pcs_stren) / 3) / 2-->
<!-- !!{skng[1] = 0 & skng[2] = 1 & skng[3] = -1} -->
<!-- !!Larceny; picking locks, hotwire cars etc.; basic thief/stealing skills-->
<!-- !!To add this skill, copy this "$skl_name[$x] = 'thiefskls'" to the end of the skils list above and replace the x with the next index number, then remove the comment and bracket marks on the next two lines and delete this line-->
<!-- !!pcs_thiefskls = (thiefskls_lvl + (2 * pcs_agil + pcs_react) / 3) / 2-->
<!-- !!{thiefskls[1] = 1 & thiefskls[2] = 4 & thiefskls[3] = -1} -->
<!-- !!Mechanic; Auto mechanic skill, can work on your own car-->
<!-- !!To add this skill, copy this "$skl_name[$x] = 'mchanc'" to the end of the skils list above and replace the x with the next index number, then remove the comment and bracket marks on the next two lines and delete this line-->
<!-- !!pcs_mchanc = (mchanc_lvl + (2 * pcs_agil + $pc.intelligence) / 3) / 2-->
<!-- !!{mchanc[1] = 1 & mchanc[2] = 3 & mchanc[3] = -1} -->
<!-- !!Gambling; Should be self-explanatory-->
<!-- !!To add this skill, copy this "$skl_name[$x] = 'gmbling'" to the end of the skils list above and replace the x with the next index number, then remove the comment and bracket marks on the next two lines and delete this line-->
<!-- !!pcs_gmbling = (gmbling_lvl + (2 * pcs_prcptn + $pc.intelligence + pcs_react) / 4) / 2-->
<!-- !!{gmbling[1] = 3 & gmbling[2] = 4 & gmbling[3] = 7 & gmbling[4] = -1} -->
<!-- !!Seduction; Trained art of making yourself sexually desired, by words, body language, tone etc.; should be checked with either a +hotcat or on a 300point scale with +vnesh (set elsewhere so not added here)-->
<!-- !!To add this skill, copy this "$skl_name[$x] = 'sdctn'" to the end of the skils list above and replace the x with the next index number, then remove the comment and bracket marks on the next two lines and delete this line-->
<!-- !!pcs_sdctn = (sdctn_lvl + (pcs_prcptn + pcs_chrsm) / 2) / 2-->
<!-- !!{sdctn[1] = 6 & sdctn[2] = 7 & sdctn[3] = -1} -->
<!-- !!Computer Gaming; Skill at playing assorted computer and console games.-->
<!-- !!To add this skill, copy this "$skl_name[$x] = 'compgame'" to the end of the skils list above and replace the x with the next index number, then remove the comment and bracket marks on the next two lines and delete this line-->
<!-- !!pcs_compgame = (compgame_lvl + (pcs_agil + pcs_react) / 2) / 2-->
<!-- !!{compgame[1] = 1 & compgame[2] = 4 & compgame[3] = -1} -->
