------------------------------------------------
-- Autor: Terenzo. (http://terenzo.tk)
-- Zakaz publikowania i sprzedawania!
------------------------------------------------
quest energy begin
	state start begin
		function time() return 720 end -- Czas trwania energii.
		function refresh() return 5 end -- Czas odświeżania w sekundach.
		when 20001.chat."Nowa technika!" begin
			say_title("Alchemik")
			say("Nareszcie!")
			say("Udało mi się opracować zupełnie nową technikę.")
			say("Za jej pomocą mogę demontować przedmioty,")
			say("ekstrahując z nich diametralnie czystą energię.")
			say("Jestem geniuszem!")
			wait()
			say_title("Alchemik")
			say("Demontując przedmiot za pomocą mojej techniki,")
			say("otrzymasz odłamek energii. Złóż 30 takich")
			say("odłamków, a powstanie z nich potężny kryształ ")
			say("energii - diametralnie czysta energia skupiona w")
			say("jednym klejnocie. Moc ta przeniesie się na twoje")
			say("całe uzbrojenie.")
			say("Brzmi nieźle, co?")
			wait()
			say_title("Alchemik")
			say("Przenoś mi broń, biżuterię, zbroję i inne części")
			say("uzbrojenia, a ja zamienię je w odłamki energii.")
			say("Ta technika to przyszłość naszego imperium!")
			say("Będziemy niezwyciężeni!")
			pc.setqf("energytime", 0)
			pc.setqf("energy", 0)
			set_state("make")
		end
	end
	state make begin
		when 20001.chat."Ekstrahuj odłamki energii" begin
			say_title("Alchemik")
			say("I jak? Zadziałało? Masz już odłamek energii?")
			say("Przynieś mi więcej przedmiotów, a ja zdemontuje")
			say("je za pomocą mojej alchemii.")
			say("Wiedz jednak, że ta technika nie jest jeszcze")
			say("udoskonalona. Dlatego też nie mogę ci powiedzieć,")
			say("ile odłamków otrzymasz za dany przedmiot.")
			wait()
			say_title("Alchemik")
			say("Jest jeden warunek: zarówno twój poziom jak i")
			say("poziom przedmiotu musi być co najmniej 35.")
			say("Hmm, zobaczymy...")
			wait()
			if pc.get_level() < 35 then
				say_title("Alchemik")
				say("Musisz jeszcze nieco potrenować! Wróć, gdy")
				say("osiągniesz co najmniej poziom 35.")
			else
				say_title("Alchemik")
				say("Ach, świetnie! Widzę, że posiadasz już ")
				say("wystarczającą ilość doświadczenia. Daj mi")
				say("przedmiot, który mam zdemontować.")
			end
		end
		when 20001.chat."Złóż kryształ energii" begin
			say_title("Alchemik")
			say("Powoli opadasz już z sił, co? Nie pracuj tak")
			say("ostro, bo przypłacisz to kiedyś życiem. Aby")
			say("stworzyć kryształ energii, potrzebujesz 30 x")
			say("odłamek energii.")
			wait()
			if pc.get_level() >= 35 then
				if pc.count_item(51001) >= 30 then
					say_title("Alchemik")
					say("Świetnie, widzę że masz już 30 x odłamek")
					say("energii. W takim razie mogę z nich stworzyć ")
					say("kryształ energii. Zaczekaj chwilkę. Spróbuję, ale")
					say("nie gwarantuję, że się uda.")
					wait()
					say_title("Alchemik")
					say("Wszystko już gotowe. Możemy przetopić odłamki na")
					say("kryształ energii.")
					say("No ale ja sam muszę przecież z czegoś żyć,")
					say("prawda? Ten wyjątkowy zabieg wyniesie cię 1000")
					say("Yang. Zapłacisz tyle?")
					if select("Jasne!","Nie, nie teraz.") == 1 then
						pc.change_money(-1000)
						pc.remove_item(51001,30)
						if pc.getqf("energyfirst") == 0 then
							pc.setqf("energyfirst", 1)
							say_title("Alchemik")
							say("Proszę, oto twój kryształ energii. Ale tylko")
							say("pierwsze podejście zawsze się udaję. Alchemia to")
							say("bardzo nieobliczalna dziedzina nauki. Zawsze")
							say("zatem istnieje pewne prawdopodobieństwo, że ")
							say("eksperyment nie wypali.")
							pc.give_item2(51002,1)
						else
							if number(0,1) == 1 then
								say_title("Alchemik")
								say("Wiedziałem! Moja technika jest genialna!")
								say("Oto twój kryształ energii.")
								say("Niezłe cacko, co? Czujesz tę pulsującą energię?")
								pc.give_item2(51002,1)
							else
								say_title("Alchemik")
								say("No niestety, nie udało mi się stworzyć.")
								say("kryształu energii. Moja technika jest genialna,")
								say("ale niestety jeszcze niedopracowana. Tak to już ")
								say("jest z alchemią.")
								say("Następnym razem na pewno się uda.")
							end
						end
					else
						return
					end
				else
					return
				end
			else
				return
			end
		end
		when 20001.take begin
			if pc.get_level() >= 35 then
				if item.get_type() == 1 or item.get_type() == 2 then
					local level = query("SELECT limitvalue0 FROM player.item_proto WHERE vnum='".. item.get_vnum() .."' LIMIT 1;")
					if tonumber(level) >= 35 then
						say_title("Alchemik")
						say(item.get_name())
						say("Chcesz, aby zdemontować twój przedmiot?")
						if select("Tak!","Nie, jeszcze nie!") == 1 then
							item.remove()
							if number(0,2) > 0 then
								local eks = number(3,15)
								say_title("Alchemik")
								say("Fantastycznie! Udało mi się ekstrahować ".. eks .." x")
								say("odłamek energii.")
								say("Proszę bardzo!")
								wait()
								pc.give_item2(51001, eks)
							else
								say_title("Alchemik")
								say("Ech, niestety nie udało mi się ekstrahować ")
								say("odłamku energii. Być może uda się następnym")
								say("razem.")
								return
							end
						else
							return
						end
					else
						say_title("Alchemik")
						say("Ten przedmiot nie posiada zbyt wiele energii. Daj")
						say("mi przedmiot o poziomie 35 lub wyższym, jeśli")
						say("chcesz abym użył swojej techniki.")
						return
					end
				else
					say_title("Alchemik")
					say("Ten przedmiot nie nadaje się do demontażu za")
					say("pomocą mojej techniki. Daj mi coś innego.")
				end
			else
				say_title("Alchemik")
				say("Nie jesteś jeszcze wystarczająco silny")
				say("by wytworzyć energię mistrza")
				say("wróc gdy osiągniesz 35 poziom")
				return
			end
		end
		when 51002.use begin
			if 1 <= pc.getqf("energy") and pc.getqf("energy") <= 10 then
				chat("Jeszcze nie możesz użyć mocy tego kryształu.")
			else
				pc.remove_item(51002, 1)
				pc.setqf("energy", 10)
				pc.setqf("energytime", energy.time())
				cmdchat("pointEnergy ".. pc.getqf("energy"))
				loop_timer("energy_time",energy.refresh())
				local los = number(1,4)
				local val = number(pc.get_level()/10,pc.get_level()/5)
				if los == 1 then
					affect.add_collect(apply.CON, val, energy.time()*10)
					chat("Twoja energia życiowa została zwiększona o ".. val .." punktów na ".. energy.time()*10/60 .." minut.")
				elseif los == 2 then
					affect.add_collect(apply.INT, val, energy.time()*10)
					chat("Twoja inteligencja została zwiększona o ".. val .." punktów na ".. energy.time()*10/60 .." minut.")
				elseif los == 3 then
					affect.add_collect(apply.STR, val, energy.time()*10)
					chat("Twoja siła została zwiększona o ".. val .." punktów na ".. energy.time()*10/60 .." minut.")
				elseif los == 4 then
					affect.add_collect(apply.DEX, val, energy.time()*10)
					chat("Twoja zręczność została zwiększona o ".. val .." punktów na ".. energy.time()*10/60 .." minut.")
				end
			end
		end
		when login begin
			cmdchat("pointEnergy ".. pc.getqf("energy"))
			loop_timer("energy_time",energy.refresh())
		end
		when energy_time.timer begin
			if pc.getqf("energytime") >= 1 then
				pc.setqf("energytime", pc.getqf("energytime") - energy.refresh())
				return
			elseif pc.getqf("energy") >= 1 then
				pc.setqf("energy", pc.getqf("energy") - 1)
				if pc.getqf("energy") >= 1 then
					pc.setqf("energytime", energy.time())
				end
				cmdchat("pointEnergy ".. pc.getqf("energy"))
				return
			elseif pc.getqf("energy") == 0 then
				pc.setqf("energy", 0)
				cmdchat("pointEnergy ".. 0)
				chat("Energia została zużyta.")
				cleartimer("energy_time")
			end
		end
	end
end