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