# 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 < 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 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.' 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.' 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.' 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 ---------------------------------