quest guild_building begin
    state start begin
	when 20040.click begin
	    say_title("Grundstücksverwalter:[ENTER]"..
	        "Ich bin Grundstücksverwalter und zuständig für[ENTER]"..
		"den Verkauf von Landflächen. Bevor die Monster[ENTER]"..
		"das Land in der Mitte des Kontinents besetzten,[ENTER]"..
		"hatten wir nicht unter Landknappheit zu leiden[ENTER]"..
		"und es ging allen gut. Jetzt verkaufe ich das[ENTER]"..
		"Land nur noch an die Gildenanführer, die es als[ENTER]"..
		"Gildenland nutzen. Willst du dieses Grundstück[ENTER]"..
		"kaufen?[ENTER]")

	    local s = select(locale.yes, locale.no)

	    if s == 1 then
		if not pc.is_guild_master() then
		    say("Ich kann dir das Land nicht geben.[ENTER]"..
		        "Bitte verzeih mir.")
		elseif building.has_land(pc.get_guild()) then
		    say("Wenn Sie das Land kaufen können Sie keine anderen Flächen dazu erwerben.")
		else
		    local land_id = building.get_land_id(pc.get_map_index(), pc.get_x()*100, pc.get_y()*100)

		    if land_id == 0 then
			say("Fehler.")
		    else
			local price, owner, guild_level_limit = building.get_land_info(land_id)
			say("Wenn Sie das Land kaufen müssen Sie es besiedeln.[ENTER]"..
			    "Kaufpreis: "..price.." Yang.[ENTER]")

			if guild.level(pc.get_guild()) < guild_level_limit then
			    say("Ihnen mangelt es an Gildenmitgliedern.[ENTER]")
			else
			    say("Wollen Sie dieses Land nun kaufen?")

			    s = select(locale.yes, locale.no)

			    if s == 1 then
				local price, owner, guild_level_limit = building.get_land_info(land_id)

				if owner != 0 then
				    say("Dieses Stück Land wurde bereits gekauft.")
				elseif pc.gold < price then
				    say("Bringen Sie bitte nächstes mal genug Yang mit.")
				else
				    pc.changegold(-price)
				    building.set_land_owner(land_id, pc.get_guild())
				    notice(guild.name(pc.get_guild()).."Sie haben das Land erfolgreich gekauft!")
				end
			    else
				say("Wenn Sie dieses Land kaufen möchten, kommen Sie bitte wieder.")
			    end
			end
		    end
		end
	    else
		say("Wenn Sie dieses Land kaufen möchten, kommen Sie bitte wieder.")
	    end
	end
    end
end

quest alter_of_power begin
	state start begin
		when 20077.click with npc.get_guild() == pc.get_guild() and pc.is_guild_master() begin
			say("Ich bin der Wächter dieses Altars.")
			say("Der Altar erhöht die maximale Zahl")
			say("der Mitglieder in Ihrer Gilde. ")
			say("Sie können diesen Altar ausbauen, um")
			say("diese Zahl noch zu steigern.")
			say("")

			if pc.getqf("build_level") == 0 then
				pc.setqf("build_level", guild.level(pc.get_guild()))
			end

			wait()

			say("Hmm...")

			if pc.getqf("build_level") < guild.level(pc.get_guild()) or guild.level(pc.get_guild()) >= 20 then

				say("Sie sind bereit Ihren Altar")
				say("auszubauen. Wollen Sie das?")
				say("Das kostet Sie nämlich")
				say("")
				say_reward("25.000.000 Yang ")
				say_reward("10 Fundamentsteine")
				say_reward("10 Stämme")
				say_reward("15 Sperrhölzer")
				say("")

				local s = select("Ich baue!", "Nein, zu teuer.")

				if s == 1 then
					if pc.count_item(90010) >= 10 and pc.count_item(90012) >= 15 and pc.count_item(90011) >= 10 and pc.get_gold() >= 25000000 then
						say("Der Altar wird jetzt ausgebaut.")
						building.reconstruct(14062)
						pc.setqf("build_level", guild.level(pc.get_guild()))
						char_log(0, "GUILD_BUILDING", "alter_of_power 14062 constructed")

						pc.change_gold(-25000000)
						pc.remove_item("90010", 10)
						pc.remove_item("90011", 10)
						pc.remove_item("90012", 15)
					else
						say("Du hast nicht alle benötigten")
						say("Materialien. Hole diese zuerst.")
						say("")
					end
				elseif s == 2 then
					say("Wie du meinst.")
					say("")
				end
			else
				say("Sie können jetzt nicht bauen.")
				say("")
			end
		end

		when 20078.click with npc.get_guild() == pc.get_guild() and pc.is_guild_master() begin
			say("Der Altar kann wieder ausgebaut werden.")
			say("Je höher die Stufe, desto stärker die Kraft.")
			say("")

			wait()

			say("Hmm...")

			if pc.getqf("build_level") < guild.level(pc.get_guild()) or guild.level(pc.get_guild()) >= 20 then
				say("Sie leisten wirklich großartiges.")
				say("Sie können den Altar wiederum verstärken.")
				say("Sie brauchen folgendes:")
				say("")
				say_reward("30.000.000 Yang ")
				say_reward("15 Fundamentsteine")
				say_reward("20 Stämme")
				say_reward("20 Sperrhölzer")
				say("")

				local s = select("Ich baue!", "Nein, zu teuer")

				if s == 1 then
					if pc.count_item(90010) >= 15 and pc.count_item(90012) >= 20 and pc.count_item(90011) >= 20 and pc.get_gold() >= 30000000 then
						say("Du hast alles beisammen,")
						say("der Altar wird ausgebaut.")
						say("")
						building.reconstruct(14063)
						pc.setqf("build_level", guild.level(pc.get_guild()))
						char_log(0, "GUILD_BUILDING", "alter_of_power 14063 constructed")

						pc.change_gold(-30000000)
						pc.remove_item("90010", 15)
						pc.remove_item("90011", 20)
						pc.remove_item("90012", 20)
					else
						say("Du hast nicht alle benätigten")
						say("Materialien. Hole diese zuerst.")
						say("")
					end
				elseif s == 2 then
					say("Wie du meinst.")
					say("")
				end
			end
		end

		when 20079.click with npc.get_guild() == pc.get_guild() and pc.is_guild_master() begin
			say("Der Altar ist bereits maxmimal ausgebaut.")
			say("Ich kann ihn nicht weiter ausbauen.")
			say("")
		end

		when 20077.click or 20078.click or 20079.click with npc.get_guild() == pc.get_guild() and pc.is_guild_master() != true begin
			say("Wenn die Stufe des Altars steigt,")
			say("kannst du mehr Gildenmitglieder haben.")
			say("")
		end
	end
end

quest guild_building_melt begin
	state start begin
		function GetOreRefineCost(cost)
			if pc.empire != npc.empire then
				return 3 * cost
			end
			if pc.get_guild() == npc.get_guild() then
				return cost * 0.9
			end
			return cost
		end

		function GetOreRefineGoodPct()
			return 60
		end

		function GetOreRefineBadPct()
			return 30
		end

		function GetMyRefineNum(race)
			return race - 20060 + 50601
		end

		function IsRefinableRawOre(vnum)
			return vnum >= 50601 and vnum <= 50613
		end

		function DoRefineDiamond(pct)
			local from_postfix
			local from_name = item_name(item.vnum)
			local to_vnum = item.vnum + 20
			local to_name = item_name(to_vnum)
			local to_postfix 

			if under_han(from_name) then
				from_postfix = " "
			else
				from_postfix = " "
			end

			if under_han(to_name) then
				to_postfix = ""
			else
				to_postfix = ""
			end

			say("Du musst mir 100 " .. from_name .. " bringen,")
			say("damit ich daraus " .. to_name .. " fertigen kann.")
			if item.count >= 100 then
				say("Die Wahrscheinlichkeit beträgt "..pct.."%. Du benötigst "..guild_building_melt.GetOreRefineCost(10000).."Yang")
				say("Möchtest du es versuchen?")
				local s = select("Ja", "Nein")
				if s == 1 then
					if pc.get_gold() < guild_building_melt.GetOreRefineCost(10000) then
						say("Du hast nicht genug Yang.")
						return
					end

					if pc.diamond_refine(10000, pct) then
						say("Die Herstellung war erfolgreich. Du erhälst")
						say_item(to_name, to_vnum, "")
					else
						say("Die Herstellung ist fehlgeschlagen.")
					end
				end
			else
				say("Du brauchst 100 davon.")
			end
		end
		function DoRefine(pct)
			local from_postfix
			local from_name = item_name(item.vnum)
			local to_vnum = item.vnum + 20
			local to_name = item_name(to_vnum)
			local to_postfix 

			if under_han(from_name) then
				from_postfix = ""
			else
				from_postfix = ""
			end

			if under_han(to_name) then
				to_postfix = ""
			else
				to_postfix = ""
			end

			say("Du musst mir 100 " .. from_name .. " sowie einen")
			say("Geiststein +0, +1 oder +2 bringen,")
			say("damit ich daraus " .. to_name .. " fertigen kann.")
			if item.count >= 100 then
				say("Die Wahrscheinlichkeit beträgt "..pct.."%. Du benötigst "..guild_building_melt.GetOreRefineCost(3000).."Yang.")
				say("Möchtest du es versuchen?")
				local s = select("Ja", "Nein")
				if s == 1 then
					if pc.get_gold() < guild_building_melt.GetOreRefineCost(3000) then
						say("Du hast zuwenig Yang.")
						return
					end

					local selected_item_cell = select_item()
					if selected_item_cell == 0 then
						say("Ohne Geiststein kann ich es nicht herstellen.")
						return
					end
					local old_item = item.get_id()

					if not item.select_cell(selected_item_cell) then
						say("³o*Óª««~¨Ã¤£¥¿½T.")
						return
					end

					if item.vnum < 28000 or item.vnum >= 28300 then
						say("¿ï¾Üªºª««~¨Ã¤£¥¿½T.")
						return
					end

					item.select(old_item)

					if pc.ore_refine(3000, pct, selected_item_cell) then
						say("Die Herstellung war erfolgreich. Du erhälst")
						say_item(to_name, to_vnum, "")
					else
						say("Die Herstellung ist fehlgeschlagen.")
					end
				end
			else
				say("Du brauchst 100 davon.")
			end
		end

		when 
			20060.take or
			20061.take or
			20062.take or
			20063.take or
			20064.take or
			20065.take or
			20066.take or
			20067.take or
			20068.take or
			20069.take or
			20070.take or
			20071.take or
			20072.take 
			with guild_building_melt.GetMyRefineNum(npc.race) == item.vnum
			begin
			if item.vnum == 50601 then
				guild_building_melt.DoRefineDiamond(guild_building_melt.GetOreRefineGoodPct())
			else
				guild_building_melt.DoRefine(guild_building_melt.GetOreRefineGoodPct())
			end
		end

		when 
			20060.take or
			20061.take or
			20062.take or
			20063.take or
			20064.take or
			20065.take or
			20066.take or
			20067.take or
			20068.take or
			20069.take or
			20070.take or
			20071.take or
			20072.take 
			with guild_building_melt.IsRefinableRawOre(item.vnum) and guild_building_melt.GetMyRefineNum(npc.race) != item.vnum
			begin
			if item.vnum == 50601 then
				guild_building_melt.DoRefineDiamond(guild_building_melt.GetOreRefineBadPct())
			else
				guild_building_melt.DoRefine(guild_building_melt.GetOreRefineBadPct())
			end
		end

		when 
			20060.click or
			20061.click or
			20062.click or
			20063.click or
			20064.click or
			20065.click or
			20066.click or
			20067.click or
			20068.click or
			20069.click or
			20070.click or
			20071.click or
			20072.click
			with npc.get_guild() == pc.get_guild() and pc.isguildmaster()
			begin
			say("Für 3.000.000 Yang können Sie mich spezialisieren.")
			if pc.get_gold() < 3000000 then
				say("Du brauchst 3.000.000 Yang.")
			else
				say("Welche Spezialisierung wollen sie?")

				local sel = 0
				local timetable1 = {'Diamanten', 'Fossilholz', 'Kupfer', 'Silber', 'Gold', 'Jade', 'Weiter', 'Keine Änderung'} 
				local valuetable1 = {14043, 14045, 14046, 14047, 14048, 14049, 0, -1} 
				local timetable2 = {'Ebenholz', 'Perle', 'Weissgold', 'Kristall', 'Amethyst', 'Himmelsträne', 'Zurück', 'Keine Änderung'} 
				local valuetable2 = {14050, 14051, 14052, 14053, 14054, 14055, 0, -1} 
				repeat 
					local s = select_table(timetable1) 
					sel = valuetable1[s] 
					if sel == 0 then 
						local s = select_table(timetable2) 
						sel = valuetable2[s] 
					end 
				until sel != 0 
				if sel != -1 then 
					npc_num = sel + 20060 - 14043 
					if npc_num == npc.get_race() then
						say("Das bin ich doch bereits.")
					else
						pc.changegold(-3000000)
						building.reconstruct(sel)
					end
				else
					say("Dann eben nicht.")
				end 
			end
		end
	end
end

quest guild_building_npc begin
    state start begin
	when 20044.click begin
	    if npc.get_guild() == pc.get_guild() then
		say("Ah! Seid Gegrüßt!")
		say("Ich kann Waffen um 10% besser verbessern als")
		say("der Dorfschmied. Als Gildenmitglied")
		say("Erhalten sie natuerlich einen Preisnachlass")
		say("von 5%!")
	    else
		say("Ich bin der Schmied der für Waffen zuständig ist!")
		say("Der Dorfschmied bekommt das nicht so gut")
		say("hin, ist aber auch wesentlich billiger als ich.")
		say("Aber ich schaffe 10% mehr als er.")
	    end
	end
	when 20045.click begin
	    if npc.get_guild() == pc.get_guild() then
		say("Ah! Seid Gegrüßt!")
		say("Ich kann Rüstungen um 10% besser verbessern als")
		say("der Dorfschmied. Als Gildenmitglied")
		say("Erhalten sie natuerlich einen Preisnachlass")
		say("von 5%! Als Rüstungen zählen natürlich")
		say("auch Schilde und Helme.")
	    else
		say("Ich bin der Schmied der für Ruestungen zuständig ist!")
		say("Ausserdem verbessere ich auch Helme und Schilde")
		say("Der Dorfschmied bekommt das nicht so gut")
		say("hin, ist aber auch wesentlich billiger als ich.")
		say("Aber ich schaffe 10% mehr als er.")

	    end
	end
	when 20046.click begin
	    if npc.get_guild() == pc.get_guild() then
		say("Ah! Seid Gegrüßt!")
		say("Ich kann Schmuck um 10% besser verbessern als")
		say("der Dorfschmied. Als Gildenmitglied")
		say("Erhalten sie natürlich einen Preisnachlass")
		say("von 5%! Als Schmuck zählen natürlich")
		say("Ohrringe, Ketten, Armbänder und Schuhe.")
	    else
		say("Ich bin der Schmied der fuer Schmuck zuständig ist!")
		say("Der Dorfschmied bekommt das nicht so gut")
		say("hin, ist aber auch wesentlich billiger als ich.")
		say("Aber ich schaffe 10% mehr als er.")
	    end
	end
    end
end