PC uses new class features

source/pc/gender.qsps

@@ -37,34 +37,42 @@ if $ARGS[0] = 'get_gender_visible':
     
 
 elseif $ARGS[0] = 'set_body_female':
-    $body_torso = 'f'
-    $body_feet = 'f'
-    gs 'pc_body','chest_size_set','C'
-    gs 'pc_body','hair_head_set',0
-    body_hair_face_growth = 0
-    body_hair_head_growth = 400
-    $body_hair_head_color = 'blond'
-    body_genital_balls = 0
-    body_genital_penis = 0
-    body_genital_vagina = 1
+    #pc.$breastCupSize = 'C'#
+    
     #pc.$genderAppearance = 'f'#
-    $gender_identification = 'f'
-    gender_usesMakeup = 1
+
+    #pc.ballsSize = 0#
+    #pc.penisSize = 0#
+    #pc.vagina = 1#
+
+    #pc.hairBodyLength = 0#
+    #pc.hairBodyGrowth = 400#
+    #pc.hairFaceLength = 0#
+    #pc.hairFaceGrowth = 400#
+    #pc.$hairHeadLength = 'shoulders'#
+    #pc.hairHeadGrowth = 400#
+    
+    #pc.hairColorNatural = 'blond'#
+    
     gs 'util_wardrobe','style_update'
 elseif $ARGS[0] = 'set_body_male':
-    $body_torso = 'm'
-    $body_feet = 'm'
-    gs 'pc_body','chest_size_set','None'
-    gs 'pc_body','hair_head_set', -5
-    body_hair_face_growth = 400
-    body_hair_head_growth = 400
-    $body_hair_head_color = 'black'
-    body_genital_balls = 2
-    body_genital_penis = 1
-    body_genital_vagina = 0
+    #pc.$breastCupSize = 'none'#
+    
     #pc.$genderAppearance = 'm'#
-    $gender_identification = 'm'
-    gender_usesMakeup = 0
+
+    #pc.ballsSize = 2#
+    #pc.penisSize = 2#
+    #pc.vagina = 0#
+
+    #pc.hairBodyLength = 0#
+    #pc.hairBodyGrowth = 400#
+    #pc.hairFaceLength = 0#
+    #pc.hairFaceGrowth = 400#
+    #pc.$hairHeadLength = 'bald'#
+    #pc.hairHeadGrowth = 400#
+    
+    #pc.$hairColorNatural = 'black'#
+    
     gs 'util_wardrobe','style_update'
 elseif $ARGS[0] = 'set_born_male':
     $body_sex_born = 'm'

source/pc/pc.qsps

@@ -1,7 +1,96 @@
 # pc
 !!Process: syntaxadditions
 !CLASS(pc){ 
+    ballsSize:;
+    penisSize:;
+    vagina:;
+
+    breastCupSize:;
+    $breastCupSize:GET(  
+            LOOKUP(#THIS.breastCupSize?    
+                [0]: 'none', 
+                [1]: 'A',  
+                [2]: 'B',
+                [3]: 'C',
+                [4]: 'D',
+                [5]: 'DD',
+                [6]: 'E',
+                [7]: 'F',
+                [8]: 'G',
+                [9]: 'H'
+            )
+        )  
+        SET(
+            LOOKUP(#THIS.breastCupSize?    
+                ['none']: 0, 
+                ['A']: 1,  
+                ['B']: 2,
+                ['C']: 3,
+                ['D']: 4,
+                ['DD']: 5,
+                ['E']: 6,
+                ['F']: 7,
+                ['G']: 8,
+                ['H']: 9
+            )
+        );
+
     $genderAppearance:;
-    $genderMedia:GET(#THIS.$genderAppearance);    
-}   
+    $genderMedia:GET(#THIS.$genderAppearance);
+
+
+    $hairColorNatural:;
+    hairBodyLength:;
+    hairBodyGrowth:;
+    hairFaceLength:;
+    hairFaceGrowth:;
+    hairHeadLength:;
+    $hairHeadLength:GET(  
+    
+            LOOKUP(#THIS.hairHeadLength?    
+                [0/4999]:           'bald',
+                [5000/34999]:       'male short',
+                [35000/74999]:      'male medium',
+                [75000/124999]:     'male medium long',
+                [125000/199999]:    'very short female',
+                [200000/299999]:    'short female',
+                [300000/379999]:    'shoulders',
+                [380000/499999]:    'nipples',
+                [500000/649999]:    'belly button',
+                [650000/649999]:    'butt',
+                [900000/9000000]:   'knees'
+            )
+            SET(
+                LOOKUP(#THIS.hairHeadLength?    
+                    ['bald']:               0, 
+                    ['male short']:         20000,  
+                    ['male medium']:        50000,
+                    ['male medium long']:   100000,
+                    ['very short female']:  150000,
+                    ['short female']:       250000,
+                    ['shoulders']:          320000,
+                    ['nipples']:            450000,
+                    ['belly button']:       550000,
+                    ['butt']:               800000, 
+                    ['knees']:              1150000
+                )
+            )
+        );
+        hairHeadGrowth:;
+}
+
+
+if $ARGS[0] = 'hair_grow_dayly':
+    temp_days = max(1,ARGS[1])
+
+    $temp_hair_head = #pc.$hairHeadLength
+
+    pc_hairHeadLength += temp_days * pc_hairHeadGrowth
+
+    if #pc.$hairHeadLength ! $temp_hair_head:
+        gs 'util_message','add','Info','Your hair has grown to stage '+#pc.$hairHeadLength+'.'
+    end
+end
+
+
 -

source/util/time.qsps

@@ -115,7 +115,7 @@ elseif $ARGS[0] = 'pass':
 
     temp_dayTicks = temp_tickDayTarget - time_tickDayLast
 
-    gs 'pc_body','hair_grow_dayly',temp_dayTicks
+    gs 'pc','hair_grow_dayly',temp_dayTicks