|
@@ -13,6 +13,13 @@ if $ARGS[0] = 'start':
|
|
|
act 'Set money (<<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':
|
|
|
+ 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
|
|
@@ -31,6 +38,7 @@ if $ARGS[0] = 'start':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modapp':
|
|
|
+ cla & *clr
|
|
|
if genbsize = 0:genbsize = 12
|
|
|
|
|
|
'Choose base genetic breast size:'
|
|
@@ -231,7 +239,12 @@ if $ARGS[0] = 'modite_mis':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modpur':
|
|
|
- cls
|
|
|
+ *clr & cla
|
|
|
+ if $ARGS[1] ! '':
|
|
|
+ $currentpursetype = $ARGS[1]
|
|
|
+ currentpursenumber = ARGS[2]
|
|
|
+ end
|
|
|
+ *clr & cla
|
|
|
if $currentpursetype = '':
|
|
|
'You do not own a purse.'
|
|
|
else
|
|
@@ -242,60 +255,51 @@ if $ARGS[0] = 'modpur':
|
|
|
end
|
|
|
'Your current purse is <<$currentpursetype>>_<<currentpursenumber>>.'
|
|
|
end
|
|
|
+ act 'Return': gt'preSYS2','start'
|
|
|
act 'Get cheap':
|
|
|
- nbag = input ("Please enter a value between 1 to 14")
|
|
|
- if nbag < 1 or nbag > 14:
|
|
|
- gt 'preSYS2','modpur'
|
|
|
- else
|
|
|
- bag = 1
|
|
|
- $currentpursetype = 'cheap'
|
|
|
- currentpursenumber = nbag
|
|
|
- gt 'preSYS2','modpur'
|
|
|
- end
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
|
|
|
+ i = 1
|
|
|
+ :loopcheappurses
|
|
|
+ *p '<a href="exec:gt ''preSYS2'', ''modpur'', ''cheap'', <<i>>"><img src="images/pc/purses/cheap/<<i>>.jpg" height="300" /></a>'
|
|
|
+ i += 1
|
|
|
+ if i <= 14:jump 'loopcheappurses'
|
|
|
end
|
|
|
act 'Get dolls':
|
|
|
- nbag = input 'Please enter a value between 1 to 22'
|
|
|
- if nbag < 1 or nbag > 22:
|
|
|
- gt 'preSYS2','modpur'
|
|
|
- else
|
|
|
- bag = 1
|
|
|
- $currentpursetype = 'dolls'
|
|
|
- currentpursenumber = nbag
|
|
|
- gt 'preSYS2','modpur'
|
|
|
- end
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="images/locations/city/island/dolls.png"></center>'
|
|
|
+ i = 1
|
|
|
+ :loopdollspurses
|
|
|
+ *p '<a href="exec:gt ''preSYS2'', ''modpur'', ''dolls'', <<i>>"><img src="images/pc/purses/cheap/<<i>>.jpg" height="300" /></a>'
|
|
|
+ i += 1
|
|
|
+ if i <= 22:jump 'loopdollspurses'
|
|
|
end
|
|
|
act 'Get fashionista':
|
|
|
- nbag = input 'Please enter a value between 1 to 15'
|
|
|
- if nbag < 1 or nbag > 15:
|
|
|
- gt 'preSYS2','modpur'
|
|
|
- else
|
|
|
- bag = 1
|
|
|
- $currentpursetype = 'fashionista'
|
|
|
- currentpursenumber = nbag
|
|
|
- gt 'preSYS2','modpur'
|
|
|
- end
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
|
|
|
+ i = 1
|
|
|
+ :loopfashionistapurses
|
|
|
+ *p '<a href="exec:gt ''preSYS2'', ''modpur'', ''fashionista'', <<i>>"><img src="images/pc/purses/fashionista/<<i>>.jpg" height="300" /></a>'
|
|
|
+ i += 1
|
|
|
+ if i <= 15:jump 'loopfashionistapurses'
|
|
|
end
|
|
|
act 'Get kats':
|
|
|
- nbag = input 'Please enter a value between 1 to 14'
|
|
|
- if nbag < 1 or nbag > 14:
|
|
|
- gt 'preSYS2','modpur'
|
|
|
- else
|
|
|
- bag = 1
|
|
|
- $currentpursetype = 'kats'
|
|
|
- currentpursenumber = nbag
|
|
|
- gt 'preSYS2','modpur'
|
|
|
- end
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
|
|
|
+ i = 1
|
|
|
+ :loopkatspurses
|
|
|
+ *p '<a href="exec:gt ''preSYS2'', ''modpur'', ''kats'', <<i>>"><img src="images/pc/purses/kats/<<i>>.jpg" height="300" /></a>'
|
|
|
+ i += 1
|
|
|
+ if i <= 14:jump 'loopkatspurses'
|
|
|
end
|
|
|
act 'Get moncheri':
|
|
|
- nbag = input 'Please enter a value between 1 to 17'
|
|
|
- if nbag < 1 or nbag > 17:
|
|
|
- gt 'preSYS2','modpur'
|
|
|
- else
|
|
|
- bag = 1
|
|
|
- $currentpursetype = 'boutique'
|
|
|
- currentpursenumber = nbag
|
|
|
- gt 'preSYS2','modpur'
|
|
|
- end
|
|
|
+ *clr & cla
|
|
|
+ '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
|
|
|
+ i = 1
|
|
|
+ :loopboutiquepurses
|
|
|
+ *p '<a href="exec:gt ''preSYS2'', ''modpur'', ''boutique'', <<i>>"><img src="images/pc/purses/moncheri/<<i>>.jpg" height="300" /></a>'
|
|
|
+ i += 1
|
|
|
+ if i <= 17:jump 'loopboutiquepurses'
|
|
|
end
|
|
|
act 'I do not want a purse':
|
|
|
bag = 0
|
|
@@ -303,7 +307,6 @@ if $ARGS[0] = 'modpur':
|
|
|
currentpursenumber = ''
|
|
|
gt 'preSYS2','modpur'
|
|
|
end
|
|
|
- act 'Return': gt'preSYS2','start'
|
|
|
end
|
|
|
!!This is used to set value, is used to avoid any values that go below 5.
|
|
|
if $ARGS[0] = 'setval':
|
|
@@ -361,6 +364,15 @@ if $ARGS[0] = 'setval3':
|
|
|
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:
|
|
@@ -378,7 +390,7 @@ if $ARGS[0] = 'setsalo':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modgrup':
|
|
|
- cls
|
|
|
+ *clr & cla
|
|
|
'Your current social group is <<$soc_grup>>.'
|
|
|
act 'Nerd, Geek, Student': $soc_grup = 'nerd'& gt 'preSYS2','modgrup'
|
|
|
act 'Athlete, Jock':$soc_grup = 'jock'& gt 'preSYS2','modgrup'
|
|
@@ -392,6 +404,7 @@ if $ARGS[0] = 'modgrup':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modatt':
|
|
|
+ *clr & cla
|
|
|
$metka = 'modatt'
|
|
|
'<center><b>Attributes</b></center>'
|
|
|
*nl
|
|
@@ -417,7 +430,7 @@ if $ARGS[0] = 'modatt':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modskl':
|
|
|
- !cla
|
|
|
+ *clr & cla
|
|
|
act 'Mental skills':gt 'preSYS2','modskl_men'
|
|
|
act 'Sport skills':gt 'preSYS2','modskl_spo'
|
|
|
act 'Beauty skills':gt 'preSYS2','modskl_bea'
|
|
@@ -427,6 +440,7 @@ if $ARGS[0] = 'modskl':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modskl_men':
|
|
|
+ *clr & cla
|
|
|
$metka = 'modskl_men'
|
|
|
'<center><b>Mental Skills</b></center>'
|
|
|
*nl
|
|
@@ -443,6 +457,7 @@ if $ARGS[0] = 'modskl_men':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modskl_spo':
|
|
|
+ *clr & cla
|
|
|
$metka = 'modskl_spo'
|
|
|
'<center><b>Sport Skills</b></center>'
|
|
|
*nl
|
|
@@ -468,6 +483,7 @@ if $ARGS[0] = 'modskl_spo':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modskl_bea':
|
|
|
+ *clr & cla
|
|
|
$metka = 'modskl_bea'
|
|
|
'<center><b>Beauty skills</b></center>'
|
|
|
*nl
|
|
@@ -486,6 +502,7 @@ if $ARGS[0] = 'modskl_bea':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modskl_art':
|
|
|
+ *clr & cla
|
|
|
$metka = 'modskl_art'
|
|
|
'<center><b>Artistic Skills</b></center>'
|
|
|
*nl
|
|
@@ -503,6 +520,7 @@ if $ARGS[0] = 'modskl_art':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modskl_job':
|
|
|
+ *clr & cla
|
|
|
$metka = 'modskl_job'
|
|
|
'<center><b>Job Skills</b></center>'
|
|
|
*nl
|