# preSYS2 if $ARGS[0] = 'start': if genbsize = '': genbsize = 22 if $soc_grup = '':gs 'preSYS2', 'none' act 'Pick a social group': gt 'preSYS2','modgrup' act 'Set attributes': gt 'preSYS2','modatt' act 'Set skills': gt 'preSYS2','modskl' act 'Set appearance':gt 'preSYS2','modapp' act 'Set relationships': gt 'preSYS2','modrel' act 'Set purse': gt 'preSYS2','modpur' act 'Set items': gt 'preSYS2','modite' act 'Set money (<>₽)': money = input 'Set Cash Amount' & gt'preSYS2','start' if custom_csb ! 1: act 'Return to preset character menu': gt 'preSYS', 'charselect' act 'Confirm these options': dynamic 'grupvalue[<>] = 600' if $soc_grup = 'nerd': traits['nerd_points'] = 60 traits['nerd_status'] = 2 traits['nerd_lernHome'] = 5 elseif $soc_grup = 'gopnik': traits['nerd_points'] = -20 end if pcs_inhib < 10: pcs_inhib = 10 !!This line should get sveta to wear school uniform because she has no other clothing with > 50 if pcs_inhib > 50: gs 'clothing', 'wear', 'school', 6 if bag = 1: !!using current combination should prevent having more than 1 bag at the start of game. dynamic $currentpursetype + '_purses[<>] = 1' gs 'obj_din', 'old' end if custom_csb = 1: killvar 'custom_csb' gt 'preCSB', 'intro_7' else gt 'preCUST', 'SGStart' end end end if $ARGS[0] = 'modapp': cla & *clr if genbsize = 0:genbsize = 12 'Choose base genetic breast size: (this is the genetic disposition and not the actual size at game start)' nl if genbsize = 2: 'Very small - Currently set' else 'Very small' end if genbsize = 7: 'Below average - Currently set' else 'Below average' end if genbsize = 12: 'Average - Currently set' else 'Average' end if genbsize = 17: 'Above average - Currently set' else 'Above average' end if genbsize = 22: 'Large - Currently set' else 'Large' end if genbsize = 27: 'Extra large - Currently set' else 'Extra large' end if genbsize = 32: 'Really big - Currently set' else 'Really big' end if genbsize = 37: 'Massive - Currently set' else 'Massive' end if genbsize = 42: 'Getting silly - Currently set' else 'Getting silly' end if genbsize = 47: 'Crazy big - Currently set' else 'Crazy big' end if genbsize = 57: 'Freakishly big - Currently set' else 'Freakishly big' end if genbsize = 67: 'Will struggle to open doors or see the ground big - Currently set' else 'Will struggle to open doors or see the ground big' end if genbsize = 87: 'You''ve been eclipsed by 2 small moons - Currently set' else 'You''ve been eclipsed by 2 small moons' end act 'Body fat (<>/200)': gs 'preSYS2','setsalo' & salo = nstat & gt 'preSYS2','modapp' act 'Return': gt'preSYS2','start' end if $ARGS[0] = 'setgenbsize': nstat = genbsize nstat = input 'Enter value that ends in a 2 or a 7. For example, 2, 7, 12 etc.' if nstat > 97: msg 'Please enter a value less than or equal to 97' gs 'preSYS2', 'setval2' elseif nstat < 2: msg 'Please enter a value greater than or equal to 2' gs 'preSYS2', 'setval2' elseif nstat mod 5 ! 2: msg 'Please enter a value that ends in 2, or a 7' gs 'preSYS2', 'setval2' else exit end end if $ARGS[0] = 'modite': act 'Fake passport (<>/1)': if fakepassport = 0: fakepassport = 1 else fakepassport = 0 end gt 'preSYS2','modite' end act 'Laptop (<>/1)': if komp = 0: komp = 1 else komp = 0 end gt 'preSYS2','modite' end act 'Cosmetic items':gt 'preSYS2','modite_cos' act 'Pharmacy items':gt 'preSYS2','modite_pha' act 'Miscellaneous items':gt 'preSYS2','modite_mis' act 'Return': gt 'preSYS2','start' end if $ARGS[0] = 'modrel_setup2': dynamic 'if <<$ARGS[1]>> < 0: <<$ARGS[1]>> = 0' dynamic 'if <<$ARGS[1]>> > 100: <<$ARGS[1]>> = 100' dynamic 'x = <<$ARGS[1]>>' '<<$ARGS[2]>> (<>/100)zerominus 10minus 5plus 5plus 10100' end if $ARGS[0] = 'modrel_setup3': dynamic 'if <<$ARGS[1]>> < 50: <<$ARGS[1]>> = 50' dynamic 'if <<$ARGS[1]>> > 200: <<$ARGS[1]>> = 200' dynamic 'x = <<$ARGS[1]>>' '<<$ARGS[2]>> (<>/200)zerominus 10minus 5plus 5plus 10200' end !!Values reversed just for inhib use if $ARGS[0] = 'modrel_setup4': dynamic 'if <<$ARGS[1]>> < 0: <<$ARGS[1]>> = 0' dynamic 'if <<$ARGS[1]>> > 100: <<$ARGS[1]>> = 100' dynamic 'x = 100-<<$ARGS[1]>>' '<<$ARGS[2]>> (<>/100)zerominus 10minus 5plus 5plus 10100' end if $ARGS[0] = 'modite_cos': $loc_arg = 'modite_cos' '
Cosmetic items
' *nl *nl '
' gs 'preSYS2', 'modrel_setup2', 'kosmetica', 'Cosmetics' gs 'preSYS2', 'modrel_setup2', 'stanok', 'Razors (number of shaves)' gs 'preSYS2', 'modrel_setup2', 'krem', 'Sunblock' gs 'preSYS2', 'modrel_setup2', 'hscrunch', 'Hair scrunchies' gs 'preSYS2', 'modrel_setup2', 'hpingrip', 'Hair pins' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
' !act 'Shampoo (<>/100)': gs 'preSYS2','setval3' & shampoo = nstat & gt 'preSYS2','modite_cos' act 'Return': gt'preSYS2','modite' end if $ARGS[0] = 'modite_pha': $loc_arg = 'modite_pha' '
Pharmaceutical items
' *nl *nl '
' gs 'preSYS2', 'modrel_setup2', 'prezik', 'Condoms' gs 'preSYS2', 'modrel_setup2', 'pregtest', 'Pregnancy tests' gs 'preSYS2', 'modrel_setup2', 'tabletki', 'Birth control pills' gs 'preSYS2', 'modrel_setup2', 'lekarstvo', 'Antibiotics' gs 'preSYS2', 'modrel_setup2', 'vitamin', 'Vitamins' gs 'preSYS2', 'modrel_setup2', 'painkiller', 'Painkillers' gs 'preSYS2', 'modrel_setup2', 'mosolmaz', 'Ointment for chafing' gs 'preSYS2', 'modrel_setup2', 'lubri', 'Lubricants' gs 'preSYS2', 'modrel_setup2', 'lipbalm', 'Lip balms' gs 'preSYS2', 'modrel_setup2', 'fatdel', 'Weight loss pills' gs 'preSYS2', 'modrel_setup2', 'tampon', 'Tampons' gs 'preSYS2', 'modrel_setup2', 'sanpad', 'Sanitary napkins' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
' act 'Return': gt'preSYS2','modite' end if $ARGS[0] = 'modite_mis': $loc_arg = 'modite_mis' '
Misc items
' *nl *nl '
' gs 'preSYS2', 'modrel_setup2', 'siga', 'Cigarettes' gs 'preSYS2', 'modrel_setup2', 'dur', 'Cocaine' gs 'preSYS2', 'modrel_setup2', 'pranik', 'Tea Biscuits' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
' act 'Return': gt 'preSYS2','modite' end if $ARGS[0] = 'modpur': *clr & cla if $ARGS[1] ! '': $currentpursetype = $ARGS[1] currentpursenumber = ARGS[2] end *clr & cla if $currentpursetype = '': 'You do not own a purse.' else bag = 1 if $currentpursetype ! 'boutique': '
> src="images/pc/purses/<<$currentpursetype>>/<>.jpg">
' else '
> src="images/pc/purses/moncheri/<>.jpg">
' end 'Your current purse is <<$currentpursetype>>_<>.' end act 'Return': gt'preSYS2','start' act 'Get cheap': *clr & cla '
' i = 1 :loopcheappurses *p '' i += 1 if i <= 14:jump 'loopcheappurses' end act 'Get dolls': *clr & cla '
' i = 1 :loopdollspurses *p '' i += 1 if i <= 22:jump 'loopdollspurses' end act 'Get fashionista': *clr & cla '
' i = 1 :loopfashionistapurses *p '' i += 1 if i <= 15:jump 'loopfashionistapurses' end act 'Get kats': *clr & cla '
' i = 1 :loopkatspurses *p '' i += 1 if i <= 14:jump 'loopkatspurses' end act 'Get moncheri': *clr & cla '
' i = 1 :loopboutiquepurses *p '' i += 1 if i <= 17:jump 'loopboutiquepurses' end act 'I do not want a purse': bag = 0 $currentpursetype = '' currentpursenumber = '' gt 'preSYS2','modpur' end end !!This is used to set value, is used to avoid any values that go below 5. if $ARGS[0] = 'setval': nstat = 0 nstat = input 'Enter value in multiples of 5. For example, 5, 10, 15 etc.' if nstat > 100: msg 'Please enter a value less than or equal to 100' gs 'preSYS2', 'setval' elseif nstat < 5: msg 'Please enter a value greater than or equal to 5' gs 'preSYS2', 'setval' elseif nstat mod 5 ! 0: msg 'Please enter a value in multiples of 5' gs 'preSYS2', 'setval' else gs 'stat' exit end end !!This is used to set values, that can go below 5 and ranges from 100 to -100. if $ARGS[0] = 'setval2': nstat = 0 nstat = input 'Enter value in multiples of 5. For example, 5, 0, -5 etc.' if nstat > 100: msg 'Please enter a value less than or equal to 100' gs 'preSYS2', 'setval2' elseif nstat < -100: msg 'Please enter a value greater than or equal to -100' gs 'preSYS2', 'setval2' elseif nstat mod 5 ! 0: msg 'Please enter a value in multiples of 5' gs 'preSYS2', 'setval2' else exit end end !!This is used to set values, that can go to 0 and ranges from 0 to 100. if $ARGS[0] = 'setval3': nstat = 0 nstat = input 'Enter value in multiples of 5. For example, 0, 5, 10 etc.' if nstat > 100: msg 'Please enter a value less than or equal to 100' gs 'preSYS2', 'setval3' elseif nstat < 0: msg 'Please enter a value greater than or equal to 0' gs 'preSYS2', 'setval3' elseif nstat mod 5 ! 0: msg 'Please enter a value in multiples of 5' gs 'preSYS2', 'setval3' else exit end end if $ARGS[0] = 'setsalo': *clr & cla '20 = underweight, slight, wiry' '40 = slender, skinny, lean' '60 = healthy, toned, ripped' '80 = cute, muscular' '100 = chubby, curvy, herculean' '120 = overweight, stocky' '140 = fat, heavy set' nstat = salo nstat = input 'Enter value in multiples of 20. For example, 20, 40, 60 etc.' if nstat > 200: msg 'Please enter a value less than 200' gs 'preSYS2', 'setval' elseif nstat < 20: msg 'Please enter a value greater than 20' gs 'preSYS2', 'setval' elseif nstat mod 20 ! 0: msg 'Please enter a value in multiples of 20' gs 'preSYS2', 'setval' else exit end end if $ARGS[0] = 'modgrup': *clr & cla 'Your current social group is <<$soc_grup>>.' act 'Nerd, Geek, Student': killvar 'grupvalue' $soc_grup = 'Nerd' grupvalue[3] = 600 grupTipe = 3 gt 'preSYS2','modgrup' end act 'Athlete, Jock': killvar 'grupvalue' $soc_grup = 'Jock' grupvalue[2] = 600 grupTipe = 2 gt 'preSYS2','modgrup' end act 'Popular, Cool, Beautiful': killvar 'grupvalue' $soc_grup = 'Cool' grupvalue[1] = 600 grupTipe = 1 gt 'preSYS2','modgrup' end act 'Gopnik, Rebel, Punk, Troublemaker': killvar 'grupvalue' $soc_grup = 'Gopnik' grupvalue[4] = 600 grupTipe = 4 gt 'preSYS2','modgrup' end act 'Outcast, Loser, Goth, Ugly': killvar 'grupvalue' $soc_grup = 'Outcast' grupTipe = 5 gt 'preSYS2','modgrup' end act 'Return':gt 'preSYS2','start' end if $ARGS[0] = 'modatt': *clr & cla $loc_arg = 'modatt' '
Attributes
' *nl *nl '
' gs 'preSYS2', 'modrel_setup3', 'willpowermax', 'Willpower' gs 'preSYS2', 'modrel_setup2', 'pcs_stren', 'Strength' gs 'preSYS2', 'modrel_setup2', 'pcs_agil', 'Agility' gs 'preSYS2', 'modrel_setup2', 'pcs_vital', 'Endurance' gs 'preSYS2', 'modrel_setup2', 'pcs_intel', 'Intelligence' gs 'preSYS2', 'modrel_setup2', 'pcs_sprt', 'Spirit' gs 'preSYS2', 'modrel_setup2', 'pcs_react', 'Reaction' gs 'preSYS2', 'modrel_setup2', 'pcs_chrsm', 'Charisma' gs 'preSYS2', 'modrel_setup2', 'pcs_prcptn', 'Perception' if MagikDostup = 0: gs 'preSYS2', 'modrel_setup2', 'pcs_magik', 'Magic' gs 'preSYS2', 'modrel_setup2', 'pcs_grades', 'Grades' gs 'preSYS2', 'modrel_setup4', 'pcs_inhib', 'Inhibition' gs 'preSYS2', 'modrel_setup2', 'pcs_heels', 'Heels' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
' nl act 'Return': stren_lvl = pcs_stren agil_lvl = pcs_agil vital_lvl = pcs_vital intel_lvl = pcs_intel sprt_lvl = pcs_sprt react_lvl = pcs_react chrsm_lvl = pcs_chrsm prcptn_lvl = pcs_prcptn magik_lvl = pcs_magik grades_lvl = pcs_grades inhib_lvl = pcs_inhib heels_lvl = pcs_heels stren_lvlst = pcs_stren agil_lvlst = pcs_agil vital_lvlst = pcs_vital intel_lvlst = pcs_intel sprt_lvlst = pcs_sprt react_lvlst = pcs_react chrsm_lvlst = pcs_chrsm prcptn_lvlst = pcs_prcptn magik_lvlst = pcs_magik grades_lvlst = pcs_grades inhib_lvlst = pcs_inhib heels_lvlst = pcs_heels gt'preSYS2','start' end end if $ARGS[0] = 'modskl': *clr & cla act 'Mental skills':gt 'preSYS2','modskl_men' act 'Sport skills':gt 'preSYS2','modskl_spo' act 'Beauty skills':gt 'preSYS2','modskl_bea' act 'Artistic skills':gt 'preSYS2','modskl_art' act 'Job skills':gt 'preSYS2','modskl_job' act 'Return': gt 'preSYS2','start' end if $ARGS[0] = 'modskl_men': *clr & cla $loc_arg = 'modskl_men' '
Mental Skills
' *nl *nl '
' if MagikDostup = 0: gs 'preSYS2', 'modrel_setup2', 'pcs_splcstng', 'Spell Casting' gs 'preSYS2', 'modrel_setup2', 'pcs_humint', 'People skills' gs 'preSYS2', 'modrel_setup2', 'pcs_persuas', 'Persuasion' gs 'preSYS2', 'modrel_setup2', 'pcs_observ', 'Observation' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
' nl act 'Return': humint_lvl = pcs_humint persuas_lvl = pcs_persuas observ_lvl = pcs_observ splcstng_lvl = pcs_splcstng humint_lvlst = pcs_humint persuas_lvlst = pcs_persuas observ_lvlst = pcs_observ splcstng_lvlst = pcs_splcstng gt 'preSYS2','modskl' end end if $ARGS[0] = 'modskl_spo': *clr & cla $loc_arg = 'modskl_spo' '
Sport Skills
' *nl *nl '
' gs 'preSYS2', 'modrel_setup2', 'pcs_jab', 'Jabs' gs 'preSYS2', 'modrel_setup2', 'pcs_punch', 'Power Strikes' gs 'preSYS2', 'modrel_setup2', 'pcs_kick', 'Kicks' gs 'preSYS2', 'modrel_setup2', 'pcs_def', 'Defence' gs 'preSYS2', 'modrel_setup2', 'pcs_run', 'Running' gs 'preSYS2', 'modrel_setup2', 'pcs_vball', 'Volleyball' gs 'preSYS2', 'modrel_setup2', 'pcs_ftbll', 'Football' gs 'preSYS2', 'modrel_setup2', 'pcs_wrstlng', 'Wrestling' gs 'preSYS2', 'modrel_setup2', 'pcs_shoot', 'Marskmanship' gs 'preSYS2', 'modrel_setup2', 'pcs_bushcraft', 'Bushcraft' gs 'preSYS2', 'modrel_setup2', 'pcs_chess', 'Chess' gs 'preSYS2', 'modrel_setup2', 'pcs_icesktng', 'Ice Skating' gs 'preSYS2', 'modrel_setup2', 'pcs_gaming', 'Gaming' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
' nl act 'Return': jab_lvl = pcs_jab punch_lvl = pcs_punch kick_lvl = pcs_kick def_lvl = pcs_def run_lvl = pcs_run vball_lvl = pcs_vball ftball_lvl = pcs_ftbll wrstlng_lvl = pcs_wrstlng shoot_lvl = pcs_shoot bushcraft_lvl = pcs_bushcraft chess_lvl = pcs_chess icesktng_lvl = pcs_icesktng gaming_lvl = pcs_gaming jab_lvlst = pcs_jab punch_lvlst = pcs_punch kick_lvlst = pcs_kick def_lvlst = pcs_def run_lvlst = pcs_run vball_lvlst = pcs_vball ftball_lvlst = pcs_ftbll wrstlng_lvlst = pcs_wrstlng shoot_lvlst = pcs_shoot bushcraft_lvlst = pcs_bushcraft chess_lvlst = pcs_chess icesktng_lvlst = pcs_icesktng gaming_lvlst = pcs_gaming gt 'preSYS2','modskl' end end if $ARGS[0] = 'modskl_bea': *clr & cla $loc_arg = 'modskl_bea' '
Beauty skills
' *nl *nl '
' gs 'preSYS2', 'modrel_setup2', 'pcs_makupskl', 'Makeup Skills' gs 'preSYS2', 'modrel_setup2', 'pcs_danc', 'Modern Dancing' gs 'preSYS2', 'modrel_setup2', 'pcs_dancero', 'Erotic Dancing' gs 'preSYS2', 'modrel_setup2', 'pcs_dancpol', 'Pole Dancing' gs 'preSYS2', 'modrel_setup2', 'pcs_cheer', 'Cheerleading' gs 'preSYS2', 'modrel_setup2', 'pcs_mdlng', 'Modelling' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
' nl act 'Return': makupskl_lvl = pcs_makupskl danc_lvl = pcs_danc dancero_lvl = pcs_dancero dancpol_lvl = pcs_dancpol cheer_lvl = pcs_cheer mblng_lvl = pcs_mdlng makupskl_lvlst = pcs_makupskl danc_lvlst = pcs_danc dancero_lvlst = pcs_dancero dancpol_lvlst = pcs_dancpol cheer_lvlst = pcs_cheer mblng_lvlst = pcs_mdlng gt 'preSYS2','modskl' end end if $ARGS[0] = 'modskl_art': *clr & cla $loc_arg = 'modskl_art' '
Artistic Skills
' *nl *nl '
' gs 'preSYS2', 'modrel_setup2', 'pcs_vokal', 'Singing' gs 'preSYS2', 'modrel_setup2', 'pcs_instrmusic', 'Instrumental Music' gs 'preSYS2', 'modrel_setup2', 'pcs_photoskl', 'Photography' gs 'preSYS2', 'modrel_setup2', 'pcs_artskls', 'Artistic Skills' gs 'preSYS2', 'modrel_setup2', 'pcs_perform', 'Performance' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
' nl act 'Return': vokal_lvl = pcs_vokal instrmusic_lvl = pcs_instrmusic photoskl_lvl = pcs_photoskl artskls_lvl = pcs_artskls perform_lvl = pcs_perform vokal_lvlst = pcs_vokal instrmusic_lvlst = pcs_instrmusic photoskl_lvlst = pcs_photoskl artskls_lvlst = pcs_artskls perform_lvlst = pcs_perform gt 'preSYS2','modskl' end end if $ARGS[0] = 'modskl_job': *clr & cla $loc_arg = 'modskl_job' '
Job Skills
' *nl *nl '
' gs 'preSYS2', 'modrel_setup2', 'pcs_compskl', 'Computer Skills' gs 'preSYS2', 'modrel_setup2', 'pcs_comphckng', 'Hacking' gs 'preSYS2', 'modrel_setup2', 'pcs_hndiwrk', 'Handy-work' gs 'preSYS2', 'modrel_setup2', 'pcs_sewng', 'Tailoring' gs 'preSYS2', 'modrel_setup2', 'pcs_servng', 'Serving' gs 'preSYS2', 'modrel_setup2', 'pcs_medcn', 'Medicine' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
' nl act 'Return': compskl_lvl = pcs_compskl comphckng_lvl = pcs_comphckng hndiwrk_lvl = pcs_hndiwrk sewng_lvl = pcs_sewng servng_lvl = pcs_servng medcn_lvl = pcs_medcn compskl_lvlst = pcs_compskl comphckng_lvlst = pcs_comphckng hndiwrk_lvlst = pcs_hndiwrk sewng_lvlst = pcs_sewng servng_lvlst = pcs_servng medcn_lvlst = pcs_medcn gt 'preSYS2','modskl' end end if $ARGS[0] = 'none': !!Attributes Reset - I know most of these att&skl are not in need of reset, but I dont know how to use loops and I wanted this to clear all changes made by choosing social group and/or player choices. pcs_stren = 30 pcs_agil = 30 pcs_vital = 30 pcs_intel = 30 pcs_react = 30 pcs_sprt = 30 pcs_chrsm = 30 pcs_prcptn = 30 pcs_grade = 75 pcs_inhib = 10 pcs_heel = 5 !!Mental Skills Reset pcs_humint = 0 pcs_persuas = 0 pcs_observ = 0 !!Sport Skills Reset pcs_jab = 0 pcs_punch = 0 pcs_kick = 0 pcs_def = 0 pcs_run = 0 pcs_vball = 0 pcs_ftbll = 0 pcs_wrstlng = 0 pcs_shoot = 0 pcs_bushcraft = 0 pcs_chess = 0 pcs_icesktng = 0 pcs_gaming = 0 !!Beauty Skills Reset pcs_makupskl = 20 pcs_danc = 0 pcs_dancero = 0 pcs_dancpol = 0 pcs_cheer = 0 pcs_mdlng = 0 !!Artistic Skills Reset pcs_vokal = 0 pcs_instrmusic = 0 pcs_photoskl = 0 pcs_artskls = 0 !!Job Skills Reset pcs_compskl = 0 pcs_comphckng = 0 pcs_hndiwrk = 0 pcs_sewng = 0 pcs_servng = 0 pcs_medcn = 0 !!social group Reset grupTipe = 0 grupvalue[1] = 0 grupvalue[2] = 0 grupvalue[3] = 0 grupvalue[4] = 0 grupvalue[6] = 0 gs 'npc_relationship', 'socialgroup_setting', 0, 0, 0, 0, 0, 0 !!npc relationship Reset npc_rel['A11'] = 60 npc_rel['A129'] = 30 npc_rel['A133'] = 30 npc_rel['A28'] = 50 npc_rel['A29'] = 50 npc_rel['A33'] = 70 npc_rel['A34'] = 50 !!items Reset money = 2000 fakepassport = 0 fantasybook = 0 glass = 0 hscrunch = 0 kosmetica = 0 pirsC = 0 PirsC1_owned = 0 shampoo = 0 siga = 0 stanok = 0 swim_start = 0 tampon = 0 !!apprnc & sex stat reset genbsize = 22 pcs_skin = 40 salo = 80 pcs_tan = 0 pcs_throat = 0 pcs_vag = 0 stat['bj'] = 0 stat['hj'] = 0 stat['vaginal'] = 0 $soc_grup = 'outcast' grupTipe = 5 end if $ARGS[0] = 'modrel': act 'Family':gt 'preSYS2','modrel_fam' act 'Popular Kids':gt 'preSYS2','modrel_pop' act 'Athletes':gt 'preSYS2','modrel_ath' act 'Nerds':gt 'preSYS2','modrel_ner' act 'Gopniks':gt 'preSYS2','modrel_gop' act 'Outcasts/Loners':gt'preSYS2','modrel_out' act 'Teachers/Coaches':gt'preSYS2','modrel_tea' act 'Others':gt'preSYS2','modrel_oth' act 'Return':gt 'preSYS2','start' end if $ARGS[0] = 'modrel_fam': if npc_rel['A28'] < 0: npc_rel['A28'] = 0 if npc_rel['A29'] < 0: npc_rel['A29'] = 0 if npc_rel['A33'] < 0: npc_rel['A33'] = 0 if npc_rel['A34'] < 0: npc_rel['A34'] = 0 if npc_rel['A28'] > 100: npc_rel['A28'] = 100 if npc_rel['A29'] > 100: npc_rel['A29'] = 100 if npc_rel['A33'] > 100: npc_rel['A33'] = 100 if npc_rel['A34'] > 100: npc_rel['A34'] = 100 '
Family relationship levels
' *nl *nl '
' '' '' '' '' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
Stepfather: <>zerominus 10minus 5plus 5plus 10100
Mother: <>zerominus 10minus 5plus 5plus 10100
Sister: <>zerominus 10minus 5plus 5plus 10100
Brother: <>zerominus 10minus 5plus 5plus 10100
' act 'Return': gt 'preSYS2','modrel' end if $ARGS[0] = 'modrel_setup': if npc_rel['<<$ARGS[1]>>'] < 0: npc_rel['<<$ARGS[1]>>'] = 0 if npc_rel['<<$ARGS[1]>>'] > 100: npc_rel['<<$ARGS[1]>>'] = 100 '<<$npc_firstname[''<<$ARGS[1]>>'']>> <<$npc_lastname[''<<$ARGS[1]>>'']>>: <>'']>>zerominus 10minus 5plus 5plus 10100' end if $ARGS[0] = 'modrel_pop': $loc_arg = 'modrel_pop' '
Popular kids relationship levels
' *nl *nl '
' gs 'preSYS2', 'modrel_setup', 'A1' gs 'preSYS2', 'modrel_setup', 'A4' gs 'preSYS2', 'modrel_setup', 'A14' gs 'preSYS2', 'modrel_setup', 'A15' gs 'preSYS2', 'modrel_setup', 'A17' gs 'preSYS2', 'modrel_setup', 'A23' gs 'preSYS2', 'modrel_setup', 'A146' gs 'preSYS2', 'modrel_setup', 'A147' gs 'preSYS2', 'modrel_setup', 'A148' gs 'preSYS2', 'modrel_setup', 'A25' gs 'preSYS2', 'modrel_setup', 'A139' gs 'preSYS2', 'modrel_setup', 'A140' '' '' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
Set relationship level for all boys in this groupset value
Set relationship level for all girls in this groupset value
' act 'Return': gt 'preSYS2','modrel' end if $ARGS[0] = 'modrel_ath': $loc_arg = 'modrel_ath' '
Jocks relationship levels
' *nl *nl '
' gs 'preSYS2', 'modrel_setup', 'A3' gs 'preSYS2', 'modrel_setup', 'A5' gs 'preSYS2', 'modrel_setup', 'A8' gs 'preSYS2', 'modrel_setup', 'A13' gs 'preSYS2', 'modrel_setup', 'A18' gs 'preSYS2', 'modrel_setup', 'A19' gs 'preSYS2', 'modrel_setup', 'A22' gs 'preSYS2', 'modrel_setup', 'A149' gs 'preSYS2', 'modrel_setup', 'A150' gs 'preSYS2', 'modrel_setup', 'A141' '' '' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
Set relationship level for all boys in this groupset value
Set relationship level for all girls in this groupset value
' act 'Return': gt 'preSYS2','modrel' end if $ARGS[0] = 'modrel_ner': $loc_arg = 'modrel_ner' '
Nerds relationship levels
' *nl *nl '
' gs 'preSYS2', 'modrel_setup', 'A2' gs 'preSYS2', 'modrel_setup', 'A6' gs 'preSYS2', 'modrel_setup', 'A12' gs 'preSYS2', 'modrel_setup', 'A16' gs 'preSYS2', 'modrel_setup', 'A151' gs 'preSYS2', 'modrel_setup', 'A152' gs 'preSYS2', 'modrel_setup', 'A153' gs 'preSYS2', 'modrel_setup', 'A142' '' '' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
Set relationship level for all boys in this groupset value
Set relationship level for all girls in this groupset value
' act 'Return': gt 'preSYS2','modrel' end if $ARGS[0] = 'modrel_gop': $loc_arg = 'modrel_gop' '
Gopnik kids relationship levels
' *nl *nl '
' gs 'preSYS2', 'modrel_setup', 'A9' gs 'preSYS2', 'modrel_setup', 'A10' gs 'preSYS2', 'modrel_setup', 'A11' gs 'preSYS2', 'modrel_setup', 'A20' gs 'preSYS2', 'modrel_setup', 'A21' gs 'preSYS2', 'modrel_setup', 'A24' gs 'preSYS2', 'modrel_setup', 'A154' gs 'preSYS2', 'modrel_setup', 'A155' gs 'preSYS2', 'modrel_setup', 'A156' gs 'preSYS2', 'modrel_setup', 'A157' gs 'preSYS2', 'modrel_setup', 'A158' gs 'preSYS2', 'modrel_setup', 'A143' gs 'preSYS2', 'modrel_setup', 'A144' gs 'preSYS2', 'modrel_setup', 'A145' '' '' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
Set relationship level for all boys in this groupset value
Set relationship level for all girls in this groupset value
' act 'Return': gt 'preSYS2','modrel' end if $ARGS[0] = 'modrel_out': $loc_arg = 'modrel_out' '
Outcast kids relationship levels
' *nl *nl '
' gs 'preSYS2', 'modrel_setup', 'A7' gs 'preSYS2', 'modrel_setup', 'A159' '' !! '' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
Set relationship level for all boys in this groupset value
Set relationship level for all girls in this groupset value
' act 'Return': gt 'preSYS2','modrel' end if $ARGS[0] = 'modrel_tea': $loc_arg = 'modrel_tea' '
Teacher relationship levels
' *nl *nl '
' gs 'preSYS2', 'modrel_setup', 'A26' gs 'preSYS2', 'modrel_setup', 'A128' gs 'preSYS2', 'modrel_setup', 'A129' gs 'preSYS2', 'modrel_setup', 'A130' gs 'preSYS2', 'modrel_setup', 'A131' gs 'preSYS2', 'modrel_setup', 'A132' gs 'preSYS2', 'modrel_setup', 'A133' gs 'preSYS2', 'modrel_setup', 'A134' gs 'preSYS2', 'modrel_setup', 'A135' gs 'preSYS2', 'modrel_setup', 'A136' gs 'preSYS2', 'modrel_setup', 'A137' gs 'preSYS2', 'modrel_setup', 'A138' '' '' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
Set relationship level for all men in this groupset value
Set relationship level for all women in this groupset value
' act 'Return': gt 'preSYS2','modrel' end if $ARGS[0] = 'modrel_oth': $loc_arg = 'modrel_oth' '
Others relationship levels
' *nl *nl '
' gs 'preSYS2', 'modrel_setup', 'A69' gs 'preSYS2', 'modrel_setup', 'A112' '
Set to zeroMinus 10Minus 5Plus 5Plus 10Set to 100
' !!Volleyball Coach is here because it wasnt being controlled by grup6 the teachers/coaches. act 'Return': gt 'preSYS2','modrel' end if $ARGS[0] = 'pol_grup_set': !!ARGS[1] 0 is boys, 1 is girls. ARGS[2] 1nerd 2jock 3cool 4gopnik 5outcast 6teachers. ARGS[3] is changes to value r = 1 :pol_grup_set_loop if npc_gender['A<>'] = ARGS[1] and npc_grupTipe['A<>'] = ARGS[2]: npc_rel['A<>'] = ARGS[3] end r += 1 if r <= aarraynumber :jump 'pol_grup_set_loop' end --- preSYS2 ---------------------------------