Added a random event to the therapist which forces Sveta to stay skinny. I've also fixed a number of bugs in the therapist.

locations/food.qsrc

@@ -15,6 +15,10 @@ if $ARGS[0] = 'pirosh':
 	frost = 0
 	minut += 15
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/pirozhki.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 5
 	pcs_mood += 5
 	fat += 4
@@ -28,11 +32,15 @@ if $ARGS[0] = 'pirosh':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/pirozhki.jpg"></center>'
+	'<<$food_img>>'
 	'You enjoy some vegetarian Piroshki, and <<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -45,6 +53,10 @@ if $ARGS[0] = 'golub':
 	frost = 0
 	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/golubtsy.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	pcs_mood += 5
 	fat += 8
@@ -58,11 +70,15 @@ if $ARGS[0] = 'golub':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/golubtsy.jpg"></center>'
+	'<<$food_img>>'
 	'You enjoy some well made Golubtsy in a tomato sauce. The portions were moderate and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -75,6 +91,10 @@ if $ARGS[0] = 'pozhar':
 	frost = 0
 	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/pozharsky.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 15
 	pcs_mood += 10
 	fat += 6
@@ -88,11 +108,15 @@ if $ARGS[0] = 'pozhar':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/pozharsky.jpg"></center>'
+	'<<$food_img>>'
 	'You thoroughly enjoy the nicely cooked Pozharsky Cutlets. The portions were moderate and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -105,6 +129,10 @@ if $ARGS[0] = 'reuben':
 	frost = 0
 	minut += 25
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/reuben.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 20
 	pcs_mood += 25
 	fat += 12
@@ -118,11 +146,15 @@ if $ARGS[0] = 'reuben':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/reuben.jpg"></center>'
+	'<<$food_img>>'
 	'You had trouble finishing the Rueben Sandwich, but you enjoyed it immensely. The portion was fairly large and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -135,6 +167,10 @@ if $ARGS[0] = 'bliny':
 	frost = 0
 	minut += 15
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/blini.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	pcs_mood += 5
 	fat += 8
@@ -148,11 +184,15 @@ if $ARGS[0] = 'bliny':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/blini.jpg"></center>'
+	'<<$food_img>>'
 	'You eat some bliny. The portions are fairly small and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -165,6 +205,10 @@ if $ARGS[0] = 'varenfan':
 	frost = 0
 	minut += 25
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/varenikifancy.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 15
 	pcs_mood += 15
 	fat += 10
@@ -177,11 +221,15 @@ if $ARGS[0] = 'varenfan':
 	cumspclnt = 2
 	gs 'cum_cleanup'
 	pcs_breath = 0
-	'<center><img <<$set_imgh>> src="images/shared/food/varenikifancy.jpg"></center>'
+	'<<$food_img>>'
 	'You sit and eat a plate of yummy Vareniki with potatoes. The portions are fairly moderate and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -194,6 +242,10 @@ if $ARGS[0] = 'salfan':
 	frost = 0
 	minut += 40
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/salmonfancy.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 20
 	pcs_mood += 20
 	fat += 12
@@ -207,11 +259,15 @@ if $ARGS[0] = 'salfan':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/salmonfancy.jpg"></center>'
+	'<<$food_img>>'
 	'You thoroughly enjoy the massive fresh salmon steak. The meal was simply colossal and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -224,6 +280,10 @@ if $ARGS[0] = 'strofan':
 	frost = 0
 	minut += 35
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/stroganofffancy.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 20
 	pcs_mood += 30
 	fat += 6
@@ -237,11 +297,15 @@ if $ARGS[0] = 'strofan':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/stroganofffancy.jpg"></center>'
+	'<<$food_img>>'
 	'You are loving the delicious Beef Stroganoff. You enjoy it immensely. The portion was fairly moderate and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -254,6 +318,10 @@ if $ARGS[0] = 'borfan':
 	frost = 0
 	minut += 25
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/borschtfancy.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	pcs_mood += 25
 	fat += 4
@@ -267,11 +335,15 @@ if $ARGS[0] = 'borfan':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/borschtfancy.jpg"></center>'
+	'<<$food_img>>'
 	'You a steaming hot bowel of Borscht. The portions are fairly small and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -284,6 +356,10 @@ if $ARGS[0] = 'blifan':
 	frost = 0
 	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/blinifancy.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 30
 	pcs_mood += 40
 	fat += 6
@@ -297,11 +373,15 @@ if $ARGS[0] = 'blifan':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/blinifancy.jpg"></center>'
+	'<<$food_img>>'
 	'You eat a petite caviar bliny appetiser. The portions are fairly small and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -314,6 +394,10 @@ if $ARGS[0] = 'ryesna':
 	frost = 0
 	minut += 10
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/ryesnack.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 5
 	pcs_mood += 10
 	fat += 4
@@ -327,11 +411,15 @@ if $ARGS[0] = 'ryesna':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/ryesnack.jpg"></center>'
+	'<<$food_img>>'
 	'You have a tasty bowel of toasted rye snacks. The portions are fairly small and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -344,6 +432,10 @@ if $ARGS[0] = 'crisps':
 	frost = 0
 	minut += 10
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/crisps.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 5
 	pcs_mood += 20
 	fat += 16
@@ -357,11 +449,15 @@ if $ARGS[0] = 'crisps':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/crisps.jpg"></center>'
+	'<<$food_img>>'
 	'You enjoy the salty flavour of a bowl of crisps. The portions are fairly small and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -374,6 +470,10 @@ if $ARGS[0] = 'onring':
 	frost = 0
 	minut += 10
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/onionrings.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	pcs_mood += 5
 	fat += 16
@@ -387,11 +487,15 @@ if $ARGS[0] = 'onring':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/onionrings.jpg"></center>'
+	'<<$food_img>>'
 	'You push yourself to eat the dry fatty onion rings. The portions are fairly small and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -404,6 +508,10 @@ if $ARGS[0] = 'vegburg':
 	frost = 0
 	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/vegieburger.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 20
 	pcs_mood += 10
 	fat += 8
@@ -417,11 +525,15 @@ if $ARGS[0] = 'vegburg':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/vegieburger.jpg"></center>'
+	'<<$food_img>>'
 	'You eat the delicious vegieburger. The portions are fairly small and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -434,6 +546,10 @@ if $ARGS[0] = 'turburg':
 	frost = 0
 	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/turkeyburger.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	pcs_mood += 10
 	fat += 10
@@ -447,11 +563,15 @@ if $ARGS[0] = 'turburg':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/turkeyburger.jpg"></center>'
+	'<<$food_img>>'
 	'You enjoy the turkey burger. The portions are fairly small and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -464,6 +584,10 @@ if $ARGS[0] = 'batfish':
 	frost = 0
 	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/batteredfish.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 15
 	pcs_mood += 15
 	fat += 11
@@ -477,11 +601,15 @@ if $ARGS[0] = 'batfish':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/batteredfish.jpg"></center>'
+	'<<$food_img>>'
 	'You eat the fish, but it has little flavour. The portions were moderate and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -494,6 +622,10 @@ if $ARGS[0] = 'cheburg':
 	frost = 0
 	minut += 25
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/cheeseburger.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 20
 	pcs_mood += 20
 	fat += 14
@@ -507,11 +639,15 @@ if $ARGS[0] = 'cheburg':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/cheeseburger.jpg"></center>'
+	'<<$food_img>>'
 	'You are a little sickened by the greasy looking cheeseburger and fries in front of you. The meal was simply colossal and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -524,6 +660,10 @@ if $ARGS[0] = 'snack':
 	gs 'stat'
 	minut += 5
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	pcs_mood += 20
 	fat += 6
@@ -531,11 +671,15 @@ if $ARGS[0] = 'snack':
 	cumspclnt = 2
 	gs 'cum_cleanup'
 	pcs_breath = 0
-	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	'<<$food_img>>'
 	'You enjoy a small tasty, but somewhat fattening, snack. It wasn''t very much food, and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -548,6 +692,10 @@ if $ARGS[0] = 'f_food':
 	frost = 0
 	minut += 10
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	fat += 14
 	pcs_energy += 70
@@ -560,11 +708,15 @@ if $ARGS[0] = 'f_food':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	'<<$food_img>>'
 	'You happily eat some fast food. The portions are quite generous and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -577,6 +729,10 @@ if $ARGS[0] = 's_meal':
 	frost = 0
 	minut += 10
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	fat += 4
 	pcs_energy += 40
@@ -589,11 +745,15 @@ if $ARGS[0] = 's_meal':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	'<<$food_img>>'
 	'You happily eat your meal. The portions are fairly small and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -606,6 +766,10 @@ if $ARGS[0] = 'm_meal':
 	frost = 0
 	minut += 15
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	fat += 8
 	pcs_energy += 60
@@ -618,12 +782,16 @@ if $ARGS[0] = 'm_meal':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	'<<$food_img>>'
 	'You thoroughly enjoy the nicely cooked meal. The portions were moderate and<<$mtxt>>'
 	'You accompany it with a mug of tea.'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -636,6 +804,10 @@ if $ARGS[0] = 'l_meal':
 	frost = 0
 	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	fat += 14
 	pcs_energy += 100
@@ -648,11 +820,15 @@ if $ARGS[0] = 'l_meal':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	'<<$food_img>>'
 	'You are almost overwhelmed by the delicious meal laid before you and enjoy it immensely. The meal was simply colossal and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -665,6 +841,10 @@ if $ARGS[0] = 'bag_lunch':
 	frost = 0
 	minut += 15
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	fat += 5
 	pcs_energy += 40
@@ -677,10 +857,14 @@ if $ARGS[0] = 'bag_lunch':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
+	'<<$food_img>>'
 	'You eat the lunch you packed from home. There was nothing fancy about it and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
+
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
 end
 
 if $ARGS[0] = 'h_food':
@@ -688,6 +872,10 @@ if $ARGS[0] = 'h_food':
 	frost = 0
 	minut += 25
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/roomservice.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	fat += 7
 	money -= 100
@@ -701,12 +889,16 @@ if $ARGS[0] = 'h_food':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/roomservice.jpg"></center>'
+	'<<$food_img>>'
 	'The maid brings you a decent meal,<<$mtxt>>'
 	'You accompany it with a mug of tea.'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -719,6 +911,10 @@ if $ARGS[0] = 'h_meal':
 	frost = 0
 	minut += 25
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/shared/food/eating-salad.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 20
 	fat += 1
 	pcs_energy += 50
@@ -731,11 +927,15 @@ if $ARGS[0] = 'h_meal':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/shared/food/eating-salad.jpg"></center>'
+	'<<$food_img>>'
 	'You enjoy a crisp salad of fresh greens and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -748,6 +948,10 @@ if $ARGS[0] = 'jerky':
 	frost = 0
 	minut += 10
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/jerky_mix.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	fat += 1
 	pcs_hydra -= 15
@@ -756,11 +960,15 @@ if $ARGS[0] = 'jerky':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/jerky_mix.jpg"></center>'
+	'<<$food_img>>'
 	'You munch on some dried meat and trail mix. Not a full hot meal by any means but it''s better than nothing, and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -773,6 +981,10 @@ if $ARGS[0] = 'meat_stew':
 	frost = 0
 	minut += 30
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	fat += 3
 	pcs_energy += 50
@@ -785,12 +997,16 @@ if $ARGS[0] = 'meat_stew':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
+	'<<$food_img>>'
 	'You thoroughly enjoy the nicely cooked meat stew, and <<$mtxt>>'
 	'You accompany it with a mug of tea.'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -803,6 +1019,10 @@ if $ARGS[0] = 'mush_soup':
 	frost = 0
 	minut += 30
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	fat += 3
 	pcs_energy += 40
@@ -815,12 +1035,16 @@ if $ARGS[0] = 'mush_soup':
 	gs 'cum_cleanup'
 	pcs_breath = 0
 	gs 'food', 'aftermeal'
-	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
+	'<<$food_img>>'
 	'You thoroughly enjoy some warm mushroom soup, and <<$mtxt>>'
 	'You accompany it with a mug of tea.'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -833,6 +1057,10 @@ if $ARGS[0] = 'bilberry':
 	gs 'stat'
 	minut += 15
 	money -= val($_eat['<<args[1]>>,price'])
+	$food_img = '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/bilberry.jpg"></center>'
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 5
 	pcs_mood += 10
 	fat += 1
@@ -841,11 +1069,15 @@ if $ARGS[0] = 'bilberry':
 	cumspclnt = 2
 	gs 'cum_cleanup'
 	pcs_breath = 0
-	'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/bilberry.jpg"></center>'
+	'<<$food_img>>'
 	'You ate a few berries, and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
 
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
+
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
 	else
@@ -856,6 +1088,9 @@ end
 if $ARGS[0] = 'family_meals':
 	frost = 0
 	minut += 20
+	if hypnoAteToday > 1:
+		jump 'hypnoNoFood'
+	end
 	pcs_health += 10
 	pcs_mood += 10
 	fat += iif($ARGS[1] = 'dinner', 8, 6)
@@ -870,6 +1105,10 @@ if $ARGS[0] = 'family_meals':
 	cumspclnt = 2
 	gs 'cum_cleanup'
 	pcs_breath = 0
+
+	if hypnoSchedule:
+		hypnoAteToday += 1
+	end
 end
 
 if $ARGS[0] = 'aftermeal':
@@ -883,7 +1122,26 @@ if $ARGS[0] = 'aftermeal':
 	elseif pcs_energy >= 40:
 		$mtxt = ' while you no longer feel like you are starving, you are still quite hungry - in fact, you could probably eat the same amount again and still have room for dessert.'
 	else
-		$mtxt = ' did nothing to appease your hunger, in fact, it only amde you want more.'
+		$mtxt = ' did nothing to appease your hunger, in fact, it only made you want more.'
+	end
+end
+
+if $ARGS[0] = 'hypno_food':
+	:hypnoNoFood
+	pcs_health += 5
+	pcs_energy += 5
+	pcs_hydra += 10
+	fat += 1
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	pcs_breath = 0
+	'<<$food_img>>'
+	'You pick at the food in front of you. You feel that you shouldn''t eat it. You''ve already eaten twice today and know it will only make you fatter. You don''t want that. You want to be pretty.'
+
+	if food_loc = 1:
+		act 'Finish': gt 'food_menu'
+	else
+		act 'Finish':gt $loc, $loc_arg
 	end
 end
 

locations/stat.qsrc

@@ -1261,5 +1261,11 @@ if therapistday ! daystart and remindedtherapyday ! daystart and hypnoSchedule =
 	gt 'therapist_reminder'
 end
 
+if hypnoSchedule and hypnoScheduleDayStart ! daystart:
+	hypnoScheduleDayStart = daystart
+	hypnoAteToday = 0
+	hypnoExercisedToday = 0
+end
+
 --- stat ---------------------------------
 

locations/therapist.qsrc

@@ -1481,10 +1481,19 @@ if $ARGS[0] = 'hypnoEnd':
 				$hypnoTxt1 = 'The doctor smiles jovially, his hand on your hip as he slowly escorts you out of his office. <br>You aren''t sure why, but something about what''s happening right now is strange, but you can''t remember why.'
 			end
 		else
-			'The doctor smiles jovially, his hand on your shoulder as he slowly escort you out of his office.'
+			$hypnoTxt1 = 'The doctor smiles jovially, as he slowly escorts you out of his office.'
+			if hypnoKissGoodbye = 1:
+				i = rand(2,4)
+				if i = 2:
+					$hypnoTxt2 = 'You stop Dr. Pavlov for a moment and kiss him deeply, intertwining your own tongue with his, mixing saliva. You enjoy kissing him. Eventually he pulls away from you. You thank him for the therapy session.'
+				elseif i = 3:
+					$hypnoTxt2 = 'You stop Dr. Pavlov for a moment and kiss him deeply, intertwining your own tongue with his, mixing saliva. You enjoy kissing him. Eventually he pulls away from you. You thank him for the therapy session.'
+				elseif i = 4:
+					$hypnoTxt2 = 'You stop Dr. Pavlov for a moment and kiss him deeply, intertwining your own tongue with his, mixing saliva. You enjoy kissing him. Eventually he pulls away from you. You thank him for the therapy session.'
+				end
+			end
 		end
 		$hypnoTxt3 = '"Please, visit me again if you have any further problems, I will be glad to help!" says Dr. Pavlov as a goodbye, taking your hands in his, patting them, then closing his door.<br>What a nice old man, you think to yourself.'
-
 	elseif hypnoTime < 7:
 		$hypnoTxt0 = 'When you wake up, you see your therapist smiling.<br>'
 		$hypnoTxt0 += '"Very good, Miss <<$pcs_lastname>>. How do you feel?"<br>'
@@ -1504,7 +1513,7 @@ if $ARGS[0] = 'hypnoEnd':
 				$hypnoTxt1 = 'The doctor smiles jovially, his hand on your hip, pulling you close as he slowly escorts you out of his office. <br>You aren''t sure why, but something about what''s happening right now is strange, but you can''t remember why.'
 			end
 		else
-			'The doctor smiles jovially, his hand on your shoulder as he slowly escort you out of his office.'
+			$hypnoTxt1 = 'The doctor smiles jovially, his hand on your shoulder as he slowly escort you out of his office.'
 		end
 		$hypnoTxt3 = '"Please, visit me again if you have any further problems, I will be glad to help!" says Dr. Pavlov as a goodbye, taking your hands in his, patting them, then closing his door. <br>What a nice old man, you think to yourself.'
 	elseif hypnoTime < 10:
@@ -1541,9 +1550,19 @@ if $ARGS[0] = 'hypnoEnd':
 				end
 			end
 		else
-			$hypnoTxt2 = 'The doctor smiles jovially, his hand on your shoulder as he slowly escort you out of his office.'
+			$hypnoTxt1 = 'The doctor smiles jovially, his hand on the small of your back as he slowly escorts you out of his office.'
+			if hypnoKissGoodbye = 1:
+				i = rand(2,4)
+				if i = 2:
+					$hypnoTxt2 = 'You stop Dr. Pavlov for a moment and kiss him deeply, intertwining your own tongue with his, mixing saliva. You enjoy kissing him. Eventually he pulls away from you. You thank him for the therapy session.'
+				elseif i = 3:
+					$hypnoTxt2 = 'You stop Dr. Pavlov for a moment and kiss him deeply, intertwining your own tongue with his, mixing saliva. You enjoy kissing him. Eventually he pulls away from you. You thank him for the therapy session.'
+				elseif i = 4:
+					$hypnoTxt2 = 'You stop Dr. Pavlov for a moment and kiss him deeply, intertwining your own tongue with his, mixing saliva. You enjoy kissing him. Eventually he pulls away from you. You thank him for the therapy session.'
+				end
+			end
 		end
-			$hypnoTxt3 = '"Please, visit me again if you have any further problems, I will be glad to help!" says Dr. Pavlov as a goodbye, taking your hands in his, patting them, then closes his door.<br>What a nice old man, you think to yourself.'
+		$hypnoTxt3 = '"Please, visit me again if you have any further problems, I will be glad to help!" says Dr. Pavlov as a goodbye, taking your hands in his, patting them, then closes his door.<br>What a nice old man, you think to yourself.'
 	else
 		hypnoAddict = 2
 		hypnoDay = daystart
@@ -1590,8 +1609,19 @@ if $ARGS[0] = 'hypnoEnd':
 				$hypnoTxt3 = '"Please, visit me again if you have any further problems, I will be glad to help!" says Dr. Pavlov as a goodbye, he looks around before swatting your ass, then he closes his door.<br>What a sweet old man, you think to yourself.'
 			end
 		else
-			$hypnoTxt3 = 'The doctor smiles jovially, his hand on your shoulder as he slowly escort you out of his office.<br>What a sweet old man, you think to yourself.'
+			$hypnoTxt1 = 'The doctor smiles jovially. He slowly escorts you out of his office with his arm around your waist and his hand on your hip.'
+			if hypnoKissGoodbye = 1:
+				i = rand(2,4)
+				if i = 2:
+					$hypnoTxt2 = 'You stop Dr. Pavlov for a moment and kiss him deeply, intertwining your own tongue with his, mixing saliva. You enjoy kissing him. Eventually he pulls away from you. You thank him for the therapy session.'
+				elseif i = 3:
+					$hypnoTxt2 = 'You stop Dr. Pavlov for a moment and kiss him deeply, intertwining your own tongue with his, mixing saliva. You enjoy kissing him. Eventually he pulls away from you. You thank him for the therapy session.'
+				elseif i = 4:
+					$hypnoTxt2 = 'You stop Dr. Pavlov for a moment and kiss him deeply, intertwining your own tongue with his, mixing saliva. You enjoy kissing him. Eventually he pulls away from you. You thank him for the therapy session.'
+				end
+			end
 		end
+		$hypnoTxt3 = 'Please, visit me again if you have any further problems, I will be glad to help!" says Dr. Pavlov as a goodbye, taking your hands in his, patting them, then closes his door.<br>What a nice old man, you think to yourself.'
 	end
 	cla
 	*clr
@@ -1711,8 +1741,25 @@ if $ARGS[0] = 'hypnoRandom':
 		act 'Continue':
 			gt 'therapist', 'hypnoEnd'
 		end
+	! sveta will now automatically regulate her weight for the therapist
+	elseif hypnoWeight ! 1 and pcs_bmi > 22:
+		cla
+		*clr
+		hypnoRandomCounter = 0
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
+		''
+		'"Listen <i>Cunt</i>, <font color=brown>You are fat. Much too fat. Being fat makes you look like an ugly cow. You want to be pretty. You will diet and exercise more to become skinny.</font>"'
+		''
+		'"Yes, <i>Master</i>."'
+		'He nods at you.'
+
+		act 'Continue':
+			gt 'therapist', 'hypnoEnd'
+		end
+
+		hypnoWeight = 1
 	! sveta will now wear a hairstyle he picks
-	elseif hypnoHairStyle ! 1:
+	elseif hypnoHairStyle ! 1 and rand(1, 3) = 1:
 		cla
 		*clr
 		hypnoRandomCounter = 0
@@ -1747,7 +1794,7 @@ if $ARGS[0] = 'hypnoRandom':
 
 		hypnoHairStyle = 1
 	! sveta will now hate wearing panties.
-	elseif hypnoPanty ! 1:
+	elseif hypnoPanty ! 1 and rand(1, 2) = 1:
 		cla
 		*clr
 		hypnoRandomCounter = 0
@@ -1865,7 +1912,7 @@ if $ARGS[0] = 'hypnoRandom':
 		hypnoRandomCounter = 0
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
 		''
-		'<font color="brown">"From now on, before you leave, you will feel that it is natural to kiss me before you leave as thanks for your therapy session. You won''t find anything wrong with this. Doing so will feel perfectly normal. When you kiss me, you will do so with enthusiasm. You will enjoy the kiss and you will prefer kissing with your tongue. When we are finished, you will thank me for the session.</font> Understand, <i>Cunt</i>?"'
+		'<font color="brown">"From now on, before you leave, you will feel that it is natural to kiss me as thanks for your therapy session. You won''t find anything wrong with this. Doing so will feel perfectly normal. When you kiss me, you will do so with enthusiasm. You will enjoy the kiss and you will prefer kissing with your tongue. When we are finished, you will thank me for the session.</font> Understand, <i>Cunt</i>?"'
 		'"Yes, <i>Master</i>."'
 		''
 		act 'Continue':
@@ -2046,7 +2093,7 @@ if $ARGS[0] = 'hypnoPerv':
 		'"Stop! You stupid bitch. If you walk out there naked you''ll just end up in jail and I''ll make nothing. Here put this on." He hands you a small bundle of clothes and some high heels.'
 		'"I''ll ask you to do this again in the future. When I do, you will put these clothes on first. Do you understand, stupid <i>Cunt</i>?"'
 		'"Yes, <i>Master</i>." You start putting the clothes on.'
-		'"Do whatever they tell you to do, but make sure you go to the gas station before you start asking anyone."'
+		'"Do whatever they tell you to do and be obedient. Make sure you go to the gas station before you start asking anyone."'
 		act 'Walk to the gas station':
 			'You leave the clinic and walk to the gas station.'
 			act 'Continue':
@@ -2074,6 +2121,12 @@ if $ARGS[0] = 'hypnoProstitute':
 	*clr
 	foundGuy = rand(0, 2)
 
+	if numHypnoProst = 0:
+		'You realize that you''ve fucked enough men for money.'
+		act 'Go to <i>Master</i>':
+
+		end
+	end
 	if foundGuy > 0:
 		hypnoProstGuy = rand(1,8)
 		if hypnoProstRand = 1:
@@ -2173,7 +2226,7 @@ if $ARGS[0] = 'hypnoProstitute':
 									cla
 									*clr
 									'You gather the bills he threw and then climb out of his car back out onto the pavement of the gas station where you hear the cum from your vagina splatter out onto the concrete.'
-									'You shut the door and as soon as you do, he''s already driving away. You are alone at the gas station, holding the <<hypnoProstRubles[1]>> rubles he payed you for the use of your body.'
+									'You shut the door and as soon as you do, he''s already driving away. You are alone at the gas station, holding the <<hypnoProstRubles[1]>> rubles he payed for the use of your body.'
 									act 'Continue waiting':
 										gt 'therapist', 'hypnoProstitute'
 									end
@@ -2212,8 +2265,7 @@ if $ARGS[0] = 'hypnoProstitute':
 								hypnoProstRubles[2] = 1500
 							end
 							'"Okay."'
-							hypnoMoney += hypnoProstRubles[2]
-							'"Okay then..."He reaches into his wallet and pulls out the cash and hands it to you. Then he opens the door to his car and offers for you to step in.'
+							'"Good, I''ll pay after." He opens the door to his car and motions for you to step in.'
 							act 'Get in':
 								cla
 								*clr
@@ -2247,7 +2299,7 @@ if $ARGS[0] = 'hypnoProstitute':
 											cla
 											*clr
 											'<<$img2>>'
-											$butt = dyneval('$result = <<''$pcs_butt_adj''+rand(1,2)>> ')
+											$butt = dyneval('$result = <<''$pcs_butt_adj''+ rand(1,2)>> ')
 											''
 											hypnoProstTimes += 1
 											'He fucks your pussy hard and fast. The car fills with the sound of his hips slapping against your <<$butt>> and the squelching of your wet pussy.'
@@ -2260,6 +2312,19 @@ if $ARGS[0] = 'hypnoProstitute':
 												act 'Continue':
 													cla
 													*clr
+													i = rand(1,3)
+													if i = 1:
+														'"You were a good fuck" he says and hands you the money. <<hypnoProstRubles[2]>> rubles for the use of your body.'
+														hypnoMoney += hypnoProstRubles[2]
+													elseif i = 2:
+														hypnoProstRubles[2] = hypnoProstRubles[2]/5
+														'"You were okay, coulda been better." he says and hands you the money. He hands you what looks to be half what you had agreed on, <<hypnoProstRubles[2]>> rubles for the use of your body.'
+														hypnoMoney += hypnoProstRubles[2]
+													else
+														hypnoProstRubles[2] = hypnoProstRubles[2]/5
+														'"Honestly, that wasn''t as good as I though it would be. It was like fucking a dead fish." He hands you a fraction of what you had agreed on, <<hypnoProstRubles[2]>> rubles'
+														hypnoMoney += hypnoProstRubles[2]
+													end
 													'You dress and step out of the car. The man drives away, leaving you alone at the gas station.'
 													
 													act 'Continue waiting':
@@ -2292,7 +2357,9 @@ if $ARGS[0] = 'hypnoProstitute':
 					if hypnoProstRubles[2] > 100: hypnoProstRubles[2] -= rand(1,9) * 10
 					if hypnoProstRubles[2] < 100: hypnoProstRubles[2] = 100
 					hypnoMoney += hypnoProstRubles[2]
-					'As you are waiting, you see the business man from before pumping gas again. He notices you and walks over. He presses a wad of bills into your hands. "Come on now, I''d like to fuck you again."'
+					'As you are waiting, you see the business man from before pumping gas again. He notices you and walks over. "Want to make some more money? Come with me."'
+					'"How much will you pay me?" you ask.'
+					'"<<hypnoProstRubles[2]>> rubles, he says dissmissivly."'
 					act 'Go with him':
 						cla
 						*clr
@@ -2408,7 +2475,7 @@ if $ARGS[0] = 'hypnoProstitute':
 							cla
 							*clr
 							'You get down on your hands and knees, ready to take his cock.'
-							jump 'hypnoProstGuy3Start1'
+							jump 'hypnoProstGuy3Start1a'
 						end
 					end
 				end
@@ -2435,8 +2502,7 @@ if $ARGS[0] = 'hypnoProstitute':
 					'As you are waiting... you hear an elderly couple as they come out of the gas station. The two seem to be having an argument.'
 					'As they are passing you, you stop the old man and ask him; "Excuse me sir, would you have sex with me?"'
 					'The old woman looks at you incredulously, while the old man''s face breaks from astonishment to near laughter.'
-					'"Get away WHORE! Before I call the police!"'
-					'The old woman grabs the man by the shirt and pulls him along, but he looks back eyeing you up as she does.'
+					'"Get away WHORE! Before I call the police!" the old woman says and grabs the man by the shirt and pulls him along, but he looks back eyeing you up as she does.'
 					''
 					'You are left standing alone, but hear them both shouting as they drive away.'
 					act 'Continue waiting':
@@ -2479,7 +2545,7 @@ if $ARGS[0] = 'hypnoProstitute':
 								*clr
 								'He plunges his cock deep into you and groans. You feel his cock bulging inside of you.'
 								'"Ahhhh yeeees, take all of my cum you whore..."'
-								'He pulls out of you then tucks his cock away. Then he pulls out his wallet and starts counting bills. "How old are you anyways"'
+								'He pulls out of you then tucks his cock away. Then he pulls out his wallet and starts counting bills. "How old are you anyways?"'
 								'"I''m <<age>> years old."'
 								if age < 18:
 									cla
@@ -2504,9 +2570,15 @@ if $ARGS[0] = 'hypnoProstitute':
 											*clr
 											'Grandpa moans loudly while keeping his cock balls deep inside of you. You feel him spurting inside of you again and again. Eventually his cock softens and he pulls out of you and dresses himself.'
 											'"That was good <i>Cunt</i>. I''ll keep my eyes open for you." He pulls out a few bills and hands them to you.'
-											'You look down and see that he handed you two thousand rubles instead of six thousand. "Thank you Grandpa." You say to him.'
-											'"Hehe, yea. Who would have known girls these days are like this?" he says and walks away.'
-											hypnoMoney += hypnoProstRubles[5]
+											'You look down and see that he handed you two thousand rubles instead of six thousand.'
+											
+											act 'Continue':
+												cla
+												*clr
+												'"Thank you Grandpa." You say to him.'
+												'"Hehe, yea. Who would have known girls these days are like this?" he says and walks away.'
+												hypnoMoney += hypnoProstRubles[5]
+											end
 										end
 									end
 								elseif age = 18:
@@ -2534,6 +2606,7 @@ if $ARGS[0] = 'hypnoProstitute':
 					*clr
 					if hypnoProstRubles[5] > 300: hypnoProstRubles[5] -= 500
 					if hypnoProstRubles[5] < 300: hypnoProstRubles[5] = 300
+					if hypnoProstGuyFlag[5] = 3: hypnoProstRubles[5] -= 200
 					'As you are waiting... the old man from before, approaches you.'
 					'"It''s you. Wanna go again? I''ll pay."'
 					'You nod and allow him to guide you to his car.'
@@ -2804,6 +2877,9 @@ $RestTherapyVariables ={
 	hypnoTimesResistedStage = 0
 	hypnoSchedule = 0
 	hypnoHairStyle = 0
+	hypnoWeight = 0
+	hypnoAteToday = 0
+	hypnoExercisedToday = 0
 }
 
 --- therapist ---------------------------------