[SERVICE] Die Questkontrolle

Page 561 of 845

561

06/27/2013 23:36 Fear *_*#8401

@fabbi94: F�g einfach setskin(NOWINDOW) ein.

06/28/2013 02:42 fabbi94#8402

Quote:

Originally Posted by Fear *_*

@fabbi94: F�g einfach setskin(NOWINDOW) ein.

Okay danke hat geklappt. Die andere Quest hab ich nun auch erfolgreich fertiggestellt.

Das einzige problem was ich noch habe ist per Quest befehl Sub skills also sprache und sowas hochzuskillen? Weis zuf�llig jemand wie das geht?

Gru�

06/28/2013 04:57 epvpsucks4#8403

Fehlermeldung:
Bei den meisten Spielern geht es bei ein paar geht es nicht.

Fehlermeldungen werden nicht angezeigt in Putty

Ich bitte um hilfe

Code:

quest multiring begin
	state start begin
		when 70007.use begin
			say_title("Warpring:")
			local main=select("Warpring-Funktion", "Lager-Funktion", "Shopping-Funktion", "Tastensperre")
			if 1==main then
				say_title("Warpring-Funktion:")
				local s=select("Map1", "Map2", "Orktal (Mitte)", "Eisland (Mitte)", "W�ste (Oase)", "Weitere", "Beenden")
				if 1==s then
					say_title("Warpring-Funktion:")
					local a=select ("Rotes", "Gelbes", "Blaues", "Beenden")
					if 1==a then
						pc.warp(469300, 964200)
					elseif 2==a then
						pc.warp(55700, 157900)
					elseif 3==a then
						pc.warp(969600, 278400)
					elseif 4==a then
						return
					end
				elseif 2==s then
					say_title("Warpring-Funktion:")
					local a=select ("Rotes", "Gelbes", "Blaues", "Beenden")
					if 1==a then
						pc.warp(353003, 882460)
					elseif 2==a then
						pc.warp(145582, 240227)
					elseif 3==a then
						pc.warp(863589, 246139)
					elseif 4==a then
						return
					end
				elseif 3==s then
					pc.warp(332885, 745737)
				elseif 4==s then
					pc.warp(435705, 215084)
				elseif 5==s then
					pc.warp(296758, 547724)
				elseif 6==s then
					if pc.get_level() < 75 then	
						say_title("Weitere Maps:")
						local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "D�monenturm", "Beenden")
						if 1==a then
							pc.warp(600813, 687144)
						elseif 2==a then
							say_title("Warping-Funktion:")
							local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald in Wartung in Wartung", "Beenden")
							if 1==sd then
								pc.warp(51200, 486400)
							elseif 2==sd then
								pc.warp(665600, 435200)
							elseif 3==sd then
								pc.warp(4168320, 4173180)
							elseif 4==sd then
								return
							end
						elseif 3==a then
							pc.warp(590516, 110606)
						elseif 4==a then
							return
						end
					elseif pc.get_level() < 90 then
						say_title("Weitere Maps:")
						local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "D�monenturm", "Seelengrotte", "Event Map", "K�nigsraum", "Beenden")
						if 1==a then
							pc.warp(600813, 687144)
						elseif 2==a then
							say_title("Warping-Funktion:")
							local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald in Wartung in Wartung", "Beenden")
							if 1==sd then
								pc.warp(51200, 486400)
							elseif 2==sd then
								pc.warp(665600, 435200)
							elseif 3==sd then
								pc.warp(4168320, 4173180)
							elseif 4==sd then
								return
							end
						elseif 3==a then
							pc.warp(590516, 110606)
						elseif 4==a then
							say_reward("In welche Seelengrotte m�chtest du denn?")
							local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
							if 1==b then
								pc.warp(10086, 1213190)
							elseif 2==b then
								pc.warp(241682, 1275028)
							elseif 3==b then
								return
							end
						elseif 5==a then
							pc.warp(44445978, 44445878)
						elseif 6==a then
							pc.warp(92110, 97047)
						elseif 7==a then
							return
						end
					elseif pc.get_level() < 110 then
						say_title("Weitere Maps:")
						local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "D�monenturm", "Seelengrotte", "Areal der Steine", "K�nigsraum", "Weitere", "Beenden")
						if 1==a then
							pc.warp(600813, 687144)
						elseif 2==a then
							say_title("Warping-Funktion:")
							local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald in Wartung", "Beenden")
							if 1==sd then
								pc.warp(51200, 486400)
							elseif 2==sd then
								pc.warp(665600, 435200)
							elseif 3==sd then
								pc.warp(4168320, 4173180)
							elseif 4==sd then
								return
							end
						elseif 3==a then
							pc.warp(590516, 110606)
						elseif 4==a then
							say_reward("In welche Seelengrotte m�chtest du denn?")
							local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
							if 1==b then
								pc.warp(10086, 1213190)
							elseif 2==b then
								pc.warp(241682, 1275028)
							elseif 3==b then
								return
							end
						elseif 5==a then
							pc.warp(44445978, 44445878)
						elseif 6==a then
							pc.warp(92110, 97047)
						elseif 7==a then
							say_title("Warpring-Funktion:")
							local c=select ("Verkommenes Land", "Beenden")
							if 1==c then
								pc.warp(2206207, 2231958)
							elseif 2==c then
								return
							end
						elseif 7==a then
							return
						end
					elseif pc.get_level() >= 110 then
						say_title("Weitere Maps:")
						local a=select ("Feuerland (Teleporter)", "Spinnenmaps", "D�monenturm", "Seelengrotte", "Areal der Steine", "K�nigsraum", "Weitere", "Beenden")
						if 1==a then
							pc.warp(600813, 687144)
						elseif 2==a then
							say_title("Warping-Funktion:")
							local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald in Wartung", "Beenden")
							if 1==sd then
								pc.warp(51200, 486400)
							elseif 2==sd then
								pc.warp(665600, 435200)
							elseif 3==sd then
								pc.warp(4168320, 4173180)
							elseif 4==sd then
								return
							end
						elseif 3==a then
							pc.warp(590516, 110606)
						elseif 4==a then
							say_reward("In welche Seelengrotte m�chtest du denn?")
							local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
							if 1==b then
								pc.warp(10086, 1213190)
							elseif 2==b then
								pc.warp(241682, 1275028)
							elseif 3==b then
								return
							end
						elseif 5==a then
							pc.warp(44445978, 44445878)
						elseif 6==a then
							pc.warp(92110, 97047)
						elseif 7==a then
							say_title("Warpring-Funktion:")
							local c=select ("Verkommenes Land", "Orkberg", "Pvpring", "Beenden")
							if 1==c then
								pc.warp(2206207, 2231958)
							elseif 2==c then
								pc.warp(35039765, 35085766)
							elseif 3==c then
								pc.warp(292600, 551400)
							elseif 4==c then
								return
							end
						elseif 8==a then
							return
						end
					end
				elseif 7==s then
					return
				end
			elseif 2==main then
				say_title("Lager-Funktion")
				say("Hallo und Herzlich Willkomen!")
				say("Ich bin deine Mobile Lager-Funktion.")
				say("Ich kann dir �berall dein Lager �ffnen.")
				say_reward("M�chtest du dein Lager �ffnen?")
				local lager=select("Ja", "Nein")
				if 1==lager then
					say_title("Lager-Funktion:")
					say("Welches Lager m�chtest du denn �ffnen?")
					local a=select("Normales Lager", "Itemshop Lager", "Beenden")
					if 1==a then
						game.open_safebox()
					elseif 2==a then
						game.open_mall()
					elseif 3==a then
						return
					end
				elseif 2==lager then
					return
				end
			elseif 3==main then
				say_title("Shopping-Funktion:")
				say("Mit dieser Funktion kannst einen")
				say("Multishop herbeirufen.")
				say("Dieser Shop hat das zu bieten ,was du bestellst")
				say("Also probier es einfach mal aus!")
				say()
				say("Aber denk dran:")
				say()
				say("Der Shop muss einmal ge�ffnet werden!")
				say_reward("Sonst funktioniert das Handy nichtmehr!")
				local s=select("Ok", "Nein")
				if 1==s then
					say("Shopping-Funktion:")
					say_reward("Welchen Shop m�chtes du �ffnen?")
					local shop=select("Tr�nke", "Itemshop", "HighLvl-Waffen", "High Lvl R�ssis", "Schmuckhandel", "Mehr Anzeigen", "Beenden")
					if 1==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						set_state(waffen)
					elseif 2==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						set_state(special)
					elseif 3==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						set_state(r�stung)
					elseif 4==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						set_state(gemi)
					elseif 5==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						set_state(schmuck)
					elseif 6==shop then
						say_title("Shopping-Funktion")
						say_reward("Welchen Shop m�chtest du �ffnen?")
						local shop2=select("Pfeile", "Beenden")
						if 1==shop2 then
							mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
							set_state(pfeil)
						elseif 2==shop2 then
							return
						end
					elseif 7==shop then
						return
					end
				elseif 2==s then
					return
				end
			end
		end
	end
	state waffen begin
		when 20024.chat."Tr�nke" begin
			npc.open_shop(23)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end
	state special begin
		when 20024.chat."Itemshop" begin
			npc.open_shop(3)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end
	state r�stung begin
		when 20024.chat."HighLvl-Waffen" begin
			npc.open_shop(15)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end
	state gemi begin
		when 20024.chat."HighLvl-R�ssis" begin
			npc.open_shop(16)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end
	state schmuck begin
		when 20024.chat."Schmuck" begin
			npc.open_shop(17)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end
	state pfeil begin
		when 20024.chat."Pfeilhandel" begin
			npc.open_shop(19)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end	
end

Das ist eine Multifunktion Quest.

06/28/2013 16:42 VeRoX �#8404

Hey Leute,
Ich habe auf meinem Server mal die Bio.quest eingef�gt alles l�uft ohne probleme aber wenn man alle fertig hat fangen sie einfach von vorne an d.h. hatte ale fertig und dann kommt mit nach lvl 100 einfach die 30er bio wieder was ist da verkehrt?
w�rde mich �ber eine schnelle antwort freuen!:mofo:

Hier die Quest(alle in einer):

Spoiler

06/28/2013 18:25 "Sh4Xx"#8405

Quote:

Originally Posted by VeRoX �

Hey Leute,
Ich habe auf meinem Server mal die Bio.quest eingef�gt alles l�uft ohne probleme aber wenn man alle fertig hat fangen sie einfach von vorne an d.h. hatte ale fertig und dann kommt mit nach lvl 100 einfach die 30er bio wieder was ist da verkehrt?
w�rde mich �ber eine schnelle antwort freuen!:mofo:

Hier die Quest(alle in einer):

Spoiler

quest bio begin

----------------------------------
-- LvL 30 / Orkz�hne
----------------------------------
state start begin
when login or levelup with pc.level>29 begin
set_state(talk_to_disciple_lv30)
end
end
state talk_to_disciple_lv30 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("Die Forschung des Biologen")
end
when button or info begin
say_title("Die Forschung des Biologen")
say("")
say("Der Biologe ben�tigt deine Hilfe.")
say("Sprich mit ihm.")
say("")
say_reward("Sprich mit dem Biologen")
say("")
end
when __TARGET__.target.click or 20084.chat."Orkz�hne" begin
target.delete("__TARGET__")
say("Biologe:")
say("")
say("Oh, du hilfst mir?")
say("Gut ...")
say("Ich bin �brigens der Biologe")
say("und studiere zahlreiches aus der Pflanzenwelt.")
say("Wenn du mir bei meinen Forschungen hilfst,")
say("werde ich dich reich belohnen.")
say("")
wait()
say("Biologe:")
say("Ich habe vor kurzem wieder angefangen ...")
say("Ich Forsche an einer Legende ...")
say("Doch habe ich derzeit viel zu tun,")
say("es w�hre also nett, wenn du mir hilfst ...")
say("")
wait()
say("Biologe:")
say("Ich ben�tige zehn Orkz�hne f�r meine Forschungen.")
say("Diese sind jedoch sehr zerbrechlich,")
say("es kann also sein, dass einige bei")
say("meinen Untersuchungen kaputt gehen.")
say("Ich ben�tige alle zehn,")
say("um meine Forschungen vollenden zu k�nnen.")
say("")
set_state(collect_orcteeth)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_orcteeth begin
when letter begin
send_letter("Die Forschung des Biologen")
end
when button or info begin
say_title("Orkz�hne")
say("")
say("Der Biologe gab euch den Auftrag,")
say("zehn Orkz�hne zu sammeln.")
say("Sammelt und bringt sie dem Biologen.")
say("")
say_item_vnum(30006)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 20084.chat."Orkz�hne" with pc.count_item(30006)>0 begin
if get_time()>pc.getqf("duration") then
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell �berpr�fen")
say("ob dieser Zahn in Ordnung ist ...")
say("")
pc.remove_item("30006", 1)
pc.setqf("duration",get_time()+0)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<10 then
pc.setqf("collect_count", count)
say("Biologe:")
say("Hervorragend, dieser Zahn ist in Ordnung.")
say("Bringt mir noch welche, damit ich meine")
say("Forschungen abschlie�en kann.")
say("")
say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
else
say("Biologe:")
say("Du hast mir die 10 St�ck gebracht...")
say("Nun bitte ich dich noch, mir den")
say("Jinunggyis Seelenstein zu bringen.")
say("Du bekommst ihn von Stolzen Orks ...")
say("Ich denke, daf�r bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_jinunggyis)
end
else
say("Biologe:")
say("Es tut mir leid, aber der Zahn ist bei")
say("den Untersuchungen zerbrochen.")
say("Bitte hol mir einen neuen Orkzahn!")
say("")
end
else
say("Biologe:")
say("Entschuldige, ich habe die letzten")
say("Studien noch nicht beendet ...")
say("Bitte bring mir den Zahn sp�ter.")
say("")
end
end
end
state collect_jinunggyis begin
when letter begin
send_letter("Jinunggyis Seelenstein")
end
when button or info begin
say_title("Jinunggyis Seelenstein")
say("")
say("Ihr habt alle zehn Orkz�hne gesammelt.")
say("Nun m�sst ihr Jinunggyis Seelenstein erbeuten.")
say("")
say_item_vnum(30220)
say("Ob dieser Stein tats�chlich eine Seele enth�lt?")
say("")
end
when 635.kill or 636.kill or 637.kill begin
if pc.count_item(30220)<1 then
local rand = number(0,99)
if rand<5 then pc.give_item2(30220, 1)
end
end
end
when 20084.chat."Jinunggyis Seelenstein" begin
if pc.count_item(30220)>0 then
say("Biologe:")
say("Dank deiner Hilfe verstehe ich nun")
say("die Legende um Jinunggyis Seelenstein.")
say("Du hast hart gek�mpft.")
say("Sprich mit Baek-Go, er wird dir helfen,")
say("deine inneren Kr�fte zu steigern.")
say("")
pc.remove_item(30220,1)
set_state(jinunggyis_reward)
else
say("Biologe:")
say("Du hast mir die 10 St�ck gebracht...")
say("Nun bitte ich dich noch, mir den")
say("Jinunggyis Seelenstein zu bringen.")
say("Du bekommst ihn von Stolzen Orks ...")
say("Ich denke, daf�r bist du stark genug.")
say("")
end
end
end
state jinunggyis_reward begin
when letter begin
send_letter("Sprich mit Baek-Go")
local v = find_npc_by_vnum(20018)
if v != 0 then target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say("Um die Belohnung des Biologen zu erhalten")
say("suche mit den Informationen der")
say("Orkz�hne und des Seelensteins Baek-Go auf.")
say("")
end
when __TARGET__.target.click or 20018.chat."Belohnung des Biologen" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Ich sehe ...")
say("Der Biologe hat dich zu mir geschickt.")
say("Hier ist deine Belohnung:")
say("")
say_reward("Du erh�lst:")
say_reward("Bewegungsgeschwindigkeit +10% (Dauerhaft)")
say("")
affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
set_state(collect_quest_lv40)
end
end

----------------------------------
-- LvL 40 / Fluchsammlung
----------------------------------
state collect_quest_lv40 begin
when login or levelup with pc.level>39 begin
set_state(talk_to_disciple_lv40)
end
end
state talk_to_disciple_lv40 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("Forschung des Biologen Nr. 2")
end
when button or info begin
say_title("Forschung des Biologen Nr. 2")
say("")
say("Der Biologe ben�tigt ein weiteres Mal Hilfe.")
say("Er meinte, er br�uchte Hilfe auf der Suche")
say("nach speziellen Gegenst�nden.")
say("Sprich mit ihm,")
say("um eine genauere Beschreibung zu erhalten.")
say("")
say_reward("Sprich mit dem Biologen")
say("")
end
when __TARGET__.target.click or 20084.chat."Fluchb�cher" begin
target.delete("__TARGET__")
say("Biologe:")
say("Gut, dass du gekommen bist...")
say("Die Untersuchung der Orkz�hne")
say("habe ich abgeschlossen.")
say("Nun habe ich neue Objekte gefunden,")
say("die ich gerne untersuchen w�rde.")
wait()
say("Biologe:")
say("Ich w�rde sie ja selber sammeln,")
say("aber ich habe zuviel zu tun...")
say("Es w�re sehr nett, wenn du dies")
say("f�r mich erledigen k�nntest.")
wait()
say("Biologe:")
say("Ich m�chte die Fluchb�cher untersuchen.")
say("Davon ben�tige ich 15 St�ck.")
say("Die B�cher sind jedoch ziemlich alt,")
say("manchmal zerfallen sie einfach!")
say("")
set_state(collect_cursebook)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_cursebook begin
when letter begin
send_letter("Forschung des Biologen Nr. 2")
end
when button or info begin
say_title("Fluchsammlungen")
say("")
say("Der Biologe gab euch den Auftrag,")
say("15 Fluchsammlungen zu besorgen.")
say("Diese kannst du bei den Dunklen- und")
say("Hohen Peinigern erbeuten.")
say("")
say_item_vnum(30047)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 20084.chat."Fluchsammlungen" with pc.count_item(30047)>0 begin
if get_time()>pc.getqf("duration") then
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell �berpr�fen")
say("ob dieser Zahn in Ordnung ist ...")
say("")
pc.remove_item("30047", 1)
pc.setqf("duration",get_time()+0)
wait()

local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<15 then
pc.setqf("collect_count", count)
say("Biologe:")
say("Hervorragend, diese Fluchsammlung ist in Ordnung.")
say("Bringt mir noch welche, damit ich meine")
say("Forschungen abschlie�en kann.")
say("")
say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
else
say("Biologe:")
say("Du hast mir die 15 Sammlungen gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige den Tempelseelenstein,")
say("den du von Stolzen dunklen Fanatikern,")
say("K�mpfern, sowie Obersten erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_templekey)
end
else
say("Biologe:")
say("Es tut mir leid, die Fluchsammlung")
say("ist bei den Untersuchungen zerfallen.")
say("Bitte hol mir eine neue Fluchsammlung.")
end
else
say("Biologe:")
say("Entschuldige, ich habe die letzten")
say("Studien noch nicht beendet ...")
say("Bitte bring mir die Fluchsammmlung sp�ter.")
end
end
end
state collect_templekey begin
when letter begin
send_letter("Tempelseelenstein")
end
when button or info begin
say_title("Tempelseelenstein")
say("")
say("Ihr habt alle 15 Fluchsammlungen abgegeben.")
say("Nun m�sst ihr den Tempelseelenstein erbeuten.")
say("")
say_item_vnum(30221)
say("Ob dieser Stein tats�chlich Seelen")
say("der Tempelanh�nger enth�lt?")
say("")
end
when 635.kill or 636.kill or 637.kill begin
if pc.count_item(30221)<1 then
local rand = number(0,99)
if rand<5 then pc.give_item2(30221, 1)
end
end
end
when 20084.chat."Tempelseelenstein" begin
if pc.count_item(30221)>0 then
say("Biologe:")
say("Dank deiner Hilfe verstehe ich nun")
say("die Legende um den Tempelseelenstein.")
say("Du hast hart gek�mpft.")
say("Sprich mit Baek-Go, er wird dir helfen,")
say("deine inneren Kr�fte zu steigern.")
say("")
pc.remove_item(30221,1)
set_state(templekey_reward)
else
say("Biologe:")
say("Du hast mir die 15 Sammlungen gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige den Tempelseelenstein,")
say("den du von Stolzen dunklen Fanatikern,")
say("K�mpfern, sowie Obersten erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
end
end
end
state templekey_reward begin
when letter begin
send_letter("Sprich mit Baek-Go")
local v = find_npc_by_vnum(20018)
if v != 0 then target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say_title("Sprich mit Baek-Go")
say("Um die Belohnung des Biologen zu erhalten,")
say("suche mit den Informationen der")
say("Fluchsammlungen und des Seelensteins")
say("Baek-Go auf. Er befindet sich in der Stadt.")
say("")
end
when __TARGET__.target.click or 20018.chat."Belohnung des Biologen" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Ich sehe ...")
say("Der Biologe hat dich zu mir geschickt.")
say("Hier ist deine Belohnung:")
say("")
say_reward("Du erh�lst:")
say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)")
say("")
affect.add_collect(apply.ATT_SPEED,5,60*60*24*365* 60)
set_state(collect_quest_lv50)
end
end

----------------------------------
-- LvL 50 / D�monenandenken
----------------------------------
state collect_quest_lv50 begin
when login or levelup with pc.level>49 begin
set_state(talk_to_disciple_lv50)
end
end
state talk_to_disciple_lv50 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("Forschung des Biologen Nr. 3")
end
when button or info begin
say_title("Forschung des Biologen Nr. 3")
say("")
say("Der Biologe ben�tigt ein weiteres Mal Hilfe.")
say("Er meinte, er br�uchte Hilfe auf der Suche")
say("nach speziellen Gegenst�nden.")
say("Sprich mit ihm,")
say("um eine genauere Beschreibung zu erhalten.")
say("")
say_reward("Sprich mit dem Biologen")
say("")
end
when __TARGET__.target.click or 20084.chat."D�monenandenken" begin
target.delete("__TARGET__")
say("Biologe:")
say("Gut, dass du gekommen bist...")
say("Die Untersuchung der Fluchsammlungen")
say("habe ich abgeschlossen.")
say("Nun habe ich neue Objekte gefunden,")
say("die ich gerne untersuchen w�rde.")
wait()
say("Biologe:")
say("Ich w�rde sie ja selber sammeln,")
say("aber ich habe zuviel zu tun...")
say("Es w�re sehr nett, wenn du dies")
say("f�r mich erledigen k�nntest.")
wait()
say("Biologe:")
say("Ich m�chte die D�monenandenken untersuchen.")
say("Davon ben�tige ich 15 St�ck.")
say("Diese sind jedoch ziemlich zerbrechlich,")
say("es kann also sein, dass einige bei")
say("meinen Untersuchungen kaputt gehen.")
say("")
set_state(collect_deamonitem)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_deamonitem begin
when letter begin
send_letter("Forschung des Biologen Nr. 3")
end
when button or info begin
say_title("D�monenandenken")
say("")
say("Der Biologe gab euch den Auftrag,")
say("15 D�monenandenken zu besorgen.")
say("Diese kannst du bei den Monstern im")
say("D�monenturm erbeuten.")
say("")
say_item_vnum(30015)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 20084.chat."D�monenandenken" with pc.count_item(30015)>0 begin
if get_time()>pc.getqf("duration") then
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell �berpr�fen")
say("ob dieser Zahn in Ordnung ist ...")
say("")
pc.remove_item("30015", 1)
pc.setqf("duration", get_time()+0)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<15 then
pc.setqf("collect_count", count)
say("Biologe:")
say("Hervorragend,")
say("dieses D�monenandenken ist in Ordnung.")
say("Bringt mir noch welche, damit ich meine")
say("Forschungen abschlie�en kann.")
say("")
say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
else
say("Biologe:")
say("Du hast mir die 15 Andenken gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige Sagyis Seelenstein,")
say("den du von den Monstern im D�monenturm,")
say("erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_sagyis)
end
else
say("Biologe:")
say("Es tut mir leid, das Andenken")
say("ist bei den Untersuchungen zerbrochen.")
say("Bitte hol mir ein Neues.")
end
else
say("Biologe:")
say("Entschuldige, ich habe die letzten")
say("Studien noch nicht beendet ...")
say("Bitte bring mir das Andenken sp�ter.")
end
end
end
state collect_sagyis begin
when letter begin
send_letter("Sagyis Seelenstein")
end
when button or info begin
say_title("Sagyis Seelenstein")
say("")
say("Ihr habt alle 15 D�monenandenken abgegeben.")
say("Nun m�sst ihr Sagyis Seelenstein erbeuten.")
say("")
say_item_vnum(30222)
say("Ob dieser Stein tats�chlich Seelen")
say("von Sagyis Adligen enth�lt?")
say("")
end
when 1031.kill or 1032.kill or 1033.kill or 1034.kill begin
if pc.count_item(30222)<1 then
local rand = number(0,99)
if rand<5 then pc.give_item2(30222, 1)
end
end
end
when 20084.chat."Sagyis Seelenstein" begin
target.delete("__TARGET__")
if pc.count_item(30222)>0 then
say("Biologe:")
say("Dank deiner Hilfe verstehe ich nun")
say("die Legende um Sagyis Seelenstein.")
say("Du hast hart gek�mpft.")
say("Sprich mit Baek-Go, er wird dir helfen,")
say("deine inneren Kr�fte zu steigern.")
say("")
pc.remove_item(30222,1)
set_state(sagyis_reward)
else
say("Biologe:")
say("Du hast mir die 15 Andenken gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige Sagyis Seelenstein,")
say("den du von den Monstern im D�monenturm,")
say("erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
end
end
end
state sagyis_reward begin
when letter begin
send_letter("Sprich mit Baek-Go")
local v = find_npc_by_vnum(20018)
if v != 0 then target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say_title("Sprich mit Baek-Go")
say("Um die Belohnung des Biologen zu erhalten,")
say("suche mit den Informationen der")
say("D�monenandenken und des Seelensteins")
say("Baek-Go auf. Er befindet sich in der Stadt.")
say("")
end
when __TARGET__.target.click or 20018.chat."Belohnung des Biologen" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Ich sehe ...")
say("Der Biologe hat dich zu mir geschickt.")
say("Hier ist deine Belohnung:")
say("")
say_reward("Du erh�lst:")
say_reward("Verteidigung +60 (Dauerhaft)")
say("")
affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60* 24*365*60)
set_state(collect_quest_lv60)
end
end

----------------------------------
-- LvL 60 / Eiskugeln
----------------------------------
state collect_quest_lv60 begin
when login or levelup with pc.level>59 begin
set_state(talk_to_disciple_lv60)
end
end
state talk_to_disciple_lv60 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("Forschung des Biologen Nr. 4")
end
when button or info begin
say_title("Forschung des Biologen Nr. 4")
say("")
say("Der Biologe ben�tigt ein weiteres Mal Hilfe.")
say("Er meinte, er br�uchte Hilfe auf der Suche")
say("nach speziellen Gegenst�nden.")
say("Sprich mit ihm,")
say("um eine genauere Beschreibung zu erhalten.")
say("")
say_reward("Sprich mit dem Biologen")
say("")
end
when __TARGET__.target.click or 20084.chat."Eiskugeln" begin
target.delete("__TARGET__")
say("Biologe:")
say("Gut, dass du gekommen bist...")
say("Die Untersuchung der D�monenandenken")
say("habe ich abgeschlossen.")
say("Nun habe ich neue Objekte gefunden,")
say("die ich gerne untersuchen w�rde.")
wait()
say("Biologe:")
say("Ich w�rde sie ja selber sammeln,")
say("aber ich habe zuviel zu tun...")
say("Es w�re sehr nett, wenn du dies")
say("f�r mich erledigen k�nntest.")
wait()
say("Biologe:")
say("Ich m�chte die Eiskugeln untersuchen.")
say("Davon ben�tige ich 15 St�ck.")
say("Diese sind jedoch ziemlich zerbrechlich,")
say("es kann also sein, dass einige bei")
say("meinen Untersuchungen kaputt gehen.")
say("")
set_state(collect_scoops)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_scoops begin
when letter begin
send_letter("Forschung des Biologen Nr. 4")
end
when button or info begin
say_title("Eiskugeln")
say("")
say("Der Biologe gab euch den Auftrag,")
say("15 Eiskugeln zu besorgen.")
say("Diese kannst du bei den Eisgolems auf")
say("dem Berg Sohan erbeuten.")
say("")
say_item_vnum(30050)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 20084.chat."Eiskugeln" with pc.count_item(30050)>0 begin
if get_time()>pc.getqf("duration") then
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell �berpr�fen")
say("ob diese Eiskugel in Ordnung ist ...")
say("")
pc.remove_item("30050", 1)
pc.setqf("duration", get_time()+0)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<15 then
pc.setqf("collect_count", count)
say("Biologe:")
say("Hervorragend,")
say("diese Eiskugel ist in Ordnung.")
say("Bringt mir noch welche, damit ich meine")
say("Forschungen abschlie�en kann.")
say("")
say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
else
say("Biologe:")
say("Du hast mir die 15 Eiskugeln gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige Aurtumryus Seelenstein,")
say("den du von den Eismonstern auf dem Berg Sohan,")
say("erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_aurtumryus)
end
else
say("Biologe:")
say("Es tut mir leid, die Eiskugel")
say("ist bei den Untersuchungen zerbrochen.")
say("Bitte hol mir eine Neue.")
end
else
say("Biologe:")
say("Entschuldige, ich habe die letzten")
say("Studien noch nicht beendet ...")
say("Bitte bring mir die Eiskugel sp�ter.")
end
end
end
state collect_aurtumryus begin
when letter begin
send_letter("Aurtumryus Seelenstein")
end
when button or info begin
say_title("Aurtumryus Seelenstein")
say("")
say("Ihr habt alle 15 Eiskugeln abgegeben.")
say("Nun m�sst ihr Aurtumryus Seelenstein erbeuten.")
say("")
say_item_vnum(30223)
say("Ob dieser Stein tats�chlich Seelen")
say("von Aurtumryus Adligen enth�lt?")
say("")
end
when 1101.kill or 1102.kill or 1103.kill or 1104.kill or 1105.kill or 1106.kill or 1107.kill begin
if pc.count_item(30223)<1 then
local rand = number(0,99)
if rand<5 then pc.give_item2(30223, 1)
end
end
end
when 20084.chat."Aurtumryus Seelenstein" begin
if pc.count_item(30223)>0 then
say("Biologe:")
say("Dank deiner Hilfe verstehe ich nun")
say("die Legende um Aurtumryus Seelenstein.")
say("Du hast hart gek�mpft.")
say("Sprich mit Baek-Go, er wird dir helfen,")
say("deine inneren Kr�fte zu steigern.")
say("")
pc.remove_item(30223,1)
set_state(aurtumryus_reward)
else
say("Biologe:")
say("Du hast mir die 15 Eiskugeln gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige Aurtumryus Seelenstein,")
say("den du von den Eismonstern auf dem Berg Sohan,")
say("erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
end
end
end
state aurtumryus_reward begin
when letter begin
send_letter("Sprich mit Baek-Go")
local v = find_npc_by_vnum(20018)
if v != 0 then target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say_title("Sprich mit Baek-Go")
say("Um die Belohnung des Biologen zu erhalten,")
say("suche mit den Informationen der")
say("Eiskugeln und des Seelensteins")
say("Baek-Go auf. Er befindet sich in der Stadt.")
say("")
end
when __TARGET__.target.click or 20018.chat."Belohnung des Biologen" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Ich sehe ...")
say("Der Biologe hat dich zu mir geschickt.")
say("Hier ist deine Belohnung:")
say("")
say_reward("Du erh�lst:")
say_reward("Angriffswert +50 (Dauerhaft)")
say("")
affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60* 24*365*60)
set_state(collect_quest_lv70)
end
end

----------------------------------
-- LvL 70 / Zelkovas Holz�ste
----------------------------------
state collect_quest_lv70 begin
when login or levelup with pc.level>69 begin
set_state(talk_to_disciple_lv70)
end
end
state talk_to_disciple_lv70 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("Forschung des Biologen Nr. 5")
end
when button or info begin
say_title("Forschung des Biologen Nr. 5")
say("")
say("Der Biologe ben�tigt ein weiteres Mal Hilfe.")
say("Er meinte, er br�uchte Hilfe auf der Suche")
say("nach speziellen Gegenst�nden.")
say("Sprich mit ihm,")
say("um eine genauere Beschreibung zu erhalten.")
say("")
say_reward("Sprich mit dem Biologen")
say("")
end
when __TARGET__.target.click or 20084.chat."Zelkovas Holz�ste" begin
target.delete("__TARGET__")
say("Biologe:")
say("Gut, dass du gekommen bist...")
say("Die Untersuchung der Eiskugeln")
say("habe ich abgeschlossen.")
say("Nun habe ich neue Objekte gefunden,")
say("die ich gerne untersuchen w�rde.")
wait()
say("Biologe:")
say("Ich w�rde sie ja selber sammeln,")
say("aber ich habe zuviel zu tun...")
say("Es w�re sehr nett, wenn du dies")
say("f�r mich erledigen k�nntest.")
wait()
say("Biologe:")
say("Ich m�chte Zelkovas Holz�ste untersuchen.")
say("Davon ben�tige ich 25 St�ck.")
say("Diese welken jedoch ziemlich schnell,")
say("es kann also sein, dass einige f�r")
say("meine Untersuchungen unbrauchbar sind.")
say("")
set_state(collect_branches)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_branches begin
when letter begin
send_letter("Forschung des Biologen Nr. 5")
end
when button or info begin
say_title("Zelkovas Holz�ste")
say("")
say("Der Biologe gab euch den Auftrag,")
say("25 von Zelkovas Holz�sten zu besorgen.")
say("Diese kannst du bei den Monstern")
say("im Geisterwald erbeuten.")
say("")
say_item_vnum(30165)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 20084.chat."Zelkovas Holz�ste" with pc.count_item(30165)>0 begin
if get_time()>pc.getqf("duration") then
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell �berpr�fen")
say("ob dieser Holzast in Ordnung ist ...")
say("")
pc.remove_item("30165", 1)
pc.setqf("duration", get_time()+0)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<25 then
pc.setqf("collect_count", count)
say("Biologe:")
say("Hervorragend,")
say("dieser Holzast ist in Ordnung.")
say("Bringt mir noch welche, damit ich meine")
say("Forschungen abschlie�en kann.")
say("")
say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
else
say("Biologe:")
say("Du hast mir die 25 Holz�ste gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige Gyimoks Seelenstein,")
say("den du ebenfalls von den Monstern")
say("im Geisterwald erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_gyimoks)
end
else
say("Biologe:")
say("Es tut mir leid, der Holzast")
say("ist w�hrend des Transports verwelkt.")
say("Bitte hol mir einen Neuen.")
end
else
say("Biologe:")
say("Entschuldige, ich habe die letzten")
say("Studien noch nicht beendet ...")
say("Bitte bring mir den Holzast sp�ter.")
end
end
end
state collect_gyimoks begin
when letter begin
send_letter("Gyimoks Seelenstein")
end
when button or info begin
say_title("Gyimoks Seelenstein")
say("")
say("Ihr habt alle 15 Eiskugeln abgegeben.")
say("Nun m�sst ihr Gyimoks Seelenstein erbeuten.")
say("")
say_item_vnum(30224)
say("Ob dieser Stein tats�chlich Seelen")
say("von Gyimoks Adligen enth�lt?")
say("")
end
when 2301.kill or 2302.kill or 2303.kill or 2304.kill or 2305.kill or 2311.kill or
2312.kill or 2313.kill or 2314.kill or 2315.kill or 2306.kill or 2307.kill begin
if pc.count_item(30224)<1 then
local rand = number(0,99)
if rand<5 then pc.give_item2(30224, 1)
end
end
end
when 20084.chat."Gyimoks Seelenstein" begin
target.delete("__TARGET__")
if pc.count_item(30224)>0 then
say("Biologe:")
say("Dank deiner Hilfe verstehe ich nun")
say("die Legende um Gyimoks Seelenstein.")
say("Du hast hart gek�mpft.")
say("Sprich mit Baek-Go, er wird dir helfen,")
say("deine inneren Kr�fte zu steigern.")
say("")
pc.remove_item(30224,1)
set_state(gyimoks_reward)
else
say("Biologe:")
say("Du hast mir die 25 Holz�ste gebracht.")
say("Nun...ich habe noch eine Bitte.")
say("Ich ben�tige Gyimoks Seelenstein,")
say("den du ebenfalls von den Monstern")
say("im Geisterwald erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
end
end
end
state gyimoks_reward begin
when letter begin
send_letter("Sprich mit Baek-Go")
local v = find_npc_by_vnum(20018)
if v != 0 then target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say_title("Sprich mit Baek-Go")
say("Um die Belohnung des Biologen zu erhalten,")
say("suche mit den Informationen der")
say("Zelkova Holz�ste und des Seelensteins")
say("Baek-Go auf. Er befindet sich in der Stadt.")
say("")
end
when __TARGET__.target.click or 20018.chat."Belohnung des Biologen" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Ich sehe ...")
say("Der Biologe hat dich zu mir geschickt.")
say("Hier ist deine Belohnung:")
say("")
say_reward("Du erh�lst:")
say_reward("Bewegungsgeschwindigkeit +10% (Dauerhaft)")
say_reward("Schadensreduzierung +10% (Dauerhaft)")
say("")
affect.add_collect(apply.MOV_SPEED,10,60*60*24*365 *60)
affect.add_collect(apply.DEF_GRADE_BONUS,10,60*60* 24*365*60)
set_state(collect_quest_lv80)
end
end

----------------------------------
-- LvL 80 / Tugyis Tafeln
----------------------------------
state collect_quest_lv80 begin
when login or levelup with pc.level>79 begin
set_state(talk_to_disciple_lv80)
end
end
state talk_to_disciple_lv80 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("Forschung des Biologen Nr. 6")
end
when button or info begin
say_title("Forschung des Biologen Nr. 6")
say("")
say("Der Biologe ben�tigt ein weiteres Mal Hilfe.")
say("Er meinte, er br�uchte Hilfe auf der Suche")
say("nach speziellen Gegenst�nden.")
say("Sprich mit ihm,")
say("um eine genauere Beschreibung zu erhalten.")
say("")
say_reward("Sprich mit dem Biologen")
say("")
end
when __TARGET__.target.click or 20084.chat."Tugyis Tafeln" begin
target.delete("__TARGET__")
say("Biologe:")
say("Gut, dass du gekommen bist...")
say("Die Untersuchung der Zelkova Holz�ste")
say("habe ich abgeschlossen.")
say("Nun habe ich neue Objekte gefunden,")
say("die ich gerne untersuchen w�rde.")
wait()
say("Biologe:")
say("Ich w�rde sie ja selber sammeln,")
say("aber ich habe zuviel zu tun...")
say("Es w�re sehr nett, wenn du dies")
say("f�r mich erledigen k�nntest.")
wait()
say("Biologe:")
say("Ich m�chte Tugyis Tafeln untersuchen.")
say("Davon ben�tige ich 30 St�ck.")
say("Diese sind jedoch ziemlich zerbrechlich,")
say("es kann also sein, dass einige bei")
say("meinen Untersuchungen kaputt gehen.")
say("")
set_state(collect_plates)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_plates begin
when letter begin
send_letter("Forschung des Biologen Nr. 6")
end
when button or info begin
say_title("Tugyis Tafeln")
say("")
say("Der Biologe gab euch den Auftrag,")
say("30 von Tugyis Tafeln zu besorgen.")
say("Diese kannst du bei den Monstern")
say("im Land der Riesen erbeuten.")
say("")
say_item_vnum(30166)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30166, 1)
end
end
when 20084.chat."Tugyis Tafeln" with pc.count_item(30166)>0 begin
if get_time()>pc.getqf("duration") then
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell �berpr�fen")
say("ob diese Tafel in Ordnung ist ...")
say("")
pc.remove_item("30166", 1)
pc.setqf("duration", get_time()+0)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<30 then
pc.setqf("collect_count", count)
say("Biologe:")
say("Hervorragend,")
say("diese Tafel ist in Ordnung.")
say("Bringt mir noch welche, damit ich meine")
say("Forschungen abschlie�en kann.")
say("")
say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
else
say("Biologe:")
say("Du hast mir die 30 Tafeln gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige Tugyis Seelenstein,")
say("den du ebenfalls von den Monstern")
say("im Land der Riesen erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_tugyis)
end
else
say("Biologe:")
say("Es tut mir leid, die Tafel")
say("ist w�hrend der Untersuchung zerbrochen.")
say("Bitte hol mir eine Neue.")
end
else
say("Biologe:")
say("Entschuldige, ich habe die letzten")
say("Studien noch nicht beendet ...")
say("Bitte bring mir die Tafel sp�ter.")
end
end
end
state collect_tugyis begin
when letter begin
send_letter("Tugyis Seelenstein")
end
when button or info begin
say_title("Tugyis Seelenstein")
say("")
say("Ihr habt alle 30 Tafeln abgegeben.")
say("Nun m�sst ihr Tugyis Seelenstein erbeuten.")
say("")
say_item_vnum(30225)
say("Ob dieser Stein tats�chlich Seelen")
say("von Tugyis Adligen enth�lt?")
say("")
end
when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin
if pc.count_item(30224)<1 then
local rand = number(0,99)
if rand<5 then pc.give_item2(30225, 1)
end
end
end
when 20084.chat."Tugyis Seelenstein" begin
if pc.count_item(30225)>0 then
say("Biologe:")
say("Dank deiner Hilfe verstehe ich nun")
say("die Legende um Tugyis Seelenstein.")
say("Du hast hart gek�mpft.")
say("Sprich mit Baek-Go, er wird dir helfen,")
say("deine inneren Kr�fte zu steigern.")
say("")
pc.remove_item(30225,1)
set_state(tugyis_reward)
else
say("Biologe:")
say("Du hast mir die 30 Tafeln gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige Tugyis Seelenstein,")
say("den du ebenfalls von den Monstern")
say("im Land der Riesen erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
end
end
end
state tugyis_reward begin
when letter begin
send_letter("Sprich mit Baek-Go")
local v = find_npc_by_vnum(20018)
if v != 0 then target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say_title("Sprich mit Baek-Go")
say("Um die Belohnung des Biologen zu erhalten,")
say("suche mit den Informationen der")
say("Tugyis Tafeln und des Seelensteins")
say("Baek-Go auf. Er befindet sich in der Stadt.")
say("")
end
when __TARGET__.target.click or 20018.chat."Belohnung des Biologen" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Ich sehe ...")
say("Der Biologe hat dich zu mir geschickt.")
say("Hier ist deine Belohnung:")
say("")
say_reward("Du erh�lst:")
say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)")
say_reward("Schadenserh�hung +10% (Dauerhaft)")
say("")
affect.add_collect(apply.ATT_SPEED,5,60*60*24*365* 60)
affect.add_collect_point(apply.POINT_ATT_BONUS,10, 60*60*24*365*60)
set_state(collect_quest_lv90)
end
end

----------------------------------
-- LvL 90 / Notiz der Anf�hrer
----------------------------------
state collect_quest_lv90 begin
when login or levelup with pc.level>79 begin
set_state(talk_to_disciple_lv90)
end
end
state talk_to_disciple_lv90 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("Forschung des Biologen Nr. 7")
end
when button or info begin
say_title("Forschung des Biologen Nr. 7")
say("")
say("Der Biologe ben�tigt ein weiteres Mal Hilfe.")
say("Er meinte, er br�uchte Hilfe auf der Suche")
say("nach speziellen Gegenst�nden.")
say("Sprich mit ihm,")
say("um eine genauere Beschreibung zu erhalten.")
say("")
say_reward("Sprich mit dem Biologen")
say("")
end
when __TARGET__.target.click or 20084.chat."Notiz der Anf�hrer" begin
target.delete("__TARGET__")
say("Biologe:")
say("Gut, dass du gekommen bist...")
say("Die Untersuchung der Tugyis Tafeln")
say("habe ich abgeschlossen.")
say("Nun habe ich neue Objekte gefunden,")
say("die ich gerne untersuchen w�rde.")
wait()
say("Biologe:")
say("Ich w�rde sie ja selber sammeln,")
say("aber ich habe zuviel zu tun...")
say("Es w�re sehr nett, wenn du dies")
say("f�r mich erledigen k�nntest.")
wait()
say("Biologe:")
say("Ich m�chte Notizen der Anf�hrer untersuchen.")
say("Davon ben�tige ich 50 St�ck.")
say("Es kann jedoch sein, dass sich einige")
say("Notizen als alt und unlesbar herausstellen.")
say("")
set_state(collect_notices)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_notices begin
when letter begin
send_letter("Forschung des Biologen Nr. 7")
end
when button or info begin
say_title("Notiz der Anf�hrer")
say("")
say("Der Biologe gab euch den Auftrag,")
say("50 Notizen der Anf�hrer zu besorgen.")
say("Diese kannst du von den Bossen")
say("wie z.B. Oberork, K�nigsspinne,")
say("Neunschwanz, etc. erbeuten.")
say("")
say_item_vnum(30168)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or
1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5001.kill or 5004.kill or
5161.kill or 5162.kill or 5163.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30168, 1)
end
end
when 20084.chat."Notiz der Anf�hrer" with pc.count_item(30168)>0 begin
if get_time()>pc.getqf("duration") then
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell �berpr�fen")
say("ob diese Notiz lesbar ist ...")
say("")
pc.remove_item("30168", 1)
pc.setqf("duration", get_time()+0)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<50 then
pc.setqf("collect_count", count)
say("Biologe:")
say("Hervorragend,")
say("diese Notiz ist in Ordnung.")
say("Bringt mir noch welche, damit ich meine")
say("Forschungen abschlie�en kann.")
say("")
say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
else
say("Biologe:")
say("Du hast mir die 50 Notizen gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige den Seelenstein der Anf�hrer,")
say("den du ebenfalls von den Bossen")
say("erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_bossKey)
end
else
say("Biologe:")
say("Es tut mir leid, die Notiz")
say("hat sich als unlesbar herausgestellt.")
say("Bitte hol mir eine Neue.")
end
else
say("Biologe:")
say("Entschuldige, ich habe die letzten")
say("Studien noch nicht beendet ...")
say("Bitte bring mir die Notiz sp�ter.")
end
end
end
state collect_bossKey begin
when letter begin
send_letter("Seelenstein der Anf�hrer")
end
when button or info begin
say_title("Seelenstein der Anf�hrer")
say("")
say("Ihr habt alle 50 Notizen abgegeben.")
say("Nun m�sst ihr den Seelenstein der Anf�hrer")
say("erbeuten.")
say("")
say_item_vnum(30227)
say("Ob dieser Stein tats�chlich Seelen")
say("der Anf�hrer enth�lt?")
say("")
end
when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or
1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5001.kill or 5004.kill or
5161.kill or 5162.kill or 5163.kill begin
if pc.count_item(30227)<1 then
local rand = number(0,99)
if rand<5 then pc.give_item2(30227, 1)
end
end
end
when 20084.chat."Seelenstein der Anf�hrer" begin
if pc.count_item(30227)>0 then
say("Biologe:")
say("Dank deiner Hilfe verstehe ich nun")
say("die Legende um den Seelenstein der Anf�hrer.")
say("Du hast hart gek�mpft.")
say("Sprich mit Baek-Go, er wird dir helfen,")
say("deine inneren Kr�fte zu steigern.")
say("")
pc.remove_item(30227,1)
set_state(bossKey_reward)
else
say("Biologe:")
say("Du hast mir die 50 Notizen gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige den Seelenstein der Anf�hrer,")
say("den du ebenfalls von den Bossen")
say("erbeuten kannst.")
say("Ich denke, daf�r bist du stark genug.")
say("")
end
end
end
state bossKey_reward begin
when letter begin
send_letter("Sprich mit Baek-Go")
local v = find_npc_by_vnum(20018)
if v != 0 then target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say_title("Sprich mit Baek-Go")
say("Um die Belohnung des Biologen zu erhalten,")
say("suche mit den Informationen der")
say("Notizen und des Seelensteins")
say("Baek-Go auf. Er befindet sich in der Stadt.")
say("")
end
when __TARGET__.target.click or 20018.chat."Belohnung des Biologen" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Ich sehe ...")
say("Der Biologe hat dich zu mir geschickt.")
say("Hier ist deine Belohnung:")
say("")
say_reward("Du erh�lst:")
say_reward("Bewegungsgeschwindigkeit +5% (Dauerhaft)")
say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)")
say_reward("Schadensreduzierung +5% (Dauerhaft)")
say_reward("Angriffswert +50 (Dauerhaft)")
say("")
affect.add_collect(apply.MOV_SPEED, 5, 60*60*24*365*60)
affect.add_collect(apply.ATT_SPEED, 5, 60*60*24*365*60)
affect.add_collect(apply.ATT_GRADE_BONUS,25,60*60* 24*365*60)
affect.add_collect(apply.DEF_GRADE_BONUS,5,60*60*2 4*365*60)
set_state(collect_quest_lv100)
end
end

----------------------------------
-- LvL 100 / Tofusteak
----------------------------------
state collect_quest_lv100 begin
when login or levelup with pc.level>99 begin
set_state(talk_to_disciple_lv100)
end
end
state talk_to_disciple_lv100 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("Auftrag des Biologen")
end
when button or info begin
say_title("Auftrag des Biologen")
say("")
say("Der Biologe ben�tigt ein weiteres Mal Hilfe.")
say("Er meinte, er br�uchte Hilfe auf der Suche")
say("nach speziellen Gegenst�nden.")
say("Sprich mit ihm,")
say("um eine genauere Beschreibung zu erhalten.")
say("")
say_reward("Sprich mit dem Biologen")
say("")
end
when __TARGET__.target.click or 20084.chat."Tofusteak" begin
target.delete("__TARGET__")
say("Biologe:")
say("Gut, dass du gekommen bist...")
say("Ich habe eine �berraschungsparty f�r")
say("die Gemischwarenh�ndlerin vor,")
say("da Sie demn�chst 30 Jahre alt wird.")
say("")
wait()
say("Biologe:")
say("F�r die G�ste fehlen mir noch 35 Tofusteaks.")
say("Tofusteaks bekommt man von Oger Berserker")
say("im Land der Riesen.")
say("")
wait()
say("Biologe:")
say("Bedenke jedoch, dass Tofusteaks")
say("nicht lange haltbar sind.")
say("Es kann also sein, dass sich einige")
say("bei meinen Untersuchungen als")
say("unbrauchbar herausstellen.")
say("Ich brauche unbedingt 35 St�ck,")
say("da auch 35 G�ste erscheinen werden.")
say("")
set_state(collect_tofu)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_tofu begin
when letter begin
send_letter("Auftrag des Biologen")
end
when button or info begin
say_title("Tofusteak")
say("")
say("Der Biologe gab euch den Auftrag,")
say("35 Tofusteaks zu besorgen.")
say("Diese kannst du von Oger Berserkern")
say("im Land der Riesen erbeuten.")
say("")
say_item_vnum(30068)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 1603.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30068, 1)
end
end
when 20084.chat."Tofusteak" with pc.count_item(30068)>0 begin
if get_time()>pc.getqf("duration") then
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell �berpr�fen")
say("ob das Steak verzehrbar ist ...")
say("")
pc.remove_item("30068", 1)
pc.setqf("duration", get_time()+0)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<35 then
pc.setqf("collect_count", count)
say("Biologe:")
say("Hervorragend,")
say("dieses Steak ist in Ordnung.")
say("Bringt mir noch welche, damit ich meine")
say("Party steigen lassen kann.")
say("")
say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
else
say("Biologe:")
say("Du hast mir die 35 Tofusteaks gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige ein Rezept,")
say("um aus den Steaks eine saftige Mahlzeit")
say("zu bereiten.")
say("Mir ist zu Ohren gekommen, dass Tausendk�mpfer")
say("solche Mahlzeiten zubereiten.")
say("Ich denke, daf�r bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_recipe)
end
else
say("Biologe:")
say("Es tut mir leid, das Steak")
say("hat sich als unbrauchbar herausgestellt.")
say("Bitte hol mir ein Neues.")
end
else
say("Biologe:")
say("Entschuldige, ich habe das letzte")
say("Steak noch nicht verarbeitet ...")
say("Bitte bring mir das Steak sp�ter.")
end
end
end
state collect_recipe begin
when letter begin
send_letter("Rezept")
end
when button or info begin
say_title("Rezept")
say("")
say("Ihr habt alle 35 Tofusteaks abgegeben.")
say("Nun m�sst ihr das Rezept erbeuten.")
say("")
say_item_vnum(50903)
end
when 1403.kill begin
if pc.count_item(50903)<1 then
local rand = number(0,99)
if rand<5 then pc.give_item2(50903, 1)
end
end
end
when 20084.chat."Rezept" begin
if pc.count_item(50903)>0 then
say("Biologe:")
say("Vielen Dank, nun kann ich die Mahlzeiten")
say("endlich zubereiten.")
say("Dank dir wird die �berraschungsparty steigen.")
say("Du hast hart gek�mpft.")
say("Sprich mit Baek-Go, er wird dir helfen,")
say("deine inneren Kr�fte zu steigern.")
say("")
pc.remove_item(50903,1)
set_state(recipe_reward)
else
say("Biologe:")
say("Du hast mir die 35 Tofusteaks gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich ben�tige ein Rezept,")
say("um aus den Steaks eine saftige Mahlzeit")
say("zu bereiten.")
say("Mir ist zu Ohren gekommen, dass Tausendk�mpfer")
say("solche Mahlzeiten zubereiten.")
say("Ich denke, daf�r bist du stark genug.")
say("")
end
end
end
state recipe_reward begin
when letter begin
send_letter("Sprich mit Baek-Go")
local v = find_npc_by_vnum(20018)
if v != 0 then target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say_title("Sprich mit Baek-Go")
say("Um die Belohnung des Biologen zu erhalten,")
say("suche mit den Informationen der")
say("�berraschungsparty Baek-Go auf.")
say("Er befindet sich in der Stadt.")
say("")
end
when __TARGET__.target.click or 20018.chat."Belohnung des Biologen" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Ich sehe ...")
say("Der Biologe hat dich zu mir geschickt.")
say("Hier ist deine Belohnung:")
say("")
say_reward("Du erh�lst:")
say_reward("Bewegungsgeschwindigkeit +5% (Dauerhaft)")
say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)")
say_reward("Schadensreduzierung +5% (Dauerhaft)")
say_reward("MAX. HP +2000 (Dauerhaft)")
say("")
affect.add_collect(apply.MAX_HP, 2000, 60*60*24*365*60)
complete_quest()
end
end
end

kopier die bio quest also oz und f�g sie am ende nochmal ein bearbeite die und stells level auf ein level h�her als dien max level

06/28/2013 18:47 VeRoX �#8406

H� wie jetzt?kannste das machen und mir sie drunterschreiben bei mir kommt eroor on compile...

06/28/2013 18:57 "Sh4Xx"#8407

LAd die quest in an hang hoch dann ja.

PHP Code:


			
quest refine_items begin  

    state start begin  

        when 9010.take begin  

            pc.remove_item(71009, 1)  

            local price = 100000000  

            say_title("Aufwertung")  

            say("Je nach groese des items brauchst du ")  

            say("Auch den dazugehoerigen platz")  

            say("So neben bei mus ich dich auch bitten")  

            say("keine items zu uppen die nicht uppbar")  

            say("Oder weiteruppbar sind")  

            say("Ich wider rum werde dir zur strafe das yang")  

            say("Trotzdem nehmen und du hast kein")  

            say("Geupptes item")  

            say("")  

            say("Wilst du das uppen  "..item_name(item.vnum).." Fuer "..price.." Yang?")  

            if select("Uppen", "Nein Danke") == 2 then return end  

            say_title("Uppen")  



            if pc.count_item(25041) >= 1 then  

                say("Du hast magisches metall bei dir")  

                say("Somit kann ich dir das nicht Uppen")  

                return  

            end              

            if pc.get_empty_inventory_count() < 4 then  

                say("Du hast nicht genuhg Platz im Inventar")  

                return  

            elseif pc.get_gold() < price then  

                say("Du hast nicht genuhg Yang")  

                return  

            end  

            pc.change_gold(-price)  

            item.over9refine()  

            say("Dein item wurde erfolgreich geuppt")  

        end  

    end  

end

Man kann sooft uppen wie man will:/

Was nicht sien sollte man sollte 1 mal uppen k�nnen aber erst wenn der Sennsi down sit also when.kill 1093

06/28/2013 20:03 Fliegex3#8408

PHP Code:


			
quest gm_panel begin

    state start begin

        when letter with pc.is_gm() begin

            send_letter("GM Panel")

        end

        when button or info begin

            say_title("Willkommen im GM Panel")

            say_reward("Bitte w�hle deine Option")

            local head = select("Online Meldung", "Abbrechen")



                if head == 1 then

                    say_title("Online Meldung")

                    say("Hier kannst du eine Meldung ausw�hlen die du senden kannst")

                    say("wenn du den Spielern sagen m�chtest das du da bist oder noch")

                    say("erreichbar bist")

                    say_reward("Bitte w�hle deine Option")

                    local on = select("... ist Online", "... ist noch erreichbar", "... verabschieded sich", "Abbrechen")



                        if on == 1 then

                            notice_all("".. pc.get_name() .." ist online")

                            notice_all("Er/Sie steht f�r eure Fragen zur verf�gung")



                        elseif on == 2 then

                            notice_all("".. pc.get_name() .." steht euch immer noch zur verf�gung.")



                        elseif on == 3 then

                            notice_all("".. pc.get_name() .." verabschieded sich")

                            notice_all("und w�nscht euch noch viel spa� auf Avalon.")



                        elseif on == 4 then

                        send_letter("Du hast die Auswahl abgebrochen.")

                        return

                    end

                end

            end

        end

    end

end

PHP Code:


			
must start with 'quest'

gm_panel.quest:38:Error occured on compile gm_panel.quest

06/28/2013 21:58 swamswam#8409

Quote:

Originally Posted by Fliegex3

PHP Code:

quest gm_panel begin state start begin when letter with pc.is_gm() begin send_letter("GM Panel") end when button or info begin say_title("Willkommen im GM Panel") say_reward("Bitte w�hle deine Option") local head = select("Online Meldung", "Abbrechen") if head == 1 then say_title("Online Meldung") say("Hier kannst du eine Meldung ausw�hlen die du senden kannst") say("wenn du den Spielern sagen m�chtest das du da bist oder noch") say("erreichbar bist") say_reward("Bitte w�hle deine Option") local on = select("... ist Online", "... ist noch erreichbar", "... verabschieded sich", "Abbrechen") if on == 1 then notice_all("".. pc.get_name() .." ist online") notice_all("Er/Sie steht f�r eure Fragen zur verf�gung") elseif on == 2 then notice_all("".. pc.get_name() .." steht euch immer noch zur verf�gung.") elseif on == 3 then notice_all("".. pc.get_name() .." verabschieded sich") notice_all("und w�nscht euch noch viel spa� auf Avalon.") elseif on == 4 then send_letter("Du hast die Auswahl abgebrochen.") return end end end end end end

PHP Code:

must start with 'quest' gm_panel.quest:38:Error occured on compile gm_panel.quest

2 ends zuviel

06/28/2013 22:01 Fliegex3#8410

Quote:

Originally Posted by swamswam

2 ends zuviel

PHP Code:


			
assertion failure : nested==0

gm_panel.quest:36:Error occured on compile gm_panel.quest

06/28/2013 22:07 swamswam#8411

Quote:

Originally Posted by Fliegex3

PHP Code:

assertion failure : nested==0 gm_panel.quest:36:Error occured on compile gm_panel.quest

PHP Code:


			
quest gm_panel begin 

    state start begin 

        when letter with pc.is_gm() begin 

            send_letter("GM Panel") 

        end 

        when button or info begin 

            say_title("Willkommen im GM Panel") 

            say_reward("Bitte w�hle deine Option") 

            local head = select("Online Meldung", "Abbrechen") 



            if head == 1 then 

                say_title("Online Meldung") 

                say("Hier kannst du eine Meldung ausw�hlen die du senden kannst") 

                say("wenn du den Spielern sagen m�chtest das du da bist oder noch") 

                say("erreichbar bist") 

                say_reward("Bitte w�hle deine Option") 

                local on = select("... ist Online", "... ist noch erreichbar", "... verabschieded sich", "Abbrechen") 



                if on == 1 then 

                    notice_all("".. pc.get_name() .." ist online") 

                    notice_all("Er/Sie steht f�r eure Fragen zur verf�gung") 



                elseif on == 2 then 

                    notice_all("".. pc.get_name() .." steht euch immer noch zur verf�gung.") 



                elseif on == 3 then 

                    notice_all("".. pc.get_name() .." verabschieded sich") 

                     notice_all("und w�nscht euch noch viel spa� auf Avalon.") 



                elseif on == 4 then 

                    send_letter("Du hast die Auswahl abgebrochen.") 

                    return 

                end 

            end

        end

    end

end

ka also ich kriege keinen fehler

06/29/2013 02:06 .Leykas#8412

Quote:

Originally Posted by epvpsucks4

Fehlermeldung:
Bei den meisten Spielern geht es bei ein paar geht es nicht.

Fehlermeldungen werden nicht angezeigt in Putty

Ich bitte um hilfe

Code:

quest multiring begin
	state start begin
		when 70007.use begin
			say_title("Warpring:")
			local main=select("Warpring-Funktion", "Lager-Funktion", "Shopping-Funktion", "Tastensperre")
			if 1==main then
				say_title("Warpring-Funktion:")
				local s=select("Map1", "Map2", "Orktal (Mitte)", "Eisland (Mitte)", "W�ste (Oase)", "Weitere", "Beenden")
				if 1==s then
					say_title("Warpring-Funktion:")
					local a=select ("Rotes", "Gelbes", "Blaues", "Beenden")
					if 1==a then
						pc.warp(469300, 964200)
					elseif 2==a then
						pc.warp(55700, 157900)
					elseif 3==a then
						pc.warp(969600, 278400)
					elseif 4==a then
						return
					end
				elseif 2==s then
					say_title("Warpring-Funktion:")
					local a=select ("Rotes", "Gelbes", "Blaues", "Beenden")
					if 1==a then
						pc.warp(353003, 882460)
					elseif 2==a then
						pc.warp(145582, 240227)
					elseif 3==a then
						pc.warp(863589, 246139)
					elseif 4==a then
						return
					end
				elseif 3==s then
					pc.warp(332885, 745737)
				elseif 4==s then
					pc.warp(435705, 215084)
				elseif 5==s then
					pc.warp(296758, 547724)
				elseif 6==s then
					if pc.get_level() < 75 then	
						say_title("Weitere Maps:")
						local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "D�monenturm", "Beenden")
						if 1==a then
							pc.warp(600813, 687144)
						elseif 2==a then
							say_title("Warping-Funktion:")
							local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald in Wartung in Wartung", "Beenden")
							if 1==sd then
								pc.warp(51200, 486400)
							elseif 2==sd then
								pc.warp(665600, 435200)
							elseif 3==sd then
								pc.warp(4168320, 4173180)
							elseif 4==sd then
								return
							end
						elseif 3==a then
							pc.warp(590516, 110606)
						elseif 4==a then
							return
						end
					elseif pc.get_level() < 90 then
						say_title("Weitere Maps:")
						local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "D�monenturm", "Seelengrotte", "Event Map", "K�nigsraum", "Beenden")
						if 1==a then
							pc.warp(600813, 687144)
						elseif 2==a then
							say_title("Warping-Funktion:")
							local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald in Wartung in Wartung", "Beenden")
							if 1==sd then
								pc.warp(51200, 486400)
							elseif 2==sd then
								pc.warp(665600, 435200)
							elseif 3==sd then
								pc.warp(4168320, 4173180)
							elseif 4==sd then
								return
							end
						elseif 3==a then
							pc.warp(590516, 110606)
						elseif 4==a then
							say_reward("In welche Seelengrotte m�chtest du denn?")
							local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
							if 1==b then
								pc.warp(10086, 1213190)
							elseif 2==b then
								pc.warp(241682, 1275028)
							elseif 3==b then
								return
							end
						elseif 5==a then
							pc.warp(44445978, 44445878)
						elseif 6==a then
							pc.warp(92110, 97047)
						elseif 7==a then
							return
						end
					elseif pc.get_level() < 110 then
						say_title("Weitere Maps:")
						local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "D�monenturm", "Seelengrotte", "Areal der Steine", "K�nigsraum", "Weitere", "Beenden")
						if 1==a then
							pc.warp(600813, 687144)
						elseif 2==a then
							say_title("Warping-Funktion:")
							local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald in Wartung", "Beenden")
							if 1==sd then
								pc.warp(51200, 486400)
							elseif 2==sd then
								pc.warp(665600, 435200)
							elseif 3==sd then
								pc.warp(4168320, 4173180)
							elseif 4==sd then
								return
							end
						elseif 3==a then
							pc.warp(590516, 110606)
						elseif 4==a then
							say_reward("In welche Seelengrotte m�chtest du denn?")
							local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
							if 1==b then
								pc.warp(10086, 1213190)
							elseif 2==b then
								pc.warp(241682, 1275028)
							elseif 3==b then
								return
							end
						elseif 5==a then
							pc.warp(44445978, 44445878)
						elseif 6==a then
							pc.warp(92110, 97047)
						elseif 7==a then
							say_title("Warpring-Funktion:")
							local c=select ("Verkommenes Land", "Beenden")
							if 1==c then
								pc.warp(2206207, 2231958)
							elseif 2==c then
								return
							end
						elseif 7==a then
							return
						end
					elseif pc.get_level() >= 110 then
						say_title("Weitere Maps:")
						local a=select ("Feuerland (Teleporter)", "Spinnenmaps", "D�monenturm", "Seelengrotte", "Areal der Steine", "K�nigsraum", "Weitere", "Beenden")
						if 1==a then
							pc.warp(600813, 687144)
						elseif 2==a then
							say_title("Warping-Funktion:")
							local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Spinnenwald in Wartung", "Beenden")
							if 1==sd then
								pc.warp(51200, 486400)
							elseif 2==sd then
								pc.warp(665600, 435200)
							elseif 3==sd then
								pc.warp(4168320, 4173180)
							elseif 4==sd then
								return
							end
						elseif 3==a then
							pc.warp(590516, 110606)
						elseif 4==a then
							say_reward("In welche Seelengrotte m�chtest du denn?")
							local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
							if 1==b then
								pc.warp(10086, 1213190)
							elseif 2==b then
								pc.warp(241682, 1275028)
							elseif 3==b then
								return
							end
						elseif 5==a then
							pc.warp(44445978, 44445878)
						elseif 6==a then
							pc.warp(92110, 97047)
						elseif 7==a then
							say_title("Warpring-Funktion:")
							local c=select ("Verkommenes Land", "Orkberg", "Pvpring", "Beenden")
							if 1==c then
								pc.warp(2206207, 2231958)
							elseif 2==c then
								pc.warp(35039765, 35085766)
							elseif 3==c then
								pc.warp(292600, 551400)
							elseif 4==c then
								return
							end
						elseif 8==a then
							return
						end
					end
				elseif 7==s then
					return
				end
			elseif 2==main then
				say_title("Lager-Funktion")
				say("Hallo und Herzlich Willkomen!")
				say("Ich bin deine Mobile Lager-Funktion.")
				say("Ich kann dir �berall dein Lager �ffnen.")
				say_reward("M�chtest du dein Lager �ffnen?")
				local lager=select("Ja", "Nein")
				if 1==lager then
					say_title("Lager-Funktion:")
					say("Welches Lager m�chtest du denn �ffnen?")
					local a=select("Normales Lager", "Itemshop Lager", "Beenden")
					if 1==a then
						game.open_safebox()
					elseif 2==a then
						game.open_mall()
					elseif 3==a then
						return
					end
				elseif 2==lager then
					return
				end
			elseif 3==main then
				say_title("Shopping-Funktion:")
				say("Mit dieser Funktion kannst einen")
				say("Multishop herbeirufen.")
				say("Dieser Shop hat das zu bieten ,was du bestellst")
				say("Also probier es einfach mal aus!")
				say()
				say("Aber denk dran:")
				say()
				say("Der Shop muss einmal ge�ffnet werden!")
				say_reward("Sonst funktioniert das Handy nichtmehr!")
				local s=select("Ok", "Nein")
				if 1==s then
					say("Shopping-Funktion:")
					say_reward("Welchen Shop m�chtes du �ffnen?")
					local shop=select("Tr�nke", "Itemshop", "HighLvl-Waffen", "High Lvl R�ssis", "Schmuckhandel", "Mehr Anzeigen", "Beenden")
					if 1==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						set_state(waffen)
					elseif 2==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						set_state(special)
					elseif 3==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						set_state(r�stung)
					elseif 4==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						set_state(gemi)
					elseif 5==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						set_state(schmuck)
					elseif 6==shop then
						say_title("Shopping-Funktion")
						say_reward("Welchen Shop m�chtest du �ffnen?")
						local shop2=select("Pfeile", "Beenden")
						if 1==shop2 then
							mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
							set_state(pfeil)
						elseif 2==shop2 then
							return
						end
					elseif 7==shop then
						return
					end
				elseif 2==s then
					return
				end
			end
		end
	end
	state waffen begin
		when 20024.chat."Tr�nke" begin
			npc.open_shop(23)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end
	state special begin
		when 20024.chat."Itemshop" begin
			npc.open_shop(3)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end
	state r�stung begin
		when 20024.chat."HighLvl-Waffen" begin
			npc.open_shop(15)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end
	state gemi begin
		when 20024.chat."HighLvl-R�ssis" begin
			npc.open_shop(16)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end
	state schmuck begin
		when 20024.chat."Schmuck" begin
			npc.open_shop(17)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end
	state pfeil begin
		when 20024.chat."Pfeilhandel" begin
			npc.open_shop(19)
			setskin(NOWINDOW)
			npc.purge()
			set_state(start)
		end
	end	
end

Das ist eine Multifunktion Quest.

Kann dir meine umgebaute multiring quest geben wenn du sie haben willst ;)

Code:

quest leykaswarp begin
	state start begin
		when 70007.use begin
			say_title("W�hle eine Option im Dein Servername Warpmen�!")
			say("")
			local selectmap = select("Teleport", "Userpanel", "Abbrechen")
			if selectmap == 1 then
				local x
				local y
				local t
				local e = pc.get_empire()
				say_title("Warpring")
				say("Wohin m�chtest du teleporiert werden?")
				local s = select("Map1", "Map2", "Orktal", "W�ste", "Eisland", "Feuerland", "Weiter", "Abbrechen")
				if s==7 then
					say_title("Warpring")
					say("Wohin m�chtest du teleporiert werden?")
					local p = select("D�monenturm", "Spinnendungoen", "Geisterwald", "Roter Wald", "Land der Riesen", "Grotte der Verbannung", "Abbrechen")
					if p==1 then
						x="590400"
						y="110500"
					elseif p==2 then
						x="91900"
						y="525400"
					elseif p==3 then
						x="289000"
						y="5800"
					elseif p==4 then
						say_title("Warpring")
						say("Wohin m�chtest du teleporiert werden?")
						t = select("Anfang", "Ende", "Abbrechen")
						if t==1 then
							x="1119900"
							y="70800"
						elseif t==2 then
							x="1119200"
							y="7000"
						end
					elseif p==5 then
						x="828100"
						y="763400"
					elseif p==6 then
						x="284200"
						y="809600"
					end
				elseif s==1 then
					say_title("Warpring")
					say("Wohin m�chtest du teleporiert werden?")
					t = select("Rotes Reich", "Gelbes Reich", "Blaues Reich", "Abbrechen")
					if t==1 then
						x="473900"
						y="954600"
					elseif t==2 then
						x="63200"
						y="166700"
					elseif t==3 then
						x="959600"
						y="269700"
					end
				elseif s==2 then
					say_title("Warpring")
					say("Wohin m�chtest du teleporiert werden?")
					t = select("Rotes Reich", "Gelbes Reich", "Blaues Reich", "Abbrechen")
					if t==1 then
						x="352300"
						y="882700"
					elseif t==2 then
						x="145700"
						y="239800"
					elseif t==3 then
						x="863800"
						y="246000"
					end
				elseif s==3 then
					say_title("Warpring")
					say("Wohin m�chtest du teleporiert werden?")
					t = select("Anfang", "Mitte", "Rek-Wiese", "Abbrechen")
					if t==1 then
						if e==1 then
							x="402100"
							y="673900"
						elseif e==2 then
							x="270400"
							y="739900"
						elseif e==3 then
							x="321300"
							y="808000"
						end
					elseif t==2 then
						x="332700"
						y="745600"
					elseif t==3 then
						x="282800"
						y="792800"
					end
				elseif s==4 then
					say_title("Warpring")
					say("Wohin m�chtest du teleporiert werden?")
					t = select("Anfang", "Mitte", "Abbrechen")
					if t==1 then
						if e==1 then
							x="217800"
							y="627200"
						elseif e==2 then
							x="221900"
							y="502700"
						elseif e==3 then
							x="344000"
							y="502500"
						end
					elseif t==2 then
						x="296300"
						y="547500"
					end
				elseif s==5 then
					say_title("Warpring")
					say("Wohin m�chtest du teleporiert werden?")
					t = select("Anfang", "Mitte", "Abbrechen")
					if t==1 then
						if e==1 then
							x="434200"
							y="290600"
						elseif e==2 then
							x="375200"
							y="174900"
						elseif e==3 then
							x="491800"
							y="173600"
						end
					elseif t==2 then
						x="436200"
						y="215300"
					end			
				elseif s==6 then
					say_title("Warpring")
					say("Wohin m�chtest du teleporiert werden?")
					t = select("Anfang", "Teleporter", "Abbrechen")
					if t==1 then
						if e==1 then
							x="599400"
							y="756300"
						elseif e==2 then
							x="597800"
							y="622200"
						elseif e==3 then
							x="730700"
							y="689800"
						end
					elseif t==2 then
						x="600500"
						y="687400"
					end
				end
				if s!=8 or p!= 7 then
					pc.warp(x, y)
				end
			elseif selectmap == 2 then
				local teamselect = select("Team Liste", "Lager", "Abbrechen")
				if teamselect == 4 then
					return
				elseif teamselect == 1 then
					say("Dein Servername Team - Online Liste")
					say("")
					if game.get_event_flag("GM NAME")== 1 then
						say("ist offline.")
					else
						say("ist online.")
					end
					say("")
					if game.get_event_flag("GM NAME2")== 1 then
						say_green("ist online")
					else
						say_red("ist offline")
					end
					say("")
					if game.get_event_flag("GM NAME3")== 1 then
						say_green("ist online")
					else
						say_red(" ist offline")
					end
					say("")
					if game.get_event_flag("GM NAME4")== 1 then
						say_green(" ist online")
					else
						say_red("ist offline")
					end
					say("")
					if game.get_event_flag("GM NAME5")== 1 then
						say_green("e ist online")
					else
						say_red(" ist offline")
					end
				elseif teamselect == 2 then
					game.open_safebox()
					setskin(NOWINDOW)
				end
			end
		end
	end
end

06/29/2013 09:35 aziz381997#8413

Hey Leute,
k�nnt ihr mal helfen ich wei� net wie

quest icerun begin
state start begin
when 9010.chat."Atlantis betreten" with pc.get_map_index() == 16 begin
say_title("W�chter von Atlantis:")
say("Ihr m�sst ganz sch�n mutig sein")
say("hierher zu kommen.")
say("")
say_title("Ihr seid stark genug??")
say("")
say("Wollt ihr das vereiste Atlantis betreten?.")
say("")

local s = select("Aber klar!", "Nein, lieber nicht.")
if s == 1 then
--if party.get_near_count() >=5 then
--game.set_event_flag("besuchinheiligerhalle", game.get_event_flag("besuchinheiligerhalle")-1)
d.new_jump_all(208, 5106 , 4089)
d.regen_file("data/dungeon/icerun_regen.txt")
d.notice("Ungebetener Besuch!!")
d.notice("Verschwindet aus meinem Atlantis!")
d.notice("Wehe ihr ber�hrt meinen Metin!")
--else
-- say_title("W�chter von Atlantis:")
-- say("Ihr m�sst mit mindestens 6 Leuten")
-- say("in der Gruppe sein.")
-- say("")
-- say("Ihr seid aber nur "..party.get_near_count()+1.." Leute.")
-- say("Ich kann euch nicht reinlassen.")
-- return
--end
else
return
end
end
when 21552.chat."GM-Zutritt" with pc.get_map_index() == 207 and pc.is_gm() begin
say_title("Du kannst auch ohne Gruppe")
say_title("das vereiste Atlantis betreten.")
say("Wie ich sehe bist du stark genug =)")
say("Wollt ihr das vereiste Atlantis betreten?.")
say("")

local s = select("Aber klar!", "Nein, lieber nicht.")
if s == 1 then
d.new_jump_all(208, 5106 , 4089)
d.regen_file("data/dungeon/icerun_regen.txt")
d.notice("Ungebetener Besuch!!")
d.notice("Verschwindet aus meinem Atlantis!")
else
return
end
end
when 21552.chat."Heilige Halle verlassen" with pc.get_map_index() == 207 begin
say_title("W�chter von Atlantis:")
say("Ihr wollt die Heilige Halle verlassen?")
say("")

local s = select("Ja!", "Nein.")
if s == 1 then
local empire = pc.get_empire()
if empire == 1 then
pc.warp(474300,954800)
elseif empire == 2 then
pc.warp(63800,166400)
elseif empire == 3 then
pc.warp(959900,269200)
end
else
return
end
end
--when logout begin
-- if pc.get_map_index() == 207 then
-- game.set_event_flag("besuchinheiligerhalle", game.get_event_flag("besuchinheiligerhalle")-1)
-- end
--end
when login begin
--if pc.get_map_index() == 207 then
--game.set_event_flag("besuchinheiligerhalle", game.get_event_flag("besuchinheiligerhalle")+1)
--end
if pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 then
pc.set_warp_location(204, 37743,37743)
end
end
when 21578.kill with pc.get_map_index()>= 2080000 and pc.get_map_index() < 2090000 begin
timer("erster_metin", 6)
d.notice("NEEEIIIN!!Mein Stein..!")
d.notice("Ich verfluche euch!")
d.notice("Los tapfere Krieger, erledigt die Eindringlinge!!!")
d.notice("Ich hoffe ihr t�tet nicht alle meine tapferen Krieger!")
end
when erster_metin.timer begin
d.jump_all(5380 , 4122)
d.regen_file("data/dungeon/icerun1_regen.txt")
d.setf("keule", 0)
d.set_warp_at_eliminate(4, d.get_map_index(), (5000+432), (4000+122), "data/dungeon/icerun2_regen.txt")
--pc.give_item2(30003)
end
when 21581.chat."GM-Abk�rzung BOSS" with pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 and pc.is_gm() begin
say("Du kommst zum Bossraum")
wait()
npc.purge()
d.setf("statue", 5)
timer("ice_jump", 6)
end
when 21581.chat."Wolang des Weges?" with pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 begin
say("...")
wait()
d.notice("Grantelbart:")
d.notice(".....")
d.notice("..Dieser Weg ist kalt..")
d.notice(".....")
d.notice("..Nehmt euch vor Neralex in Acht!....")
d.notice(".....")
d.notice("Neralex:")
d.notice("Was habt ihr hier verloren!")
d.notice("Sucht das Weite und zwar sofort!!")
npc.purge()
d.kill_all()
timer("erster_spruch", 10)
end
when erster_spruch.timer begin
d.jump_all(5000+685, 4000+82)
d.setf("insel1", 0)
d.setf("insel2", 0)
d.setf("insel3", 0)
d.setf("insel4", 0)
d.setf("alleinseln", 0)
d.regen_file("data/dungeon/icerun3_1_regen.txt")
d.notice("Besuche jede der 4 Inseln einmal. Beim wiederholten")
d.notice("erreichen einer Insel erscheinen K�mpfer die")
d.notice("dann get�tet werden m�ssen, bevor man zur n�chsten")
d.notice("Insel kommt.")
end
when 20350.chat."GM-Abk�rzung Mini-Bossraum" with pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 and pc.is_gm() begin
say("Du kommst zum Mini-Bossraum")
wait()
npc.purge()
timer("inseln_fertigg", 10)
end
when 20350.chat."Die 4 Inseln" with pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 begin
npc.lock()
say_title("Nerolfr�s:")
say("Ich kann euch auf eine andere")
say("Insel bef�rdern. Bitte w�hle eine aus:")
local s=select ("1","2","3","4","Abbruch")
if s<=4 then
local positions = {
{685, 82},
{590, 82},
{590, 177},
{685, 177},
}
local fish = number(1,4)
if d.getf("insel"..fish) < 1 then
d.setf("insel"..fish, 1)
d.setf("alleinseln", d.getf("alleinseln")+1)
d.kill_all()
if d.getf("alleinseln")==4 then
d.notice("Nerolfr�s:")
d.notice("Dies war die letzte Insel.")
d.notice("Nun kann ich euch nicht mehr helfen.")
d.notice("Ihr m�sst den Weg nun alleine finden.")
timer("inseln_fertig", 10)
return
end
d.notice("Nerolfr�s:")
d.notice("Ihr wart bisher auf "..d.getf("alleinseln").." Inseln.")
d.notice("Ihr m�sst auf allen vier einmal gewesen sein.")
d.regen_file("data/dungeon/icerun3_"..fish.."_regen.txt")
else
d.purge()
d.regen_file("data/dungeon/icerun3_"..fish.."more_regen.txt")
d.set_warp_at_eliminate(4, d.get_map_index(), 5000 + positions[fish][1], 4000 + positions[fish][2], "data/dungeon/icerun3_"..fish.."_regen.txt")
end
npc.unlock()
d.jump_all(5000+positions[fish][1], 4000+positions[fish][2])
else
npc.unlock()
return
end
end
when 101.kill with pc.is_gm() begin
chat("Dein Mapindex: "..pc.get_map_index())
end
when 30003.use with pc.in_dungeon begin
pc.remove_item(30003)
local empire = pc.get_empire()
if empire == 1 then
pc.warp(474300,954800)
elseif empire == 2 then
pc.warp(63800,166400)
elseif empire == 3 then
pc.warp(959900,269200)
end
end
when inseln_fertig.timer begin
timer("inseln_fertigg", 10)
d.notice("Neralex:")
d.notice("So Freunde!! Jetzt ist aber Schlu�!")
d.notice("Ich will hier KEINEN mehr sehen!!!")
end
when inseln_fertigg.timer begin
local positionss = {
{473, 441},
{483, 451},
{473, 461},
{464, 451},
}
local fissh = number(1,4)
d.jump_all(5000+positionss[fissh][1], 4000+positionss[fissh][2])
d.regen_file("data/dungeon/icerun_small_boss.txt")
--d.jump_all(5000+122, 4000+89)
--d.exit_all()
end
when 2623.kill begin
d.notice("Neralex:")
d.notice("Komm geht nach Hause!!")
d.notice("Ihr seid ja absolut l�cherlich!!!")
d.notice("Ihr schafft es nicht die Volvins zu t�ten um")
d.notice("ein Eismedallion auf die S�ulen zu ziehen...")
d.regen_file("data/dungeon/icerun_statue.txt")
timer("miniboss", 10)
end
when miniboss.timer begin
d.setf("statue", 0)
d.setf("keulenmann", 0)
d.setf("keule", 1)
d.jump_all(5000+705, 4000+519)
end
when 21579.take with item.vnum == 90033 begin
npc.purge()
item.remove()
d.setf("keulenmann", 0)
d.setf("statue", d.getf("statue")+1)
timer("ice_jump", 6)
if d.getf("statue")==5 then
d.notice("Neralex:")
d.notice("Ihr denkt wohl, ich sehe euch nicht!!")
d.notice("Seid jetzt ruhig und geht nach Hause!!!")
d.setf("keule", 0)
end
end
when 2627.kill with d.getf("keule")==1 begin
d.setf("keulenmann", d.getf("keulenmann")+1)
if d.getf("keulenmann")== 9 then
game.drop_item("90033")
end
end
when ice_jump.timer begin
local positionsss = {
{754, 494},
{705, 459},
{754, 424},
{705, 389},
{144, 449},
}
local fisssh = d.getf("statue")
d.jump_all(5000+positionsss[fisssh][1], 4000+positionsss[fisssh][2])
if fisssh==5 then
timer("ice_boss1", 20)
d.spawn_mob(2636, 124, 446)
d.spawn_mob(2635, 124, 450)
d.notice("Neralex:")
d.notice("Ah, da seid ihr ja. Ich freue mich auf die Show!")
else
d.regen_file("data/dungeon/icerun4_"..fisssh.."_regen.txt")
end
--d.jump_all(5000+122, 4000+89)
--d.exit_all()
end
when ice_boss1.timer begin
d.notice("Los Valons!! Ergreift die Eindringlinge!!! ")
for i = 1, 132 do
local firts= number(138, 231)
local secodn= number(413, 483)
d.spawn_mob(2633, firts, secodn)
end
d.setf("schild", 1)
d.setf("schildmann" , 0)
end
when 2633.kill with d.getf("schild")==1 begin
d.setf("schildmann", d.getf("schildmann")+1)
d.notice("Noch "..120-d.getf("schildmann").." W�chter besiegen.")
if d.getf("schildmann")== 120 then
d.notice("Neralex:")
d.notice("Ihr denkt wohl, das war alles!!")
d.notice("Los Kristallfelsen!! Sperrt sie ein!!! ")
timer("ice_boss2", 15)
d.setf("schild", 0)
d.setf("kristallmann", 0)
end
end
when ice_boss2.timer begin
for i = 1, 220 do
local firts= number(138, 231)
local secodn= number(413, 483)
d.spawn_mob(21580, firts, secodn)
end
d.setf("kristall", 1)
end
when 21580.kill with d.getf("kristall")==1 begin
d.setf("kristallmann", d.getf("kristallmann")+1)
d.notice("Noch "..200-d.getf("kristallmann").." Kristalle zerschlagen.")
if d.getf("kristallmann")== 200 then
d.notice("Neralex:")
d.notice("WAS!? Ihr habt noch nicht genug?")
d.notice("Los Frau!! Geh die Kinder verpr�geln!!!")
d.notice("Nerala:")
d.notice("-.-'")
timer("ice_boss3", 15)
d.setf("kristall", 0)
end
end
when ice_boss3.timer begin
d.purge()
d.spawn_mob(2624, 144, 449)
d.spawn_mob(2636, 124, 450)
d.setf("Nerala", 1)
end
when 2624.kill with d.getf("Nerala")==1 begin
d.notice("Neralex:")
d.notice("Wozu hat man heutzutage noch eine Frau...")
d.notice("Sie sind zu nichts Nutze!!!")
d.notice("Jetzt komme ich!!")
timer("ice_boss4", 15)
d.setf("Nerala", 0)
end
when ice_boss4.timer begin
d.purge()
d.spawn_mob(2625, 144, 449)
d.setf("Neralex", 1)
end
when 2625.kill with d.getf("Neralex")==1 begin
d.notice("Neralex:")
d.notice("Ich bin noch l�ngst nicht besiegt...")
d.notice("Sp�rt meine Drachenmacht!!")
timer("ice_boss5", 5)
d.setf("Neralex", 0)
end
when ice_boss5.timer begin
d.purge()
d.spawn_mob(2620, 144, 449)
d.setf("Neralexdragon", 1)
end
when 2620.kill with d.getf("Neralexdragon")==1 begin
for i= 1, 100 do
game.drop_item("1")
end
game.drop_item("90032")
d.notice("Neralex:")
d.notice("OK...Ihr seid w�rdig.")
notice_all("".. pc.get_name() .." + Team haben den Ice-Run gemeistert!")
--notice_all("Sie haben Neralex besiegt und seine Truhe bekommen.")
d.setf("Neralex", 0)
d.spawn_mob(21601, 154, 449)
server_timer('iceruns_boss', 60, pc.get_map_index())
server_timer('iceruns_boss2', 120, pc.get_map_index())
server_timer('iceruns_boss3', 180, pc.get_map_index())
server_timer('iceruns_boss4', 240, pc.get_map_index())
server_timer('iceruns_boss5', 300, pc.get_map_index())
end
when 21601.chat."Belohnung abholen" with pc.in_dungeon() and pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 begin
end
when iceruns_boss.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Noch vier Minuten bis zum Verlassen!")
end
end
when iceruns_boss2.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Noch drei Minuten bis zum Verlassen!")
end
end
when iceruns_boss3.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Noch zwei Minuten bis zum Verlassen!")
end
end
when iceruns_boss4.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Noch eine Minute bis zum Verlassen!")
end
end
when iceruns_boss5.server_timer begin
if d.select(get_server_timer_arg()) then
d.exit_all()
end
end
end
end

06/29/2013 14:25 Fliegex3#8414

PHP Code:


			
quest sdentry begin

    state start begin

        when 30130.chat."Zugang zur Bruth�hle" begin

            if pc.count_item("30324") < 1 then

                say("Dieses Tor l�sst sich nur mit dem")

                say("Arachnidenschl�ssel �ffnen. Diesen Schl�ssel")

                say("droppst du von der K�nigsspinne im Spinnendungeon 1.")

            elseif pc.count_item("30324") >= 1 and party.is_party() then

                    say("Ihr habt die K�nigsspinne besiegt und")

                    say("einen Archnidenschl�ssel ergattert?")

                    say("Ihr seid wahrlich bereit gegen die Baroness")

                    say("zu k�mpfen!")

                    say("Ich teleporte euch jetzt.")

                    pc.remove_item("30324",1) 

                    d.new_jump_all(193, 881, 6149)

                    d.regen_file("/home/Avalon/share/data/dungeon/sd3/eier.txt")

                    d.regen_file("/home/Avalon/share/data/dungeon/sd3/boss.txt")

            elseif pc.count_item("30324") >= 1 and party.is_party() == false then

                say("Dieses Tor l�sst sich nur �ffnen,")

                say("wenn du in einer Gruppe bist und einen")

                say("Archnidenschl�ssel besitzt.")

            elseif pc.count_item("30324") < 1 and party.is_party() == false then

                say("Dieses Tor l�sst sich nur �ffnen,")

                say("wenn du in einer Gruppe bist und")

                say("einen Arachnidenschl�ssel hast. Diesen Schl�ssel")

                say("droppst du von der K�nigsspinne im Spinnendungeon 1.")

            end

        end

        when 2092.kill begin

            timer("bosskill", 10)

            syschat("Ihr habt es wirklich geschafft die Baroness zu t�ten!")

            syschat("Ihr seit wahre K�mpfer!")

            syschat("Ihr werdet in 10 Sekunden in e�r Dorf teleportiert.")

        end

        when bosskill.timer begin

            d.exit_all_to_start_position()

        end

    end

end

Fehler: Jeder auf der Map wird in die Bosskammer gespawnt, will das aber nur die Gruppenmember in die Kammer gespawnt werden, geht sowas?

06/29/2013 14:59 ProfessorEnte#8415

Warp sie auf ne extra map und dann ins dungeon.

Oder du machst das ganze mit d.new_jump.
Der 1. der reinjoined gibt den Mapindex des dungeons an. Den Rest laesst du dann ueber den Mapindex reinjoinen. Geht aber nicht so ohne weiteres, musst du dir mal den Kopf zerbrechen, da werd ich dir nicht bei helfen.

Wie gesagt einfachste loesung waere erst die Leute die in der Party sind auf eine map zu porten und von da aus dann wenn alle drauf sind mit d.new_jump_all

Mfg,
ProfessorEnte

Page 561 of 845

561