# ykuh
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
<<<<<<< 403_ykuh
'
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.'
=======
'mansion'
'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 the dirty dishes.'
elseif fairy0:
'Standing over the sink <> pieces of clean plates'
else
'You have not left clean dishes.'
end
if dirttarelka > 0:'In the sink are <> pieces of dirty dishes. That can be washed and.'
if fairy>0:
'Standing over the sink dishwashing detergent, which is enough for <> time.'
else
'You do not have to wash the dishes than, need to buy dishwashing detergent.'
end
if eda>0:
if cltarelka=0 or edahot > 0:$edagot=''
if cltarelka>0 and edahot = 0:$edagot='It can be prepared'
'The refrigerator kept food that will last for <> servings. <<$edagot>>'
elseif edaD=0 and eda=0:
'The refrigerator ball Roll, generally have nothing to eat.'
end
if edaD>0:
'The refrigerator is kept healthy meal that will last for <> servings.'
>>>>>>> 403_ykuh
end
<<<<<<< 403_ykuh
act 'Leave the room': minut += 1 & gt 'ymans'
=======
act 'Exit the room':minut+=1>'ymans'
>>>>>>> 403_ykuh
<<<<<<< 403_ykuh
if edahot > 0: 'On the table is a cooked meal (0:30).'
=======
if edahot > 0:'On the table is ready meal.'
>>>>>>> 403_ykuh
<<<<<<< 403_ykuh
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
=======
if pranik>0:
'Cookie will suffice for <> time.'
act 'Cup of tea with cookies (5 min)':
cla
*clr
minut+=5
pranik-=1
set health = health + 30
set manna = manna + 100
energy += 20
water += 20
fat+=50
frost=0
gs'stat'
''
'You drank tea with cookies, very sweet and bad for the figure, but so nice.'
act 'Get up from the table':gt $curloc
end
>>>>>>> 403_ykuh
end
if edaD > 0:
<<<<<<< 403_ykuh
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
=======
act 'There are diet food (30 min)':
cla
*clr
frost=0
''
set minut = minut + 30
set health = health + 10
set manna = manna + 20
set edaD = edaD - 1
if energy >= 30:
'You can no longer have.'
end
if energy >= 20 and energy < 30:
set energy = energy + 10
'You pushed through the power of a meal.'
end
if energy < 20:
set energy = energy +20
'You gladly ate cooked food.'
end
if water >= 20:
'Tea in you no longer climbs.'
end
if water < 20:
'You gladly drank a cup of tea.'
set water = water +20
end
act 'Get up from the table':gt $curloc
end
>>>>>>> 403_ykuh
end
if fatdel > 0:
<<<<<<< 403_ykuh
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
=======
act 'to use fat burners':
cla
*clr
set fatdel = fatdel - 1
set fat = fat - 25
if fat<0:fat=0
'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'
act 'Get up from the table':gt $curloc
end
>>>>>>> 403_ykuh
end
<<<<<<< 403_ykuh
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
=======
act 'drink':
cla
set minut = minut + 5
if water >= 20:
'Water in you no longer climbs.'
end
if water < 20:
'You gladly drank a glass of water.'
set water = 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 her husband 1 h (2 unit of food)':
cla
*clr
husband+=5
set eda = eda - 2
set minut = minut + 60
huseatday=day
manna-=25
''
'You cooked food on a plate for her husband.'
act 'Move away from the stove':gt $curloc
end
>>>>>>> 403_ykuh
end
<<<<<<< 403_ykuh
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
=======
if lekarstvo>0:
'you have <> tablets.'
if sick>0 and lekarday!day:
act 'take a pill':
cla
*clr
set minut = 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 drank the pill'
act 'move_away':gt $curloc
end
end
>>>>>>> 403_ykuh
end
<<<<<<< 403_ykuh
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
=======
if vitamin>0:
'you have <> vitaminok.'
if vitaminday!day:
act 'drink Vitaminki':
cla
*clr
set minut = 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 = skinvan + 1
if skinvan = 20:set skinvan = 0&set skin = skin + 1
'You drank Vitaminki'
act 'move_away':gt $curloc
end
end
>>>>>>> 403_ykuh
end
--- ykuh ---------------------------------