quest

quest horse_summon begin
	state start begin
		function get_horse_summon_prob_pct()
			local prob = {10,15,20,30,40,50,60,70,80,90,100}
			local skill_level = pc.get_skill_level(131) + 1
			return prob[skill_level]
		end
		when 20349.chat."Nowa Księga Zwykłego Konia " with horse.get_grade()==1 and pc.countitem("50051")<1 begin
			say_title("Stajenny:")
			say("Zgubiłeś Księgę Zwykłego Konia! ")
			say("Mogę dać Ci nową za 500.000 Yang.")
			local b=select("Tak", "Nie")
			if 1==b then
				if pc.money>=10000 then
					pc.changemoney(-10000)
					say_title("Informacja:")
					say("Oto nowa Księga Zwykłego Konia! [ENTER]Tym razem spróbuj jej nie zgubić! ")
					pc.give_item2("50051", 1)
				else
					say_title("Informacja:")
					say("Nie masz wystarczająco dużo yang!")
				end
			else
				return
			end
		end
		when 20349.chat."Nowa Księga Opancerz. Konia " with horse.get_grade()==2 and pc.countitem("50052")<1 begin
			say_title("Stajenny:")
			say("Zgubiłeś Księgę Opancerz. Konia! ")
			say("Mogę dać Ci nową za 500.000 Yang.")
			local b=select("Tak", "Nie")
			if 1==b then
				if pc.money>=50000 then
					pc.changemoney(-50000)
					say_title("Informacja:")
					say("Oto nowa Księga Opancerz. Konia![ENTER]Tym razem spróbuj jej nie zgubić! ")
					pc.give_item2("50052", 1)
				else
					say_title("Informacja:")
					say("Nie masz wystarczająco dużo yang!")
				end
			else
				return
			end
		end
		when 20349.chat."Nowa Księga Wojskowego Konia " with horse.get_grade()==3 and pc.countitem("50053")<1 begin
			say_title("Stajenny:")
			say("Zgubiłeś Księgę Wojskowego Konia! ")
			say("Mogę dać Ci nową za 500.000 Yang.")
			local b=select("Tak", "Nie")
			if 1==b then
				if pc.money>=100000 then
					pc.changemoney(-100000)
					say_title("Informacja:")
					say("Oto nowa Księga Wojskowego Konia![ENTER]Tym razem spróbuj jej nie zgubić! ")
					pc.give_item2("50053", 1)
				else
					say_title("Informacja:")
					say("Nie masz wystarczająco dużo yang!")
				end
			else
				return
			end
		end
		when 50051.use or 50052.use or 50053.use begin
			pc.set_skill_level(131, 10)
			horse.set_level(21)
			horse.ride()
		end
		when 53001.use or 53002.use or 53003.use or 53005.use or 53006.use or 53007.use or 53008.use or 53009.use begin
			if not PetSystem.IsActive() then
				if item.get_vnum() == 53001 then
					cmdchat("buff8")
				elseif item.get_vnum() == 53002 then
					cmdchat("buff10")
				elseif item.get_vnum() == 53003 then
					cmdchat("buff9")
				elseif item.get_vnum() == 53005 then
					cmdchat("buff11")
				elseif item.get_vnum() == 53006 then
					cmdchat("buff12")
				elseif item.get_vnum() == 53007 then
					cmdchat("buff13")
				elseif item.get_vnum() == 53008 then
					cmdchat("buff14")
				elseif item.get_vnum() == 53009 then
					cmdchat("buff15")
				end
				local PetNumber = {[53001]=1,[53002]=3,[53003]=2,[53005]=4,[53006]=5,[53007]=6,[53008]=7,[53009]=8}
				local petIndex = PetNumber[item.get_vnum()]
				local id = pc.getqf("id")
				local id1 = item.get_id()
				pc.setqf("id",id1)
				pc.setqf("petindex", petIndex)
				item.set_socket(1, PetSystem.GetLevel(petIndex))
				if horse.is_dead() then
					say_title("Informacja:")
					say("Nie można przywołać martwego zwierzęcia.")
					say("Ożyw zwierze")
					return
				end
				local horse_lev = horse.get_level()
				local horse_name = horse.get_name()
				PetSystem.SetActivePet(petIndex)
				PetSystem.AddBonus(petIndex)
				PetSystem.SetHorseData(PetSystem[petIndex].Level, "Lv"..PetSystem.GetLevel(petIndex).." "..PetSystem[petIndex].Name)
				pet.summon()
				PetSystem.SetHorseData(horse_lev, horse_name)
				cleartimer("give_exp")
				timer("give_exp", 2)
				chat(""..PetSystem[petIndex].Name.." został przywołany.")
				PetSystem.pokaz_gui(1)
				item.set_socket(0, 1)
			else
				PetSystem.PetBack()
			end
		end
		when login begin
			if PetSystem.IsActive() then
				if pc.count_item(PetSystem[PetSystem.GetActivePet()].Item) != 0 and not horse.is_dead() then
					local horse_lev = horse.get_level()
					local horse_name = horse.get_name()
					local PetIndex = PetSystem.GetActivePet()
					local id = pc.getqf("id")
					PetSystem.SetHorseData(PetSystem[PetIndex].Level, "Lv"..PetSystem.GetLevel(PetIndex).." "..PetSystem[PetIndex].Name)
					pet.summon()
					PetSystem.pokaz_gui(1)
					PetSystem.SetHorseData(horse_lev, horse_name)
					timer("give_exp", 2)
				else
					PetSystem.SetInactive()
					timer("remove_bonus", 2)
				end
			end
			pc.setqf("current_exp", pc.get_exp())
		end

		when remove_bonus.timer begin
			PetSystem.RemoveBonus()
		end

		when give_exp.timer begin
			if pc.count_item(PetSystem[PetSystem.GetActivePet()].Item) < 1 then
				syschat("Nie możliwe! Pieczęć peta znikła! Muszę go odwołać!")
				PetSystem.PetBack()
				return
			elseif horse.is_dead() then
				syschat("Twój zwierzak nie żyje! Muszę go odwołać!")
				PetSystem.PetBack()
				return
			elseif pc.is_dead() then
				PetSystem.PetBack()
				return
			end
		end
		when kill with not npc.is_pc() begin
			local razem = pc.get_level() - npc.get_level()
			if PetSystem.IsActive() and not PetSystem.IsExpBlocked() then
				if razem < 50 then
					local gained_exp = pc.get_exp()
					if gained_exp < 0 then
						return
					end
					local licz = npc.get_level()*25
					test = pc.get_level()*4
					if item.select_cell(97) then
						if 72909 == item.vnum then
							test = pc.get_level()*2
							licz = npc.get_level()*12
							pd = 1
						end
					end
					if item.select_cell(98) then
						if 72909 == item.vnum then
							test = pc.get_level()*2
							licz = npc.get_level()*12
							pd = 1
						end
					end
					if pc.get_level() < 75 then
						test = pc.get_level()
							licz = npc.get_level()*8
						if pd == 1 then
							licz = npc.get_level()*4
						end
					end
					local pet_exp = math.floor(gained_exp/licz)
					pet_exp = math.floor(pet_exp/test)
					pet_exp = pet_exp*10
					if pet_exp != 0 then
						local PetHasGotExp = PetSystem.GiveExp(PetSystem.GetActivePet(), pet_exp)
						if PetHasGotExp then
							if pc.get_level() < 75 then
								pc.give_exp2(-pet_exp)
							else
								pc.give_exp2(-pet_exp*10)
							end
						end
						PetSystem.pokaz_gui(2)
					end
				end
			end
		end
		when button or info begin
			say_title("Nowe Umiejetnosci")
			say("Twój zwierzak ma odblokowane")
			say("nowe umiejętności, aby dowiedzieć się ")
			say("więcej przejśdz do menu Zwierzaka .[ENTER]")
			q.done()
		end

		-----***** Menu Pet
		when 20120.click begin PetSystem.ShowMenu(1) end
		when 20121.click begin PetSystem.ShowMenu(1) end
		when 20122.click begin PetSystem.ShowMenu(1) end
		when 20123.click begin PetSystem.ShowMenu(2) end
		when 20124.click begin PetSystem.ShowMenu(2) end
		when 20125.click begin PetSystem.ShowMenu(2) end
		when 20126.click begin PetSystem.ShowMenu(3) end
		when 20127.click begin PetSystem.ShowMenu(3) end
		when 20128.click begin PetSystem.ShowMenu(3) end
		when 20129.click begin PetSystem.ShowMenu(4) end
		when 20130.click begin PetSystem.ShowMenu(4) end
		when 20131.click begin PetSystem.ShowMenu(4) end
		when 20132.click begin PetSystem.ShowMenu(5) end
		when 20133.click begin PetSystem.ShowMenu(5) end
		when 20134.click begin PetSystem.ShowMenu(5) end
		when 20135.click begin PetSystem.ShowMenu(6) end
		when 20136.click begin PetSystem.ShowMenu(6) end
		when 20137.click begin PetSystem.ShowMenu(6) end
		when 20138.click begin PetSystem.ShowMenu(7) end
		when 20139.click begin PetSystem.ShowMenu(7) end
		when 20140.click begin PetSystem.ShowMenu(7) end
		when 20141.click begin PetSystem.ShowMenu(8) end
		when 20142.click begin PetSystem.ShowMenu(8) end
		when 20143.click begin PetSystem.ShowMenu(8) end
		when logout begin cmdchat("PetZamnkij") end
	end
end