glife/locations/403_ykuh

# ykuh
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
<<<<<<< 403_ykuh
'<center><B><font color = maroon>House</font></B></center>'
'<center>Kitchen</center>'
if ymanrem[6] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
if ymanrem[6] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
if ymanrem[6] = 2: '<center><img src="images\etogame\ykun.jpg"></center>'
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 <B><<cltarelka>></B> clean plates'
else
'<B><font color = red>You don´t have any clean plates left.</font></B>'
end
if dirttarelka > 0: 'In the sink are <B><<dirttarelka>></B> dirty dishes. <a href="exec: dynamic $dirtarm ">Wash the dishes</a>.'
if fairy > 0:
'Under the sink is some dishwashing detergent, which is enough for <B><<fairy>></B> times.'
else
'<B><font color = red>You have nothing to wash dishes with. You should buy some dishwashing detergent.</font></B>'
end
if eda > 0:
if cltarelka = 0 or edahot > 0:$edagot = ''
if cltarelka > 0 and edahot = 0:$edagot = '<a href="exec: dynamic $edagotd ">Cook meal (0:30)</a>'
'In the refrigerator is enough food for <B><<eda>></B> servings. <<$edagot>>'
elseif edaD = 0 and eda = 0:
'<B><font color = red>The fridge is empty, you have nothing to eat.</font></B>'
end
if edaD > 0:
'In the refrigerator is some healthy meals that´s good for <B><<edaD>></B> servings.'
=======
'<center><B><font color=maroon>mansion</font></B></center>'
'<center>kitchen</center>'
if ymanrem[6]=0:'<center><img src="pic/ynill.jpg" ></center>'
if ymanrem[6]=1:'<center><img src="pic/yrem.jpg" ></center>'
if ymanrem[6]=2:'<center><img src="pic/ykuh.jpg" ></center>'
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 fairy<dirttarelka:
 'It ended with dishwashing detergent.'
 end
if cltarelka>0:
'Standing over the sink <B><<cltarelka>></B> pieces of clean plates'
else
'<B><font color=red>You have not left clean dishes.</font></B>'
end
if dirttarelka > 0:'In the sink are <B><<dirttarelka>></B> pieces of dirty dishes. <a href="exec: dynamic $dirtarm ">That can be washed and</a>.'
if fairy>0:
'Standing over the sink dishwashing detergent, which is enough for <B><<fairy>></B> time.'
else
'<B><font color=red>You do not have to wash the dishes than, need to buy dishwashing detergent.</font></B>'
end
if eda>0:
if cltarelka=0 or edahot > 0:$edagot=''
if cltarelka>0 and edahot = 0:$edagot='<a href="exec: dynamic $edagotd ">It can be prepared</a>'
'The refrigerator kept food that will last for <B><<eda>></B> servings. <<$edagot>>'
elseif edaD=0 and eda=0:
'<B><font color=red>The refrigerator ball Roll, generally have nothing to eat.</font></B>'
end
if edaD>0:
'The refrigerator is kept healthy meal that will last for <B><<edaD>></B> servings.'
>>>>>>> 403_ykuh
end

<<<<<<< 403_ykuh
act 'Leave the room': minut += 1 & gt 'ymans'
=======
act 'Exit the room':minut+=1&gt'ymans'
>>>>>>> 403_ykuh


<<<<<<< 403_ykuh
if edahot > 0: '<a href="exec: dynamic $edahotd ">On the table is a cooked meal (0:30).</a>'
=======
if edahot > 0:'<a href="exec: dynamic $edahotd ">On the table is ready meal.</a>'
>>>>>>> 403_ykuh


<<<<<<< 403_ykuh
if pranik > 0:
'You have <<pranik>> 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'
	'<center><img src="images\pics\food.jpg"></center>'
	'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 <<pranik>> 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'
     '<center><img src="pics/food.jpg" ></center>'
     '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
	'<center><img src="images\pics\food.jpg"></center>'
	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
     '<center><img src="pics/food.jpg" ></center>'
     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
	'<center><img src="images\pics\cook.jpg"></center>'
	'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
     '<center><img src="pics/cook.jpg" ></center>'
     '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 <<lekarstvo>> 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: '<center><img src="images\inBed\lekr1.jpg"></center>'
		if lekrand = 1: '<center><img src="images\inBed\lekr2.jpg"></center>'
		if lekrand = 2: '<center><img src="images\inBed\lekr3.jpg"></center>'
		if lekrand = 3: '<center><img src="images\inBed\lekr4.jpg"></center>'
		if lekrand = 4: '<center><img src="images\inBed\lekr5.jpg"></center>'
		if lekrand = 5: '<center><img src="images\inBed\lekr6.jpg"></center>'
		if lekrand = 6: '<center><img src="images\inBed\lekr7.jpg"></center>'
		if lekrand = 7: '<center><img src="images\inBed\lekr8.jpg"></center>'
		if lekrand = 8: '<center><img src="images\inBed\lekr9.jpg"></center>'
		'You took the pill'
		act 'Move away': gt $curloc
		end
	end
=======
if lekarstvo>0:
'you have <<lekarstvo>> 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:'<center><img src="inBed/lekr1.jpg" ></center>'
		 if lekrand = 1:'<center><img src="inBed/lekr2.jpg" ></center>'
		 if lekrand = 2:'<center><img src="inBed/lekr3.jpg" ></center>'
		 if lekrand = 3:'<center><img src="inBed/lekr4.jpg" ></center>'
		 if lekrand = 4:'<center><img src="inBed/lekr5.jpg" ></center>'
		 if lekrand = 5:'<center><img src="inBed/lekr6.jpg" ></center>'
		 if lekrand = 6:'<center><img src="inBed/lekr7.jpg" ></center>'
		 if lekrand = 7:'<center><img src="inBed/lekr8.jpg" ></center>'
		 if lekrand = 8:'<center><img src="inBed/lekr9.jpg" ></center>'
		 'You drank the pill'
		 act 'move_away':gt $curloc
		 end
     end
>>>>>>> 403_ykuh
end

<<<<<<< 403_ykuh
if vitamin > 0:
'You have <<vitamin>> 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 <<vitamin>> 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 ---------------------------------