# kuhrPar act 'Leave the room':gt 'korrPar' $metkaM = $ARGS[0] $locM = $CURLOC $metka = $ARGS[0] $loc = $CURLOC '
Kitchen
' '
' clr set minut += 1 gs 'stat' fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) 'The kitchen is next to the stove sink. Large refrigerator in the corner and kitchen table with chairs is against the wall.' gs 'family' act 'Eat (0:30)': cla *clr gs 'stat' frost = 0 '
' set minut += 30 set health += 10 set manna += 20 if energy >= 30: set fat += 5 'You can no longer have.' end if energy >= 20 and energy < 30: set fat += 3 set energy += 10 'You pushed through the power of a meal.' end if energy < 20: set energy += 20 !!set fat += 1 'You gladly ate cooked food.' end if water >= 20:'Tea in you no longer climbs.' if water < 20: 'You gladly drank a mug of tea.' set water += 20 end gs 'stat' act 'Get up from the table':gt $locM, $metkaM end act 'Have a snack (0:15)': cla *clr gs 'stat' frost = 0 '
' set minut += 15 set health += 10 set manna += 20 if energy >= 30: set fat += 3 'You can no longer have.' end if energy >= 20 and energy < 30: set fat += 1 set energy += 5 'You pushed through the power of a meal.' end if energy < 20: set energy += 10 !!set fat += 1 'You gladly ate cooked food.' end if water >= 20:'Tea in you no longer climbs.' if water < 20: 'You gladly drank a mug of tea.' set water += 20 end gs 'stat' act 'Get up from the table':gt $locM, $metkaM end act 'Drink': cls if water >= 20:'Tea in you no longer climbs.' if water < 20: 'You gladly drank a mug of tea.' set water += 20 end gs 'stat' act 'Get up from the table':gt $locM, $metkaM end if pranik > 0: 'Cookies will suffice for <> time.' act 'Drink tea with cookies (0:05)': cla *clr minut += 5 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 the figure, but so nice.' act 'Get up from the table':gt $curloc end end if edaD > 0: act 'Eat diet food (0:30)': cla *clr frost = 0 '
' set minut += 30 set health += 10 set manna += 20 set edaD -= 1 if energy >= 30:'You can no longer have.' if energy >= 20 and energy < 30: set energy += 10 'You pushed through the power of a meal.' end if energy < 20: set energy += 20 'You gladly ate cooked food.' end if water >= 20:'Tea in you no longer climbs.' if water < 20: 'You gladly drank a cup 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 if fat > salo:fat = salo set fatdel -= 1 set 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 end if lekarstvo > 0: 'you <> tablets.' if sick > 0 and lekarday ! day: act 'Take a pill (0:05)': 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 swallowed the pill' act 'move away':gt $curloc end end end if vitamin > 0: 'you <> vitaminok.' if vitaminday ! day: act 'Drink Vitamins (0:05)': cla *clr if fat > salo:fat = salo 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 drank Vitams' act 'Move away':gt $curloc end end end --- kuhrPar ---------------------------------