Forráskód Böngészése

Food re-balancing and cetralising.

KevinSmarts 9 éve
szülő
commit
db1b024ad1

+ 1 - 0
glife.qproj

@@ -504,6 +504,7 @@
       <Location name="stol"/>
       <Location name="telefon"/>
       <Location name="kit_din"/>
+      <Location name="food"/>
       <Location name="TV"/>
       <Location name="vann"/>
     </Folder>

+ 1 - 1
locations/BurgerTip

@@ -222,7 +222,7 @@ $burger_work_din = {
 								water = 100
 								energy = 100
 								salo += 2
-								fat += 20
+								fat += 4
 								gs 'stat'
 								'<center><img src="images/qwest/sosed/kafe2.jpg"></center>'
 								'You went with Sergei and logged in located not far from bystroezhki cafe. Sergei ordered drinks and food and you sat down at the table. Order soon earned and you began to eat and drink wine. Soon you''re a bit tipsy and the conversation flowed naturally. Sergei called the waitress and paid with her. You went out with his partner, and pimply he suddenly hugged you "<<$name>>, went to me."'

+ 4 - 74
locations/Gadhouse

@@ -180,81 +180,11 @@ act 'Go outside':
 	end
 end
 
-act 'Eat a meal (0:30)':
-	cla
-	*clr
-	gs 'stat'
-	frost = 0
-	minut += 30
-	health += 10
-	manna += 20
-	'<center><img src="images/pics/food.jpg"></center>'
-
-	if energy >= 100:
-		fat += 5
-		'You try to eat, but are too full to enjoy the meal and can''t finish it.'
-	elseif energy >= 80:
-		fat += 3
-		energy += 40
-		'You''re not all that hungry, but have a meal anyway. Half-way through, you''re starting to regret it but feel bad throwing it out so you finish it anyway.'
-	else
-		energy += 80
-		fat += 1
-		'The food tastes good, you quietly thank your mother for always keeping the fridge stocked with these tasty meals.'
-	end
-
-	if water >= 80:
-		'You don''t need any more tea.'
-	else
-		water += 80
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
-		'You have a cup of tea, quenching your thirst.'
-	end
-
-	gs 'stat'
-
-	act 'Get up from the table':gt 'Gadhouse'
-end
+act 'Eat a full meal (0:30)':gs 'food', 'm_meal'
 
-act 'Have a snack (0:15)':
-	cla
-	*clr
-	gs 'stat'
-	frost = 0
-	minut += 15
-	health += 10
-	manna += 20
-	'<center><img src="images/pics/food.jpg"></center>'
-
-	if energy >= 30:
-		fat += 3
-		'You try to enjoy the snack, but are too full to even finish it.'
-	elseif energy >= 20 and energy < 30:
-		fat += 1
-		energy += 5
-		'You have a snack even though you''re not all that hungry, and half-way through start to regret it.'
-	elseif energy < 20:
-		energy += 10
-		!!fat += 1
-		'Even though it''s not good for you, the snack tastes great.'
-	end
-
-	if water >= 20:
-		'You don''t need any more tea.'
-	else
-		water += 20
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
-		'You have a cup of tea, quenching your thirst.'
-	end
+act 'Eat a light meal (0:20)':gs 'food', 's_meal'
 
-	gs 'stat'
-
-	act 'Get up from the table':gt 'Gadhouse'
-end
+act 'Have a snack (0:15)':gs 'food', 'snack'
 
 act 'Have a cup of tea (0:05)':
 	cls
@@ -289,7 +219,7 @@ if pranik > 0:
 		cumspclnt = 2
 		gs 'cum_cleanup'
 		fbreath = 0
-		fat += 50
+		fat += 4
 		frost = 0
 		gs 'stat'
 		'<center><img src="images/pics/food.jpg"></center>'

+ 4 - 4
locations/JuliaMilHome

@@ -31,10 +31,10 @@ elseif lernHome = 0:
 
 		act 'Have a meal with Julia':
 			cls
-			minut += 15
-			fat += 3
-			energy += 40
-			water += 80
+			minut += 30
+			fat += 2
+			energy += 60
+			water += 60
 			cumspclnt = 2
 			gs 'cum_cleanup'
 			fbreath = 0

+ 3 - 11
locations/Military

@@ -1,5 +1,7 @@
 # Military
 if $ARGS[0] = 'start':
+	$metkaM = $ARGS[0]
+	$locM = $CURLOC
 	$sexloc = $CURLOC
 	gs 'stat'
 	'<center><b><font color="maroon">Army Camp</font></b></center>'
@@ -36,17 +38,7 @@ if $ARGS[0] = 'start':
 		act 'Finish':gt 'Military', 'start'
 	end
 
-	act 'Get some food and drink from the mess hall':
-		minut += 30
-		health += 10
-		manna += 20
-		energy = 100
-		water = 100
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
-		gs 'stat'
-	end
+	act 'Get some food and drink from the mess hall':gs 'food', 'm_meal'
 
 	if week < 6 or week = 7 and hour >= 18:
 		cla

+ 2 - 29
locations/ParkKafe

@@ -1,35 +1,9 @@
 # ParkKafe
 
 if $ARGS[0] = 'food':
-	cla
-	health += 10
 	money -= 100
-	minut += 30
-	manna += 5
-	willpower += 5
-
-	if energy >= 100:
-		fat += 5
-		'You can no longer eat.'
-	elseif energy >= 80:
-		fat += 3
-		energy += 40
-		'You force down the meal.'
-	else
-		energy += 80
-		fat += 1
-		'You gladly ate the food.'
-	end
-
-	if water >= 80:
-		'You don''t need any more tea.'
-	elseif water < 80:
-		water += 80
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
-		'You gladly drank a mug of tea.'
-	end
+	gs 'food', 'dyn_meal'
+	'Whilst you were sitting eating in summer cafe. You enjoyed the beautiful scenery.'
 
 	arand = rand(1, 7)
 
@@ -41,7 +15,6 @@ if $ARGS[0] = 'food':
 	if arand = 6:'You are viewing a cafe visitors and notice two <a href="exec:gt ''ParkKafe'', ''Armenians''">Armenians</a> sitting at the table.'
 	if arand = 7:'You are viewing a cafe visitors and notice two <a href="exec:gt ''ParkKafe'', ''guys''">sporty guys</a> sitting at the table and drinking beer.'
 
-	'You sit at the table in summer cafe. Soon your order arrives.'
 	act 'Leave':gt 'park', 'start'
 end
 

+ 3 - 4
locations/StasQW

@@ -86,10 +86,9 @@ elseif StasKafe = 0:
 			cls
 			minut += 60
 			horny += 15
-			water = 100
-			energy = 100
-			salo += 2
-			fat += 20
+			energy += 60
+			water += 60
+			fat += 4
 			gs 'stat'
 			'<center><img src="images/qwest/sosed/kafe.jpg"></center>'
 			'You are relaxed and drinking champagne that you listened to tales regaled Stas. For chatter, you do not even notice how Stas ordered another bottle and more. Finally you realize that you are already well plucked. Here in the cafe zairala music and Stas rising from his chair gallantly handed you a hand offering dance.'

+ 3 - 29
locations/WorkHosp

@@ -1,5 +1,7 @@
 # WorkHosp
 if $ARGS[0] = 'start':
+	$metkaM = $ARGS[0]
+	$locM = $CURLOC
 	$sexloc = $CURLOC
 	gs 'stat'
 	'<center><b><font color="maroon">Clinic</font></b></center>'
@@ -59,35 +61,7 @@ if $ARGS[0] = 'start':
 		act 'Move away':gt 'WorkHosp', 'start'
 	end
 
-	act 'Eat in the cafeteria (0:30)':
-		minut += 30
-		health += 10
-		manna += 5
-		willpower += 5
-
-		if energy >= 100:
-			fat += 5
-			'You can no longer eat.'
-		elseif energy >= 80:
-			fat += 3
-			energy += 40
-			'You force down the meal.'
-		else
-			energy += 80
-			fat += 1
-			'You gladly eat the food.'
-		end
-
-		if water >= 80:
-			'You don''t need any more tea.'
-		elseif water < 80:
-			water += 80
-			cumspclnt = 2
-			gs 'cum_cleanup'
-			fbreath = 0
-			'You gladly drink a mug of tea.'
-		end
-	end
+	act 'Eat in the cafeteria (0:30)':gs 'food', 'm_meal'
 
 	act 'Chat with Kat':
 		cla

+ 1 - 36
locations/burger

@@ -23,42 +23,7 @@ if $ARGS[0] = 'start':
 	end
 
 	if money >= 100:
-		act 'Eat (100 rubles)':
-			cla
-			*clr
-			minut += 30
-			health += 10
-			money -= 100
-			manna += 5
-			willpower += 5
-
-			'<center><img src="images/pics/food.jpg"></center>'
-
-			if energy >= 100:
-				fat += 8
-				'You can no longer eat.'
-			elseif energy >= 80:
-				fat += 6
-				energy += 40
-				'You pushed through the power of a meal.'
-			else
-				energy += 80
-				fat += 4
-				'You gladly ate the food.'
-			end
-
-			if water >= 80:
-				'You don''t need any more tea.'
-			elseif water < 80:
-				water += 80
-				cumspclnt = 2
-				gs 'cum_cleanup'
-				fbreath = 0
-				'You gladly drank a mug of tea.'
-			end
-
-			act 'Get up from the table':gt 'burger', 'start'
-		end
+		act 'Eat (100 rubles)':gs 'food', 'f_food'
 	end
 
 	if IvanPodstavaQW = 2:

+ 1 - 33
locations/burgerWork

@@ -1,39 +1,7 @@
 # burgerWork
 $dinBistroWork = {
 	act 'Dinner':
-		cls
-		minut += 30
-		health += 10
-		manna += 5
-		willpower += 5
-		gs 'stat'
-		'<center><img src="images/pics/food.jpg"></center>'
-		'You took bystroezhke food and sat at a table for dinner.'
-
-		if energy >= 100:
-			fat += 8
-			'You can no longer eat.'
-		elseif energy >= 80:
-			fat += 6
-			energy += 40
-			'You pushed through the power of a meal.'
-		else
-			energy += 80
-			fat += 4
-			'You gladly ate the food.'
-		end
-
-		if water >= 80:
-			'You don''t need any more tea.'
-		elseif water < 80:
-			water += 80
-			cumspclnt = 2
-			gs 'cum_cleanup'
-			fbreath = 0
-			'You gladly drank a mug of tea.'
-		end
-
-		gs 'stat'
+		gs 'food', 'dynf_food'
 		dynamic $dinBistroWork3
 	end
 }

+ 9 - 46
locations/etoexhib

@@ -215,32 +215,25 @@ if $ARGS[0] = 'pos7':
 	'Also funny inscriptions on the column and have useful information.'
 	'Aunt Nina 3 alley sells goat milk 300 rubles/liter'
 
-	if money >= 300:
+	if money >= 300 and energy < 70:
 		act 'Buy milk':
 			cla
 			*clr
 			money -= 300
 			minut += 30
 			frost = 0
-			edahot = 0
 			health += 10
 			manna += 20
 			gs 'stat'
-
-			if energy >= 100:
-				fat += 2
-				'You don''t want do drink more.'
-			elseif energy >= 80:
-				fat = fat + 1
-				energy = energy + 40
-			else
-				energy += 80
-
-				'You gladly drank goat''s milk.'
-			end
+			fat += 1
+			energy += 40
+			water += 40
+			'You gladly drank goat''s milk.'
 
 			act 'Leave':gt 'dachi'
 		end
+	elseif money >= 300:
+		'You feel too full to drink such thick and creamy milk at the moment.'
 	end
 
 	act 'Leave':gt 'dachi'
@@ -1312,39 +1305,9 @@ if $ARGS[0] = 'pos37':
 	end
 
 	act 'Buy lunch (100 rubles)':
-		cla
-		*clr
 		money -= 100
-		minut += 30
-		gs 'stat'
-		frost = 0
-		edahot = 0
-		health = health + 10
-		manna = manna + 20
-
-		if energy >= 100:
-			fat += 5
-			'You do not want to eat.'
-		elseif energy >= 80:
-			fat = fat + 3
-			energy = energy + 40
-		else
-			energy += 80
-			fat += 1
-			'You ate with pleasure.'
-		end
-
-		if water >= 80:
-			'You don''t need any more tea.'
-		else
-			water += 80
-			cumspclnt = 2
-			gs 'cum_cleanup'
-			fbreath = 0
-			'You gladly drank a cup of tea.'
-		end
-
-		act 'Finish':gt 'etoexhib', 'pos37'
+		gs 'food', 'm_meal'
+		gt 'etoexhib', 'pos37'
 	end
 
 	act 'In the corridor (1 Floor)':gt 'etoexhib', 'pos22'

+ 152 - 0
locations/food

@@ -0,0 +1,152 @@
+# food
+!{Snacks: +20 energy/thirst,+2 fat
+Fast Food: +70 energy/thirst, +4 fat (hamburgers, fried food, like the downtown diner)
+Small Meal: +40 energy/thirst, +1 fat (sandwiches, cafe light lunches, etc)
+Medium Meal: +60 energy/thirst, +2 fat (home cooked dinners)
+Large Meal: +100 energy/thirst, +4 fat (steak dinners, new years party dinner, etc)}
+
+if $ARGS[0] = 'snack':
+	cla
+	*clr
+	gs 'stat'
+	minut += 15
+	health += 10
+	manna += 20
+	fat += 2
+	energy += 20
+	water += 20
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	fbreath = 0
+	'<center><img src="images/pics/food.jpg"></center>'
+	'You have a little snack and a fizzy drink, it will keep you going for a little while, but it is a bit fatty.'
+	
+	act 'Return':gt $locM, $metkaM
+end
+
+if $ARGS[0] = 'dyn_snack':
+	cla
+	*clr
+	gs 'stat'
+	minut += 15
+	health += 10
+	manna += 20
+	fat += 2
+	energy += 20
+	water += 20
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	fbreath = 0
+	'<center><img src="images/pics/food.jpg"></center>'
+	'You have a little snack and a fizzy drink, it will keep you going for a little while, but it is a bit fatty.'
+end
+
+if $ARGS[0] = 'f_food':
+	cla
+	*clr
+	frost = 0
+	minut += 30
+	health += 10
+	fat += 4
+	energy += 70
+	water += 70
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	fbreath = 0
+	'<center><img src="images/pics/food.jpg"></center>'
+	'You gladly eat the fast food. You feel sated.'
+	'The large drink helps your thirst, but it is a bit sugary.'
+
+	act 'Finish':gt $locM, $metkaM
+end
+
+if $ARGS[0] = 'dynf_food':
+	cla
+	*clr
+	frost = 0
+	minut += 30
+	health += 10
+	fat += 4
+	energy += 70
+	water += 70
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	fbreath = 0
+	'<center><img src="images/pics/food.jpg"></center>'
+	'You gladly eat the fast food. You feel sated.'
+	'The large drink helps your thirst, but it is a bit sugary.'
+end
+
+if $ARGS[0] = 's_meal':
+	cla
+	*clr
+	frost = 0
+	minut += 20
+	health += 10
+	fat += 1
+	energy += 40
+	water += 40
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	fbreath = 0
+	'<center><img src="images/pics/food.jpg"></center>'
+	'You gladly eat the cooked meal. You feel less hungry.'
+	'You wash it down with a cup of tea.'
+
+	act 'Finish':gt $locM, $metkaM
+end
+
+if $ARGS[0] = 'm_meal':
+	cla
+	*clr
+	frost = 0
+	minut += 30
+	health += 10
+	fat += 2
+	energy += 60
+	water += 60
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	fbreath = 0
+	'<center><img src="images/pics/food.jpg"></center>'
+	'You gladly eat the cooked meal. You feel sated.'
+	'You accompany it with a mug of tea.'
+
+	act 'Finish':gt $locM, $metkaM
+end
+
+if $ARGS[0] = 'dyn_meal':
+	cla
+	*clr
+	frost = 0
+	minut += 30
+	health += 10
+	fat += 2
+	energy += 60
+	water += 60
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	fbreath = 0
+	'<center><img src="images/pics/food.jpg"></center>'
+	'You gladly eat the cooked meal. You feel sated.'
+	'You accompany it with a mug of tea.'
+end
+
+if $ARGS[0] = 'l_meal':
+	cla
+	*clr
+	frost = 0
+	minut += 30
+	health += 10
+	fat += 4
+	energy += 100
+	water += 100
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	fbreath = 0
+	'<center><img src="images/pics/food.jpg"></center>'
+
+end
+
+--- food ---------------------------------
+

+ 3 - 32
locations/gkafe

@@ -2,6 +2,8 @@
 CLOSE ALL
 $metka = $ARGS[0]
 $loc = $CURLOC
+$metkaM = $ARGS[0]
+$locM = $CURLOC
 gs 'stat'
 gs 'time'
 fcolor = rgb(0, 0, 0)
@@ -64,38 +66,7 @@ else
 		end
 
 		act 'Have a meal at the cafe':
-			cla
-			*clr
-			frost = 0
-			minut += 30
-			health += 10
-			manna += 5
-			willpower += 5
-			gs 'stat'
-			'<center><img src="images/pics/food.jpg"></center>'
-
-			if energy >= 100:
-				fat += 5
-				'You try to eat, but are too full to enjoy the meal and can''t finish it.'
-			elseif energy >= 80:
-				fat += 3
-				energy += 40
-				'You''re not all that hungry, but have a meal anyway. Half-way through, you''re starting to regret it but feel bad throwing it out so you finish it anyway.'
-			else
-				energy += 80
-				fat += 1
-				'You order a meal at the cafe. Since your mom works here, it''s free. The food tastes good.'
-			end
-
-			if water >= 100:
-				'You''re not thirsty, so you don''t drink the tea.'
-			elseif water < 80:
-				water += 80
-				cumspclnt = 2
-				gs 'cum_cleanup'
-				fbreath = 0
-				'You enjoy a nice cup of tea with your meal.'
-			end
+			gs 'food', 'm_meal'
 
 			razvrand = rand(1, 10)
 

+ 1 - 33
locations/gschool2

@@ -547,39 +547,7 @@ if $ARGS[0] = 'break':
 
 		if money >= 50:
 			act 'Buy food (50 rubles)':
-				cls
-				money -= 50
-				salo += 2
-				minut += 30
-				health += 10
-				manna += 20
-				gs 'stat'
-				'<center><img src="images/qwest/alter/stolovka.jpg"></center>'
-
-				if energy >= 100:
-					fat += 5
-					'You try to eat, but are too full to enjoy the meal and can''t finish it.'
-				elseif energy >= 80:
-					fat += 3
-					energy += 40
-					'You''re not all that hungry, but have a meal anyway. Half-way through, you''re starting to regret it but would feel bad throwing it out. You finish it anyway with little enthusiasm.'
-				else
-					energy += 80
-					fat += 1
-					'You enjoy a tasty meal in the school canteen.'
-				end
-
-				if water >= 100:
-					'You''re not thirsty.'
-				else
-					water += 80
-					cumspclnt = 2
-					gs 'cum_cleanup'
-					fbreath = 0
-					'You have a cup of tea with your meal, quenching your thirst.'
-				end
-
-				gs 'stat'
+				gs 'food', 'dyn_meal'
 				act 'Go to afternoon lessons': gt 'gschool2', 'afternoon'
 			end
 		end

+ 1 - 30
locations/kafeM

@@ -45,36 +45,7 @@ if $ARGS[0] = 'a':
 end
 
 if $ARGS[0] = 'b':
-	minut += 30
-	fat += 1
-
-	if energy >= 100:
-		fat += 5
-		'You can no longer eat.'
-	elseif energy >= 80:
-		fat += 3
-		energy += 40
-		'You pushed through the power of a meal.'
-	else
-		energy += 80
-		fat += 1
-		'You gladly ate the food.'
-	end
-
-	if water >= 80:
-		'You don''t need any more tea.'
-	elseif water < 80:
-		water += 80
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
-		'You gladly drank a cup of tea.'
-	end
-
-	alko += 2
-	cumspclnt = 2
-	gs 'cum_cleanup'
-	fbreath = 0
+	gs 'food', 'dyn_meal'
 	gs 'stat'
 	'The cafe and the music started <<$boyA>> proposed to dance.'
 

+ 3 - 63
locations/kit_din

@@ -407,7 +407,7 @@ $pranik = {
 		cumspclnt = 2
 		gs 'cum_cleanup'
 		fbreath = 0
-		fat += 50
+		fat += 4
 		frost = 0
 		gs 'stat'
 		'<center><img src="images/pics/food.jpg"></center>'
@@ -429,71 +429,11 @@ $edaD = {
 }
 
 $food = {
-	cla
-	*clr
-	frost = 0
-	minut += 30
-	health += 10
-	cumspclnt = 2
-	gs 'cum_cleanup'
-	fbreath = 0
-	'<center><img src="images/pics/food.jpg"></center>'
-
-	if energy >= 100:
-		'You have no hunger, so just pick at the things you like most. You feel a little bloated.'
-	elseif energy >= 80:
-		energy += 40
-		'You force down the meal and now feel full.'
-	else
-		energy += 80
-		'You gladly eat the cooked meal. You feel sated.'
-	end
-
-	if water >= 100:
-		'You aren''t thirsty, so you don''t have any tea.'
-	else
-		water += 80
-		'You gladly drink a mug of tea.'
-	end
-
-	act 'Get up from the table':gt $locM, $metkaM
+	gs 'food', 'm_meal'
 }
 
 $snack = {
-	cla
-	*clr
-	gs 'stat'
-	minut += 15
-	health += 10
-	manna += 20
-	'<center><img src="images/pics/food.jpg"></center>'
-	if energy >= 100:
-		fat += 5
-		'You have no hunger, so just pick at the things you like most. You feel a little bloated.'
-	elseif energy >= 80:
-		fat += 3
-		energy += 40
-		'You force down the meal and now feel full.'
-	else
-		energy += 80
-		!!fat += 1
-		'You gladly eat the cooked meal. You feel sated.'
-	end
-
-	if water >= 80:
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
-		'The coffee doesn''t affect your thirst.'
-	elseif water < 80:
-		water += 80
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
-		'You aren''t thirsty, so you don''t have any coffee.'
-	end
-
-	act 'Throw away leftovers':gt $locM, $metkaM
+	gs 'food', 'snack'
 }
 
 $fatdel = {

+ 3 - 75
locations/kuhrPar

@@ -17,81 +17,9 @@ lcolor = rgb(106, 90, 205)
 'The kitchen is not very impressive, but it has everything your family needs. Since everyone has the habit of eating at different times, Mom usually pre-cooks the meals and stores them in the fridge. Of course, you could also just have a snack if you''re not that hungry.'
 gs 'family'
 
-act 'Eat a meal (0:30)':
-	cla
-	*clr
-	gs 'stat'
-	frost = 0
-	minut += 30
-	health += 10
-	manna += 20
-	'<center><img src="images/pics/food.jpg"></center>'
-
-	if energy >= 100:
-		fat += 5
-		'You try to eat, but are too full to enjoy the meal and can''t finish it.'
-	elseif energy >= 80:
-		fat += 3
-		energy += 40
-		'You''re not all that hungry, but have a meal anyway. Half-way through, you''re starting to regret it but feel bad throwing it out so you finish it anyway.'
-	else
-		energy += 80
-		fat += 1
-		'The food tastes good, you quietly thank your mother for always keeping the fridge stocked with these tasty meals.'
-	end
-
-	if water >= 80:
-		'You don''t need any more tea.'
-	else
-		water += 80
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
-		'You have a cup of tea, quenching your thirst.'
-	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
-	minut += 15
-	health += 10
-	manna += 20
-	'<center><img src="images/pics/food.jpg"></center>'
-
-	if energy >= 100:
-		fat += 3
-		'You try to enjoy the snack, but are too full to even finish it.'
-	elseif energy >= 80:
-		fat += 1
-		energy += 5
-		'You have a snack even though you''re not all that hungry, and half-way through start to regret it.'
-	else
-		energy += 10
-		!!fat += 1
-		'Even though it''s not good for you, the snack tastes great.'
-	end
+act 'Eat a meal (0:30)':gs 'food', 'm_meal'
 
-	if water >= 80:
-		'You don''t need any more tea.'
-	else
-		water = 100
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
-		'You have a cup of tea, quenching your thirst.'
-	end
-
-	gs 'stat'
-
-	act 'Get up from the table':gt $locM, $metkaM
-end
+act 'Have a snack (0:15)':gs 'food', 'snack'
 
 act 'Have a cup of tea (0:05)':
 	cls
@@ -126,7 +54,7 @@ if pranik > 0:
 		cumspclnt = 2
 		gs 'cum_cleanup'
 		fbreath = 0
-		fat += 50
+		fat += 4
 		frost = 0
 		gs 'stat'
 		'<center><img src="images/pics/food.jpg"></center>'

+ 5 - 21
locations/lager

@@ -1,6 +1,8 @@
 # lager
 $metka = $ARGS[0]
 $loc = $CURLOC
+$metkaM = $ARGS[0]
+$locM = $CURLOC
 $metkaStreet = $ARGS[0]
 $locStreet = $CURLOC
 cla
@@ -13,7 +15,7 @@ music_on = 0
 '<center><img src="images/qwest/lager/lager.jpg"></center>'
 
 if hour=8:
-	'Now the camp ruler and all lined up at the site until the counselor checks everything is in place.'
+	'Now the camp ruler and all lined up at the site until the counsellor checks everything is in place.'
 	act'On the line':
 		cls
 		minut+=60
@@ -27,26 +29,8 @@ end
 if hour=9:
 	'Now the camp began Breakfast.'
 	act'Go for breakfast':
-		cls
-		minut+=60
-		frost = 0
-		health = health + 10
-		manna = manna + 20
-		wipo += 5
-		gs'stat'
-		'<center><img src="images/pics/food.jpg"></center>'
-		if energy >= 100:
-			fat += 5
-		elseif energy >= 80:
-			fat += 3
-			energy += 40
-		elseif energy < 20:
-			energy += 80
-		 end
-		gs'stat'
-		'You went along with all of the dining room and breakfast.'
-		act'Move away':gt $curloc
-	end
+	minut += 30
+	gs 'food', 'm_meal'
 end
 
 if hour=10:

+ 3 - 32
locations/lakecafe

@@ -1,5 +1,7 @@
 # lakecafe
 if $ARGS[0] = 'main':
+	$metkaM = $ARGS[0]
+	$locM = $CURLOC
 	cla
 	*clr
 	barrnd = rand(1, 3)
@@ -55,39 +57,8 @@ if $ARGS[0] = 'main':
 
 		if money >= 75:
 			act 'Eat (75 rubles)':
-				cla
-				*clr
-				minut += 30
-				health += 10
 				money -= 75
-				manna += 5
-				willpower += 5
-				'<center><img src="images/pics/food.jpg"></center>'
-
-				if energy >= 100:
-					fat += 5
-					'You can no longer eat.'
-				elseif energy >= 80:
-					fat += 3
-					energy += 40
-					'You pushed through the power of a meal.'
-				else
-					energy += 80
-					fat += 1
-					'You gladly ate the food.'
-				end
-
-				if water >= 80:
-					'You don''t need any more tea.'
-				elseif water < 80:
-					water += 80
-					cumspclnt = 2
-					gs 'cum_cleanup'
-					fbreath = 0
-					'You gladly drank a cup of tea.'
-				end
-
-				act 'Get up from the table':minut += 20 & gt 'lakecafe', 'main'
+				gs 'food', 'm_meal'
 			end
 		end
 	end

+ 3 - 2
locations/lesbidomhouse1

@@ -859,8 +859,9 @@ elseif mistbondage = 3:
 	cla
 	*clr
 	minut += 15
-	energy += 80
-	fat += 1
+	energy += 60
+	water += 60
+	fat += 2
 	frost = 0
 	health += 10
 	manna += 5

+ 1 - 1
locations/mother

@@ -426,7 +426,7 @@ if hour > 5:
 								cheap[numrand] = 1
 								cheapH[numrand] = 50
 								cheapB[numrand] = bedra
-								'<center><img src="images/Clothing/2average/Average<<numrand>>.jpg"></center>'
+								'<center><img src="images/Clothing/1cheap/Cheap<<numrand>>.jpg"></center>'
 							else
 								jump 'markbuyclomother'
 							end

+ 1 - 1
locations/nastja

@@ -455,7 +455,7 @@ if $ARGS[0] = 'pos24':
 	cla
 	*clr
 	minut += 120
-	energy = 2
+	energy = 10
 	manna = manna + 10
 	willpower = willpower + 10
 	alko += 2

+ 3 - 30
locations/office

@@ -544,6 +544,8 @@ if $ARGS[0] = 'kor':
 end
 
 if $ARGS[0] = 'kuh':
+	$metkaM = $ARGS[0]
+	$locM = $CURLOC
 	cla
 	*clr
 	minut += 5
@@ -599,36 +601,7 @@ if $ARGS[0] = 'kuh':
 	'<center><img src="images/etogame/kuh.jpg"></center>'
 
 	if hour < 17:
-		act 'Eat':
-			minut += 30
-			health += 10
-			manna += 5
-			willpower += 5
-
-			if energy >= 100:
-				fat += 5
-				'You can no longer eat.'
-			elseif energy >= 80:
-				fat += 3
-				energy += 40
-				'You pushed through the power of a meal.'
-			else
-				energy += 80
-				fat += 1
-				'You gladly ate the food.'
-			end
-
-			if water >= 80:
-				'You don''t need any more tea.'
-			elseif water < 80:
-				water += 80
-				cumspclnt = 2
-				gs 'cum_cleanup'
-				fbreath = 0
-				'You gladly drank a mug of tea.'
-			end
-		end
-
+		act 'Eat':gs 'food', 'm_meal'
 		act 'Corridor':gt 'office', 'kor'
 	elseif hour >= 17:
 		act 'Leave work':gt 'down'

+ 18 - 31
locations/park

@@ -210,24 +210,17 @@ if $ARGS[0] = 'luna':
 			act 'Eat Shawarma (50 rubles)':
 				cla
 				*clr
-				minut += 30
+				gs 'stat'
+				minut += 15
 				health += 10
-				money -= 50
-				manna += 5
-				willpower += 5
+				manna += 20
+				fat += 2
+				energy += 30
+				cumspclnt = 2
+				gs 'cum_cleanup'
+				fbreath = 0
 				'<center><img src="images/etogame/luna1.jpg"></center>'
-				if energy >= 100:
-					fat += 7
-					'You can''t eat one more bite.'
-				elseif energy >= 80:
-					fat += 5
-					energy += 40
-					'While you weren''t really hungry, you ate the entire dish of shawarma.'
-				else
-					energy += 80
-					fat += 3
-					'You are glad you finally got something to eat.'
-				end
+				'You enjoy the shawarma.'
 
 				act 'Move away':gt 'park', 'luna'
 			end
@@ -235,23 +228,17 @@ if $ARGS[0] = 'luna':
 			act 'Drink Lemonade (50 rubles)':
 				cla
 				*clr
-				minut += 30
+				gs 'stat'
+				minut += 5
 				health += 10
-				money -= 50
-				manna += 5
-				willpower += 5
+				manna += 20
+				fat += 1
+				water += 40
+				cumspclnt = 2
+				gs 'cum_cleanup'
+				fbreath = 0
 				'<center><img src="images/etogame/luna1.jpg"></center>'
-				if water >= 80:
-					fat += 3
-					'You weren''t really thristy, but you still emptied the bottle of lemonade.'
-				else
-					fat += 2
-					'Finally you got something to drink, even if it''s just a bottle of lemonade.'
-					water += 80
-					cumspclnt = 2
-					gs 'cum_cleanup'
-					fbreath = 0
-				end
+				'You happily drink the refreshing lemonade.'
 
 				act 'Move away':gt 'park', 'luna'
 			end

+ 8 - 8
locations/restoran

@@ -73,12 +73,12 @@ if $ARGS[0] = 'zal':
 		act 'Eat (5,000 rubles)':
 			cla
 			minut += 60
-			energy = 100
-			fat += 5
+			energy += 60
+			fat += 2
 			water = 100
 			willpower += 30
-			manna = manna + 80
-			health = health + 20
+			manna += 80
+			health += 20
 			money -= 5000
 			'On the recommendation of a chef, a wonderful dish you ordered and ate with pleasure in a noisy restaurant hall.'
 
@@ -106,12 +106,12 @@ if $ARGS[0] = 'vip':
 		act 'Eat (5,000 rubles)':
 			cla
 			minut += 60
-			energy = 100
-			fat += 5
+			energy += 60
+			fat += 2
 			water = 100
 			willpower += 30
-			manna = manna + 100
-			health = health + 20
+			manna += 80
+			health += 20
 			money -= 5000
 			gs 'stat'
 			'On the recommendation of a chef, a wonderful dish you ordered and ate with pleasure in the cozy vip room of the restaurant.'

+ 4 - 28
locations/restoranM

@@ -36,7 +36,7 @@ end
 
 if $ARGS[0] = 'a':
 	minut += 30
-	fat += 1
+	alko += 1
 	'Finally you brought food. <<$boyA>> pour you wine and proposed a toast to love.'
 
 	act 'Eat':
@@ -46,36 +46,12 @@ if $ARGS[0] = 'a':
 end
 
 if $ARGS[0] = 'b':
-	minut += 30
-	fat += 1
-
-	if energy >= 100:
-		fat += 5
-		'You can no longer eat.'
-	elseif energy >= 80:
-		fat += 3
-		energy += 40
-		'You pushed through the power of a meal.'
-	else
-		energy += 80
-		fat += 1
-		'You gladly ate the food.'
-	end
+	$metkaM = $ARGS[0]
+	$locM = $CURLOC
 
-	if water >= 80:
-		'You don''t need any more tea.'
-	elseif water < 80:
-		water += 80
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
-		'You gladly drank a cup of tea.'
-	end
 
+	gs 'food', 'dyn_meal'
 	alko += 2
-	cumspclnt = 2
-	gs 'cum_cleanup'
-	fbreath = 0
 	gs 'stat'
 	'After some time with food and wine, and was done with <<$boyA>> proposed to hold you.'
 

+ 3 - 3
locations/saunaroom

@@ -24,9 +24,9 @@ if workDolg > 0:
 		workDolg += 50
 		health += 30
 		manna += 100
-		energy = 100
-		water = 100
-		fat += 50
+		energy += 60
+		water += 60
+		fat += 3
 		! salo += 1
 		frost = 0
 		gs 'stat'

+ 3 - 5
locations/shop

@@ -660,15 +660,13 @@ if $shoplocation = 'icecream':
 		act 'Buy ice cream':
 			cls
 			money -= 50
-			fat += 50
+			fat += 3
 			manna += 500
-			water = 100
-			energy = 100
+			water += 60
+			energy = 30
 			cumspclnt = 2
 			gs 'cum_cleanup'
 			fbreath = 0
-			!! perkice is currently only ever referenced in stat and only then to decrement itself if > 0, so it does not currently do anything
-			!perkice += 1
 			gs 'stat'
 			'<center><img src="images/etogame/icecreem.jpg"></center>'
 			'You bought ice cream and ate it not going far.'

+ 10 - 17
locations/shulgakuh

@@ -135,23 +135,16 @@ $holodil = {
 			sup_count -= 1
 			gs'stat'
 			'<center><img src="images/zsoft/pod_ezd/shulgahome/kuh/sup.jpg"></center>'
-			if energy >= 100:
-				fat += 1
-				'You can no longer have.'
-			elseif energy >= 80:
-				fat += 3
-				energy += 20
-				health += 5
-				manna += 5
-				'You pushed him through the power of a bowl of soup.'
-			else
-				energy += 20
-				health += 10
-				manna += 10
-				!fat = fat + 1
-
-				'You will be happy to eat a bowl of soup.'
-			end
+			health += 10
+			manna += 20
+			fat += 2
+			energy += 20
+			water += 40
+			cumspclnt = 2
+			gs 'cum_cleanup'
+			fbreath = 0
+
+			'You happily eat a bowl of soup.'
 
 			act 'Further': dynamic $holodil
 		end	

+ 9 - 22
locations/sitrPar

@@ -28,19 +28,13 @@ elseif month = 12 and day = 31 and hour >= 20:
 		sister = 100
 		brother = 100
 		money += 5000
-		salo += 5
-		fat += 10
 		hour = 23
 		minut = 0
 		minut += 120
 		son = 0
 		manna += 1000
 		wipo += 1000
-		energy += 150
-		water += 150
-		cumspclnt = 2
-		gs 'cum_cleanup'
-		fbreath = 0
+		gs 'food', 'l_meal'
 		gs 'stat'
 		'You sit at the festive table laid in front of the TV and celebrate the New Year with your family, the TV providing some background noise. At the table people strike up a conversation and common problems are forgotten for a while, everyone is having fun talking to each other. At midnight, everyone wishes one another a happy New Year and enjoys the champagne and fireworks outside. Your mom gives you an envelope with a greeting card and five thousand rubles. For a while you continue to watch TV, enjoying the champagne and company of your family, but after a while everyone is kind of tired and one by one they go to bed.'
 
@@ -52,21 +46,14 @@ elseif month = 1 and day = 1:
 		*clr
 		frost = 0
 		minut += 15
-		if energy >= 100:
-			fat = fat + 5
-			'You''re full and cannot eat any more.'
-		else
-			'You eat the remaining snacks that are still on the table from the holidays.'
-			health += 10
-			manna += 20
-			energy = 100
-			water = 100
-			fbreath = 0
-			cumspclnt = 2
-			gs 'cum_cleanup'
-			salo += 1
-			fat += 3
-		end
+		health += 10
+		manna += 20
+		fat += 2
+		energy += 20
+		water += 20
+		cumspclnt = 2
+		gs 'cum_cleanup'
+		fbreath = 0
 
 		gs 'stat'
 		'<center><img src="images/pics/food.jpg"></center>'

+ 1 - 1
locations/sny

@@ -139,7 +139,7 @@ if snyqw = 0:
 		minut += 30
 		fat += 3
 		energy += 40
-		water += 80
+		water += 60
 		gs 'stat'
 		'Within half an hour all clinked cups drinking tea and buns devoured. Finally all ate and teacher putting a tape recorder on the table said "Now cool disco." From the speakers the music started. All began to slowly get up from behind the desk.'
 

+ 46 - 72
locations/trFatherMisha

@@ -57,86 +57,60 @@ if trfatherMishaQW = 1:
 	- Hey dad, well? Take time to his daughter in his busy schedule?
 	Dad quickly leads herself up and go to the offers...'
 	act 'The kebab':
-		cls
-		minut += 30
-		health = health + 10
-		manna = manna + 20
-		if energy >= 100:
-			fat += 5
-		elseif energy >= 80:
-			fat += 3
-			energy += 40
-		elseif energy < 20:
-			energy += 80
-		end
-		if water < 80:
-			water += 80
-			cumspclnt = 2
-			gs 'cum_cleanup'
-			fbreath = 0
-		end
+		gs 'food', 'dynf_food'
 		gs'stat'
-		'<center><img src="images/qwest/alter/trfatherQW/trfatherQW_17.jpg"></center>'
-		'The last time you had to tell a lot about myself and about the family, but we did not know about the new life of his father.
-		- My mother told me, you zabuhal,and you go on swearing, and after all this, she filed for divorce, All this is true?
-		- I knew, that your mother will tell a lot about me nasty, but you must understand, not all of it is true.
-		And your father looked at you with sad eyes...'
-		act 'Support':
-			cls
-			minut += 5
-			gs'stat'
-			'<center><img src="images/qwest/alter/trfatherQW/trfatherQW_19.jpg"></center>'
-			'You have decided to support the father, gently touching his palm of his hand.
-			- Yes, everything is normal dad, I believe you possibly where mom-then we all embellished, So what happened?
-			- So it was difficult at the time, Your mother always rushed at me, there is nothing to keep the family, and I gave her that earned. Since the conflict for conflict, we were cold to each other, often she began to disappear in the evening, and I was sure,at that time it changed with anyone -then. And I began to spend more time with friends, Yes drank a little, but you understand me, not a good life...'
-			trfatherMishaQW = 2
-			dynamic $fatherMisha_end
-		end
-		act 'Continue to ask':
-			cls
-			minut += 5
-			gs'stat'
+		act 'Talk':
+			*clr
+			cla
 			'<center><img src="images/qwest/alter/trfatherQW/trfatherQW_17.jpg"></center>'
-			'You have become more questioning of his father and he went:
-			- So it was difficult at the time, Your mother always rushed at me, there is nothing to keep the family, and I gave her that earned. Since the conflict for conflict, we were cold to each other, often she began to disappear in the evening, and I was sure,at that time it changed with anyone -then. And I began to spend more time with friends, Yes drank a little, but you understand me, not a good life...'
-			dynamic $fatherMisha_end
+			'The last time you had to tell a lot about myself and about the family, but we did not know about the new life of his father.
+			- My mother told me, you zabuhal,and you go on swearing, and after all this, she filed for divorce, All this is true?
+			- I knew, that your mother will tell a lot about me nasty, but you must understand, not all of it is true.
+			And your father looked at you with sad eyes...'
+			act 'Support':
+				cls
+				minut += 5
+				gs'stat'
+				'<center><img src="images/qwest/alter/trfatherQW/trfatherQW_19.jpg"></center>'
+				'You have decided to support the father, gently touching his palm of his hand.
+				- Yes, everything is normal dad, I believe you possibly where mom-then we all embellished, So what happened?
+				- So it was difficult at the time, Your mother always rushed at me, there is nothing to keep the family, and I gave her that earned. Since the conflict for conflict, we were cold to each other, often she began to disappear in the evening, and I was sure,at that time it changed with anyone -then. And I began to spend more time with friends, Yes drank a little, but you understand me, not a good life...'
+				trfatherMishaQW = 2
+				dynamic $fatherMisha_end
+			end
+			act 'Continue to ask':
+				cls
+				minut += 5
+				gs'stat'
+				'<center><img src="images/qwest/alter/trfatherQW/trfatherQW_17.jpg"></center>'
+				'You have become more questioning of his father and he went:
+				- So it was difficult at the time, Your mother always rushed at me, there is nothing to keep the family, and I gave her that earned. Since the conflict for conflict, we were cold to each other, often she began to disappear in the evening, and I was sure,at that time it changed with anyone -then. And I began to spend more time with friends, Yes drank a little, but you understand me, not a good life...'
+				dynamic $fatherMisha_end
+			end
 		end
 	end
 	act 'In bystroeshku':
-		cls
-		minut += 30
-		health += 10
-		manna += 20
-		if energy >= 100:
-			fat += 5
-		elseif energy >= 80:
-			fat += 3
-			energy += 40
-		else
-			energy += 80
-		end
-		if water < 80:
-			water += 80
-			cumspclnt = 2
-			gs 'cum_cleanup'
-			fbreath = 0
-		end
+		gs 'food', 'dynf_food'
 		gs'stat'
-		'<center><img src="images/qwest/alter/trfatherQW/trfatherQW_20.jpg"></center>'
-		'You and his father decided to dine at bystroeshke.
-		- Well <<$name>>, childhood with a father you never had, so let me now your little treat.
-		- Of course popes, Now you just have to give her daughter a lot of attention, just because of you I have not disengaged.
-		You ordered a lot of tasty and useful, and continued the conversation with his father. And suddenly I came to your table girl.'
-		act 'Look back':
+		act 'Talk':
 			cls
-			minut += 5
 			gs'stat'
-			'<center><img src="images/qwest/alter/trfatherQW/trfatherQW_21.jpg"></center>'
-			'- Hello, Today we share bystroeshke: The most beautiful pair of free repeat of the first order.
-			- Would you like to bring today, or wrapped with?
-			Suddenly your father jerked, probably wanted to say, that you are not a couple, but you noticed it was stopped and smiled sweetly waitress...
-			- Do not give the same, Yes, and let them think, we couple, What`s so?'
-			dynamic $fatherMisha_end
+			'<center><img src="images/qwest/alter/trfatherQW/trfatherQW_20.jpg"></center>'
+			'You and his father decided to dine at bystroeshke.
+			- Well <<$name>>, childhood with a father you never had, so let me now your little treat.
+			- Of course popes, Now you just have to give her daughter a lot of attention, just because of you I have not disengaged.
+			You ordered a lot of tasty and useful, and continued the conversation with his father. And suddenly I came to your table girl.'
+			act 'Look back':
+				cls
+				minut += 5
+				gs'stat'
+				'<center><img src="images/qwest/alter/trfatherQW/trfatherQW_21.jpg"></center>'
+				'- Hello, Today we share bystroeshke: The most beautiful pair of free repeat of the first order.
+				- Would you like to bring today, or wrapped with?
+				Suddenly your father jerked, probably wanted to say, that you are not a couple, but you noticed it was stopped and smiled sweetly waitress...
+				- Do not give the same, Yes, and let them think, we couple, What`s so?'
+				dynamic $fatherMisha_end
+			end
 		end
 	end
 elseif trfatherMishaQW = 2:

+ 1 - 1
locations/vipclub

@@ -12,7 +12,7 @@ if $ARGS[0] = 'start':
 		act 'Cocktails':
 			*clr
 			minut += 15
-			alko += 
+			alko += 4
 			cumspclnt = 2
 			gs 'cum_cleanup'
 			fbreath = 0

+ 5 - 31
locations/worksalon

@@ -1,5 +1,7 @@
 # worksalon
 if $ARGS[0] = 'start':
+	$metkaM = $ARGS[0]
+	$locM = $CURLOC
 	$sexloc = $CURLOC
 	gs 'stat'
 	'<center><b><font color="maroon">Beauty</font></b></center>'
@@ -34,37 +36,9 @@ if $ARGS[0] = 'start':
 		gt 'worksalon', 'start'
 	end
 
-	act 'Have a snack (0:30)':
-		minut += 30
-		health += 10
-		manna += 5
-		willpower += 5
-
-		if energy >= 100:
-			fat += 5
-			'You can no longer eat.'
-		elseif energy >= 80:
-			fat += 3
-			energy += 40
-			'You force down the meal.'
-		else
-			energy += 80
-			fat += 1
-			'You gladly ate the food.'
-		end
-
-		if water >= 80:
-			'You don''t need any more tea.'
-		elseif water < 80:
-			water += 80
-			cumspclnt = 2
-			gs 'cum_cleanup'
-			fbreath = 0
-			'You gladly drank a mug of tea.'
-		end
-
-		gs 'stat'
-	end
+	act 'Have a snack (0:15)':gs 'food', 'snack'
+	
+	act 'Eat a light meal (0:20)':gs 'food', 's_meal'
 
 	if masha > 0:
 		act 'Chat with Masha':

+ 4 - 39
locations/ykuh

@@ -58,12 +58,12 @@ if pranik > 0:
 		pranik -= 1
 		health += 30
 		manna += 100
-		energy = 100
-		water = 100
+		energy += 60
+		water += 60
 		cumspclnt = 2
 		gs 'cum_cleanup'
 		fbreath = 0
-		fat += 50
+		fat += 4
 		frost = 0
 		gs 'stat'
 		'<center><img src="images/pics/food.jpg"></center>'
@@ -73,42 +73,7 @@ if pranik > 0:
 	end
 end
 
-if edaD > 0:
-	'In the refrigerator is some healthy meals that''s good for <b><<edaD>></b> servings.'
-
-	act 'Cook some dietary food (0:30)':
-		cla
-		*clr
-		frost = 0
-		minut += 30
-		health += 10
-		manna += 20
-		edaD -= 1
-		'<center><img src="images/pics/food.jpg"></center>'
-
-		if energy >= 100:
-			'You can no longer eat.'
-		elseif energy >= 80:
-			energy += 40
-			'You are not hungry but you ate it anyway.'
-		else
-			energy += 80
-			'You gladly ate some cooked food.'
-		end
-
-		if water >= 80:
-			'You don''t want to drink anymore.'
-		else
-			water += 80
-			cumspclnt = 2
-			gs 'cum_cleanup'
-			fbreath = 0
-			'You gladly drank a mug of tea.'
-		end
-
-		act 'Get up from the table':gt $curloc
-	end
-end
+dynamic $edaD
 
 if fatdel > 0:
 	act 'Consume fat burners':