|
@@ -31,6 +31,7 @@ if $ARGS[0] = 'start':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modapp':
|
|
|
+ cla & clr
|
|
|
if genbsize = 0:genbsize = 12
|
|
|
|
|
|
'Choose base genetic breast size:'
|
|
@@ -231,7 +232,7 @@ if $ARGS[0] = 'modite_mis':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modpur':
|
|
|
- cls
|
|
|
+ clr & cla
|
|
|
if $currentpursetype = '':
|
|
|
'You do not own a purse.'
|
|
|
else
|
|
@@ -242,60 +243,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'' & $currentpursetype = ''cheap'' & currentpursenumber = 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
|
|
|
+ :loopcheappurses
|
|
|
+ *p '<a href="exec:gt ''preSYS2'', ''modpur'' & $currentpursetype = ''cheap'' & currentpursenumber = i"><img src="images/pc/purses/cheap/<<i>>.jpg" height="300" /></a>'
|
|
|
+ i += 1
|
|
|
+ if i <= 22:jump 'loopcheappurses'
|
|
|
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'' & $currentpursetype = ''fashionista'' & currentpursenumber = 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'' & $currentpursetype = ''kats'' & currentpursenumber = 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'' & $currentpursetype = ''boutique'' & currentpursenumber = 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 +295,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 +352,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 +378,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 +392,7 @@ if $ARGS[0] = 'modgrup':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modatt':
|
|
|
+ clr & cla
|
|
|
$metka = 'modatt'
|
|
|
'<center><b>Attributes</b></center>'
|
|
|
*nl
|
|
@@ -417,7 +418,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 +428,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 +445,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 +471,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 +490,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 +508,7 @@ if $ARGS[0] = 'modskl_art':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'modskl_job':
|
|
|
+ clr & cla
|
|
|
$metka = 'modskl_job'
|
|
|
'<center><b>Job Skills</b></center>'
|
|
|
*nl
|