# 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.'
end

if brother >= 20 and brother < 40:
	'You and your brother tensions.'
end

if brother >= 40 and brother < 60:
	'You and your brother normal relations.'
end

if brother >= 60 and brother < 80:
	'You and your brother good relationship.'
end

if brother >= 80:
	'You and your brother a great relationship.'
end
!'
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."'
		end

		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
	end

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

	exit
end

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

if GorSlut > 0:
	'Kolka frowned "What do you want <<$gnikname>>."'
end

if motherKnowSpravka >= 1 or motherKnowWhore >= 1:
	'You came to your brother. He laughed and began to poke a finger to you "whore. Whore. Whore."'
else
'

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

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.'
			ivrand=rand(0,1)

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

			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 'move_away':
						gt $loc, $metka
					end

					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
					end
				!else
					!act 'move_away':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 ---------------------------------

