glife/locations/NatBelHome

# NatBelHome
CLOSE ALL
if BeInNatBelHome = 0:BeInNatBelHome = 1

gs 'stat'
'<center><b><font color="maroon"><<$npcName[16]>> <<$npcSurName[16]>></font></b></center>'
'<center><img src="images/qwest/alter/npc/16.jpg"></center>'
'The room shows the the occupant is very poor as does the whole apartment.'

if lernHome ! 0:
	'Natasha arranges her books on the table.'

	act 'Study with Natasha':
		cls
		minut += 60
		!grupNPC[16] += 10
		lernHome = 0
		lern += rand(3, 6)
		intel += rand(1, 2)
		gs 'stat'
		'<center><img src="images/qwest/alter/npc/16.jpg"></center>'
		'You spend an hour studying with Natasha and get your homework done.'

		act 'Next':gt $curloc
	end
elseif lernHome = 0:
	'Natasha is sitting on her bed.'

	act 'Chat with Natasha':
		cls
		minut += 15
		NatBelBestFrend += 1
		gs 'stat'
		'<center><img src="images/qwest/alter/npc/16.jpg"></center>'
		'You talk with Natasha about things that interest you both.'

		if NatBelBestFrend = 1:'Natasha knows that she lives in a very poor family. She has no father and her mother works for a pittance at the garment factory.'
		if NatBelBestFrend >= 2:'Natasha is envious that other girls can dress smartly and buy cosmetics while she has to wear her mother''s things.'

		act 'further':gt $curloc
	end

	if NatDolg <= 0 and money >= 2000 and natsub > 0:
		'Hesitantly, Natasha asks you, "<<$name>>, can you lend me a couple of thousand <b>₽</b>? I''ll pay you back, I promise."'

		act 'Give Natasha the money':
			cls
			minut += 15
			NatDolg = 2000
			money -= 2000
			gs 'stat'
			'<center><img src="images/qwest/alter/npc/16.jpg"></center>'
			'You get your purse and give Natasha the money knowing that she will not be able to repay it and that you would prefer to play with her.'

			act 'Next':gt $curloc
		end
	elseif NatBelBestFrend >= 3 and NatDolg = 0 and money >= 5000 and natsub = 0:
		'Natasha looks down in embarrassment, "<<$name>>, you have lots of money. Could you lend me 5000 <b>₽</b>? I will pay it back, I give you my word."'

		act 'Lend Natasha':
			cls
			minut += 15
			NatDolg = 5000
			money -= 5000
			NatDolgDay = daystart+30
			NatBelBestFrend += 1
			gs 'stat'
			'<center><img src="images/qwest/alter/npc/16.jpg"></center>'
			'You get your purse and lend Natasha the money. Natasha is delighted and says that she will pay it back in a month.'

			act 'rest':gt $curloc
		end
	elseif NatDolg>0 and NatDolgDay > daystart:
		'Natasha promises you to repay the <<NatDolg>> <b>₽</b> in <<NatDolgDay-daystart>> days.'
	elseif NatDolg > 0 and NatDolgDay <= daystart:
		'Natasha looks at the floor, "<<$name>>, I have no money to pay you."'

		act 'Forgive Natasha''s debt':
			cls
			minut += 15
			NatDolg = 0
			NatDolgDay = 0
			NatBelBestFrend += 10
			gs 'stat'
			'<center><img src="images/qwest/alter/npc/16.jpg"></center>'
			'You decide to forgive the Natasha''s debt. She is delighted and thanks you with all her heart.'

			act 'rest':gt $curloc
		end

		if dom >= 10 and natotrab = 0:
			act 'Demand repayment':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/qwest/alter/npc/16.jpg"></center>'
				'You decide not to reduce Natasha''s debt. You angrily confront her, demanding the return of the money. Natasha curls up into a ball on her bed "<<$nickname>>, dear, please forgive me. I will do anything you say." Natasha looks at you with fearful eyes and comes up with a couple of ideas on how you can use this chicken. You snarl at her with an evil hiss, "You''re my creature until you''ve worked off every last kopeck."'

				act 'On your knees! And open your mouth!':
					cls
					minut += 5
					natotrab += 1
					natsub += 1
					dom += 1
					!!natknee
					gs 'stat'
					'<center><img src="images/qwest/alter/ev2/natknee.jpg"></center>'
					'You bark at Natasha to get on her knees. She immediately kneels down at your feet and obediently opens her mouth.'

					act 'Spit in her face':
						cls
						minut += 5
						natsub += 1
						dom += 1
						NatDolg -= 500
						!!natknee
						gs 'stat'
						'<center><img src="images/qwest/alter/ev2/natknee.jpg"></center>'
						'You collect the saliva in your mouth and, with relish spit in Natasha''s face. She jerks and squeezes her eyes shut but makes no move to wipe the spittle away.' 
						'You smile, "Fair enough, you are forgiven."'
						'Natasha opens her eyes and asks in disbelief, "It''s forgiven?"' 
						'You laugh, "500 <b>₽</b> of debt is forgiven, fool. You will do everything I tell you until the entire debt is gone."'

						act 'Next':gt $curloc
					end
				end
			end
		
		elseif natotrab > 0 and NatDolg > 0:
			'Natasha still doesn''t  have the <<NatDolg>> <b>₽</b>.'

			act 'On your knees! And open your mouth!':
				cls
				minut += 5
				natotrab += 1
				natsub += 1
				dom += 1
				!!natknee
				gs 'stat'
				'<center><img src="images/qwest/alter/ev2/natknee.jpg"></center>'
				'You bark at Natasha to get on her knees. She immediately kneels down at your feet and obediently opens her mouth.'

				act 'Spit in her face':
					cls
					minut += 5
					natsub += 1
					dom += 1
					NatDolg -= 500
					!!natknee
					gs 'stat'
					'<center><img src="images/qwest/alter/ev2/natspit.jpg"></center>'
					'You collect the saliva in your mouth and, with relish spit in Natasha''s face. She jerks and squeezes her eyes shut but makes no move to wipe the spittle away.'

					act 'Next':gt $curloc
				end
				if natsub >= 4:
					act 'Make her lick':
						cls
						minut += 5
						natsub += 1
						dom += 1
						NatDolg -= 500

						if npcSex[16] = 0:npcSex[16] = 1 & girl += 1

						lesbian += 1
						!!horny = 0
						!!orgasm += 1
						natlesb += 1
						!!natknee
						gs 'stat'
						'<center><img src="images/qwest/alter/ev2/natlick.jpg"></center>'
						'You force Natasha to undress you and then watch as she undresses herself before she returns to kneeling at your feet. You pull her face into your pussy and snarl at her, "Now lick!". Natasha fearfully starts to work.'

						if natsub < 10:
							'This useless cunt can''t even find your clitoris and only sluggishly works her mouth on your pussy without any enthusiasm.'

							if dom >= 20 and NatDolg >= 500:
								act 'Piss in her mouth':
									cls
									minut += 5
									natsub += 1
									dom += 1
									NatDolg -= 500
									natpee += 1
									!!natknee
									gs 'stat'
									'<center><img src="images/qwest/alter/ev2/natpee.jpg"></center>'
									'You are angry at this bitch so you release your urine in Natasha''s face. She closes her eyes and bows her head down but does not recoil and silently accepts your golden shower until the very end.'
									
									act 'Next':gt $curloc
								end
							else 
								act 'Make her stop':
									cls
									minut += 5
									horny -= 10
									money -= 50
									
									gs 'stat'
									$ImageNeededPlaceholder
									'<center><img src="images/etogame/icecreem.jpg"></center>'
									'You get tired of her lackluster attempts to get you off, in fact, she is doing such a bad job that it is actually turning you off.'
									'"You are hopeless. Here, go buy an icecream and practice licking. You''d better do better next time, bitch." You throw a 50 ruble note at her as she stops licking you.'
									
									act 'Next':gt $curloc
								end
							end
						else
							orgasm += 1
							horny = 0
							gs 'stat'
							'Natasha enthusiastically goes to work on your pussy, using her mouth and tongue. She fucks you with her tongue then switches to sucking on your now engorged clitoris. You grab her head and roughly grind your pussy on her face as your orgasm rolls over your body.'
						end

						act 'Next':gt $curloc
					end
				end
			
				if hour >= 18 and hour < 21 and natsub >= 6 and natbro = 0:
					act 'Call your brother':
						cls
						minut += 15
						natsub += 1
						dom += 1
						NatDolg -= 500
						natbj += 1
						natbro += 1
						gs 'stat'
						'<center><img src="images/qwest/alter/ev2/natbj.jpg"></center>'
					
						'You call your brother and he quickly comes up to Natasha''s apartment. You briefly explain the situation to your brother. 
						"And you, bitch, you''re going to use that mouth of yours to make Kolka feel good, you got it?" you hiss at Natasha, grabbing her jaw and staring in the eyes.'
						'Natasha jerkily nods and kneels at Kolka''s feet. She reaches up with trembling hands to unfasten Kolka''s pants and pulls out his semi-hard dick. She tentatively begins to lick it and after a moment takes the now fully hard shaft into her mouth. Kolka starts fucking her in the mouth.'

						act 'Continue':
							cls
							minut += 5
						
							gs 'stat'
							'<center><img src="images/qwest/alter/ev2/bscum.jpg"></center>'
						
							'Kolka holds Natasha by the hair as he pistons his cock into he mouth rapidly. Natasha''s chin is covered with her drool and it is soaking the front of her shirt. With a grunt, Kolka pulls his dick from Natasha''s mouth and she automatically opens her mouth and sticks out her tongue. Kolka pumps his dick a few times then shoots his cum into Natasha''s waiting mouth.'
							'"Swallow it, slut." You command when Kolka is done before Natasha can spit out the sperm.'
							'Natasha grimaches but complies, swallowing Kolka''s load then opening her mouth to show that it is gone.'
					
							act 'Next':gt $curloc
							end
						end
					end	
				end
			end	
		end
	end
end
act 'go home':gt 'pod_ezd','etaj_4'

--- NatBelHome ---------------------------------