dragonlair.quest

quest dragonlair begin
	state start begin
		when login begin
			if pc.get_map_index() >= 750000 and pc.get_map_index() < 760000 then
				pc.set_warp_location(75, 8432, 10670)
			end
		end

		when 30121.chat."Salle de Cristal" with pc.get_map_index() != 75 begin
			say_title("Esprit d'un sura")
			say("Voulez vous accedez à la salle de cristal?")
			local s = select("Oui", "Non")
			if s == 2 then
				return
			end
			if pc.level < 75 then
				say_title("Esprit d'un sura")
				say("tu n'es pas level 75, je ne peux pas te permettre")
				say("d'accéder là-bas.")
			end
			say_title("Esprit d'un sura")
			say("Vous allez être teleporté...")
			pc.warp(843200, 1067000)
		end

		when 30121.chat."Salle de cristal" with pc.get_map_index() == 75 begin
			say_title("Esprit d'un sura")
			say("Vous allez affronter le dragon Béran Sétaou?")
			say("Si vous êtes dans un groupe, tous les membres")
			say("seront téléportés avec vous!")
			say_reward("Pour pouvoir entrer vous avez besoin de clé en spirale!")
			say_item_vnum(30179)
			local s = select("J'ai la clé demandée", "Fermer")
			if s == 2 then
				return
			end
			if pc.count_item(30179)==0 then
				say_title("Esprit d'un sura")
				say("Vous n'avez pas la clé pour rentrer!")
				return
			end
			if party.is_party() then
				if party.is_leader() then
					local count = party.get_near_count()
					if count <= 1 then
						say_reward("Les membres de votre groupe doivent être")
						say_reward(" à côté de vous.")
					elseif count < 2 then
						say_reward("Vous devez être au moins deux dans le groupe")
					else
						say_title("Esprit d'un sura")
						say("Vous allez être téléporter...")
						say("votre groupe vous suivra!")
						party.chat("Vous êtes sur le point de combattre le Beran Setaou!")
						party.chat(pc.get_name().." avec votre groupe!")
						pc.remove_item(30179, 1)
						npc.purge()
						wait()
						d.new_jump_party(75, 8432+245, 10670+171)
						d.regen_file("data/dungeon/blue_dragon/regen.txt")
					end
				else
					say_title("Esprit d'un sura")
					say("vous n'êtes pas le chef de groupe")
				end
			else
				say_title("Esprit d'un sura")
				say("vous devez être en groupe de minimum 2 personnes")
				say("pour pouvoir faire le béran")
			end
			d.set_unique("beran", d.spawn_mob(2493, 182, 173))
			d.unique_set_maxhp("beran", 3000000)
			d.unique_set_hp("beran", 3000000)
			d.unique_set_def_grade("beran", 450)
			pc.setqf("beran_def", 0)
		end

		when login with pc.get_map_index() >= 750000 and pc.get_map_index() < 760000 begin
			d.notice("Bienvenue dans cet instance du béran setaou")
			d.notice("vous allez devoir affronter l'immonde dragon bleu")
			d.notice("petite astuce : on dit que les metins autours de lui")
			d.notice("sont des réincarnations de lui-même, bonne chance")
			d.notice("vous avez 1 heure pour le détruire")
			server_timer("timerberan", 3600, d.get_map_index())
		end

		when timerberan.server_timer with pc.get_map_index() >= 750000 and pc.get_map_index() < 760000 begin
			warp_to_village()
		end

		when 8033.kill with pc.get_map_index() >= 750000 and pc.get_map_index() < 760000 begin
			d.unique_set_hp("beran", ((d.unique_get_hp_perc("beran") - 10) * 3000000) / 100)
			d.notice("Le beran a maintenant "..d.unique_get_hp_perc("beran").."% de vie")
			local s = number(1, 100)
			if s > 50 then
				d.spawn_mob(2411, 182, 173)
				d.spawn_mob(2412, 182, 173)
				d.spawn_mob(2413, 182, 173)
				d.spawn_mob(2414, 182, 173)
			end
		end

		when 8034.kill with pc.get_map_index() >= 750000 and pc.get_map_index() < 760000 begin
			pc.setqf("beran_def", pc.getqf("beran_def") + 100)
			d.unique_set_def_grade("beran", 739 - pc.getqf("beran_def"))
			d.notice("Le beran a maintenant "..739 - pc.getqf("beran_def").." de défense")
			local s = number(1, 100)
			if s > 50 then
				d.spawn_mob(2411, 182, 173)
				d.spawn_mob(2412, 182, 173)
				d.spawn_mob(2413, 182, 173)
				d.spawn_mob(2414, 182, 173)
			end
		end

		when 2493.kill with pc.get_map_index()>=75000 and pc.get_map_index()<760000 begin
			notice_all(pc.get_name().." a tué le Dragon bleu!")
			d.kill_all()
			game.drop_item_with_ownership(71123, 1)
			game.drop_item_with_ownership(71129, 1)
			d.spawn_mob(30121, 182, 173)
			clear_server_timer("timerberan")
		end

		when 30121.chat."Partir d'ici" with pc.get_map_index() >= 750000 and pc.get_map_index() < 760000 begin
			warp_to_village()
		end
	end
end