# ykuh $metkaM = $ARGS[0] $locM = $CURLOC $metka = $ARGS[0] $loc = $CURLOC clr gs 'stat' '
Mansion
' '
Kitchen
' if ymanrem[6] = 0:'
' if ymanrem[6] = 1:'
' if ymanrem[6] = 2:'
' if ymanrem[6] = 2:'' if dirttarelka > 0 and fairy >= dirttarelka: cltarelka += dirttarelka fairy -= dirttarelka dirttarelka = 0 'Dishwasher washed your dirty dishes.' elseif fairy < dirttarelka: 'Tou have no more dishwashing detergent.' end if cltarelka > 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 act 'Leave the room':minut += 1 & gt 'ymans' if edahot > 0:'On the table is a cooked meal.' if pranik > 0: 'You have <> cookies.' act 'Drink tea with cookies (0:05)': cla *clr minut += 5 pranik -= 1 health += 30 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: 'In the refrigerator is some healthy meals that''s good for <> servings.' act 'Cook some dietary food (0:30)': cla *clr frost = 0 minut += 30 health += 10 manna += 20 edaD -= 1 '
' if energy >= 30: 'You can no longer eat.' elseif energy >= 20 and energy < 30: energy += 10 'You are not hungry but you ate it anyway.' elseif energy < 20: energy += 20 'You gladly ate some cooked food.' end if water >= 20: 'You don''t want to drink anymore.' elseif water < 20: water += 20 'You gladly drank a mug of tea.' end act 'Get up from the table':gt $curloc end end if fatdel > 0: act 'Consume fat burners': cla *clr fatdel -= 1 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 minut += 5 if water >= 20: 'You are not thirsty.' elseif water < 20: water += 20 'You gladly drank a glass of water.' end act 'Get up from the table':gt $curloc end if husband > 0 and husbanday > 0 and huseatday ! daystart and eda >= 2: act 'Cook a meal for your husband, 2 servings (1:00)': cla *clr husband += 5 eda -= 2 minut += 60 huseatday = daystart 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 ! daystart: act 'Take a pill': cla *clr minut += 5 lekarday = daystart lekarstvo -= 1 sick -= sick * 20 / 100 lekrand = rand(1, 9) '
' 'You took the pill' act 'Move away':gt $curloc end end end if vitamin > 0: 'You have <> vitamins.' if vitaminday ! daystart: act 'Take some vitamins': cla *clr minut += 5 vitaminday = daystart vitamin -= 1 frost = 0 if KandidozOnce = 1:Kandidoz -= 2 if GerpesOnce = 1:Gerpes -= 2 if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1) skinvan += 1 if skinvan = 20:skinvan = 0 & skin += 1 'You took vitamins' act 'Move away':gt $curloc end end end --- ykuh ---------------------------------