Browse Source

[added] New skill "perform", used for hings like acting and putting on a show.

KevinSmarts 5 years ago
parent
commit
60fc3ac4fa

+ 3 - 0
locations/preSYS.qsrc

@@ -387,6 +387,7 @@ if $ARGS[0] = 'charselect':
 				pcs_react = 50
 				pcs_agil = 55
 				pcs_chrsm = 35
+				pcs_perform = 30
 				salo = 40
 				genbsize = 12
 				if player_avatar = 0:
@@ -473,6 +474,7 @@ if $ARGS[0] = 'charselect':
 				pcs_humint = 40
 				pcs_makupskl = 35
 				pcs_heels = 10
+				pcs_perform = 20
 				pirsC = 1
 				PirsC1_owned = 1
 				if player_avatar ! 1: pcs_hairlng = 200
@@ -839,6 +841,7 @@ if $ARGS[0] = 'charselect':
 					pcs_lip = 2
 					pcs_lashes = 1
 				end
+				pcs_perform = 20
 				pcs_skin = 80
 				pcs_vag = 10
 				pcs_ass = 10

+ 1 - 0
locations/preSYS2.qsrc

@@ -474,6 +474,7 @@ if $ARGS[0] = 'modskl_art':
 	gs 'preSYS2', 'modrel_setup2', 'pcs_instrmusic', 'Instrumental Music'
 	gs 'preSYS2', 'modrel_setup2', 'pcs_photoskl', 'Photography'
 	gs 'preSYS2', 'modrel_setup2', 'pcs_artskl', 'Artistic Skills'
+	gs 'preSYS2', 'modrel_setup2', 'pcs_perform', 'Performance'
 	'</table></center>'
 	nl
 

+ 1 - 0
locations/stat_sklattrib.qsrc

@@ -83,6 +83,7 @@ $skl_name[30] = 'medcn'
 $skl_name[31] = 'heels'
 $skl_name[32] = 'pool'
 $skl_name[33] = 'inhib'
+$skl_name[34] = 'perform'
 
 !!Trait Section
 !!This is where Traits that will affect attribute or skill advancement or degradation have those aspects defined.

+ 5 - 1
locations/stat_sklattrib_lvlset.qsrc

@@ -165,13 +165,17 @@ heels[1] = 1 & heels[2] = 4 & heels[3] = 6 & heels[4] = -1
 
 !! Billiard, Pool 
 !! pool level can affect intellect?
-pcs_pool = pool_lvl
+pcs_pool = ((pool_lvl * 3) + pcs_intel)/4
 pool[1] = 3 & pool[2] = -1
 
 !! inhibition 
 pcs_inhib = inhib_lvl
 inhib[1] = 3 & inhib[2] = -1
 
+!!Performance; Skill at things like acting or putting on a show
+pcs_perform = (perform_lvl + (pcs_prcptn + pcs_chrsm) / 2) / 2
+perform[1] = 1 & perform[2] = 3 & perform[3] = -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