glife/locations/kakuzu

# kakuzu
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	'<center><b>Mansion Kakuzu</b></center>'
	'<center><img src="images/etogame/mansion.jpg"></center>'
	'Old gloomy mansion, which even at the local gun-shot approach fear and sincerely believe that lives there that is very bad. No need to have some sort of skills that make your system, from the death blows.'

	act 'Enter the mansion':gt 'kakuzu', 'mansion'
	act 'Leave':gt 'nord'
end

if $ARGS[0] = 'mansion':
	cla
	*clr
	set minut += 5
	clr
	gs 'stat'
	'<center><b>Mansion Kakuzu</b></center>'
	'<center><img src="images/etogame/mansion1.jpg"></center>'
	'The room sits Kakuzu not paying any attention to you'

	act 'Talk to Kakuzu':gt 'kakuzu', 'mansion1'
	act 'Leave':gt 'kakuzu', 'start'
end

if $ARGS[0] = 'mansion1':
	cla
	*clr
	set minut += 5
	clr
	gs 'stat'
	'<center><b>Kakuzu</b></center>'
	'<center><img src="images/qwest/kakuzu.jpg"></center>'

	if tobiQW = 1:'I know who you are and what you need. Pay 100 pieces and then I move, that would teach you how to achieve affinity with the elements.'
	if tobiQW = 2:'You have <<srodpaper>> sheets of paper to determine the affinity of the elements. If you run out of paper, you have to buy more at Kakuzu 10 thousand sheet.'

	if money >= 100000 and tobiQW = 1:
		act 'Here´s the money (100,000 rubles)':
			cla
			set money -= 100000
			set tobiQW = 2
			set srodpaper = 10
			'You put money in front of Kakuzu. He threw them in a drawer without even looking.'
			'You asked, "Do not even going to count?" What Kakuzu said quietly, "if there is not enough even if the ruble, I will find and kill you."'
			'(Kakuzu) - Listen to me carefully. Elemental there are five pieces, '
			'fire - this school has the most powerful of all the damage and the weakest protection. But there is nothing better school fire that would nail the opponent with a single blow.'
			'lightning - this school each his hit paralyzes opponent weaker than damage from the fire, but if you´re hooked by lightning, then quickly you will achieve any.'
			'wind - weak loss, weak defense, but no fog, no clones can not save them from the wind, any offensive spell destroys clones wind and fog, plus Spell wind is almost impossible to dodge.'
			'Plot - protective school, but the attacks are very dangerous ground if the enemy attack misses, then will stick in the ground and can not move. Just near the ground is the most powerful of all protection, protection of land and regenerate itself absolute defense to attack the enemy.'
			'Water - Damage to the school is small, but all spells manna water taken from the enemy, the same high level of water protection is very dangerous, she eats manna from an enemy, regenerates, although it is weaker cham similar land protection.'
			'Affinity with the elements means that you can learn this particular element. You can not explore another element after selecting affinity until izuchish element completely. I´ll give you 10 sheets of paper magic. Each sheet cost me 5, 000 rubles. Concentrate the energy in a piece of paper and when you succeed, then you can either start over and hope for another element, or select the element on which you managed skontsentrirovatsya.'

			act 'Mark sheets':gt 'kakuzu', 'mansion1'
		end
	end

	if tobiQW = 2 and srodpaper <= 0 and money >= 10000:
		act 'I need another paper (10,000 rubles)':
			cla
			set money -= 10000
			set srodpaper += 1
			'You gave money and Kakuzu handed a sheet of paper.'

			act 'Mark sheets':gt 'kakuzu', 'mansion1'
		end
	end

	if tobiQW = 2:
		act 'Tell us again about the elements':
			cla
			'(Kakuzu) - Stupid, listen and remember. Elemental there are five pieces, '
			'fire - this school has the most powerful of all the damage and the weakest protection. But there is nothing better school fire that would nail the opponent with a single blow.'
			'lightning - this school each his hit paralyzes opponent weaker than damage from the fire, but if you´re hooked by lightning, then quickly you will achieve any.'
			'wind - weak loss, weak defense, but no fog, no clones can not save them from the wind, any offensive spell destroys clones wind and fog, plus Spell wind is almost impossible to dodge.'
			'Plot - protective school, but the attacks are very dangerous ground if the enemy attack misses, then will stick in the ground and can not move. Just near the ground is the most powerful of all protection, protection of land and regenerate itself absolute defense to attack the enemy.'
			'Water - Damage to the school is small, but all spells manna water taken from the enemy, the same high level of water protection is very dangerous, she eats manna from an enemy, regenerates, although it is weaker cham similar land protection.'
			'Affinity with the elements means that you can learn this particular element. You can not explore another element after selecting affinity until izuchish element completely. I´ll give you 10 sheets of paper magic. Each sheet cost me 5, 000 rubles. Concentrate the energy in a piece of paper and when you succeed, then you can either start over and hope for another element, or select the element on which you managed skontsentrirovatsya.'

			act 'Move away':gt 'kakuzu', 'mansion1'
		end
	end

	if tobiQW = 2 and srodpaper > 0 and manna < 2000:'You do not have the forces that continue to concentration.'

	if tobiQW = 2 and srodpaper > 0 and manna >= 2000:
		act 'Concentrating the energy in the sheet of paper (1:00)':
			cla
			set minut += 60
			set manna -= 2000
			set sweat += 5

			if srodstvo = 0:set srodrand = rand(1, 5)

			set srodstvo += rand(1, 10)
			'You concentrate energy in the sheet of paper. You feel that you are spending a huge amount of mana for this action.'

			if srodstvo < 100:
				'You get tired and sweating like a horse, but your efforts have lead to anything.'

				act 'Move away':gt 'kakuzu', 'mansion1'
			end

			if srodstvo >= 100:
				set srodpaper -= 1

				if srodrand = 1:'Paper broke in your hands. Kakuzu nodded approvingly affinity with fire. Will you fix it?'
				if srodrand = 2:'Paper electrified in your hands, and from sparks. Kakuzu nodded approvingly affinity with lightning. Will you fix it?'
				if srodrand = 3:'Paper hardened in your hands. Kakuzu nodded approvingly affinity with the land. Will you fix it?'
				if srodrand = 4:'Paper shattered to pieces in your hands. Kakuzu nodded approvingly affinity with the wind. Will you fix it?'
				if srodrand = 5:'Paper soaked in your hands. Kakuzu nodded approvingly affinity for water. Will you fix it?'

				act 'Secure affinity':
					cla
					set tobiQW = 3
					set stihia = srodrand
					set srodstvo = 0
					gt 'kakuzu', 'mansion1'
				end

				act 'Unsubscribe from this affinity':
					set srodstvo = 0
					gt 'kakuzu', 'mansion1'
				end
			end
		end
	end

	if tobiQW = 3 and manna < 1000:'Kakuzu tells you "You have almost no energy, you need to rest."'

	if tobiQW = 3 and manna >= 1000:
		if stihia = 1:
			if magik >= 6 and spellfire1 = 0:
				act 'Learn Flame (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellfireL += rand(1, 10)

					if spellfireL < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellfireL >= 100:
						set spellfire1 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 7 and spellfire2 = 0:
				act 'Study the release of fire (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellfire2L += rand(1, 10)

					if spellfire2L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellfire2L >= 100:
						set spellfire2 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 8 and spellfire3 = 0:
				act 'Study Barrier fire (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellfire3L += rand(1, 10)

					if spellfire3L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellfire3L >= 100:
						set spellfire3 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 9 and spellfire4 = 0:
				act 'Study Firestorm (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellfire4L += rand(1, 10)

					if spellfire4L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellfire4L >= 100:
						set spellfire4 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 10 and spellfire5 = 0:
				act 'Learn Flame Shield (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellfire5L += rand(1, 10)

					if spellfire5L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellfire5L >= 100:
						set spellfire5 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end
		end

		if stihia = 2:
			if magik >= 6 and spellele1 = 0:
				act 'Study Discharge (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spelleleL += rand(1, 10)

					if spelleleL < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spelleleL >= 100:
						set spellele1 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 7 and spellele2 = 0:
				act 'Learn Lightning (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellele1L += rand(1, 10)

					if spellele1L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellele1L >= 100:
						set spellele2 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 8 and spellele3 = 0:
				act 'Electro study barrier (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellele2L += rand(1, 10)

					if spellele2L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellele2L >= 100:
						set spellele3 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 9 and spellele4 = 0:
				act 'Dance study thousands of birds (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellele3L += rand(1, 10)

					if spellele3L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellele3L >= 100:
						set spellele4 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 10 and spellele5 = 0:
				act 'Study Plyaschuschaya sphere (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellele4L += rand(1, 10)

					if spellele4L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellele4L >= 100:
						set spellele5 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end
		end

		if stihia = 3:
			if magik >= 6 and spellert1 = 0:
				act 'Study Quicksand (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellertL += rand(1, 10)

					if spellertL < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellertL >= 100:
						set spellert1 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 7 and spellert2 = 0:
				act 'Active protection study (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellert2L += rand(1, 10)

					if spellert2L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellert2L >= 100:
						set spellert2 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 8 and spellert3 = 0:
				act 'Study Chasm (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellert3L += rand(1, 10)

					if spellert3L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellert3L >= 100:
						set spellert3 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 9 and spellert4 = 0:
				act 'Absolute protection study (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellert4L += rand(1, 10)

					if spellert4L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellert4L >= 100:
						set spellert4 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 10 and spellert5 = 0:
				act 'Study Sando (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellert5L += rand(1, 10)

					if spellert5L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellert5L >= 100:
						set spellert5 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end
		end

		if stihia = 4:
			if magik >= 6 and spellwind1 = 0:
				act 'Learn Gust (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellwind1L += rand(1, 10)

					if spellwind1L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellwind1L >= 100:
						set spellwind1 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 7 and spellwind2 = 0:
				act 'Horrific study pressure (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellwind2L += rand(1, 10)

					if spellwind2L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellwind2L >= 100:
						set spellwind2 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 8 and spellwind3 = 0:
				act 'Vacuum protective sphere (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellwind3L += rand(1, 10)

					if spellwind3L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellwind3L >= 100:
						set spellwind3 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 9 and spellwind4 = 0:
				act 'Vacuum Rockets (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellwind4L += rand(1, 10)

					if spellwind4L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellwind4L >= 100:
						set spellwind4 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end

			if magik >= 10 and spellwind5 = 0:
				act 'Devouring vacuum (1:00)':
					cla
					set manna -= 1000
					set minut += 60
					set spellwind5L += rand(1, 10)

					if spellwind5L < 100:
						'You diligently spell for an hour, but could not grasp it.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end

					if spellwind5L >= 100:
						set spellwind5 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end
		end

	if stihia = 5:
		if magik >= 6 and spellwater1 = 0:
			act 'Creek study manna (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwaterL += rand(1, 10)

				if spellwaterL < 100:
					'You diligently spell for an hour, but could not grasp it.'

					act 'Move away':gt 'kakuzu', 'mansion1'
				end

				if spellwaterL >= 100:
					set spellwater1 = 1
					'Finally you will able to study the spell.'

					act 'Move away':gt 'kakuzu', 'mansion1'
				end
			end
		end

		if magik >= 7 and spellwater2 = 0:
			act 'Flooding study (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwater2L += rand(1, 10)

				if spellwater2L < 100:
					'You diligently spell for an hour, but could not grasp it.'

					act 'Move away':gt 'kakuzu', 'mansion1'
				end

				if spellwater2L >= 100:
					set spellwater2 = 1
					'Finally you will able to study the spell.'

					act 'Move away':gt 'kakuzu', 'mansion1'
				end
			end
		end

		if magik >= 8 and spellwater3 = 0:
			act 'Water bubble study (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwater3L += rand(1, 10)

				if spellwater3L < 100:
					'You diligently spell for an hour, but could not grasp it.'

					act 'Move away':gt 'kakuzu', 'mansion1'
				end

				if spellwater3L >= 100:
					set spellwater3 = 1
					'Finally you will able to study the spell.'

					act 'Move away':gt 'kakuzu', 'mansion1'
				end
			end
		end

		if magik >= 9 and spellwater4 = 0:
			act 'Water study shark missile (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwater4L += rand(1, 10)

				if spellwater4L < 100:
					'You diligently spell for an hour, but could not grasp it.'

					act 'Move away':gt 'kakuzu', 'mansion1'
				end

				if spellwater4L >= 100:
					set spellwater4 = 1
					'Finally you will able to study the spell.'

					act 'Move away':gt 'kakuzu', 'mansion1'
				end
			end
		end

		if magik >= 10 and spellwater5 = 0:
			act 'Study the Great Flood (1:00)':
				cla
				set manna -= 1000
				set minut += 60
				set spellwater5L += rand(1, 10)

				if spellwater5L < 100:
					'You diligently spell for an hour, but could not grasp it.'

					act 'Move away':gt 'kakuzu', 'mansion1'
				end

				if spellwater5L >= 100:
					set spellwater5 = 1
						'Finally you will able to study the spell.'

						act 'Move away':gt 'kakuzu', 'mansion1'
					end
				end
			end
		end
	end

	act 'Leave':gt 'kakuzu', 'mansion'
end

--- kakuzu ---------------------------------