# kakuzu
if $ARGS[0] = 'start':
	cla
	clr
	*clr
	minut += 5
	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
	*clr
	minut += 5
	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
	*clr
	minut += 5
	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
			money -= 100000
			tobiQW = 2
			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
	elseif tobiQW = 2 and srodpaper <= 0 and money >= 10000:
		act 'I need another paper (10,000 rubles)':
			cla
			money -= 10000
			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
			minut += 60
			manna -= 2000
			sweat += 5

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

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

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

				act 'Move away':gt 'kakuzu', 'mansion1'
			elseif srodstvo >= 100:
				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
					tobiQW = 3
					stihia = srodrand
					srodstvo = 0
					gt 'kakuzu', 'mansion1'
				end

				act 'Unsubscribe from this affinity':
					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."'
	elseif tobiQW = 3 and manna >= 1000:
		if stihia = 1:
			if magik >= 6 and spellfire1 = 0:
				act 'Learn Flame (1:00)':
					cla
					manna -= 1000
					minut += 60

					spellfireL += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellfire2L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellfire3L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellfire4L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellfire5L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spelleleL += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellele1L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellele2L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellele3L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellele4L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellertL += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellert2L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellert3L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellert4L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellert5L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellwind1L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellwind2L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellwind3L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellwind4L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
					manna -= 1000
					minut += 60
					spellwind5L += rand(1, 10)

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

						act 'Move away':gt 'kakuzu', 'mansion1'
					else
						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
				manna -= 1000
				minut += 60
				spellwaterL += rand(1, 10)

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

					act 'Move away':gt 'kakuzu', 'mansion1'
				else
					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
				manna -= 1000
				minut += 60
				spellwater2L += rand(1, 10)

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

					act 'Move away':gt 'kakuzu', 'mansion1'
				else
					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
				manna -= 1000
				minut += 60
				spellwater3L += rand(1, 10)

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

					act 'Move away':gt 'kakuzu', 'mansion1'
				else
					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
				manna -= 1000
				minut += 60
				spellwater4L += rand(1, 10)

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

					act 'Move away':gt 'kakuzu', 'mansion1'
				else
					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
				manna -= 1000
				minut += 60
				spellwater5L += rand(1, 10)

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

					act 'Move away':gt 'kakuzu', 'mansion1'
				else
					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 ---------------------------------