Cod: Selectaţi tot

Informaţie
					Nu puteţi chema un animal mort
				Înviaţi animal-ul şi apoi chemaţi-l din nou

Cod: Selectaţi tot

-----***** Quest pet-uri
		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
				local PetNumber = {[53001]=1,[53002]=2,[53003]=3,[53005]=4,[53006]=5,[53007]=6,[53008]=7,[53009]=8}
				local petIndex = PetNumber[item.get_vnum()]
				if horse.is_dead() then
					say_title("Informaţie:")
					say("Nu puteţi chema un animal mort.")
					say("Înviaţi animal-ul şi apoi chemaţi-l din nou.")
					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")
				loop_timer("give_exp", PetSystem.UpdateFrequency)
				chat(""..PetSystem[petIndex].Name.." a fost chemat.")
			else
				PetSystem.PetBack() 				
			end
		end
		
		-----*****
		-----***** Donaţie experienţă pet-uri
		-----*****
		
		when 30130.use begin
			if not PetSystem.IsActive() then
				chat("Pentru a dona experienţă trebuie să chemaţi animal-ul de companie.")
				return
			end
			local PetHasGotExp = PetSystem.GiveExp(PetSystem.GetActivePet(), PetSystem.ItemExp)
			if not PetHasGotExp then
				chat("Animal-ul dvs. de companie are nivel-ul maxim.")
			else
				chat("Animal-ul dvs. de companie a primit "..PetSystem.ItemExp.." puncte de experienţă.")
				pc.remove_item(item.get_vnum(), 1)
			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()				
					PetSystem.SetHorseData(PetSystem[PetIndex].Level, "Lv"..PetSystem.GetLevel(PetIndex).." "..PetSystem[PetIndex].Name)
					pet.summon()
					PetSystem.SetHorseData(horse_lev, horse_name)
					loop_timer("give_exp", PetSystem.UpdateFrequency)
				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 PetSystem.IsActive() and not PetSystem.IsExpBlocked() then
				local gained_exp = pc.get_exp()-pc.getqf("current_exp")
				if gained_exp < 0 then
					pc.setqf("current_exp", pc.get_exp())
					return
				end
				local pet_exp = math.floor(gained_exp*3/100)
				if pet_exp != 0 then
					local PetHasGotExp = PetSystem.GiveExp(PetSystem.GetActivePet(), pet_exp)
					if PetHasGotExp then
						pc.give_exp2(-pet_exp)
						pc.setqf("current_exp", pc.get_exp())
					end					
				end
			end
		end

		when button or info begin
			say_title("Noi indemânări!")
			say("Pentru a debloca noi abilităţi")
			say("animal-ului tău de companie trebuie să aveţi o nouă calificare.")
			say("Pentru mai multe informaţii merge-ţi la Meniul Animalelor de Companie.")
			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
	end
end