|
You last visited: Today at 21:30
Advertisement
[SERVICE] Die Questkontrolle
Discussion on [SERVICE] Die Questkontrolle within the Metin2 Private Server forum part of the Metin2 category.
11/19/2014, 12:30
|
#10651
|
elite*gold: 0 
Join Date: Mar 2013
Posts: 58
Received Thanks: 10
|
PHP Code:
quest jagd1 begin
state start begin
when login or levelup with pc.get_level() >= 1 begin
set_state(info1)
end
end
state info1 begin
when letter begin
send_letter("Dein Meister ruft dich.")
end
when button or info begin
say("Hallo "..pc.get_name().."")
say("ich bin Konfuzius, dein Lehrmeister.")
say("Ich werde dich eine Weile auf deinem Weg")
say("begleiten und dir verschiedene Aufgaben erteilen.")
say("Nun horch zu,")
say("Du hast nun die Auswahl:")
say_yellow("Töte 10x Hungriger Wildhund oder 5x Hungriger Wolf
local a = select("10x Hungriger Wildhund", "5x Hungrige Wolf")
if a == 1 then
say("Okay, du hast deine Wahl getroffen, viel Erfolg.")
say("Hast du den Auftrag erfolgreich abgeschlossen, erhälst du")
say("deine Belohnung.")
say_reward("Töte 10x Hungriger Wildhund")
say("")
pc.setqf("state1", 0)
q.set_counter("count1", 10)
set_state(Wildhund)
else
say("Okay, du hast deine Wahl getroffen, viel Erfolg.")
say("Hast du den Auftrag erfolgreich abgeschlossen, erhälst du")
say("deine Belohnung.")
say_reward("Töte 5 Hungrige Wölfe")
say("")
pc.setqf("state1", 0)
q.set_counter("count2", 5)
set_state(Wolf)
end
end
end
state Wildhund begin
when letter begin
send_letter("Die erste Jagd")
end
when info or button begin
say_title("Wie viele sind es noch, Konfuzius?")
say("Ach "..pc.get_name().."")
say("du wieder. Hier erfährst du, wie viele du noch erlegen musst")
say("")
say_reward("Du hast schon "..pc.getqf("state1").." von 10x Hungriger Wildhund getötet!")
end
when 171.kill begin
local count1 = pc.getqf("state1") + 1
if count1 <= 10 then
pc.setqf("state1", count1)
q.set_counter("Hungriger Wildhund", count1)
end
if count1 == 10 then
set_state(fertig)
end
end
end
state Wolf begin
when letter begin
send_letter("Jagd Teil 1")
end
when info or button begin
say_title("Wie viele sind es noch, Konfuzius?")
say("Ach "..pc.get_name().."")
say("du wieder. Hier erfährst du, wie viele du noch erlegen musst")
say("")
say_reward("Du hast schon "..pc.getqf("count2").." von 5x Hungriged Wolf getötet!")
end
when 172.kill begin
local count2 = pc.getqf("state2") + 1
if count2 <= 5 then
pc.setqf("state2", count2)
q.set_counter("Hungriger Wölfe", count2)
end
if count2 == 5 then
set_state(fertig)
end
end
end
state fertig begin
when letter begin
send_letter("Auftrag Erfolgreich!")
end
when button or info begin
say_title("Glückwunsch")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("Du erhälst:")
say_yellow("Eine Teleportationsring")
pc.give_item2(70058, 1)
clear_letter()
end
end
state __complete begin
end
end
Hallu,
Hab hier einen Jagdauftrag.
Wenn ich Quests reloade, kommt der Fehler in Vbox:
Error occured on compile jagd1.quest
Findet ihr den Fehler?
|
|
|
|
11/19/2014, 13:27
|
#10652
|
elite*gold: 0
Join Date: Jul 2014
Posts: 201
Received Thanks: 40
|
30er bis 94er Bio
Bei mir funktioniert der Drop nicht der Bioitems.
Ich habe die 30er Quest angenommen und droppe keine Biologenitems.
Irgendwo muss ein fehler in der Quest sein.
Code:
----------------------------------
-- LvL 30 / Orkzähne
----------------------------------
quest bio begin
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
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)
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
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(1,1) -------- Dropchance des Seelensteins hier 100%
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
when login or levelup with pc.level<40 begin
send_letter("Forschung des Biologen 2")
end
when button or info begin
say_title("Forschung des Biologen 2")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 40 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 40 erreichen!")
say("")
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 2")
end
when button or info begin
say_title("Forschung des Biologen 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 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
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)
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
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 731.kill or 733.kill or 734.kill begin
if pc.count_item(30221)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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
when login or levelup with pc.level<50 begin
send_letter("Forschung des Biologen 3")
end
when button or info begin
say_title("Forschung des Biologen 3")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 50 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 50 erreichen!")
say("")
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 3")
end
when button or info begin
say_title("Forschung des Biologen 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 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
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)
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
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 1001.kill or 1002.kill or 1003.kill or 1004.kill begin
if pc.count_item(30222)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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
when login or levelup with pc.level<60 begin
send_letter("Forschung des Biologen 4")
end
when button or info begin
say_title("Forschung des Biologen 4")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 60 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 60 erreichen!")
say("")
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 4")
end
when button or info begin
say_title("Forschung des Biologen 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 20 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 4")
end
when button or info begin
say_title("Eiskugeln")
say("")
say("Der Biologe gab euch den Auftrag,")
say("20 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."Eiskugel" with pc.count_item(30050)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob dieser Zahn in Ordnung ist ...")
say("")
pc.remove_item("30050", 1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<20 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 20 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
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 20 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 1102.kill or 1104.kill or 1105.kill begin
if pc.count_item(30223)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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 20 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
when login or levelup with pc.level<70 begin
send_letter("Forschung des Biologen 5")
end
when button or info begin
say_title("Forschung des Biologen 5")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 70 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 70 erreichen!")
say("")
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 5")
end
when button or info begin
say_title("Forschung des Biologen 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 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
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)
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
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 25 Äste 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(1,1) -------- Dropchance des Seelensteins hier 100%
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.POINT_DEF_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
when login or levelup with pc.level<80 begin
send_letter("Forschung des Biologen 6")
end
when button or info begin
say_title("Forschung des Biologen 6")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 80 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 80 erreichen!")
say("")
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 6")
end
when button or info begin
say_title("Forschung des Biologen 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 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(1,1) -------- Dropchance der Tafeln hier 100%
if rand<5 then pc.give_item2(30166, 1)
end
end
when 20084.chat."Tugyis Tafeln" with pc.count_item(30166)>0 begin
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)
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
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(30225)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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_lv85)
end
end
----------------------------------
-- LvL 85 / Geisterbaum Äste
----------------------------------
state collect_quest_lv85 begin
when login or levelup with pc.level>84 begin
set_state(talk_to_disciple_lv85)
end
when login or levelup with pc.level<85 begin
send_letter("Forschung des Biologen 7")
end
when button or info begin
say_title("Forschung des Biologen 7")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 85 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 85 erreichen!")
say("")
end
end
state talk_to_disciple_lv85 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 7")
end
when button or info begin
say_title("Forschung des Biologen 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."Rote Geisterbaumäste" 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 Rote Geisterbaumäste untersuchen.")
say("Davon benötige ich 40 Stück.")
say("Diese sind jedoch ziemlich verwelkt,")
say("es kann also sein, dass einige bei")
say("meinen Untersuchungen kaputt gehen.")
say("")
set_state(collect_ast)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_ast begin
when letter begin
send_letter("Forschung des Biologen 7")
end
when button or info begin
say_title("Rote Geisterbaumäste")
say("")
say("Der Biologe gab euch den Auftrag,")
say("40 von Rote Geisterbaumäste zu besorgen.")
say("Diese kannst du bei den Monstern")
say("im Roten Wald erbeuten.")
say("")
say_item_vnum(30166)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill begin
local rand = number(1,20) -------- Dropchance eines Geisterbaum Astes hier 5%
if rand<5 then pc.give_item2(30167, 1)
end
end
when 20084.chat."Rote Geisterbaumäste" with pc.count_item(30167)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob diesr Ast in Ordnung ist ...")
say("")
pc.remove_item("30167", 1)
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("dieser Ast 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 40 Äste gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige Waldgeist-Seelenstein,")
say("den du ebenfalls von den Monstern")
say("im Roten Wald erbeuten kannst.")
say("Ich denke, dafür bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_waldseeli)
end
else
say("Biologe:")
say("Es tut mir leid, der Ast")
say("ist während der Untersuchung verwelkt.")
say("Bitte hol mir einen Neuen.")
end
end
end
state collect_waldseeli begin
when letter begin
send_letter("Waldgeist-Seelenstein")
end
when button or info begin
say_title("Waldgeist-Seelenstein")
say("")
say("Ihr habt alle 40 Äste abgegeben.")
say("Nun müsst ihr den Waldgeist-Seelenstein erbeuten.")
say("")
say_item_vnum(30226)
say("Ob dieser Stein tatsächlich Seelen")
say("von Tugyis Adligen enthält?")
say("")
end
when 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill begin
if pc.count_item(30226)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
if rand<5 then pc.give_item2(30226, 1)
end
end
end
when 20084.chat."Waldgeist-Seelenstein" begin
if pc.count_item(30226)>0 then
say("Biologe:")
say("Dank deiner Hilfe verstehe ich nun")
say("die Legende um den Waldgeist-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(30226,1)
set_state(waldgeist_reward)
else
say("Biologe:")
say("Du hast mir die 40 Äste gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige Waldgeist-Seelenstein,")
say("den du ebenfalls von den Monstern")
say("im Roten Wald erbeuten kannst.")
say("Ich denke, dafür bist du stark genug.")
say("")
end
end
end
state waldgeist_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("Geisterbaum Ä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("PvP Schadensreduzierung +10% (Dauerhaft)")
say("")
affect.add_collect(apply.RESIST_ASSASSIN,10,60*60*24*365*60)
affect.add_collect(apply.RESIST_SURA,10,60*60*24*365*60)
affect.add_collect(apply.RESIST_SHAMAN,10,60*60*24*365*60)
affect.add_collect(apply.RESIST_WARRIOR,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
when login or levelup with pc.level<90 begin
send_letter("Forschung des Biologen 8")
end
when button or info begin
say_title("Forschung des Biologen 8")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 90 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 90 erreichen!")
say("")
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 8")
end
when button or info begin
say_title("Forschung des Biologen 8")
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 8")
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(1,1) -------- Dropchance einer Notiz hier 100%
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
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob diese Notiz lesbar ist ...")
say("")
pc.remove_item("30168", 1)
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
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(1,1) -------- Dropchance des Seelensteins hier 100%
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("PvP Schadenswert +10% (Dauerhaft)")
say("")
affect.add_collect(apply.ATT_BONUS_TO_WARRIOR,10,60*60*24*365*60)
affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN,10,60*60*24*365*60)
affect.add_collect(apply.ATT_BONUS_TO_SURA,10,60*60*24*365*60)
affect.add_collect(apply.ATT_BONUS_TO_SHAMAN,10,60*60*24*365*60)
set_state(collect_quest_lv92)
end
end
----------------------------------
-- LvL 92 / Juwel der Missgunst
----------------------------------
state collect_quest_lv92 begin
when login or levelup with pc.level>91 begin
set_state(talk_to_disciple_lv92)
end
when login or levelup with pc.level<92 begin
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Seon-Pyeongs Forschung")
say("")
say("Um die erste Forschung des Seon-Pyeongs")
say("zu starten musst du mindestens Lv 92 erreicht")
say("haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 92 erreichen!")
say("")
end
end
state talk_to_disciple_lv92 begin
when letter begin
local v = find_npc_by_vnum(20091)
if v != 0 then target.vid("__TARGET__", v, "Seon-Pyeong")
end
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Seon-Pyeongs Forschung")
say("")
say("Seon-Pyeong benötigt deine Hilfe.")
say("Sprich mit ihm.")
say("")
say_reward("Sprich mit Seon-Pyeong")
say("")
end
when __TARGET__.target.click or 20091.chat."Seon-Pyeongs Forschung" begin
target.delete("__TARGET__")
say("Seon-Pyeong:")
say("")
say("Oh, du hilfst mir?")
say("Gut ...")
say("Ich bin übrigens Seon-Pyeong")
say("und studiere zahlreiches aus der Unterwelt.")
say("Wenn du mir bei meinen Forschungen hilfst,")
say("werde ich dich reich belohnen.")
say("")
wait()
say("Seon-Pyeong:")
say("Ich habe vor kurzem wieder angefangen ...")
say("Ich Forsche an einer Legende ...")
say("Doch habe ich derzeit viel zu tun,")
say("es wäre also nett, wenn du mir hilfst ...")
say("")
wait()
say("Seon-Pyeong:")
say("Ich benötige zehn Juwele der Missgunst für meine")
say("Forschung")
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_9)
end
end
state collect_9 begin
when letter begin
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Juwel der Missgunst")
say("")
say("Seon-Pyeong gab euch den Auftrag,")
say("10 Juwele der Missgunst zu besorgen.")
say("Diese kannst du von den Monstern")
say("Unterwelt Eismann, und Unterwelt Eisgolem")
say("erbeuten, diese leben jedoch in der")
say("gefährlichen Grotte der Verbannung.")
say("")
say_item_vnum(30251)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 1135.kill or 1137.kill begin
local rand = number(1,10) -------- Dropchance eines Juwels hier 10%
if rand<5 then pc.give_item2(30251, 1)
end
end
when 20091.chat."Juwel der Missgunst" with pc.count_item(30251)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob dieses Juwel brauchbar ist ...")
say("")
pc.remove_item("30251", 1)
wait()
local rand = number(0,99)
if rand>50 then
say("Seon-Pyeong:")
say("Es tut mir leid, das Juwel")
say("hat sich als unbrauchbar herausgestellt,")
say("Bitte hol mir ein Neues.")
else
local count = pc.getqf("collect_count")+1
if count<10 then
pc.setqf("collect_count", count)
say("Seon-Pyeong:")
say("Hervorragend,")
say("dieses Juwel 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("Seon-Pyeong:")
say("Du hast mir die 10 Juwele gebracht.")
say("ich bin beeindruckt,")
say("sammle noch mehr Erfahrung in der")
say("Grotte der Verbannung dann werde")
say("ich dir die nächste Aufgabe zu kommen")
say("lassen.")
say("")
say("Doch nun zu deiner Belohnung")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
wait()
say("Welche Belohnung möchtest du?")
local s = select ("1000 TP", "120 Verteidigung", "51 Angriffswert")
if s == 3 then
say_reward("Du erhälst 51 Angriffswert.")
affect.add_collect(apply.ATT_GRADE_BONUS,51,60*60*24*365*60)
set_state(collect_quest_lv94)
end
if s == 2 then
say_reward("Du erhälst 120 Verteidigung.")
affect.add_collect(apply.DEF_GRADE_BONUS,120,60*60*24*365*60)
set_state(collect_quest_lv94)
end
if s == 1 then
say_reward("Du erhälst 1000 TP.")
affect.add_collect(apply.TP_GRADE_BONUS,1000,60*60*24*365*60)
set_state(collect_quest_lv94)
end
end
end
end
end
----------------------------------
-- LvL 94 / Juwel der Weisheit
----------------------------------
state collect_quest_lv94 begin
when login or levelup with pc.level>93 begin
set_state(talk_to_disciple_lv94)
end
when login or levelup with pc.level<94 begin
send_letter("Seon-Pyeongs Forschung 2")
end
when button or info begin
say_title("Seon-Pyeongs Forschung 2")
say("")
say("Um die nächste Forschung des Seon-Pyeongs")
say("zu starten musst du mindestens Lv 94 erreicht")
say("haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 94 erreichen!")
say("")
end
end
state talk_to_disciple_lv94 begin
when letter begin
local v = find_npc_by_vnum(20091)
if v != 0 then target.vid("__TARGET__", v, "Seon-Pyeong")
end
send_letter("Seon-Pyeongs Forschung 2")
end
when button or info begin
say_title("Seon-Pyeongs Forschung 2")
say("")
say("Seon-Pyeong benötigt deine Hilfe.")
say("Sprich mit ihm.")
say("")
say_reward("Sprich mit Seon-Pyeong")
say("")
end
when __TARGET__.target.click or 20091.chat."Seon-Pyeongs Forschung 2" begin
target.delete("__TARGET__")
say("Seon-Pyeong:")
say("Gut, dass du gekommen bist...")
say("Die Untersuchung der Missgunst Juwelen")
say("habe ich abgeschlossen.")
say("Nun habe ich neue Objekte gefunden,")
say("die ich gerne untersuchen würde.")
wait()
say("Seon-Pyeong:")
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("Seon-Pyeong:")
say("Ich möchte Juwelen der Weisheit untersuchen.")
say("Davon benötige ich 20 Stück.")
say("Es kann jedoch sein, dass sich einige")
say("Juwele als unbrauchbar herausstellen.")
say("")
set_state(collect_10)
end
end
state collect_10 begin
when letter begin
send_letter("Seon-Pyeongs Forschung 2")
end
when button or info begin
say_title("Juwel der Weisheit")
say("")
say("Seon-Pyeong gab euch den Auftrag,")
say("20 Juwelen der Weisheit zu besorgen.")
say("Diese kannst du von den Monstern")
say("Setaou Jägern und Setaou")
say("Kämpfern erbeuten, diese leben")
say("jedoch im den hintersten Kammern")
say("der Grotte 1.")
say("")
say_item_vnum(30252)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 2401.kill or 2402.kill begin
local rand = number(1,25) -------- Dropchance des Juwels hier 4%
if rand<5 then pc.give_item2(30252, 1)
end
end
when 20091.chat."Juwel der Weisheit" with pc.count_item(30252)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob dieses Juwel brauchbar ist ...")
say("")
pc.remove_item("30252", 1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<20 then
pc.setqf("collect_count", count)
say("Seon-Pyeong:")
say("Hervorragend,")
say("dieses Juwel 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("Seon-Pyeong:")
say("Du hast mir die 20 Juwele gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige den Beran-Setaou Seelenstein,")
say("den du nur vom Herrscher der Grotte")
say("Beran-Setaou erhälst, es ist eine")
say("schwere Aufgabe aber ich denke")
say("das du es schaffen wirst!")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_setaouseeli)
end
else
say("Seon-Pyeong:")
say("Es tut mir leid, das Juwel")
say("hat sich als unbrauchbar herausgestellt.")
say("Bitte hol mir ein Neues.")
end
end
end
state collect_setaouseeli begin
when letter begin
send_letter("Beran-Setaou Seelenstein")
end
when button or info begin
say_title("Beran-Setaou Seelenstein")
say("")
say("Ihr habt alle 20 Juwele der Weisheit abgegeben.")
say("Nun müsst ihr den Beran-Setaou Seelenstein")
say("erbeuten.")
say("")
say_item_vnum(30228)
say("Ob dieser Stein tatsächlich Seelen")
say("der Grotte enthält?")
say("")
end
when 2493.kill begin
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
if rand<5 then pc.give_item2(30228, 1)
end
end
when 20091.chat."Beran-Setaou Seelenstein" begin
if pc.count_item(30228)<1 then
say("Seon-Pyeong:")
say("Du hast mir die 20 Juwele gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige den Beran-Setaou Seelenstein,")
say("den du nur vom Herrscher der Grotte")
say("Beran-Setaou erhälst, es ist eine")
say("schwere Aufgabe aber ich denke")
say("das du es schaffen wirst!")
say("")
else
say("Seon-Pyeong:")
say("Unglaublich! Du hast es tatsächlich geschafft")
say("mir den Beran-Setaou Seelenstein zu besorgen")
say("Du hast hart gekämpft.")
say("")
say("Nun zu deiner Belohnung")
say("")
pc.remove_item(30228,1)
wait()
say("Welche Belohnung möchtest du?")
local s = select ("1100 TP", "140 Verteidigung", "60 Angriffswert")
if s == 3 then
say_reward("Du erhälst 60 Angriffswert.")
affect.add_collect(apply.ATT_GRADE_BONUS,60,60*60*24*365*60)
set_state(collect_end)
end
if s == 2 then
say_reward("Du erhälst 140 Verteidigung.")
affect.add_collect(apply.DEF_GRADE_BONUS,140,60*60*24*365*60)
set_state(collect_end)
end
if s == 1 then
say_reward("Du erhälst 1100 TP.")
affect.add_collect(apply.TP_GRADE_BONUS,1100,60*60*24*365*60)
set_state(collect_end)
end
end
end
end
state collect_end begin
end
end
|
|
|
|
|
11/19/2014, 14:28
|
#10653
|
elite*gold: 0
Join Date: Dec 2011
Posts: 1,891
Received Thanks: 1,244
|
Hallo und zwar habe immer noch ein Problem mit der invasion Quest kann da jemand helfen.
Code:
quest invasion50 begin
state start begin
when login or levelup with pc.get_level() >= 50 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Die Invasion der Metins 1")
end
when info or button begin
say_title("Metin der Härte")
say("Unsere Welt wird von unzähligen")
say("Metins heimgesucht, sie tauchen")
say("überall auf! Wir verteidigen uns")
say("so gut, wie wir können doch jetzt")
say("sind wir auf einen Helden angewiesen!")
say("Deine Aufgabe:")
say("Zerstöre 5 Metin der Härte!")
setstate(metin)
pc.setqf("state", 0)
q.set_counter("Verbleibende Metins", 5)
end
end
state metin begin
when letter begin
send_letter("Zerstöre Metin der Härte")
end
when button or info begin
say_title("Zerstöre Metin der Härte")
say("Helf den Dorfbewohner indem")
say("du 5 Metin der Härte zerstörst!")
say_reward("Du hast bis jetzt "..pc.getqf("state").." Metin der Härte zerstört!")
end
when 8010.kill begin
local count = pc.getqf("state")+1
if count <= 5 then
pc.setqf("state", count)
q.set_counter("Verbleibende Metins", 5 - count)
if count == 5 then
say_title("Metin der Härte zerstört")
say("Du hast es geschafft, du hast")
say("unser Land vor der ersten Invasion")
say("gerettet, doch es werden immer mehr!")
say_reward("Du erhälst Stein der Wiederkehr+4")
say_reward("16.000.000 Yang")
say_reward("1.534.000 Erfahrungspunkte")
pc.change_money(16000000)
pc.give_exp2(1534000)
pc.give_item2(28432, 1)
pc.setqf("state", 0)
clear_letter()
set_quest_state("invasion55","run")
set_state(__COMPLETE__)
end
end
end
end
state __COMPLETE__ begin
end
end
@Souza
du kommst niemals auf den teil wo du die Metins killen sollst ^^
Flüchtigkeitsfehler
du hast geschrieben
PHP-Code:
setstate(metin)
__________________
Aber leider habe ich den schritt nicht ganz kapiert.
|
|
|
|
|
11/19/2014, 15:32
|
#10654
|
elite*gold: 50
Join Date: Aug 2014
Posts: 508
Received Thanks: 201
|
Schön guten Tag,
könnte sich ein netter Quester bei mir melden? (elbrilli)
Sind 3/4 kleine Quest.
Vielen Dank
______
Grüüüüße
|
|
|
|
|
11/19/2014, 22:53
|
#10655
|
elite*gold: 0
Join Date: Jul 2014
Posts: 201
Received Thanks: 40
|
Bei mir funktioniert der Drop nicht der Bioitems.
Ich habe die 30er Quest angenommen und droppe keine Biologenitems.
Irgendwo muss ein fehler in der Quest sein.
Code:
----------------------------------
-- LvL 30 / Orkzähne
----------------------------------
quest bio begin
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
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)
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
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(1,1) -------- Dropchance des Seelensteins hier 100%
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
when login or levelup with pc.level<40 begin
send_letter("Forschung des Biologen 2")
end
when button or info begin
say_title("Forschung des Biologen 2")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 40 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 40 erreichen!")
say("")
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 2")
end
when button or info begin
say_title("Forschung des Biologen 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 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
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)
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
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 731.kill or 733.kill or 734.kill begin
if pc.count_item(30221)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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
when login or levelup with pc.level<50 begin
send_letter("Forschung des Biologen 3")
end
when button or info begin
say_title("Forschung des Biologen 3")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 50 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 50 erreichen!")
say("")
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 3")
end
when button or info begin
say_title("Forschung des Biologen 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 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
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)
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
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 1001.kill or 1002.kill or 1003.kill or 1004.kill begin
if pc.count_item(30222)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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
when login or levelup with pc.level<60 begin
send_letter("Forschung des Biologen 4")
end
when button or info begin
say_title("Forschung des Biologen 4")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 60 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 60 erreichen!")
say("")
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 4")
end
when button or info begin
say_title("Forschung des Biologen 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 20 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 4")
end
when button or info begin
say_title("Eiskugeln")
say("")
say("Der Biologe gab euch den Auftrag,")
say("20 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."Eiskugel" with pc.count_item(30050)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob dieser Zahn in Ordnung ist ...")
say("")
pc.remove_item("30050", 1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<20 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 20 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
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 20 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 1102.kill or 1104.kill or 1105.kill begin
if pc.count_item(30223)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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 20 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
when login or levelup with pc.level<70 begin
send_letter("Forschung des Biologen 5")
end
when button or info begin
say_title("Forschung des Biologen 5")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 70 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 70 erreichen!")
say("")
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 5")
end
when button or info begin
say_title("Forschung des Biologen 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 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
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)
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
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 25 Äste 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(1,1) -------- Dropchance des Seelensteins hier 100%
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.POINT_DEF_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
when login or levelup with pc.level<80 begin
send_letter("Forschung des Biologen 6")
end
when button or info begin
say_title("Forschung des Biologen 6")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 80 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 80 erreichen!")
say("")
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 6")
end
when button or info begin
say_title("Forschung des Biologen 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 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(1,1) -------- Dropchance der Tafeln hier 100%
if rand<5 then pc.give_item2(30166, 1)
end
end
when 20084.chat."Tugyis Tafeln" with pc.count_item(30166)>0 begin
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)
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
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(30225)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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_lv85)
end
end
----------------------------------
-- LvL 85 / Geisterbaum Äste
----------------------------------
state collect_quest_lv85 begin
when login or levelup with pc.level>84 begin
set_state(talk_to_disciple_lv85)
end
when login or levelup with pc.level<85 begin
send_letter("Forschung des Biologen 7")
end
when button or info begin
say_title("Forschung des Biologen 7")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 85 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 85 erreichen!")
say("")
end
end
state talk_to_disciple_lv85 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 7")
end
when button or info begin
say_title("Forschung des Biologen 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."Rote Geisterbaumäste" 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 Rote Geisterbaumäste untersuchen.")
say("Davon benötige ich 40 Stück.")
say("Diese sind jedoch ziemlich verwelkt,")
say("es kann also sein, dass einige bei")
say("meinen Untersuchungen kaputt gehen.")
say("")
set_state(collect_ast)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_ast begin
when letter begin
send_letter("Forschung des Biologen 7")
end
when button or info begin
say_title("Rote Geisterbaumäste")
say("")
say("Der Biologe gab euch den Auftrag,")
say("40 von Rote Geisterbaumäste zu besorgen.")
say("Diese kannst du bei den Monstern")
say("im Roten Wald erbeuten.")
say("")
say_item_vnum(30166)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill begin
local rand = number(1,20) -------- Dropchance eines Geisterbaum Astes hier 5%
if rand<5 then pc.give_item2(30167, 1)
end
end
when 20084.chat."Rote Geisterbaumäste" with pc.count_item(30167)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob diesr Ast in Ordnung ist ...")
say("")
pc.remove_item("30167", 1)
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("dieser Ast 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 40 Äste gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige Waldgeist-Seelenstein,")
say("den du ebenfalls von den Monstern")
say("im Roten Wald erbeuten kannst.")
say("Ich denke, dafür bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_waldseeli)
end
else
say("Biologe:")
say("Es tut mir leid, der Ast")
say("ist während der Untersuchung verwelkt.")
say("Bitte hol mir einen Neuen.")
end
end
end
state collect_waldseeli begin
when letter begin
send_letter("Waldgeist-Seelenstein")
end
when button or info begin
say_title("Waldgeist-Seelenstein")
say("")
say("Ihr habt alle 40 Äste abgegeben.")
say("Nun müsst ihr den Waldgeist-Seelenstein erbeuten.")
say("")
say_item_vnum(30226)
say("Ob dieser Stein tatsächlich Seelen")
say("von Tugyis Adligen enthält?")
say("")
end
when 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill begin
if pc.count_item(30226)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
if rand<5 then pc.give_item2(30226, 1)
end
end
end
when 20084.chat."Waldgeist-Seelenstein" begin
if pc.count_item(30226)>0 then
say("Biologe:")
say("Dank deiner Hilfe verstehe ich nun")
say("die Legende um den Waldgeist-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(30226,1)
set_state(waldgeist_reward)
else
say("Biologe:")
say("Du hast mir die 40 Äste gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige Waldgeist-Seelenstein,")
say("den du ebenfalls von den Monstern")
say("im Roten Wald erbeuten kannst.")
say("Ich denke, dafür bist du stark genug.")
say("")
end
end
end
state waldgeist_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("Geisterbaum Ä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("PvP Schadensreduzierung +10% (Dauerhaft)")
say("")
affect.add_collect(apply.RESIST_ASSASSIN,10,60*60*24*365*60)
affect.add_collect(apply.RESIST_SURA,10,60*60*24*365*60)
affect.add_collect(apply.RESIST_SHAMAN,10,60*60*24*365*60)
affect.add_collect(apply.RESIST_WARRIOR,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
when login or levelup with pc.level<90 begin
send_letter("Forschung des Biologen 8")
end
when button or info begin
say_title("Forschung des Biologen 8")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 90 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 90 erreichen!")
say("")
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 8")
end
when button or info begin
say_title("Forschung des Biologen 8")
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 8")
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(1,1) -------- Dropchance einer Notiz hier 100%
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
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob diese Notiz lesbar ist ...")
say("")
pc.remove_item("30168", 1)
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
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(1,1) -------- Dropchance des Seelensteins hier 100%
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("PvP Schadenswert +10% (Dauerhaft)")
say("")
affect.add_collect(apply.ATT_BONUS_TO_WARRIOR,10,60*60*24*365*60)
affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN,10,60*60*24*365*60)
affect.add_collect(apply.ATT_BONUS_TO_SURA,10,60*60*24*365*60)
affect.add_collect(apply.ATT_BONUS_TO_SHAMAN,10,60*60*24*365*60)
set_state(collect_quest_lv92)
end
end
----------------------------------
-- LvL 92 / Juwel der Missgunst
----------------------------------
state collect_quest_lv92 begin
when login or levelup with pc.level>91 begin
set_state(talk_to_disciple_lv92)
end
when login or levelup with pc.level<92 begin
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Seon-Pyeongs Forschung")
say("")
say("Um die erste Forschung des Seon-Pyeongs")
say("zu starten musst du mindestens Lv 92 erreicht")
say("haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 92 erreichen!")
say("")
end
end
state talk_to_disciple_lv92 begin
when letter begin
local v = find_npc_by_vnum(20091)
if v != 0 then target.vid("__TARGET__", v, "Seon-Pyeong")
end
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Seon-Pyeongs Forschung")
say("")
say("Seon-Pyeong benötigt deine Hilfe.")
say("Sprich mit ihm.")
say("")
say_reward("Sprich mit Seon-Pyeong")
say("")
end
when __TARGET__.target.click or 20091.chat."Seon-Pyeongs Forschung" begin
target.delete("__TARGET__")
say("Seon-Pyeong:")
say("")
say("Oh, du hilfst mir?")
say("Gut ...")
say("Ich bin übrigens Seon-Pyeong")
say("und studiere zahlreiches aus der Unterwelt.")
say("Wenn du mir bei meinen Forschungen hilfst,")
say("werde ich dich reich belohnen.")
say("")
wait()
say("Seon-Pyeong:")
say("Ich habe vor kurzem wieder angefangen ...")
say("Ich Forsche an einer Legende ...")
say("Doch habe ich derzeit viel zu tun,")
say("es wäre also nett, wenn du mir hilfst ...")
say("")
wait()
say("Seon-Pyeong:")
say("Ich benötige zehn Juwele der Missgunst für meine")
say("Forschung")
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_9)
end
end
state collect_9 begin
when letter begin
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Juwel der Missgunst")
say("")
say("Seon-Pyeong gab euch den Auftrag,")
say("10 Juwele der Missgunst zu besorgen.")
say("Diese kannst du von den Monstern")
say("Unterwelt Eismann, und Unterwelt Eisgolem")
say("erbeuten, diese leben jedoch in der")
say("gefährlichen Grotte der Verbannung.")
say("")
say_item_vnum(30251)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 1135.kill or 1137.kill begin
local rand = number(1,10) -------- Dropchance eines Juwels hier 10%
if rand<5 then pc.give_item2(30251, 1)
end
end
when 20091.chat."Juwel der Missgunst" with pc.count_item(30251)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob dieses Juwel brauchbar ist ...")
say("")
pc.remove_item("30251", 1)
wait()
local rand = number(0,99)
if rand>50 then
say("Seon-Pyeong:")
say("Es tut mir leid, das Juwel")
say("hat sich als unbrauchbar herausgestellt,")
say("Bitte hol mir ein Neues.")
else
local count = pc.getqf("collect_count")+1
if count<10 then
pc.setqf("collect_count", count)
say("Seon-Pyeong:")
say("Hervorragend,")
say("dieses Juwel 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("Seon-Pyeong:")
say("Du hast mir die 10 Juwele gebracht.")
say("ich bin beeindruckt,")
say("sammle noch mehr Erfahrung in der")
say("Grotte der Verbannung dann werde")
say("ich dir die nächste Aufgabe zu kommen")
say("lassen.")
say("")
say("Doch nun zu deiner Belohnung")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
wait()
say("Welche Belohnung möchtest du?")
local s = select ("1000 TP", "120 Verteidigung", "51 Angriffswert")
if s == 3 then
say_reward("Du erhälst 51 Angriffswert.")
affect.add_collect(apply.ATT_GRADE_BONUS,51,60*60*24*365*60)
set_state(collect_quest_lv94)
end
if s == 2 then
say_reward("Du erhälst 120 Verteidigung.")
affect.add_collect(apply.DEF_GRADE_BONUS,120,60*60*24*365*60)
set_state(collect_quest_lv94)
end
if s == 1 then
say_reward("Du erhälst 1000 TP.")
affect.add_collect(apply.TP_GRADE_BONUS,1000,60*60*24*365*60)
set_state(collect_quest_lv94)
end
end
end
end
end
----------------------------------
-- LvL 94 / Juwel der Weisheit
----------------------------------
state collect_quest_lv94 begin
when login or levelup with pc.level>93 begin
set_state(talk_to_disciple_lv94)
end
when login or levelup with pc.level<94 begin
send_letter("Seon-Pyeongs Forschung 2")
end
when button or info begin
say_title("Seon-Pyeongs Forschung 2")
say("")
say("Um die nächste Forschung des Seon-Pyeongs")
say("zu starten musst du mindestens Lv 94 erreicht")
say("haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 94 erreichen!")
say("")
end
end
state talk_to_disciple_lv94 begin
when letter begin
local v = find_npc_by_vnum(20091)
if v != 0 then target.vid("__TARGET__", v, "Seon-Pyeong")
end
send_letter("Seon-Pyeongs Forschung 2")
end
when button or info begin
say_title("Seon-Pyeongs Forschung 2")
say("")
say("Seon-Pyeong benötigt deine Hilfe.")
say("Sprich mit ihm.")
say("")
say_reward("Sprich mit Seon-Pyeong")
say("")
end
when __TARGET__.target.click or 20091.chat."Seon-Pyeongs Forschung 2" begin
target.delete("__TARGET__")
say("Seon-Pyeong:")
say("Gut, dass du gekommen bist...")
say("Die Untersuchung der Missgunst Juwelen")
say("habe ich abgeschlossen.")
say("Nun habe ich neue Objekte gefunden,")
say("die ich gerne untersuchen würde.")
wait()
say("Seon-Pyeong:")
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("Seon-Pyeong:")
say("Ich möchte Juwelen der Weisheit untersuchen.")
say("Davon benötige ich 20 Stück.")
say("Es kann jedoch sein, dass sich einige")
say("Juwele als unbrauchbar herausstellen.")
say("")
set_state(collect_10)
end
end
state collect_10 begin
when letter begin
send_letter("Seon-Pyeongs Forschung 2")
end
when button or info begin
say_title("Juwel der Weisheit")
say("")
say("Seon-Pyeong gab euch den Auftrag,")
say("20 Juwelen der Weisheit zu besorgen.")
say("Diese kannst du von den Monstern")
say("Setaou Jägern und Setaou")
say("Kämpfern erbeuten, diese leben")
say("jedoch im den hintersten Kammern")
say("der Grotte 1.")
say("")
say_item_vnum(30252)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 2401.kill or 2402.kill begin
local rand = number(1,25) -------- Dropchance des Juwels hier 4%
if rand<5 then pc.give_item2(30252, 1)
end
end
when 20091.chat."Juwel der Weisheit" with pc.count_item(30252)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob dieses Juwel brauchbar ist ...")
say("")
pc.remove_item("30252", 1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<20 then
pc.setqf("collect_count", count)
say("Seon-Pyeong:")
say("Hervorragend,")
say("dieses Juwel 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("Seon-Pyeong:")
say("Du hast mir die 20 Juwele gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige den Beran-Setaou Seelenstein,")
say("den du nur vom Herrscher der Grotte")
say("Beran-Setaou erhälst, es ist eine")
say("schwere Aufgabe aber ich denke")
say("das du es schaffen wirst!")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_setaouseeli)
end
else
say("Seon-Pyeong:")
say("Es tut mir leid, das Juwel")
say("hat sich als unbrauchbar herausgestellt.")
say("Bitte hol mir ein Neues.")
end
end
end
state collect_setaouseeli begin
when letter begin
send_letter("Beran-Setaou Seelenstein")
end
when button or info begin
say_title("Beran-Setaou Seelenstein")
say("")
say("Ihr habt alle 20 Juwele der Weisheit abgegeben.")
say("Nun müsst ihr den Beran-Setaou Seelenstein")
say("erbeuten.")
say("")
say_item_vnum(30228)
say("Ob dieser Stein tatsächlich Seelen")
say("der Grotte enthält?")
say("")
end
when 2493.kill begin
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
if rand<5 then pc.give_item2(30228, 1)
end
end
when 20091.chat."Beran-Setaou Seelenstein" begin
if pc.count_item(30228)<1 then
say("Seon-Pyeong:")
say("Du hast mir die 20 Juwele gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige den Beran-Setaou Seelenstein,")
say("den du nur vom Herrscher der Grotte")
say("Beran-Setaou erhälst, es ist eine")
say("schwere Aufgabe aber ich denke")
say("das du es schaffen wirst!")
say("")
else
say("Seon-Pyeong:")
say("Unglaublich! Du hast es tatsächlich geschafft")
say("mir den Beran-Setaou Seelenstein zu besorgen")
say("Du hast hart gekämpft.")
say("")
say("Nun zu deiner Belohnung")
say("")
pc.remove_item(30228,1)
wait()
say("Welche Belohnung möchtest du?")
local s = select ("1100 TP", "140 Verteidigung", "60 Angriffswert")
if s == 3 then
say_reward("Du erhälst 60 Angriffswert.")
affect.add_collect(apply.ATT_GRADE_BONUS,60,60*60*24*365*60)
set_state(collect_end)
end
if s == 2 then
say_reward("Du erhälst 140 Verteidigung.")
affect.add_collect(apply.DEF_GRADE_BONUS,140,60*60*24*365*60)
set_state(collect_end)
end
if s == 1 then
say_reward("Du erhälst 1100 TP.")
affect.add_collect(apply.TP_GRADE_BONUS,1100,60*60*24*365*60)
set_state(collect_end)
end
end
end
end
state collect_end begin
end
end
|
|
|
|
|
11/19/2014, 23:23
|
#10656
|
elite*gold: 0
Join Date: May 2010
Posts: 294
Received Thanks: 157
|
Quote:
Originally Posted by Bercol
Bei mir funktioniert der Drop nicht der Bioitems.
Ich habe die 30er Quest angenommen und droppe keine Biologenitems.
Irgendwo muss ein fehler in der Quest sein.
Code:
----------------------------------
-- LvL 30 / Orkzähne
----------------------------------
quest bio begin
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
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)
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
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(1,1) -------- Dropchance des Seelensteins hier 100%
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
when login or levelup with pc.level<40 begin
send_letter("Forschung des Biologen 2")
end
when button or info begin
say_title("Forschung des Biologen 2")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 40 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 40 erreichen!")
say("")
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 2")
end
when button or info begin
say_title("Forschung des Biologen 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 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
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)
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
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 731.kill or 733.kill or 734.kill begin
if pc.count_item(30221)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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
when login or levelup with pc.level<50 begin
send_letter("Forschung des Biologen 3")
end
when button or info begin
say_title("Forschung des Biologen 3")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 50 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 50 erreichen!")
say("")
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 3")
end
when button or info begin
say_title("Forschung des Biologen 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 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
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)
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
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 1001.kill or 1002.kill or 1003.kill or 1004.kill begin
if pc.count_item(30222)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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
when login or levelup with pc.level<60 begin
send_letter("Forschung des Biologen 4")
end
when button or info begin
say_title("Forschung des Biologen 4")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 60 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 60 erreichen!")
say("")
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 4")
end
when button or info begin
say_title("Forschung des Biologen 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 20 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 4")
end
when button or info begin
say_title("Eiskugeln")
say("")
say("Der Biologe gab euch den Auftrag,")
say("20 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."Eiskugel" with pc.count_item(30050)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob dieser Zahn in Ordnung ist ...")
say("")
pc.remove_item("30050", 1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<20 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 20 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
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 20 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 1102.kill or 1104.kill or 1105.kill begin
if pc.count_item(30223)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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 20 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
when login or levelup with pc.level<70 begin
send_letter("Forschung des Biologen 5")
end
when button or info begin
say_title("Forschung des Biologen 5")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 70 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 70 erreichen!")
say("")
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 5")
end
when button or info begin
say_title("Forschung des Biologen 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 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
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)
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
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 25 Äste 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(1,1) -------- Dropchance des Seelensteins hier 100%
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.POINT_DEF_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
when login or levelup with pc.level<80 begin
send_letter("Forschung des Biologen 6")
end
when button or info begin
say_title("Forschung des Biologen 6")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 80 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 80 erreichen!")
say("")
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 6")
end
when button or info begin
say_title("Forschung des Biologen 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 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(1,1) -------- Dropchance der Tafeln hier 100%
if rand<5 then pc.give_item2(30166, 1)
end
end
when 20084.chat."Tugyis Tafeln" with pc.count_item(30166)>0 begin
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)
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
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(30225)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
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_lv85)
end
end
----------------------------------
-- LvL 85 / Geisterbaum Äste
----------------------------------
state collect_quest_lv85 begin
when login or levelup with pc.level>84 begin
set_state(talk_to_disciple_lv85)
end
when login or levelup with pc.level<85 begin
send_letter("Forschung des Biologen 7")
end
when button or info begin
say_title("Forschung des Biologen 7")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 85 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 85 erreichen!")
say("")
end
end
state talk_to_disciple_lv85 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 7")
end
when button or info begin
say_title("Forschung des Biologen 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."Rote Geisterbaumäste" 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 Rote Geisterbaumäste untersuchen.")
say("Davon benötige ich 40 Stück.")
say("Diese sind jedoch ziemlich verwelkt,")
say("es kann also sein, dass einige bei")
say("meinen Untersuchungen kaputt gehen.")
say("")
set_state(collect_ast)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_ast begin
when letter begin
send_letter("Forschung des Biologen 7")
end
when button or info begin
say_title("Rote Geisterbaumäste")
say("")
say("Der Biologe gab euch den Auftrag,")
say("40 von Rote Geisterbaumäste zu besorgen.")
say("Diese kannst du bei den Monstern")
say("im Roten Wald erbeuten.")
say("")
say_item_vnum(30166)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill begin
local rand = number(1,20) -------- Dropchance eines Geisterbaum Astes hier 5%
if rand<5 then pc.give_item2(30167, 1)
end
end
when 20084.chat."Rote Geisterbaumäste" with pc.count_item(30167)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob diesr Ast in Ordnung ist ...")
say("")
pc.remove_item("30167", 1)
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("dieser Ast 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 40 Äste gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige Waldgeist-Seelenstein,")
say("den du ebenfalls von den Monstern")
say("im Roten Wald erbeuten kannst.")
say("Ich denke, dafür bist du stark genug.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_waldseeli)
end
else
say("Biologe:")
say("Es tut mir leid, der Ast")
say("ist während der Untersuchung verwelkt.")
say("Bitte hol mir einen Neuen.")
end
end
end
state collect_waldseeli begin
when letter begin
send_letter("Waldgeist-Seelenstein")
end
when button or info begin
say_title("Waldgeist-Seelenstein")
say("")
say("Ihr habt alle 40 Äste abgegeben.")
say("Nun müsst ihr den Waldgeist-Seelenstein erbeuten.")
say("")
say_item_vnum(30226)
say("Ob dieser Stein tatsächlich Seelen")
say("von Tugyis Adligen enthält?")
say("")
end
when 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill begin
if pc.count_item(30226)<1 then
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
if rand<5 then pc.give_item2(30226, 1)
end
end
end
when 20084.chat."Waldgeist-Seelenstein" begin
if pc.count_item(30226)>0 then
say("Biologe:")
say("Dank deiner Hilfe verstehe ich nun")
say("die Legende um den Waldgeist-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(30226,1)
set_state(waldgeist_reward)
else
say("Biologe:")
say("Du hast mir die 40 Äste gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige Waldgeist-Seelenstein,")
say("den du ebenfalls von den Monstern")
say("im Roten Wald erbeuten kannst.")
say("Ich denke, dafür bist du stark genug.")
say("")
end
end
end
state waldgeist_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("Geisterbaum Ä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("PvP Schadensreduzierung +10% (Dauerhaft)")
say("")
affect.add_collect(apply.RESIST_ASSASSIN,10,60*60*24*365*60)
affect.add_collect(apply.RESIST_SURA,10,60*60*24*365*60)
affect.add_collect(apply.RESIST_SHAMAN,10,60*60*24*365*60)
affect.add_collect(apply.RESIST_WARRIOR,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
when login or levelup with pc.level<90 begin
send_letter("Forschung des Biologen 8")
end
when button or info begin
say_title("Forschung des Biologen 8")
say("")
say("Um die nächste Biologen Quest zu starten")
say("musst du mindestens Lv 90 erreicht haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 90 erreichen!")
say("")
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 8")
end
when button or info begin
say_title("Forschung des Biologen 8")
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 8")
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(1,1) -------- Dropchance einer Notiz hier 100%
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
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob diese Notiz lesbar ist ...")
say("")
pc.remove_item("30168", 1)
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
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(1,1) -------- Dropchance des Seelensteins hier 100%
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("PvP Schadenswert +10% (Dauerhaft)")
say("")
affect.add_collect(apply.ATT_BONUS_TO_WARRIOR,10,60*60*24*365*60)
affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN,10,60*60*24*365*60)
affect.add_collect(apply.ATT_BONUS_TO_SURA,10,60*60*24*365*60)
affect.add_collect(apply.ATT_BONUS_TO_SHAMAN,10,60*60*24*365*60)
set_state(collect_quest_lv92)
end
end
----------------------------------
-- LvL 92 / Juwel der Missgunst
----------------------------------
state collect_quest_lv92 begin
when login or levelup with pc.level>91 begin
set_state(talk_to_disciple_lv92)
end
when login or levelup with pc.level<92 begin
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Seon-Pyeongs Forschung")
say("")
say("Um die erste Forschung des Seon-Pyeongs")
say("zu starten musst du mindestens Lv 92 erreicht")
say("haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 92 erreichen!")
say("")
end
end
state talk_to_disciple_lv92 begin
when letter begin
local v = find_npc_by_vnum(20091)
if v != 0 then target.vid("__TARGET__", v, "Seon-Pyeong")
end
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Seon-Pyeongs Forschung")
say("")
say("Seon-Pyeong benötigt deine Hilfe.")
say("Sprich mit ihm.")
say("")
say_reward("Sprich mit Seon-Pyeong")
say("")
end
when __TARGET__.target.click or 20091.chat."Seon-Pyeongs Forschung" begin
target.delete("__TARGET__")
say("Seon-Pyeong:")
say("")
say("Oh, du hilfst mir?")
say("Gut ...")
say("Ich bin übrigens Seon-Pyeong")
say("und studiere zahlreiches aus der Unterwelt.")
say("Wenn du mir bei meinen Forschungen hilfst,")
say("werde ich dich reich belohnen.")
say("")
wait()
say("Seon-Pyeong:")
say("Ich habe vor kurzem wieder angefangen ...")
say("Ich Forsche an einer Legende ...")
say("Doch habe ich derzeit viel zu tun,")
say("es wäre also nett, wenn du mir hilfst ...")
say("")
wait()
say("Seon-Pyeong:")
say("Ich benötige zehn Juwele der Missgunst für meine")
say("Forschung")
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_9)
end
end
state collect_9 begin
when letter begin
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Juwel der Missgunst")
say("")
say("Seon-Pyeong gab euch den Auftrag,")
say("10 Juwele der Missgunst zu besorgen.")
say("Diese kannst du von den Monstern")
say("Unterwelt Eismann, und Unterwelt Eisgolem")
say("erbeuten, diese leben jedoch in der")
say("gefährlichen Grotte der Verbannung.")
say("")
say_item_vnum(30251)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 1135.kill or 1137.kill begin
local rand = number(1,10) -------- Dropchance eines Juwels hier 10%
if rand<5 then pc.give_item2(30251, 1)
end
end
when 20091.chat."Juwel der Missgunst" with pc.count_item(30251)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob dieses Juwel brauchbar ist ...")
say("")
pc.remove_item("30251", 1)
wait()
local rand = number(0,99)
if rand>50 then
say("Seon-Pyeong:")
say("Es tut mir leid, das Juwel")
say("hat sich als unbrauchbar herausgestellt,")
say("Bitte hol mir ein Neues.")
else
local count = pc.getqf("collect_count")+1
if count<10 then
pc.setqf("collect_count", count)
say("Seon-Pyeong:")
say("Hervorragend,")
say("dieses Juwel 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("Seon-Pyeong:")
say("Du hast mir die 10 Juwele gebracht.")
say("ich bin beeindruckt,")
say("sammle noch mehr Erfahrung in der")
say("Grotte der Verbannung dann werde")
say("ich dir die nächste Aufgabe zu kommen")
say("lassen.")
say("")
say("Doch nun zu deiner Belohnung")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
wait()
say("Welche Belohnung möchtest du?")
local s = select ("1000 TP", "120 Verteidigung", "51 Angriffswert")
if s == 3 then
say_reward("Du erhälst 51 Angriffswert.")
affect.add_collect(apply.ATT_GRADE_BONUS,51,60*60*24*365*60)
set_state(collect_quest_lv94)
end
if s == 2 then
say_reward("Du erhälst 120 Verteidigung.")
affect.add_collect(apply.DEF_GRADE_BONUS,120,60*60*24*365*60)
set_state(collect_quest_lv94)
end
if s == 1 then
say_reward("Du erhälst 1000 TP.")
affect.add_collect(apply.TP_GRADE_BONUS,1000,60*60*24*365*60)
set_state(collect_quest_lv94)
end
end
end
end
end
----------------------------------
-- LvL 94 / Juwel der Weisheit
----------------------------------
state collect_quest_lv94 begin
when login or levelup with pc.level>93 begin
set_state(talk_to_disciple_lv94)
end
when login or levelup with pc.level<94 begin
send_letter("Seon-Pyeongs Forschung 2")
end
when button or info begin
say_title("Seon-Pyeongs Forschung 2")
say("")
say("Um die nächste Forschung des Seon-Pyeongs")
say("zu starten musst du mindestens Lv 94 erreicht")
say("haben.")
say("")
say_reward("Deine Erfahrung reicht im Moment nicht aus")
say_reward("Du musst mindestens Lv 94 erreichen!")
say("")
end
end
state talk_to_disciple_lv94 begin
when letter begin
local v = find_npc_by_vnum(20091)
if v != 0 then target.vid("__TARGET__", v, "Seon-Pyeong")
end
send_letter("Seon-Pyeongs Forschung 2")
end
when button or info begin
say_title("Seon-Pyeongs Forschung 2")
say("")
say("Seon-Pyeong benötigt deine Hilfe.")
say("Sprich mit ihm.")
say("")
say_reward("Sprich mit Seon-Pyeong")
say("")
end
when __TARGET__.target.click or 20091.chat."Seon-Pyeongs Forschung 2" begin
target.delete("__TARGET__")
say("Seon-Pyeong:")
say("Gut, dass du gekommen bist...")
say("Die Untersuchung der Missgunst Juwelen")
say("habe ich abgeschlossen.")
say("Nun habe ich neue Objekte gefunden,")
say("die ich gerne untersuchen würde.")
wait()
say("Seon-Pyeong:")
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("Seon-Pyeong:")
say("Ich möchte Juwelen der Weisheit untersuchen.")
say("Davon benötige ich 20 Stück.")
say("Es kann jedoch sein, dass sich einige")
say("Juwele als unbrauchbar herausstellen.")
say("")
set_state(collect_10)
end
end
state collect_10 begin
when letter begin
send_letter("Seon-Pyeongs Forschung 2")
end
when button or info begin
say_title("Juwel der Weisheit")
say("")
say("Seon-Pyeong gab euch den Auftrag,")
say("20 Juwelen der Weisheit zu besorgen.")
say("Diese kannst du von den Monstern")
say("Setaou Jägern und Setaou")
say("Kämpfern erbeuten, diese leben")
say("jedoch im den hintersten Kammern")
say("der Grotte 1.")
say("")
say_item_vnum(30252)
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 2401.kill or 2402.kill begin
local rand = number(1,25) -------- Dropchance des Juwels hier 4%
if rand<5 then pc.give_item2(30252, 1)
end
end
when 20091.chat."Juwel der Weisheit" with pc.count_item(30252)>0 begin
say("Einen Moment ...")
say("Vielen Dank,")
say("lasst mich schnell überprüfen")
say("ob dieses Juwel brauchbar ist ...")
say("")
pc.remove_item("30252", 1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<20 then
pc.setqf("collect_count", count)
say("Seon-Pyeong:")
say("Hervorragend,")
say("dieses Juwel 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("Seon-Pyeong:")
say("Du hast mir die 20 Juwele gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige den Beran-Setaou Seelenstein,")
say("den du nur vom Herrscher der Grotte")
say("Beran-Setaou erhälst, es ist eine")
say("schwere Aufgabe aber ich denke")
say("das du es schaffen wirst!")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_setaouseeli)
end
else
say("Seon-Pyeong:")
say("Es tut mir leid, das Juwel")
say("hat sich als unbrauchbar herausgestellt.")
say("Bitte hol mir ein Neues.")
end
end
end
state collect_setaouseeli begin
when letter begin
send_letter("Beran-Setaou Seelenstein")
end
when button or info begin
say_title("Beran-Setaou Seelenstein")
say("")
say("Ihr habt alle 20 Juwele der Weisheit abgegeben.")
say("Nun müsst ihr den Beran-Setaou Seelenstein")
say("erbeuten.")
say("")
say_item_vnum(30228)
say("Ob dieser Stein tatsächlich Seelen")
say("der Grotte enthält?")
say("")
end
when 2493.kill begin
local rand = number(1,1) -------- Dropchance des Seelensteins hier 100%
if rand<5 then pc.give_item2(30228, 1)
end
end
when 20091.chat."Beran-Setaou Seelenstein" begin
if pc.count_item(30228)<1 then
say("Seon-Pyeong:")
say("Du hast mir die 20 Juwele gebracht.")
say("Nun, ich habe noch eine Bitte.")
say("Ich benötige den Beran-Setaou Seelenstein,")
say("den du nur vom Herrscher der Grotte")
say("Beran-Setaou erhälst, es ist eine")
say("schwere Aufgabe aber ich denke")
say("das du es schaffen wirst!")
say("")
else
say("Seon-Pyeong:")
say("Unglaublich! Du hast es tatsächlich geschafft")
say("mir den Beran-Setaou Seelenstein zu besorgen")
say("Du hast hart gekämpft.")
say("")
say("Nun zu deiner Belohnung")
say("")
pc.remove_item(30228,1)
wait()
say("Welche Belohnung möchtest du?")
local s = select ("1100 TP", "140 Verteidigung", "60 Angriffswert")
if s == 3 then
say_reward("Du erhälst 60 Angriffswert.")
affect.add_collect(apply.ATT_GRADE_BONUS,60,60*60*24*365*60)
set_state(collect_end)
end
if s == 2 then
say_reward("Du erhälst 140 Verteidigung.")
affect.add_collect(apply.DEF_GRADE_BONUS,140,60*60*24*365*60)
set_state(collect_end)
end
if s == 1 then
say_reward("Du erhälst 1100 TP.")
affect.add_collect(apply.TP_GRADE_BONUS,1100,60*60*24*365*60)
set_state(collect_end)
end
end
end
end
state collect_end begin
end
end
|
Der Dropp einiger Bioitems wie z.B. orkzähne ist nicht in der quest definiert, das musst du einfügen oder über den alternativ drop machen, im orginalem DE sind z.B. orkzähne ein alternativdrop.
|
|
|
|
|
11/20/2014, 03:51
|
#10657
|
elite*gold: 0
Join Date: Oct 2010
Posts: 190
Received Thanks: 32
|
Hallo, suche einen Quester der mir helfen könnte die Fehler dieser 4 Quests zu finden:
1.)
Code:
quest map_warp begin
state start begin
when 9012.chat."Teleporter" begin
local map = pc.get_map_index()
local empire = pc.get_empire()
local level = pc.get_level()
local cost = math.floor(level / 5) * 1000
local warp = {
{
{ 402100, 673900 },
{ 270400, 739900 },
{ 321300, 808000 },
},
{
{ 217800, 627200 },
{ 221900, 502700 },
{ 344000, 502500 },
},
{
{ 434200, 290600 },
{ 375200, 174900 },
{ 491800, 173600 },
},
{
{ 599400, 756300 },
{ 597800, 622200 },
{ 730700, 689800 },
},
{
{ 590500, 110500 },
{ 590500, 110500 },
{ 590500, 110500 },
},
{
{ 1119900, 70800 },
{ 1119900, 70800 },
{ 1119900, 70800 },
},
{
{ 60000, 496700 },
{ 60000, 496700 },
{ 60000, 496700 },
},
}
local sub_set = 0
say_title("Teleporter")
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
say("Nu există monştrii puternici ci doar războinici slab pregătiţi.")
say("Să nu uiţi aceste cuvinte spuse de mine acum!")
say("Eu te pot duce în aceste locuri periculoase,")
say("dar să ştii că te duci pe propria răspundere..")
say("")
say_reward("Vrei să te teleportezi?")
else
say("Se pare că acesti monştrii sunt")
say("Prea puternici pentru tine.")
say("")
say("")
say_reward("Sa vă aduc in oras?")
end
local s = select("Teleportează","Închide")
if s == 2 then
return
end
say_title("Teleporter")
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
if level < 60 then
say("Pentru a evita unele pericole,")
say("Te voi teleporta doar în aceste zone")
sub_set = select("Valea Seungryong", "Deşertul Yongbi", "Muntele Sohan", "Renunţ")
if sub_set == 4 then
return
end
else
say("Deoarece acum eşti destul de mare,")
say("te pot teleporta şi în locuri mult")
say("mai periculoase..")
sub_set = select("Valea Seungryong", "Deşertul Yongbi", "Muntele Sohan", "Mai mult", "Renunţ")
if sub_set == 5 then
return
end
if sub_set == 4 then
say_title("Teleporter")
say("Selecteaza regiunea unde doreşti să fii teleportat..")
sub_set = select("Ţara de Foc", "Turnul Demonilor", "Pădurea Roşie", "Temniţa Păienjenilor", "Renunţă") + 3
if sub_set == 10 then
return
end
end
end
pc.warp(warp[sub_set][empire][1], warp[sub_set][empire][2])
else
if empire== 1 then
sub_set3 = select("Yongan", "Jayang", "Renunţă")
if sub_set3 == 1 then
pc.warp(474300,954800)
end
if sub_set3 == 2 then
pc.warp(353100,882900)
end
if sub_set3 == 3 then
return
end
elseif empire == 2 then
local sub_set3 = select("Joan","Bokjung", "Renunţă")
if sub_set3 == 1 then
pc.warp(63800,166400)
end
if sub_set3 == 2 then
pc.warp(145500,240000)
end
if sub_set3 == 3 then
return
end
elseif empire == 3 then
local sub_set3 = select("Pyungmoo","Bakra", "Renunţă")
if sub_set3 == 1 then
pc.warp(959900,269200)
end
if sub_set3 == 2 then
pc.warp(863900,246000)
end
if sub_set3 == 3 then
return
end
end
end
end
end
end
Fehler:
Code:
must start with 'quest'
map_warp.quest:1:Abort trap (core dumped)
Ich verstehe es niciht sie startet doch mit:
Code:
quest "questname" begin
>.< Was ist da den falsch?
2.)
Code:
----------------------------------
-- MOB KILL NOTICE
-- Messaggio uccisione mostro
----------------------------------
quest mob_kill_notice begin
state start begin
when 691.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 300 )
chat ("Gradul tau a crescut cu 300 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Şeful Orc din Valea Orcilor!" )
end
when 692.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 900 )
chat ("Gradul tau a crescut cu 900 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Şeful Orc de elita din Valea Orcilor!" )
end
when 693.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
chat ("Gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Şeful Orc ucigator din Valea Orcilor!" )
end
when 791.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 500 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Stăpânul Esotericilor din Templul Întunecat!" )
end
when 792.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 900 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 900 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Stăpânul Esotericilor Demonizat din Templul Întunecat!" )
end
when 793.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 900 )
pc . give_item2 ( 50513 )
chat ("Hai ricevuto 1 Pietra delle Anime e i tuoi punti karma sono aumentati di 900!")
notice_all ( pc.getname() , "l-a omorât pe Stăpânul Esotericilor Demonizat din Templul Întunecat!" )
end
when 794.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Stăpânul Esotericilor din Templul Întunecat!" )
end
when 795.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Stăpânul Esotercilor Demonizat EXTRA" )
end
when 1306.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 2 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Fantoma Tigrului Galben !" )
end
when 1307.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Fantoma Tigrului Galben EXTRA !" )
end
when 1091.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 600 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 600 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele Demon!" )
end
when 1092.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 800 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 800 de puncte!")
notice_all ( pc.getname() , "l-a omorât pe Regele Demon Mândru!" )
end
when 1093.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 3 piatra spiritului si gradul tau a crescut cu 1000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Îngerul cu Coasa!" )
end
when 1094.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 3 piatra spiritului si gradul tau a crescut cu 1000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele Demon Mândru EXTRA!" )
end
when 1095.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Îngerul cu Coasa EXTRA!" )
end
when 993.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele gazda al ciumei!" )
end
when 1901.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 2 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " a omorât-o pe Vulpea cu 9 cozi!" )
end
when 1902.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 2000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 2 piatra spiritului si gradul tau a crescut cu 2000 de puncte!")
notice_all ( pc.getname() , " a omorât-o pe Vulpea cu 9 cozi 2!" )
end
when 1903.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 3000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 3 piatra spiritului si gradul tau a crescut cu 3000 de puncte!!")
notice_all ( pc.getname() , " a omorât-o pe Vulpea cu 9 cozi EXTRA!" )
end
when 2091.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 2 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " a omorât-o pe Regina Păianjen!" )
end
when 2092.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 3000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 3 piatra spiritului si gradul tau a crescut cu 3000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele Păianjen!" )
end
when 2093.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " a omorât-o pe Regina Pianjen EXTRA!" )
end
when 2191.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 2000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 2 piatra spiritului si gradul tau a crescut cu 2000 de puncte!")
notice_all ( pc.getname() , " a omorât-o pe Ţestoasa Uriaşă de Deşert!" )
end
when 2192.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " a omorât-o pre Ţestoasa Uriaşă de Deşert EXTRA!" )
end
when 2491.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Liderul Seatou Levhiatan!" )
end
when 2492.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Liderul Seatou Levhiatan 2 !" )
end
when 2493.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 10000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 10000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Beran-Setaou!" )
end
when 5002.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 2000 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 2000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Hae-Tae!" )
end
when 2206.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele de Foc!" )
end
when 2207.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele de Foc 2!" )
end
when 2291.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Dragonul Roşu!" )
end
when 2306.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 3000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 3 piatra spiritului si gradul tau a crescut cu 3000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Copacul Gigant!" )
end
when 2307.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Copacul Bătrân!" )
end
when 1403.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 300 )
pc . give_item2 ( 50034 )
chat ("Ai primit 1 lada misterioasa si gradul tau a crescut cu 300 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Gigantul Milenar!" )
end
end
end
Fehler:
Code:
must start with 'quest'
mob_kill_notice.quest:1:Abort trap (core dumped)
Sie startet doch ebenfals mit: quest "questname" begin ach HILFFFFEEEEE  
3.) Mal was anderes!
Code:
---------------------------------------------
-- Regulament -
---------------------------------------------
quest regulament begin
state start begin
when login begin
send_letter("Regeln-LESEN!")
end
when button or info begin
say_title("Dies sind die Spielregeln:")
say("1.Der Name darf nicht obszöne Wörter enthalten.")
say("2.Namens Klau oder GM im namen führen zu IP/MEC Ban!")
say("3.Admins nicht nach Items fragen 12/24Stunden Ban!")
say("4.Dies ist ein PVP-PVM Server.")
say("5.Keine obszönen Worte gegen andere Spieler.")
say("6.Missbrauchen Sie nicht den Spiel-Modus FREI.")
say("7.Spenden gehen NUR an [SA]Kailio.")
say("8.Spenden Betrüger bekommen einen Permanenten BAN.")
say("-- Lesen Sie auf der nächsten Seite bitte! --")
say("--------------------------------------")
say_title("Gehe zur nächsten Seite")
wait()
say_title("9.Bugs schreibt man einem GM oder ins Forum.")
say_title("10.Login Daten weitergabe auf eigene Gefahr!")
say_title("11.Missbrauchen Sie nicht Fehler.")
say_title("12.Zeigen sie Respekt gegenüber eines GMs")
say_title("13.Folgen sie den Anweisungen eines GMs")
say("Vielen Dank für Ihre Zeit mit dem Lesen dieser Verordnung.")
say("Halte dich an die Regeln sonst gibt es Probleme")
say("Besuche auch unser Forum: http://allof-games.de/aomt2/forum")
end
end
Fehler:
Code:
assertion failure : nested==0
regulament.quest:33:Abort trap (core dumped)
Dazu kann ich nichts sagen den kenne ich nicht!
4.)
Code:
quest spider_dungeon_2floor begin
state start begin
when login or levelup with pc.level >0 begin
set_state(to_spider_2floor)
end
end
state to_spider_2floor begin
when 20089.chat."Treci mai departe" begin
say_title("Pung-Ho")
say("Eu te pot teleporta din")
say("v2 în v1 ")
say("Vrei să te întorci în v1?")
local a= select("Da","Nu")
if 1==a then
say_title("Pung-Ho")
say("Distrează-te cu păienjeni mai slabi")
wait()
pc.warp(91700, 525300)
return
end
say_title("Pung-Ho")
say("Ce schimbare...")
say("")
end
end
end
Fehler:
Code:
must start with 'quest'
spider_dungeon_2floor.quest:1:Abort trap (core dumped)
So das habe ich noch bei einigen quests bin echt am verzweifeln.
Achja nicht wegen der Sprache wundern 
HILFE BITTE würde mich sehr freuen.
Mit freundlichen Grüßen
KampfBonn
|
|
|
|
|
11/20/2014, 09:49
|
#10658
|
elite*gold: 313
Join Date: Apr 2013
Posts: 585
Received Thanks: 122
|
Quote:
Originally Posted by .Soυzα
Hallo und zwar habe immer noch ein Problem mit der invasion Quest kann da jemand helfen.
Code:
quest invasion50 begin
state start begin
when login or levelup with pc.get_level() >= 50 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Die Invasion der Metins 1")
end
when info or button begin
say_title("Metin der Härte")
say("Unsere Welt wird von unzähligen")
say("Metins heimgesucht, sie tauchen")
say("überall auf! Wir verteidigen uns")
say("so gut, wie wir können doch jetzt")
say("sind wir auf einen Helden angewiesen!")
say("Deine Aufgabe:")
say("Zerstöre 5 Metin der Härte!")
setstate(metin)
pc.setqf("state", 0)
q.set_counter("Verbleibende Metins", 5)
end
end
state metin begin
when letter begin
send_letter("Zerstöre Metin der Härte")
end
when button or info begin
say_title("Zerstöre Metin der Härte")
say("Helf den Dorfbewohner indem")
say("du 5 Metin der Härte zerstörst!")
say_reward("Du hast bis jetzt "..pc.getqf("state").." Metin der Härte zerstört!")
end
when 8010.kill begin
local count = pc.getqf("state")+1
if count <= 5 then
pc.setqf("state", count)
q.set_counter("Verbleibende Metins", 5 - count)
if count == 5 then
say_title("Metin der Härte zerstört")
say("Du hast es geschafft, du hast")
say("unser Land vor der ersten Invasion")
say("gerettet, doch es werden immer mehr!")
say_reward("Du erhälst Stein der Wiederkehr+4")
say_reward("16.000.000 Yang")
say_reward("1.534.000 Erfahrungspunkte")
pc.change_money(16000000)
pc.give_exp2(1534000)
pc.give_item2(28432, 1)
pc.setqf("state", 0)
clear_letter()
set_quest_state("invasion55","run")
set_state(__COMPLETE__)
end
end
end
end
state __COMPLETE__ begin
end
end
@Souza
du kommst niemals auf den teil wo du die Metins killen sollst ^^
Flüchtigkeitsfehler
du hast geschrieben
PHP-Code:
setstate(metin)
__________________
Aber leider habe ich den schritt nicht ganz kapiert. |
Naja ich hab mehr das Gefühl dass du nicht Questen kannst.. naja hier sollte funktionieren (hab ich mim Handy korrigiert)
Code:
quest invasion50 begin
state start begin
when login or levelup with pc.get_level() >= 50 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Die Invasion der Metins 1")
end
when info or button begin
say_title("Metin der Härte")
say("Unsere Welt wird von unzähligen")
say("Metins heimgesucht, sie tauchen")
say("überall auf! Wir verteidigen uns")
say("so gut, wie wir können doch jetzt")
say("sind wir auf einen Helden angewiesen!")
say("Deine Aufgabe:")
say("Zerstöre 5 Metin der Härte!")
setstate(metin)
pc.setqf("metin2", 5)
q.set_counter("Verbleibende Metins", 5)
end
end
state metin begin
when letter begin
send_letter("Zerstöre Metin der Härte")
end
when button or info begin
say_title("Zerstöre Metin der Härte")
say("Helf den Dorfbewohner indem")
say("du 5 Metin der Härte zerstörst!")
say_reward("Du hast bis jetzt "..pc.getqf("state Metin der Härte zerstört!")
end
when kill with npc.get_race() == 8003 begin
local count1 = pc.getqf("metins") - 1
if count1 <= 5 then
pc.setqf("metins", count1)
q.set_counter("Verbleibende Metins", count1)
end
if count1 <= 1 then
set_state(fertig)
end
end
end
state fertig begin
when letter begin
send_letter("Metin der Härte zerstört!")
end
when button or info begin
say_title("Metin der Härte zerstört")
say("Du hast es geschafft, du hast")
say("unser Land vor der ersten Invasion")
say("gerettet, doch es werden immer mehr!")
say_reward("Du erhälst Stein der Wiederkehr+4")
say_reward("16.000.000 Yang")
say_reward("1.534.000 Erfahrungspunkte")
pc.change_money(16000000)
pc.give_exp2(1534000)
pc.give_item2(28432, 1)
set_quest_state("invasion55","run")
set_state(__COMPLETE__)
end
end
state __COMPLETE__ begin
end
end
|
|
|
|
|
11/20/2014, 10:30
|
#10659
|
elite*gold: 40
Join Date: Nov 2009
Posts: 1,159
Received Thanks: 442
|
Quote:
Originally Posted by synthou1234
PHP Code:
quest jagd1 begin
state start begin
when login or levelup with pc.get_level() >= 1 begin
set_state(info1)
end
end
state info1 begin
when letter begin
send_letter("Dein Meister ruft dich.")
end
when button or info begin
say("Hallo "..pc.get_name().."")
say("ich bin Konfuzius, dein Lehrmeister.")
say("Ich werde dich eine Weile auf deinem Weg")
say("begleiten und dir verschiedene Aufgaben erteilen.")
say("Nun horch zu,")
say("Du hast nun die Auswahl:")
say_yellow("Töte 10x Hungriger Wildhund oder 5x Hungriger Wolf")
local a = select("10x Hungriger Wildhund", "5x Hungrige Wolf")
if a == 1 then
say("Okay, du hast deine Wahl getroffen, viel Erfolg.")
say("Hast du den Auftrag erfolgreich abgeschlossen, erhälst du")
say("deine Belohnung.")
say_reward("Töte 10x Hungriger Wildhund")
say("")
pc.setqf("state1", 0)
q.set_counter("count1", 10)
set_state(Wildhund)
else
say("Okay, du hast deine Wahl getroffen, viel Erfolg.")
say("Hast du den Auftrag erfolgreich abgeschlossen, erhälst du")
say("deine Belohnung.")
say_reward("Töte 5 Hungrige Wölfe")
say("")
pc.setqf("state1", 0)
q.set_counter("count2", 5)
set_state(Wolf)
end
end
end
state Wildhund begin
when letter begin
send_letter("Die erste Jagd")
end
when info or button begin
say_title("Wie viele sind es noch, Konfuzius?")
say("Ach "..pc.get_name().."")
say("du wieder. Hier erfährst du, wie viele du noch erlegen musst")
say("")
say_reward("Du hast schon "..pc.getqf("state1").." von 10x Hungriger Wildhund getötet!")
end
when 171.kill begin
local count1 = pc.getqf("state1") + 1
if count1 <= 10 then
pc.setqf("state1", count1)
q.set_counter("Hungriger Wildhund", count1)
end
if count1 == 10 then
set_state(fertig)
end
end
end
state Wolf begin
when letter begin
send_letter("Jagd Teil 1")
end
when info or button begin
say_title("Wie viele sind es noch, Konfuzius?")
say("Ach "..pc.get_name().."")
say("du wieder. Hier erfährst du, wie viele du noch erlegen musst")
say("")
say_reward("Du hast schon "..pc.getqf("count2").." von 5x Hungriged Wolf getötet!")
end
when 172.kill begin
local count2 = pc.getqf("state2") + 1
if count2 <= 5 then
pc.setqf("state2", count2)
q.set_counter("Hungriger Wölfe", count2)
end
if count2 == 5 then
set_state(fertig)
end
end
end
state fertig begin
when letter begin
send_letter("Auftrag Erfolgreich!")
end
when button or info begin
say_title("Glückwunsch")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("Du erhälst:")
say_yellow("Eine Teleportationsring")
pc.give_item2(70058, 1)
clear_letter()
end
end
state __complete begin
end
end
Hallu,
Hab hier einen Jagdauftrag.
Wenn ich Quests reloade, kommt der Fehler in Vbox:
Error occured on compile jagd1.quest
Findet ihr den Fehler? |
Spoiler bereits verbessert.
>> ") << fehlte.
Quote:
Originally Posted by KampfBonn
Hallo, suche einen Quester der mir helfen könnte die Fehler dieser 4 Quests zu finden:
1.)
Code:
quest map_warp begin
state start begin
when 9012.chat."Teleporter" begin
local map = pc.get_map_index()
local empire = pc.get_empire()
local level = pc.get_level()
local cost = math.floor(level / 5) * 1000
local warp = {
{
{ 402100, 673900 },
{ 270400, 739900 },
{ 321300, 808000 },
},
{
{ 217800, 627200 },
{ 221900, 502700 },
{ 344000, 502500 },
},
{
{ 434200, 290600 },
{ 375200, 174900 },
{ 491800, 173600 },
},
{
{ 599400, 756300 },
{ 597800, 622200 },
{ 730700, 689800 },
},
{
{ 590500, 110500 },
{ 590500, 110500 },
{ 590500, 110500 },
},
{
{ 1119900, 70800 },
{ 1119900, 70800 },
{ 1119900, 70800 },
},
{
{ 60000, 496700 },
{ 60000, 496700 },
{ 60000, 496700 },
},
}
local sub_set = 0
say_title("Teleporter")
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
say("Nu există monştrii puternici ci doar războinici slab pregătiţi.")
say("Să nu uiţi aceste cuvinte spuse de mine acum!")
say("Eu te pot duce în aceste locuri periculoase,")
say("dar să ştii că te duci pe propria răspundere..")
say("")
say_reward("Vrei să te teleportezi?")
else
say("Se pare că acesti monştrii sunt")
say("Prea puternici pentru tine.")
say("")
say("")
say_reward("Sa vă aduc in oras?")
end
local s = select("Teleportează","Închide")
if s == 2 then
return
end
say_title("Teleporter")
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
if level < 60 then
say("Pentru a evita unele pericole,")
say("Te voi teleporta doar în aceste zone")
sub_set = select("Valea Seungryong", "Deşertul Yongbi", "Muntele Sohan", "Renunţ")
if sub_set == 4 then
return
end
else
say("Deoarece acum eşti destul de mare,")
say("te pot teleporta şi în locuri mult")
say("mai periculoase..")
sub_set = select("Valea Seungryong", "Deşertul Yongbi", "Muntele Sohan", "Mai mult", "Renunţ")
if sub_set == 5 then
return
end
if sub_set == 4 then
say_title("Teleporter")
say("Selecteaza regiunea unde doreşti să fii teleportat..")
sub_set = select("Ţara de Foc", "Turnul Demonilor", "Pădurea Roşie", "Temniţa Păienjenilor", "Renunţă") + 3
if sub_set == 10 then
return
end
end
end
pc.warp(warp[sub_set][empire][1], warp[sub_set][empire][2])
else
if empire== 1 then
sub_set3 = select("Yongan", "Jayang", "Renunţă")
if sub_set3 == 1 then
pc.warp(474300,954800)
end
if sub_set3 == 2 then
pc.warp(353100,882900)
end
if sub_set3 == 3 then
return
end
elseif empire == 2 then
local sub_set3 = select("Joan","Bokjung", "Renunţă")
if sub_set3 == 1 then
pc.warp(63800,166400)
end
if sub_set3 == 2 then
pc.warp(145500,240000)
end
if sub_set3 == 3 then
return
end
elseif empire == 3 then
local sub_set3 = select("Pyungmoo","Bakra", "Renunţă")
if sub_set3 == 1 then
pc.warp(959900,269200)
end
if sub_set3 == 2 then
pc.warp(863900,246000)
end
if sub_set3 == 3 then
return
end
end
end
end
end
Fehler:
Code:
must start with 'quest'
map_warp.quest:1:Abort trap (core dumped)
Ich verstehe es niciht sie startet doch mit:
Code:
quest "questname" begin
>.< Was ist da den falsch?
2.)
Code:
----------------------------------
-- MOB KILL NOTICE
-- Messaggio uccisione mostro
----------------------------------
quest mob_kill_notice begin
state start begin
when 691.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 300 )
chat ("Gradul tau a crescut cu 300 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Şeful Orc din Valea Orcilor!" )
end
when 692.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 900 )
chat ("Gradul tau a crescut cu 900 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Şeful Orc de elita din Valea Orcilor!" )
end
when 693.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
chat ("Gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Şeful Orc ucigator din Valea Orcilor!" )
end
when 791.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 500 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Stăpânul Esotericilor din Templul Întunecat!" )
end
when 792.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 900 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 900 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Stăpânul Esotericilor Demonizat din Templul Întunecat!" )
end
when 793.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 900 )
pc . give_item2 ( 50513 )
chat ("Hai ricevuto 1 Pietra delle Anime e i tuoi punti karma sono aumentati di 900!")
notice_all ( pc.getname() , "l-a omorât pe Stăpânul Esotericilor Demonizat din Templul Întunecat!" )
end
when 794.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Stăpânul Esotericilor din Templul Întunecat!" )
end
when 795.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Stăpânul Esotercilor Demonizat EXTRA" )
end
when 1306.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 2 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Fantoma Tigrului Galben !" )
end
when 1307.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Fantoma Tigrului Galben EXTRA !" )
end
when 1091.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 600 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 600 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele Demon!" )
end
when 1092.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 800 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 800 de puncte!")
notice_all ( pc.getname() , "l-a omorât pe Regele Demon Mândru!" )
end
when 1093.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 3 piatra spiritului si gradul tau a crescut cu 1000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Îngerul cu Coasa!" )
end
when 1094.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 3 piatra spiritului si gradul tau a crescut cu 1000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele Demon Mândru EXTRA!" )
end
when 1095.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Îngerul cu Coasa EXTRA!" )
end
when 993.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele gazda al ciumei!" )
end
when 1901.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 2 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " a omorât-o pe Vulpea cu 9 cozi!" )
end
when 1902.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 2000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 2 piatra spiritului si gradul tau a crescut cu 2000 de puncte!")
notice_all ( pc.getname() , " a omorât-o pe Vulpea cu 9 cozi 2!" )
end
when 1903.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 3000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 3 piatra spiritului si gradul tau a crescut cu 3000 de puncte!!")
notice_all ( pc.getname() , " a omorât-o pe Vulpea cu 9 cozi EXTRA!" )
end
when 2091.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 2 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " a omorât-o pe Regina Păianjen!" )
end
when 2092.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 3000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 3 piatra spiritului si gradul tau a crescut cu 3000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele Păianjen!" )
end
when 2093.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " a omorât-o pe Regina Pianjen EXTRA!" )
end
when 2191.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 2000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 2 piatra spiritului si gradul tau a crescut cu 2000 de puncte!")
notice_all ( pc.getname() , " a omorât-o pe Ţestoasa Uriaşă de Deşert!" )
end
when 2192.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " a omorât-o pre Ţestoasa Uriaşă de Deşert EXTRA!" )
end
when 2491.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Liderul Seatou Levhiatan!" )
end
when 2492.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Liderul Seatou Levhiatan 2 !" )
end
when 2493.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 10000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 10000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Beran-Setaou!" )
end
when 5002.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 2000 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 2000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Hae-Tae!" )
end
when 2206.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 1500 )
pc . give_item2 ( 50513 )
chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 1500 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele de Foc!" )
end
when 2207.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Regele de Foc 2!" )
end
when 2291.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Dragonul Roşu!" )
end
when 2306.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 3000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 3 piatra spiritului si gradul tau a crescut cu 3000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Copacul Gigant!" )
end
when 2307.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 8000 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
pc . give_item2 ( 50513 )
chat ("Ai primit 5 piatra spiritului si gradul tau a crescut cu 8000 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Copacul Bătrân!" )
end
when 1403.kill begin
if pc.is_gm() then
return
end
pc . change_alignment ( 300 )
pc . give_item2 ( 50034 )
chat ("Ai primit 1 lada misterioasa si gradul tau a crescut cu 300 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Gigantul Milenar!" )
end
end
Fehler:
Code:
must start with 'quest'
mob_kill_notice.quest:1:Abort trap (core dumped)
Sie startet doch ebenfals mit: quest "questname" begin ach HILFFFFEEEEE
3.) Mal was anderes!
Code:
---------------------------------------------
-- Regulament -
---------------------------------------------
quest regulament begin
state start begin
when login begin
send_letter("Regeln-LESEN!")
end
when button or info begin
say_title("Dies sind die Spielregeln:")
say("1.Der Name darf nicht obszöne Wörter enthalten.")
say("2.Namens Klau oder GM im namen führen zu IP/MEC Ban!")
say("3.Admins nicht nach Items fragen 12/24Stunden Ban!")
say("4.Dies ist ein PVP-PVM Server.")
say("5.Keine obszönen Worte gegen andere Spieler.")
say("6.Missbrauchen Sie nicht den Spiel-Modus FREI.")
say("7.Spenden gehen NUR an [SA]Kailio.")
say("8.Spenden Betrüger bekommen einen Permanenten BAN.")
say("-- Lesen Sie auf der nächsten Seite bitte! --")
say("--------------------------------------")
say_title("Gehe zur nächsten Seite")
wait()
say_title("9.Bugs schreibt man einem GM oder ins Forum.")
say_title("10.Login Daten weitergabe auf eigene Gefahr!")
say_title("11.Missbrauchen Sie nicht Fehler.")
say_title("12.Zeigen sie Respekt gegenüber eines GMs")
say_title("13.Folgen sie den Anweisungen eines GMs")
say("Vielen Dank für Ihre Zeit mit dem Lesen dieser Verordnung.")
say("Halte dich an die Regeln sonst gibt es Probleme")
say("Besuche auch unser Forum: http://allof-games.de/aomt2/forum")
end
end
end
Fehler:
Code:
assertion failure : nested==0
regulament.quest:33:Abort trap (core dumped)
Dazu kann ich nichts sagen den kenne ich nicht!
4.)
Code:
quest spider_dungeon_2floor begin
state start begin
when login or levelup with pc.level >0 begin
set_state(to_spider_2floor)
end
end
state to_spider_2floor begin
when 20089.chat."Treci mai departe" begin
say_title("Pung-Ho")
say("Eu te pot teleporta din")
say("v2 în v1 ")
say("Vrei să te întorci în v1?")
local a= select("Da","Nu")
if 1==a then
say_title("Pung-Ho")
say("Distrează-te cu păienjeni mai slabi")
wait()
pc.warp(91700, 525300)
return
end
say_title("Pung-Ho")
say("Ce schimbare...")
say("")
end
end
Fehler:
Code:
must start with 'quest'
spider_dungeon_2floor.quest:1:Abort trap (core dumped)
So das habe ich noch bei einigen quests bin echt am verzweifeln.
Achja nicht wegen der Sprache wundern
HILFE BITTE würde mich sehr freuen.
Mit freundlichen Grüßen
KampfBonn |
1) End weg. Verbessert im Spoiler
2) End weg. Ebenfalls im Spoiler verbessert.
3) Diesmal ein end hinzufügen. Im Spoiler verbessert
4) Und wieder ein end weg. Verbessert.
|
|
|
|
|
11/20/2014, 13:11
|
#10660
|
elite*gold: 0
Join Date: Oct 2010
Posts: 190
Received Thanks: 32
|
Quote:
Originally Posted by DerForenLeser
Spoiler bereits verbessert.
>> ") << fehlte.
1) End weg. Verbessert im Spoiler
2) End weg. Ebenfalls im Spoiler verbessert.
3) Diesmal ein end hinzufügen. Im Spoiler verbessert
4) Und wieder ein end weg. Verbessert.
|
Danke aber!
Quest 1.) und 2.)
gehen immer noch nicht:
must start with 'quest'
mob_kill_notice.quest:1:Abort trap (core dumped)
must start with 'quest'
map_warp.quest:1:Abort trap (core(dumped)
|
|
|
|
|
11/20/2014, 13:14
|
#10661
|
elite*gold: 0
Join Date: Dec 2011
Posts: 1,891
Received Thanks: 1,244
|
Quote:
Originally Posted by .мαяfυ™
Naja ich hab mehr das Gefühl dass du nicht Questen kannst.. naja hier sollte funktionieren (hab ich mim Handy korrigiert)
Code:
quest invasion50 begin
state start begin
when login or levelup with pc.get_level() >= 50 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Die Invasion der Metins 1")
end
when info or button begin
say_title("Metin der Härte")
say("Unsere Welt wird von unzähligen")
say("Metins heimgesucht, sie tauchen")
say("überall auf! Wir verteidigen uns")
say("so gut, wie wir können doch jetzt")
say("sind wir auf einen Helden angewiesen!")
say("Deine Aufgabe:")
say("Zerstöre 5 Metin der Härte!")
setstate(metin)
pc.setqf("metin2", 5)
q.set_counter("Verbleibende Metins", 5)
end
end
state metin begin
when letter begin
send_letter("Zerstöre Metin der Härte")
end
when button or info begin
say_title("Zerstöre Metin der Härte")
say("Helf den Dorfbewohner indem")
say("du 5 Metin der Härte zerstörst!")
say_reward("Du hast bis jetzt "..pc.getqf("state Metin der Härte zerstört!")
end
when kill with npc.get_race() == 8003 begin
local count1 = pc.getqf("metins") - 1
if count1 <= 5 then
pc.setqf("metins", count1)
q.set_counter("Verbleibende Metins", count1)
end
if count1 <= 1 then
set_state(fertig)
end
end
end
state fertig begin
when letter begin
send_letter("Metin der Härte zerstört!")
end
when button or info begin
say_title("Metin der Härte zerstört")
say("Du hast es geschafft, du hast")
say("unser Land vor der ersten Invasion")
say("gerettet, doch es werden immer mehr!")
say_reward("Du erhälst Stein der Wiederkehr+4")
say_reward("16.000.000 Yang")
say_reward("1.534.000 Erfahrungspunkte")
pc.change_money(16000000)
pc.give_exp2(1534000)
pc.give_item2(28432, 1)
set_quest_state("invasion55","run")
set_state(__COMPLETE__)
end
end
state __COMPLETE__ begin
end
end
|
Habe ich Probiert bekomme leider immer noch diesen Fehler:
syntax error : [string "metin"]:5: `)' expected (to close `(' at line 4) near `<eof>'
Und ja da hast du recht, ich kann auch nicht Questen
|
|
|
|
|
11/20/2014, 13:21
|
#10662
|
elite*gold: 40
Join Date: Nov 2009
Posts: 1,159
Received Thanks: 442
|
Quote:
Originally Posted by .Soυzα
Habe ich Probiert bekomme leider immer noch diesen Fehler:
syntax error : [string "metin"]:5: `)' expected (to close `(' at line 4) near `<eof>'
Und ja da hast du recht, ich kann auch nicht Questen
|
PHP Code:
quest invasion50 begin
state start begin
when login or levelup with pc.get_level() >= 50 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Die Invasion der Metins 1")
end
when info or button begin
say_title("Metin der Härte")
say("Unsere Welt wird von unzähligen")
say("Metins heimgesucht, sie tauchen")
say("überall auf! Wir verteidigen uns")
say("so gut, wie wir können doch jetzt")
say("sind wir auf einen Helden angewiesen!")
say("Deine Aufgabe:")
say("Zerstöre 5 Metin der Härte!")
setstate(metin)
pc.setqf("metins", 5)
q.set_counter("Verbleibende Metins", 5)
end
end
state metin begin
when letter begin
send_letter("Zerstöre Metin der Härte")
end
when button or info begin
say_title("Zerstöre Metin der Härte")
say("Helf den Dorfbewohner indem")
say("du 5 Metin der Härte zerstörst!")
say_reward("Du hast bis jetzt "..pc.getqf("state Metin der Härte zerstört!")
end
when kill with npc.get_race() == 8003 begin
local count1 = pc.getqf("metins") - 1
if count1 <= 5 then
pc.setqf("metins", count1)
q.set_counter("Verbleibende Metins", count1)
end
if count1 <= 1 then
set_state(fertig)
end
end
end
state fertig begin
when letter begin
send_letter("Metin der Härte zerstört!")
end
when button or info begin
say_title("Metin der Härte zerstört")
say("Du hast es geschafft, du hast")
say("unser Land vor der ersten Invasion")
say("gerettet, doch es werden immer mehr!")
say_reward("Du erhälst Stein der Wiederkehr+4")
say_reward("16.000.000 Yang")
say_reward("1.534.000 Erfahrungspunkte")
pc.change_money(16000000)
pc.give_exp2(1534000)
pc.give_item2(28432, 1)
set_quest_state("invasion55","run")
set_state(__COMPLETE__)
end
end
state __COMPLETE__ begin
end
end
Hast deine qf : "metin2" anstatt "metins" genannt. Könnte der Fehler sein.
Im Spoiler verbessert.
|
|
|
|
|
11/20/2014, 13:52
|
#10663
|
elite*gold: 0
Join Date: Dec 2011
Posts: 1,891
Received Thanks: 1,244
|
Quote:
Originally Posted by DerForenLeser
PHP Code:
quest invasion50 begin
state start begin
when login or levelup with pc.get_level() >= 50 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Die Invasion der Metins 1")
end
when info or button begin
say_title("Metin der Härte")
say("Unsere Welt wird von unzähligen")
say("Metins heimgesucht, sie tauchen")
say("überall auf! Wir verteidigen uns")
say("so gut, wie wir können doch jetzt")
say("sind wir auf einen Helden angewiesen!")
say("Deine Aufgabe:")
say("Zerstöre 5 Metin der Härte!")
setstate(metin)
pc.setqf("metins", 5)
q.set_counter("Verbleibende Metins", 5)
end
end
state metin begin
when letter begin
send_letter("Zerstöre Metin der Härte")
end
when button or info begin
say_title("Zerstöre Metin der Härte")
say("Helf den Dorfbewohner indem")
say("du 5 Metin der Härte zerstörst!")
say_reward("Du hast bis jetzt "..pc.getqf("state Metin der Härte zerstört!")
end
when kill with npc.get_race() == 8003 begin
local count1 = pc.getqf("metins") - 1
if count1 <= 5 then
pc.setqf("metins", count1)
q.set_counter("Verbleibende Metins", count1)
end
if count1 <= 1 then
set_state(fertig)
end
end
end
state fertig begin
when letter begin
send_letter("Metin der Härte zerstört!")
end
when button or info begin
say_title("Metin der Härte zerstört")
say("Du hast es geschafft, du hast")
say("unser Land vor der ersten Invasion")
say("gerettet, doch es werden immer mehr!")
say_reward("Du erhälst Stein der Wiederkehr+4")
say_reward("16.000.000 Yang")
say_reward("1.534.000 Erfahrungspunkte")
pc.change_money(16000000)
pc.give_exp2(1534000)
pc.give_item2(28432, 1)
set_quest_state("invasion55","run")
set_state(__COMPLETE__)
end
end
state __COMPLETE__ begin
end
end
Hast deine qf : "metin2" anstatt "metins" genannt. Könnte der Fehler sein.
Im Spoiler verbessert. |
Keine Verbesserung leider.
|
|
|
|
|
11/20/2014, 13:53
|
#10664
|
elite*gold: 0
Join Date: Jan 2014
Posts: 45
Received Thanks: 10
|
Also,
die Quest funktioniert, nur leider habe
ich keine Ahnung wie ich es für 1 Item mache
(drauf klicken & 1lvl up) und eine lvl grenze (von 75 bis 95)
einfügen kann.
Ich weiß ihr kontrolliert Quests nur, aber evtl könntet ihr mir da
weiterhelfen!
Bedanke mich schonmal !
PHP Code:
quest bonbon begin
state start begin
when 50127.use begin
item.remove()
pc.give_exp2(pc.get_next_exp())
end
when 50128.use begin
item.remove()
for i = 1, 5, 1 do
pc.give_exp2(pc.get_next_exp())
end
end
end
end
|
|
|
|
|
11/20/2014, 14:38
|
#10665
|
elite*gold: 0
Join Date: Nov 2011
Posts: 1,448
Received Thanks: 1,257
|
Quote:
Originally Posted by 'POLARIUS'
Also,
die Quest funktioniert, nur leider habe
ich keine Ahnung wie ich es für 1 Item mache
(drauf klicken & 1lvl up) und eine lvl grenze (von 75 bis 95)
einfügen kann.
Ich weiß ihr kontrolliert Quests nur, aber evtl könntet ihr mir da
weiterhelfen!
Bedanke mich schonmal ! |
Code:
quest bonbon begin
state start begin
when 50127.use begin
item.remove()
pc.give_exp2(pc.get_next_exp())
end
when 50128.use begin
item.remove()
for i = 1, 5, 1 do
pc.give_exp2(pc.get_next_exp())
end
end
-- Das hier ist der neue Abschnitt mit dem Item von 75 bis 95.
when 50129.use begin
if pc.get_level()>=75 and pc.get_level()<95 then
item.remove()
pc.give_exp2(pc.get_next_exp())
else
syschat("Nicht für dein Level!")
end
end
end
end
|
|
|
|
All times are GMT +1. The time now is 21:31.
|
|
![[SERVICE] Die Questkontrolle](https://www.elitepvpers.com/forum/iconimages/metin2-private-server/service-die-questkontrolle_ltr.gif){kind=small}
