Browse Source

[fixed] duplicate "'buy a ticket' for city train.
[added] scales to grandparent's house. Added butt-plug, vibrator and ointment to grandparent's bathroom.

3xpurt 6 years ago
parent
commit
5c90d6517c
3 changed files with 116 additions and 38 deletions
  1. 87 9
      locations/Gadbana
  2. 28 28
      locations/Gadhouse
  3. 1 1
      locations/cityTrain

+ 87 - 9
locations/Gadbana

@@ -28,10 +28,10 @@ if mira = 0:
 			minut += 1 & gt'Gaddvor'
 		else
 			cls
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'	
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
 			'You can''t go out without any clothes on.'
 			act 'Back':gt'Gadbana'
-		end	
+		end
 	end
 
 	if week >= 6:
@@ -50,7 +50,7 @@ if mira = 0:
 					pcs_makeup = 1
 					gs 'underwear', 'remove'
 					gs 'clothing', 'strip'
-					
+
 					banaday = daystart
 
 					if frost > 0:frost = 0
@@ -87,7 +87,7 @@ if mira = 0:
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mit.jpg"></center>'
 		'You lather your body washcloth and start scrubbing your body. You rinse off the soap and start to lather the hair with the shampoo. After rising off the shampoo you are completely clean.'
-		
+
 		act 'Leave':gt $loc, $metka
 	end
 
@@ -127,12 +127,90 @@ if mira = 0:
 			else
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
 				 'You undress and wash your dirty clothes.'
-			end	
+			end
 			*nl
 			'You soak your muddy clothes and underwear in the basin and pour in washing powder, then you scrub them until they are finally clean.'
 			act 'Finish':gt $loc, $metka
 		end
 	end
+	if analplug = 1 and analplugin = 1:
+		act 'Remove your butt plug (0:05)':
+			cla
+			*clr
+			minut += 5
+			analplugIN = 0
+
+			if pcs_ass < 30:pcs_ass += 1
+
+			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
+			*nl
+			'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.' & !!0.2.6: Removed unneccessary var check
+
+			act 'Finish':gt $loc, $metka
+		end
+	elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
+		act 'Insert your butt plug (0:05)':
+			cla
+			*clr
+			minut += 5
+			analplugIN = 1
+
+			if pcs_ass < 10:pcs_ass += 5
+			if pcs_ass >= 10 and pcs_ass < 20:pcs_ass += rand(1, 2)
+			if pcs_ass >= 20 and pcs_ass < 30:pcs_ass += rand(0, 1)
+
+			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
+			*nl
+			if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
+			if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'
+
+			act 'Finish':gt $loc, $metka
+		end
+	end
+	if vibrator = 1 and vibratorIN = 1:
+		act 'Remove the vibrator (0:05)':
+			cla
+			*clr
+			minut += 5
+			vibratorIN = 0
+
+			if pcs_vag < 30:pcs_vag += 1
+
+			'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
+			*nl
+			'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'
+
+			act 'Finish':gt $loc, $metka
+		end
+	elseif vibrator = 1 and vibratorIN = 0 and pcs_vag ! 0:
+		act 'Insert the vibrator in your vagina (0:05)':
+			cla
+			*clr
+			minut += 5
+			vibratorIN = 1
+
+			if pcs_vag < 30:pcs_vag += 2
+
+			'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
+			*nl
+			'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
+
+			act 'Finish':gt $loc, $metka
+		end
+	end
+
+	if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
+		act 'Rub ointment onto your pussy (0:05)':
+			cla
+			mosal_time = (daystart * 100) + hour
+			minut += 5
+			mosolmaz -= 1
+			mosol -= 5
+			'You take a tube of cream and rub it onto your itchy vulva.'
+
+			act 'Finish':gt $loc, $metka
+		end
+	end
 	if (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
 		act 'Give yourself an enema (0:05)':
 			cla
@@ -156,10 +234,10 @@ else
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/village/mira/miraban.jpg"></center>'
 			'While you undress, through the corner of your eye you notice Mira removing her panties.'
-			
+
 			gs 'arousal', 'voyeur', 10, 'lesbian'
 			gs 'stat'
-			
+
 			act 'Watch Mira clean herself':
 			cls
 			gs 'stat'
@@ -181,12 +259,12 @@ else
 				dynamic $showerdin
 				pcs_hairbsh = 0
 				pcs_makeup = 1
-				
+
 				! WD: Missing Var ~ 'banaday'
 				banaday = daystart
 				if frost > 0:frost = 0
 				pcs_skin += 5
-				
+
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/village/mira/miraban2.jpg"></center>'
 				'Mira finally finishes lathering herself, you take the loofah and lather yourself from head to toe. You enjoy yourselves in the warm bath, relaxing in each other''s company, occasionally exchanging meaningless anecdotes...'

+ 28 - 28
locations/Gadhouse

@@ -16,7 +16,7 @@ if $ARGS[0]='' or $ARGS[0] = 'Start':
 	if monthbabkapay ! month and monthgrandmahelp ! month and hour >= 6 and hour < 22:
 		monthbabkapay = month
 		monthgrandmahelp = month
-		if grandmahelp > 0: money += grandmahelp*50	
+		if grandmahelp > 0: money += grandmahelp*50
 		money += 2000
 		minut += 10
 
@@ -80,7 +80,7 @@ if $ARGS[0]='' or $ARGS[0] = 'Start':
 		'You give your grandpa a smooch on the cheek and go on with your day.'
 
 		act 'Further': grandpa_boletus = 0 & grandpa_bilberry = 0 & gt 'Gadhouse', 'Start'
-	
+
 	elseif go_in_bilberry = 1 and bilberry >= grandpa_bilberry and hour >= 6 and hour < 22:
 		cla
 		*clr
@@ -107,7 +107,7 @@ if $ARGS[0]='' or $ARGS[0] = 'Start':
 		minut += 5
 		mira_guest = 1
 		gs 'stat'
-		
+
 		gs 'Miroslava', 'miraclothes'
 		'You notice Mira coming towards your grandparents home.'
 		'You step out on the porch and greet Mira. She replies "Hi <<$pcs_nickname>>, I was really bored being all alone at home. Do you want to do something?"'
@@ -118,7 +118,6 @@ if $ARGS[0]='' or $ARGS[0] = 'Start':
 		gt 'Gadhouse', 'Main'
 	end
 end
-
 	!125e
 if $ARGS[0] = 'Main':
 	$metkaM = 'Main'
@@ -131,7 +130,8 @@ if $ARGS[0] = 'Main':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/izba.jpg"></center>'
 	'A fairly simple cottage in the village of Gadyukino which your grandparents call home. In the main room there is a huge <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a>) and a <a href="exec:gad = 1 & gt ''bed2''">bed</a> where you can rest. The bed is more comfortable than it looks.'
 	'There is an old <a href="exec:gt ''TV'',''gad''">television</a> in the living room. It''s positioned next to a body length <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
-	
+	'You can check your weight on your grandma''s old mechanical <a href="exec:msg ''Your body fat is = (<<salo>>)''">scales</a>.'
+
 	if hour < 8:
 		temp = RAND(0,9)
 		if temp = 0:'In a box filled with scraps of cloth, <a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> is curled up sleeping peacefully.'
@@ -155,7 +155,7 @@ if $ARGS[0] = 'Main':
 	elseif hour >= 22:
 		temp = RAND(0,2)
 		if temp = 1:'In a box filled with scraps of cloth, <a href="exec: gt ''Gadhouse'',''villagecat''">Boniface</a> is curled up sleeping peacefully.'
-	end	
+	end
 
 
 	if hour >= 6 and hour < 22:
@@ -165,7 +165,7 @@ if $ARGS[0] = 'Main':
 		'Your grandparents sleep in separate beds. It''s quite strange since they''re still madly in love with eachother.'
 	end
 
-	if mira_guest = 1: MiraLoc = 6 & '<a href="exec: gt ''Miroslava'', ''Start''">Mira</a> is sitting next to you.' 
+	if mira_guest = 1: MiraLoc = 6 & '<a href="exec: gt ''Miroslava'', ''Start''">Mira</a> is sitting next to you.'
 
 	clr
 	gs 'stat'
@@ -189,13 +189,13 @@ if $ARGS[0] = 'Main':
 	end
 	}
 	if week = 6 and hour > 12 and family_trip_month ! month: indorf = 1
-	
+
 	if indorf = 1:
 		'Your parents are relaxing inside.'
 
 		if staygad ! daystart: gs 'gadukino_event', 'go_home'
 	end
-	
+
 	if gobelen>0:'You have <<gobelen>> completed tapestries.'
 	if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
 	if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
@@ -246,7 +246,7 @@ if $ARGS[0] = 'Main':
 	act 'Prepare a light meal (0:25)':gs 'food', 's_meal'
 
 	act 'Have a snack (0:15)':gs 'food', 'snack'
-	
+
 	act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
 
 	act 'Have a cup of tea (0:05)':
@@ -397,7 +397,7 @@ if $ARGS[0]='grandma':
 	minut += 2
 	if grandmatalkday ! daystart: grandmatalk = 0
 	gs 'stat'
-	
+
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
 	'Your grandma is extremely old, and almost never leaves the house. Most of the time she just sits on her bed watching TV, or is slowly cleaning.'
 	if $clothingworntype = 'nude':
@@ -418,7 +418,7 @@ if $ARGS[0]='grandma':
 				minut += 10
 				pcs_mood += 5
 				gs 'stat'
-		
+
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
 				'You sit next to grandma, eager to have her tell you more about the village.'
 				'"Don''t you remember <<$pcs_nickname>>? You''ve visited us many times," said grandma.'
@@ -430,11 +430,11 @@ if $ARGS[0]='grandma':
 				'"In the outskirts of the village is the field where the cattle graze and beyond the field is the forest. You''ll usually find our local hunter Andrew in the forest. He often brings along his friends to hunt, they often stay there for days. They say he built a hut somewhere in the forest. So, if you meet Andrew and his friends out there, don''t be afraid. If you want to go to the forest make sure to ask grandfather first."'
 				'"If you like running, you can take a run on the road leading into the forest. Or you can take a ride on our old bike. I''m pretty sure the bike is in the shed. Make sure to look for it if you''re interested. And if you want to watch your figure, then go to the garden, have some fruit, it''s as healthy as the diet meals you''re eating, if not more healthier."'
 				'"That''s about it my dear granddaughter. Now run along, don''t bother me anymore. My soap opera "Santa Barbara" is about to begin, I don''t want to miss a second of it."'
-		
+
 				act 'Finish':gt 'Gadhouse', 'Start'
 			end
 		end
-		!125e	
+		!125e
 		if hour >= grandmatalk + 3:
 			act 'Chat with your grandmother (0:10)':
 				cla
@@ -444,10 +444,10 @@ if $ARGS[0]='grandma':
 				minut += 10
 				pcs_mood += RAND(5,10)
 				gs 'stat'
-		
+
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma.jpg"></center>'
 				'You spend some time talking with your grandmother. She''s sometimes difficult to understand. Her nearly toothless mouth makes the pronunciation of words difficult for her. Most of what she says boils down to the same thing, life is much more fun when you''re young!'
-		
+
 				act 'Continue':gt 'Gadhouse', 'Start'
 			end
 		end
@@ -460,7 +460,7 @@ if $ARGS[0]='grandma':
 				minut += 20
 				pcs_mood += RAND(10,15)
 				gs 'stat'
-		
+
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/babushka.jpg"></center>'
 				'When you ask your grandmother to tell you a story, she mumbles something. Nevertheless, after a brief second or two, she decides on a story to share with you today, she begins to talk slowly.'
 
@@ -497,7 +497,7 @@ if $ARGS[0]='grandma':
 				elseif temp = 5:
 					'"One evening during the Christmas holidays in my younger days I was hanging out with my girlfriends in the kitchen. It was my school friends, so we were always up to some mischief all the time."'
 					'"We were home alone, and one of my friends persuades us to do a séance. She tells us that a fortune-teller had explained to her how one could summon a spirit. So we light some candles and began chanting for the spirits to show themself."'
-					'"I managed to summon the profile of a male figure. He was holding something resembling a bouquet of flowers. My second friend summoned a kettle looking object while my last friend managed to summon an infant which frightened us."' 
+					'"I managed to summon the profile of a male figure. He was holding something resembling a bouquet of flowers. My second friend summoned a kettle looking object while my last friend managed to summon an infant which frightened us."'
 					'"Not being discouraged we decided to try again excited by what we would manage to summon this time. This time I summoned a large steamer. My second friend didn''t summon anything special, but my third friend summoned the same infant again, the difference this time was that the infant was in a stroller."'
 					'"We ended the séance and went back doing ordinary stuff. All of a sudden we heard a knock on the door, it was the young man from the séance. He pulled out a beautiful bouquet of roses for me and gave them to me. I asked him what the reason was but he just answered that he got a feeling that he should deliver flowers to a girl in this specific village. I got the chills, because I remembered the man with a bouquet of flowers from the séance."'
 					'"The most interesting thing that happened was a few months after our séance, my friend that summoned the baby got pregnant. And by the end of the year she had a baby by the young age of 15. So beware when you meet a fortune-teller you never know what might happen..."'
@@ -505,7 +505,7 @@ if $ARGS[0]='grandma':
 					'"I remember sitting down as we are right now," your grandma starts, but suddenly as if she remembered something, she sadly sighs "There are no more matches..."'
 					'You look at her perplexed, questioning what she''s talking about. "We do have matches in the kitchen or if you want I can run over to the store to buy some."'
 					'"You don''t get it, <<$pcs_nickname>>. The matches today are not as good as those made long time ago. I miss those matches we had during the Great Patriotic War, before they had to move the factory to the far east... Those matches were magical, not like this crap we have now... Ugh..."'
-		
+
 				!Keep the word brigade if you want to change the text. It''s what the people working on the kolkhoz were called.
 				elseif temp = 7:
 					'"One day my mother, rest her soul, sent us four siblings out to the forest for berry gathering", your grandma begins. "We took our berry collectors and headed out. We reached the entrance of the forest pretty quickly and decided that it would be best to split up to complete the task faster. Since we were familiar with the area we all dispersed to our cherished spots and began gathering berries."'
@@ -529,7 +529,7 @@ if $ARGS[0]='grandpa':
 	minut += 2
 	if grandpatalkday ! daystart:grandpatalk = 0
 	gs 'stat'
-	
+
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa.jpg"></center>'
 	'Your grandfather is a grumpy old man, who is always complaining about the village elders and how they have neglected the village to barely being fit to live in. He can walk, but requires a cane. He doesn''t really leave the house any more, unless he really has to.'
 	if $clothingworntype = 'nude':
@@ -543,7 +543,7 @@ if $ARGS[0]='grandpa':
 		if go_in_bilberry = 1:'You promise to bring grandpa <<grandpa_bilberry>> kg of berries.'
 		if go_in_boletus_bilberry = 1:'You promise to bring grandpa <<grandpa_boletus>> kg mushrooms and <<grandpa_bilberry>> kg of berries.'
 		!125s
-		if grandpahelpday ! daystart:act 'Offer to help':grandpahelpday = daystart & gt'grandpahelp'	
+		if grandpahelpday ! daystart:act 'Offer to help':grandpahelpday = daystart & gt'grandpahelp'
 		if grandpatalkforest = 0:
 			act 'Ask about the forest (0:10)':
 				cla
@@ -553,16 +553,16 @@ if $ARGS[0]='grandpa':
 				pcs_mood += 5
 				goforest += 1
 				gs 'stat'
-		
+
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
 				'"Listen carefully <<$pcs_nickname>>. You want to explore the forest and that''s great. But be sure of your surroundings, without having any knowledge of the forest you may easily get lost. Don''t go exploring too deep in the forest, because the mushrooms and berries can be found at the edge of the forest. If you chose to explore the forrest you''ll find a swamp in the middle of the forrest. You can find mushrooms and berries there too... Going into the forest at night is not recommended, wild boars may attack, and you might end up really hurt."'
 				'"If you manage to get lost and can''t find your way out of the forest before it gets dark, then light a fire and sit still there until morning. The beasts in the forest are afraid of the fire, so they won''t approach you."'
 				'"There''s one more thing... While you''re in the woods, avoid dressing yourself up in fancy clothes. You might damage them. It''s better to dress in more comfortable clothes instead..."'
 				'"Well, I think that''s everything <<$pcs_nickname>>, run along now, and remember what I''ve told you."'
-		
+
 				act 'Finish':gt 'Gadhouse', 'Start'
 			end
-		end	
+		end
 		!125e
 		if hour >= grandpatalk + 3:
 			act 'Chat with your grandfather (0:10)':
@@ -573,10 +573,10 @@ if $ARGS[0]='grandpa':
 				minut += 10
 				pcs_mood += RAND(5,10)
 				gs 'stat'
-		
+
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
 				'Your grandfather stops complaining and smiles at you, he loves telling stories. He has lived a rich and eventful life, and you enjoy listening to his stories and talking to him. He mostly reminisces about his past, and reflects on his earlier life.'
-		
+
 				act 'Continue':gt 'Gadhouse', 'Start'
 			end
 		end
@@ -592,7 +592,7 @@ if $ARGS[0]='villagecat':
 
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/villcat.jpg"></center>'
 	'Your grandparents'' fat tomcat, Boniface, is aware of you approaching him, even though his eyes are closed. He tracks you with his ears and simply ignores you.'
-	
+
 	act 'Pet Boniface':
 		cla
 		*clr
@@ -621,7 +621,7 @@ if $ARGS[0]='villagecat':
 
 	if catout = 1:
 		act 'Let Boniface Out':
-			if sunWeather = 0: 
+			if sunWeather = 0:
 				cla
 				*clr
 				minute += 10

+ 1 - 1
locations/cityTrain

@@ -36,7 +36,7 @@ if $ARGS[0] = 'inside':
 		'You have <<Trainpass_day - daystart>> days left on your train pass.'
 		act 'Go to platforms': gt 'cityTrain', 'platform'
 	else
-		act 'Buy a ticket': gt 'cityTrain', 'tickets'
+		act 'Go to the ticket office': gt 'cityTrain', 'tickets'
 	end
 	act 'Leave the station': minut += 1 & gt 'cityTrain', 'start'
 end