Kila_glife/locations/kakuzu.qsrc

# kakuzu
if $ARGS[0] = 'start':
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<center><b>Mansion Kakuzu</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mansion/mansion.jpg"></center>'
	'Old gloomy mansion, which even at the local gangs don''t approach out of fear and sincerely believe that something evil lives there. 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':
    $location = 'event'
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	'<center><b>Mansion Kakuzu</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mansion/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':
    $location = 'event'
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	'<center><b>Kakuzu</b></center>'
	'<center><img <<$set_imgh>> src="images/characters/city/kakuzu/kakuzu.jpg"></center>'

	if tobiQW = 1:'I know who you are and what you need. Pay 100k and then I will 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 <b>₽</b>)':
			cla
			money -= 100000
			tobiQW = 2
			srodpaper = 10
			'You put money in front of Kakuzu. He threw them in a drawer without even looking.'
			'You ask, "Not even going to count?" Kakuzu replies quietly, "if there is not enough by even a ruble, I will find and kill you."'
			'(Kakuzu) - Listen to me carefully. There are five elements, '
			'fire - school has the most powerful damage potential and the weakest protection. But there is no better school for defeating opponent with a single blow.'
			'lightning - in this school each hit paralyzes the opponent, it has weaker than damage than the fire, but if you''re hooked by lightning, then quickly you will achieve any.'
			'wind - weak damage, weak defense, but no fog or clones can save them from the wind and wind spells are almost impossible to dodge.'
			'earth - defensive school, but the attacks are very dangerous. If the enemy attack misses, they will get stuck in the ground and unable to move. Earth protection is the most powerful of all protection, protection of land and regenerate itself absolute defense to attack the enemy.'
			'Water - Damage of this school is weak, but all spells steal manna from the enemy, the same high level of water protection is very dangerous, it consumes manna from an enemy and regenerates, although it is weaker than earth 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 <b>₽</b>. Concentrate the energy on a piece of paper until you succeed, then you can either start over and hope for another element, or proceed with the element that appeared to you.'

			act 'Mark sheets':gt 'kakuzu', 'mansion1'
		end
	elseif tobiQW = 2 and srodpaper <= 0 and money >= 10000:
		act 'I need another paper (10,000 <b>₽</b>)':
			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) - Idiot, listen and remember.  There are five elements, '
			'fire - school has the most powerful damage potential and the weakest protection. But there is no better school for defeating opponent with a single blow.'
			'lightning - in this school each hit paralyzes the opponent, it has weaker than damage than the fire, but if you''re hooked by lightning, then quickly you will achieve any.'
			'wind - weak damage, weak defense, but no fog or clones can save them from the wind and wind spells are almost impossible to dodge.'
			'earth - defensive school, but the attacks are very dangerous. If the enemy attack misses, they will get stuck in the ground and unable to move. Earth protection is the most powerful of all protection, protection of land and regenerate itself absolute defense to attack the enemy.'
			'Water - Damage of this school is weak, but all spells steal manna from the enemy, the same high level of water protection is very dangerous, it consumes manna from an enemy and regenerates, although it is weaker than earth 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 <b>₽</b>. Concentrate the energy on a piece of paper until you succeed, then you can either start over and hope for another element, or proceed with the element that appeared to you.'

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

	if tobiQW = 2 and srodpaper > 0 and pcs_manna < 2000:'You do not have enough mana to continue concentrating.'

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

			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 sweat like a horse, but your effort was not enough.'

				act 'Move away':gt 'kakuzu', 'mansion1'
			elseif srodstvo >= 100:
				srodpaper -= 1

				if srodrand = 1:'Paper broke in your hands. Kakuzu nods approvingly. Affinity with fire. Will you take it?'
				if srodrand = 2:'Paper electrified in your hands, and sparks dance on it. Kakuzu nods approvingly. Affinity with lightning. Will you take it?'
				if srodrand = 3:'Paper hardened in your hands. Kakuzu nods approvingly. Affinity with the land. Will you take it?'
				if srodrand = 4:'Paper shredded to pieces in your hands. Kakuzu nods approvingly. Affinity with the wind. Will you take it?'
				if srodrand = 5:'Paper soaked in your hands. Kakuzu nods approvingly. Affinity for water. Will you take 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 pcs_manna < 1000:
		'Kakuzu tells you "You have almost no energy, you need to rest."'
	elseif tobiQW = 3 and pcs_manna >= 1000:
		if stihia = 1:
			if pcs_magik >= 6 and spellfire1 = 0:
				act 'Learn Flame (1:00)':
					cla
					pcs_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 pcs_magik >= 7 and spellfire2 = 0:
				act 'Study the release of fire (1:00)':
					cla
					pcs_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 pcs_magik >= 8 and spellfire3 = 0:
				act 'Study Barrier fire (1:00)':
					cla
					pcs_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 pcs_magik >= 9 and spellfire4 = 0:
				act 'Study Firestorm (1:00)':
					cla
					pcs_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 pcs_magik >= 10 and spellfire5 = 0:
				act 'Learn Flame Shield (1:00)':
					cla
					pcs_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 pcs_magik >= 6 and spellele1 = 0:
				act 'Study Discharge (1:00)':
					cla
					pcs_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 pcs_magik >= 7 and spellele2 = 0:
				act 'Learn Lightning (1:00)':
					cla
					pcs_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 pcs_magik >= 8 and spellele3 = 0:
				act 'Electro study barrier (1:00)':
					cla
					pcs_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 pcs_magik >= 9 and spellele4 = 0:
				act 'Dance study thousands of birds (1:00)':
					cla
					pcs_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 pcs_magik >= 10 and spellele5 = 0:
				act 'Study Plyaschuschaya sphere (1:00)':
					cla
					pcs_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 pcs_magik >= 6 and spellert1 = 0:
				act 'Study Quicksand (1:00)':
					cla
					pcs_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 pcs_magik >= 7 and spellert2 = 0:
				act 'Active protection study (1:00)':
					cla
					pcs_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 pcs_magik >= 8 and spellert3 = 0:
				act 'Study Chasm (1:00)':
					cla
					pcs_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 pcs_magik >= 9 and spellert4 = 0:
				act 'Absolute protection study (1:00)':
					cla
					pcs_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 pcs_magik >= 10 and spellert5 = 0:
				act 'Study Sando (1:00)':
					cla
					pcs_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 pcs_magik >= 6 and spellwind1 = 0:
				act 'Learn Gust (1:00)':
					cla
					pcs_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 pcs_magik >= 7 and spellwind2 = 0:
				act 'Horrific study pressure (1:00)':
					cla
					pcs_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 pcs_magik >= 8 and spellwind3 = 0:
				act 'Vacuum protective sphere (1:00)':
					cla
					pcs_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 pcs_magik >= 9 and spellwind4 = 0:
				act 'Vacuum Rockets (1:00)':
					cla
					pcs_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 pcs_magik >= 10 and spellwind5 = 0:
				act 'Devouring vacuum (1:00)':
					cla
					pcs_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 pcs_magik >= 6 and spellwater1 = 0:
			act 'Creek study manna (1:00)':
				cla
				pcs_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 pcs_magik >= 7 and spellwater2 = 0:
			act 'Flooding study (1:00)':
				cla
				pcs_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 pcs_magik >= 8 and spellwater3 = 0:
			act 'Water bubble study (1:00)':
				cla
				pcs_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 pcs_magik >= 9 and spellwater4 = 0:
			act 'Water study shark missile (1:00)':
				cla
				pcs_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 pcs_magik >= 10 and spellwater5 = 0:
			act 'Study the Great Flood (1:00)':
				cla
				pcs_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 ---------------------------------