# ykuh
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'House'
'Kitchen'
if ymanrem[6] = 0: '
'
if ymanrem[6] = 1: '
'
if ymanrem[6] = 2: '
'
if ymanrem[6] = 2: ''
clr
gs 'stat'
if dirttarelka > 0 and fairy >= dirttarelka:
cltarelka += dirttarelka
fairy -= dirttarelka
dirttarelka = 0
'Dishwasher washed your dirty dishes.'
elseif fairy 0:
'In the cabinet you have <> clean plates'
else
'You don´t have any clean plates left.'
end
if dirttarelka > 0: 'In the sink are <> dirty dishes. Wash the dishes.'
if fairy > 0:
'Under the sink is some dishwashing detergent, which is enough for <> times.'
else
'You have nothing to wash dishes with. You should buy some dishwashing detergent.'
end
if eda > 0:
if cltarelka = 0 or edahot > 0:$edagot = ''
if cltarelka > 0 and edahot = 0:$edagot = 'Cook meal (0:30)'
'In the refrigerator is enough food for <> servings. <<$edagot>>'
elseif edaD = 0 and eda = 0:
'The fridge is empty, you have nothing to eat.'
end
if edaD > 0:
'In the refrigerator is some healthy meals that´s good for <> servings.'
end
act 'Leave the room': minut += 1 & gt 'ymans'
if edahot > 0: 'On the table is a cooked meal (0:30).'
if pranik > 0:
'You have <> cookies.'
act 'Drink tea with cookies (0:15)':
cla
*clr
minut += 15
pranik -= 1
set health += 30
set manna += 100
energy += 20
water += 20
fat += 50
frost = 0
gs 'stat'
'
'
'You drank tea with cookies, sweet and very bad for your figure, but so good.'
act 'Get up from the table': gt $curloc
end
end
if edaD > 0:
act 'Cook some dietary food (0:30)':
cla
*clr
frost = 0
''
set minut += 30
set health += 10
set manna += 20
set edaD -= 1
if energy >= 30:
'You are full.'
end
if energy >= 20 and energy < 30:
set energy += 10
'You are not hungry but you ate it anyway.'
end
if energy < 20:
set energy += 20
'You gladly ate some cooked food.'
end
if water >= 20:
'You don´t want to drink anymore.'
end
if water < 20:
'You gladly drank a mug of tea.'
set water += 20
end
act 'Get up from the table': gt $curloc
end
end
if fatdel > 0:
act 'Consume fat burners':
cla
*clr
set fatdel -= 1
set fat -= 25
if fat < 0: fat = 0
'You drank fat burning capsule. These capsules operate gradually and results will not be seen immediately.'
act 'Get up from the table': gt $curloc
end
end
act 'Drink':
cla
set minut += 5
if water >= 20:
'You are not thirsty.'
end
if water < 20:
'You gladly drank a glass of water.'
set water += 20
end
act 'Get up from the table': gt $curloc
end
if husband > 0 and husbanday > 0 and huseatday ! day and eda >= 2:
act 'Cook a meal for your husband, 2 servings (1:00)':
cla
*clr
husband += 5
set eda -= 2
set minut += 60
huseatday = day
manna -= 25
'
'
'You cooked some food for your husband.'
act 'Put the food on the table': gt $curloc
end
end
if lekarstvo > 0:
'You have <> tablets.'
if sick > 0 and lekarday ! day:
act 'Take a pill':
cla
*clr
set minut += 5
lekarday = day
lekarstvo -= 1
sick -= sick * 20/100
set lekrand = RAND(0,8)
if lekrand = 0: '
'
if lekrand = 1: '
'
if lekrand = 2: '
'
if lekrand = 3: '
'
if lekrand = 4: '
'
if lekrand = 5: '
'
if lekrand = 6: '
'
if lekrand = 7: '
'
if lekrand = 8: '
'
'You took the pill'
act 'Move away': gt $curloc
end
end
end
if vitamin > 0:
'You have <> vitamins.'
if vitaminday ! day:
act 'Take some vitamins':
cla
*clr
set minut += 5
vitaminday = day
vitamin -= 1
frost = 0
if KandidozOnce = 1: Kandidoz -= 2
if GerpesOnce = 1: Gerpes -= 2
if SifacOnce = 1 and Sifilis >= 10: Sifilis -= RAND(0,1)
set skinvan += 1
if skinvan = 20: set skinvan = 0 & set skin += 1
'You took vitamins'
act 'Move away': gt $curloc
end
end
end
--- ykuh ---------------------------------