|
@@ -4,6 +4,9 @@ if $ARGS[0]='' or $ARGS[0] = 'Start':
|
|
|
$location_type = 'indoors'
|
|
|
$metka = ''
|
|
|
$loc = 'Gadhouse'
|
|
|
+ $menu_loc = 'Gadhouse'
|
|
|
+ $menu_arg = ''
|
|
|
+ menu_off = 0
|
|
|
$locclass = 'singleroom'
|
|
|
curr_home = 2
|
|
|
cla
|
|
@@ -123,6 +126,9 @@ if $ARGS[0] = 'Main':
|
|
|
$metkaM = 'Main'
|
|
|
$locM = 'Gadhouse'
|
|
|
$locclass = 'livingr'
|
|
|
+ $menu_loc = 'Gadhouse'
|
|
|
+ $menu_arg = 'livingr'
|
|
|
+ menu_off = 0
|
|
|
*clr
|
|
|
cla
|
|
|
gs 'stat'
|
|
@@ -196,42 +202,6 @@ if $ARGS[0] = 'Main':
|
|
|
if staygad ! daystart: gs 'gadukino_event', 'go_home'
|
|
|
end
|
|
|
|
|
|
- if gobelen>0:'You have <<gobelen>> completed tapestries.'
|
|
|
- if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
|
|
|
- if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
|
|
|
- if pcs_sewng >= 80:
|
|
|
- if newgobelen = 0 and tkan > 0:
|
|
|
- act'Start a new tapestry':
|
|
|
- *clr & cla
|
|
|
- tkan -= 1
|
|
|
- newgobelen = 1
|
|
|
- minut += 15
|
|
|
- gs'stat'
|
|
|
- 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
|
|
|
- act'Set the tapestry aside':gt 'Gadhouse', 'Main'
|
|
|
- end
|
|
|
- end
|
|
|
- if newgobelen >= 1:
|
|
|
- 'Your tapestry is <<newgobelen/10>> percent finished.'
|
|
|
- act'Work on the tapestry for an hour':
|
|
|
- *clr & cla
|
|
|
- minut += 60
|
|
|
- sewng_exp += rand(pcs_intel/10, pcs_intel/5)
|
|
|
- gobramax = (pcs_sewng - 70) * 6
|
|
|
- gobramin = (pcs_sewng - 70) * 2
|
|
|
- newgobelen += rand(gobramin,gobramax)
|
|
|
- gs'stat'
|
|
|
- if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
|
|
|
- if newgobelen >= 1000:
|
|
|
- newgobelen = 0
|
|
|
- gobelen+=1
|
|
|
- 'Your work on the tapestry is done.'
|
|
|
- end
|
|
|
- act'Set the tapestry aside':gt 'Gadhouse', 'Main'
|
|
|
- end
|
|
|
- end
|
|
|
- end
|
|
|
-
|
|
|
act 'Go outside':
|
|
|
if $clothingworntype ! 'nude':
|
|
|
minut += 1 & gt 'Gaddvor'
|
|
@@ -388,12 +358,49 @@ if $ARGS[0] = 'Main':
|
|
|
|
|
|
gs 'events', 'read'
|
|
|
gs 'subkid'
|
|
|
+
|
|
|
+ if gobelen>0:'You have <<gobelen>> completed tapestries.'
|
|
|
+ if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
|
|
|
+ if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
|
|
|
+ if pcs_sewng >= 80:
|
|
|
+ if newgobelen = 0 and tkan > 0:
|
|
|
+ act'Start a new tapestry':
|
|
|
+ *clr & cla
|
|
|
+ tkan -= 1
|
|
|
+ newgobelen = 1
|
|
|
+ minut += 15
|
|
|
+ gs'stat'
|
|
|
+ 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
|
|
|
+ act'Set the tapestry aside':gt 'Gadhouse', 'Main'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ if newgobelen >= 1:
|
|
|
+ 'Your tapestry is <<newgobelen/10>> percent finished.'
|
|
|
+ act'Work on the tapestry for an hour':
|
|
|
+ *clr & cla
|
|
|
+ minut += 60
|
|
|
+ sewng_exp += rand(pcs_intel/10, pcs_intel/5)
|
|
|
+ gobramax = (pcs_sewng - 70) * 6
|
|
|
+ gobramin = (pcs_sewng - 70) * 2
|
|
|
+ newgobelen += rand(gobramin,gobramax)
|
|
|
+ gs'stat'
|
|
|
+ if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
|
|
|
+ if newgobelen >= 1000:
|
|
|
+ newgobelen = 0
|
|
|
+ gobelen+=1
|
|
|
+ 'Your work on the tapestry is done.'
|
|
|
+ end
|
|
|
+ act'Set the tapestry aside':gt 'Gadhouse', 'Main'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
|
|
|
if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
|
|
|
end
|
|
|
|
|
|
if $ARGS[0]='grandma':
|
|
|
*clr & cla
|
|
|
+ menu_off = 1
|
|
|
minut += 2
|
|
|
if grandmatalkday ! daystart: grandmatalk = 0
|
|
|
gs 'stat'
|
|
@@ -526,6 +533,7 @@ end
|
|
|
|
|
|
if $ARGS[0]='grandpa':
|
|
|
*clr & cla
|
|
|
+ menu_off = 1
|
|
|
minut += 2
|
|
|
if grandpatalkday ! daystart:grandpatalk = 0
|
|
|
gs 'stat'
|
|
@@ -587,6 +595,7 @@ end
|
|
|
|
|
|
if $ARGS[0]='villagecat':
|
|
|
*clr & cla
|
|
|
+ menu_off = 1
|
|
|
minut += 2
|
|
|
gs 'stat'
|
|
|
|