# obkitchen
gs'stat'
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B>Kitchen in the dorm</B></center>'
'<center><img src="img/centr/obkitchen.jpg" ></center>'

act'In the corridor':gt'dorm','korr'
if eda>0:
act'prepare meals':
cla
*clr
set minut = minut + 60
gs'stat'
set edahot = edahot + 1
set eda = eda - 1
set manna = manna - 5
'<center><img src="pics/cook.jpg" ></center>'
'You cooked food on a plate.'
act 'Move away from the plate':gt'obkitchen'
end
end
 
if edahot>0:
act'Is_There':
cla
*clr
gs'stat'
frost=0
'<center><img src="pics/food.jpg" ></center>'
set minut = minut + 30
set edahot = 0
set health = health + 10
set manna = manna + 20
if energy >= 30:
	  set fat = fat + 5
	 'You can no longer have.'
	 end
if energy >= 20 and energy < 30:
	 set fat = fat + 3
	 set energy = energy + 10
	 'You pushed through the power of a meal.'
	 end
if energy < 20:
	 set energy = energy +20
	 !set fat = fat + 1
	 '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'obkitchen'
end
end

if pranik>0:
     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'obkitchen'
     end
end

if edaD > 0:
     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'obkitchen'
     end
end

if fatdel > 0:
     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'obkitchen'
     end
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'obkitchen'
     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'obkitchen'
		 end
     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
			 set skinvan = skinvan + 1
			 if skinvan = 20:set skinvan = 0&set skin = skin + 1
			 'You drank Vitaminki'
			 act 'move_away':gt'obkitchen'
			 end
		 end
	 end
--- obkitchen ---------------------------------

