glife/locations/NatBelHome

# NatBelHome
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>'
'Very poor room, but as the whole apartment.'

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

	act 'Engage 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 are within an hour engaged with Natasha and lessons learned.'

		act 'rest':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 talked to Natasha about any nonsense.'

		if NatBelBestFrend = 1:'Natasha recognized, she lives in a very poor family. She has no father, and her mother works for a penny at a garment factory.'
		if NatBelBestFrend >= 2:'Natasha envies, that other girls can smartly odevatsya and buy cosmetics, when she wears her mother''s things.'

		act 'further':gt $curloc
	end

	if NatDolg <= 0 and money >= 2000 and natsub > 0:
		'Natasha asked confused "<<$name>>, and you can take a couple of thousand?"'

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

			act 'further':gt $curloc
		end
	elseif NatBelBestFrend >= 3 and NatDolg = 0 and money >= 5000 and natsub = 0:
		'Natasha looked down "<<$name>>, you are found money. Could you lend me 5000 rubles. I will give, parole."'

		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 got the purse and gave Natasha borrow money. Natasha was delighted and said, that will give them a month.'

			act 'rest':gt $curloc
		end
	elseif NatDolg>0 and NatDolgDay > daystart:
		'Natasha promises you to repay the debt <<NatDolg>> rubles, through <<NatDolgDay-daystart>> days'
	elseif NatDolg > 0 and NatDolgDay <= daystart:
		'Natasha looks at the floor "<<$name>>, I have no money, that would give back to."'

		act 'Forgive the debt Natasha':
			cls
			minut += 15
			NatDolg = 0
			NatDolgDay = 0
			NatBelBestFrend += 10
			gs 'stat'
			'<center><img src="images/qwest/alter/npc/16.jpg"></center>'
			'You have decided to forgive the debt Natasha, She was delighted and began cardiopulmonary thank you.'

			act 'rest':gt $curloc
		end

		if dom >= 10 and natotrab = 0:
			act 'claim money':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/qwest/alter/npc/16.jpg"></center>'
				'You have decided not to lower the debt Natasha, and rolled her scandal, demanding the return of money. Natasha shrank together into a ball on his bed "Svetochka, sweet, forgive me. I am for you." Looking at you frightened Natasha came up with a couple of ideas, how you can use this chicken. And you evil hissed her "You''re my every last penny exhaust creature."'

				act 'on your knees! And open your mouth!':
					cls
					minut += 5
					natotrab += 1
					natsub += 1
					!!natknee
					gs 'stat'
					'<center><img src="images/qwest/alter/ev2/natknee.jpg"></center>'
					'You barked at Natasha, and she immediately obediently knelt down and opened her mouth.'

					act 'Spit in her face':
						cls
						minut += 5
						natsub += 1
						NatDolg -= 500
						!!natknee
						gs 'stat'
						'<center><img src="images/qwest/alter/ev2/natknee.jpg"></center>'
						'You barked at Natasha, and she immediately obediently knelt down and opened her mouth. You have collected saliva and relish Natasha spat in the face, from what she jerked and squeezed her eyes shut. you smiled, "Fair_Enough, forgive." Natasha opened her eyes which did not get asked again and harchok "forgive?" you laughed "forgive 500 rubles of debt, fool. Now you will work until the entire debt is not extinguished."'

						act 'rest':gt $curloc
					end
				end
			end
		end

		if natotrab > 0 and NatDolg > 0:
			'Natasha has yet <<NatDolg>> rubles.'

			act 'on your knees! And open your mouth!':
				cls
				minut += 5
				natotrab += 1
				natsub += 1
				!!natknee
				gs 'stat'
				'<center><img src="images/qwest/alter/ev2/natknee.jpg"></center>'
				'You barked at Natasha, and she immediately obediently knelt down and opened her mouth.'

				act 'Spit in her face':
					cls
					minut += 5
					natsub += 1
					NatDolg -= 500
					!!natknee
					gs 'stat'
					'<center><img src="images/qwest/alter/ev2/natspit.jpg"></center>'
					'You barked at Natasha, and she immediately obediently knelt down and opened her mouth. You have collected saliva and relish Natasha spat in the face, from what she jerked and squeezed her eyes shut.'

					act 'rest':gt $curloc
				end

				if natsub >= 4:
					act 'Make her lick':
						cls
						minut += 5
						natsub += 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 were forced to undress and Natasha undressing alone stood in front of her face. "Now lick!". Natasha frightened started to work.'

						if natsub < 10:
							'This Krivorukov goat even the clitoris is unable to get and only sluggishly, without enthusiasm chomps his mouth on your pussy.'

							if dom >= 20 and NatDolg >= 500:
								act 'Piss in her mouth':
									cls
									minut += 5
									natsub += 1
									NatDolg -= 500
									natpee += 1
									!!natknee
									gs 'stat'
									'<center><img src="images/qwest/alter/ev2/natpee.jpg"></center>'
									'You are angry at this bitch released urine stream in the face of Natasha. She closed her eyes and bowed face down, but not recoiled and silently doterpela flogging until the very end.'

									act 'rest':gt $curloc
								end
							end
						else
							orgasm += 1
							horny = 0
							gs 'stat'
							'Natasha carefully handles your pussy tongue and you chustvuete as you orgasm rolls.'
						end

						act 'rest':gt $curloc
					end
				end
			end

			if natsub >= 6:
				act 'call brother':
					cls
					minut += 15
					natsub += 1
					NatDolg -= 500
					natbj += 1
					gs 'stat'
					'<center><img src="images/qwest/alter/ev2/natbj.jpg"></center>'
					'You called my brother and he quickly came to the apartment Natashkiny. Briefly explain the situation to his brother "And you, bitch, so now the cheek and took smacked, i_get_it?" Natasha jitters nodded and knelt waiting when Kolka starts fucking her in the mouth. Kolka went to Natashkiny face and took his standing member. He patted the little purple head lips Natasha and she began to lick him his tongue.'

					act 'rest':gt $curloc
				end
			end
		end
	end
end
act 'go home':gt 'gorodok'

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