# brother
brotherAge = age - 2
gs 'stat'
'<center><b><font color="maroon">Colca</font></b></center>'
'<center><img src="images/qwest/alter/brother.jpg"></center>'
'Your brother Kolka younger than you and he <<brotherAge>> years. Kolka born unlike you and your sister already from his stepfather. He goes to the same school as you and enjoys football.'

if brother < 20:'You and your brother scandal.'
if brother >= 20 and brother < 40:'You and your brother tensions.'
if brother >= 40 and brother < 60:'You and your brother normal relations.'
if brother >= 60 and brother < 80:'You and your brother good relationship.'
if brother >= 80:'You and your brother a great relationship.'

!'
if cumface > 0 or cumfrot > 0 or cumlip > 1:
	if GorSlut > 0:
		'Kolka looks at you "Slysh <<$gnikname>>. After service cocks should be washed away, but not to run in struhne."'
	end

	if GorSlut = 0:
		if motherKnowSpravka => 1 or motherKnowWhore => 1:'Kolka looks at you, "Look, I understand that the mother aware that you´re a whore. Struhne But going to run the whole town knows you´re a whore."'
		if motherKnowSpravka = 0 and motherKnowWhore = 0:'Kolka looks at you, "What´s that?" His eyes rounded "Yes, it´s sprma. Here is the number, my sister exemplary slut."'
	end

	act 'Move away':gt $loc, $metka

	exit
end

act 'Move away':gt $loc, $metka

if GorSlut > 0:'Kolka frowned "What do you want <<$gnikname>>."'
if motherKnowSpravka >= 1 or motherKnowWhore >= 1:
	'You came to your brother. He laughed and began to poke a finger in you "whore. Whore. Whore."'
else
'!

act 'Leave':gt $loc, $metka

if $loc = 'gschool':
	if brother < 40:
		'Brother frowns "Get off me pridurochnaya!"'
	else
		'Brother grins "Hi <<$name>>. Play football?"'

		act 'Play football':
			cls
			minut += 60
			brother += 5
			agil += rand(0, 2)
			speed += rand(0, 2)
			set sweat += 3
			set beg += rand(2, 5)
			gs 'stat'
			'You ran for an hour on the field chasing a ball with my brother and his friends Bear and Zhendosom.'
			ivrand = rand(0, 1)

			act 'Move away':gt $loc, $metka

			if ivrand = 0 and seepornofut = 0:
				'Boys whispering among themselves discussing something.'

				act 'You are talking about here?':
					cls
					gs 'stat'
					'Boys hesitated, so much so, nothing.'

					if dom > 0:
						'You''re a bit pressed on them "Are you as malyshnya, sekretiki what that you." One of the boys immediately split "Yes."'

						act 'Leave':gt $loc, $metka

						act 'Take me':
							cls
							gs 'stat'
							'you asked, what would you also have to look porn. Guys nemnog oposmuschalis, but agreed.'

							act 'Go watch porn':minut += 5 & gt 'seeporn'
						end
					else
						act 'Leave':gt $loc, $metka
					end
				end
			end

			if ivrand = 0 and seepornofut >= 1:
				'Guys poshushukavshis together tell you "Sveta, go look porn?"'

				act 'Go watch porn':minut + = 5 & gt 'seeporn'
			end
		end
	end
end

--- brother ---------------------------------