Bio Quest 50 mit richtiger Story und NPC Namen
Spoiler:
PHP Code:
----------------------------------------------------
--COLLECT QUEST_lv50
--METIN2 Collect Quest
----------------------------------------------------
quest collect_quest_lv50 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 50 and pc.level <= 90 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Biologe Chaerigrab")
end
send_letter("Biologe Chaerigrabs Auftrag")
end
when button or info begin
say_title("Biologe Chaerigrabs Auftrag")
say("")
say("Biologe Chaerigrabs sucht dich.")
say("Er hat eine neue Aufgabe für dich.")
say("Begib dich zu ihm.")
say("")
end
when __TARGET__.target.click or
20084.chat."Dämonenandenken" begin
target.delete("__TARGET__")
say("Biologe Chaerigrab:")
--- l
say("Ich schreibe ein Buch über die Monster in jedem Reich.")
say("Aber ich habe nicht genug Material.")
say("Ich sollte das Material sammeln, das wäre richtig aber")
say("ich bin noch ein Schüler ich glaube ich schaffe das nicht.")
say("Würdet du mir helfen?.")
say("Ich würde dich reich belohnen!")
say("")
wait()
say("Biologin:")
say("Ich will heute die Seelen der Dämonen erforschen.")
say("Es sind anscheinend Sadistische Monster")
say("und viele haben Angst vor ihnen.")
say("Aber um sie zuerforschen brauche ich")
say("Dämonenandenken sie verlieren es wenn sie sterben.")
say("")
wait()
say("Biologe Chaerigrab:")
say("Du hilfst mir dann heute, beim sammeln der")
say("Dämonenandenken. Aber nicht jedes Dämonenandenken")
say("hat die selbe Qualität. Ich kann nicht jedes ")
say("annehmen. Um sie zu studieren benötige ich")
say("genau 15 Dämonenandenken in guter Qualität.")
say("Nun geh los und viel Glück!")
say("")
set_state(go_to_disciple)
pc.setqf("duration",0) --¥i¥H¸Õ¸Õªº®É¶¡
pc.setqf("collect_count",0)-- ¨ú±oªºª««~¼Æ¶q
pc.setqf("drink_drug",0) --³Ü°g´bÃĤôªº¸Ü1
end
end
state go_to_disciple begin
when letter begin
send_letter("Spezialauftrag sammle Dämonenandenken!")
end
when button or info begin
say_title("Ich will die Seelen der Dämonen erforschen.")
--- l
say("")
say("Biologe Chaerigrab untersucht die Seelen der Dämonen.")
say("Um die Seelen der Dämonen zu erforschen benötigt")
say("er 15 Dämonenandenken. Dämonen verlieren sie wenn sie")
say("sterben. Bring Biologe Chaerigrab 15 Dämonenandenken.")
say("")
say_item_vnum(30015)
say_reward("Du hast".." "..pc.getqf("collect_count").." abgegeben")
say("")
end
when 71035.use begin --°g´bÃĤô
if get_time() < pc.getqf("duration") then
say("")
say("Du kannst das Elexier erst verwenden wenn du")
say("wieder abgeben kannst.")
return
end
if pc.getqf("drink_drug")==1 then
say("")
say("Du hast das Elexier schon getrunken.")
say("")
return
end
if pc.count_item(30015)==0 then
say("Biologe Chaerigrab:")
say("Das Elexier des Forschers kannst du nur einsetzen")
say("wenn du Dämonenandenken bei dir hast.")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 20084.chat."Du hast die Dämonenandenken?" with pc.count_item(30015) >0 begin
if get_time() > pc.getqf("duration") then
say("Biologe Chaerigrab:")
--- l
say(" !! Du hast eins !!")
say("Ich untersuche es sofort!")
say("Warte einen moment!")
say("")
pc.remove_item(30015, 1)
pc.setqf("duration",get_time()+60*60*22) ----------------22 Stunden warten
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=60
else
pass_percent=90 -- 90 Prozent das es klappt bei Elexier des Forschers
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 14 then -- nicht ganz 15
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --Gesammelte+1
say("Biologin:")
say("oh oh ~!! Das ist ein wirklich gutes Forschungs Exemplar!")
say("Du musst nurnoch ".." "..15-pc.getqf("collect_count").." abgegeben!")
say("Bring mir bitte mehr!")
say("")
pc.setqf("drink_drug",0) -- Elexier des Forscher aus
return
end
say("Biologe Chaerigrab:")
say("Du hast alle 15 hergebracht! Danke!")
say("Ich habe aber noch eine Bitte!")
say("Ich benötige noch einen Sagyis Seelenstein.")
say("Du bekommst ihn von seiner Verkörperung als Monster")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologe Chaerigrab:")
say("Tut mir leid, aber dieses Andenken ist")
say("zustark beschädigt. Leider kann ")
say("ich damit nicht Forschen.")
say("")
pc.setqf("drink_drug",0) -- Elexier des Forschers aus Fehlgeschlagen
return
end
else
say("Biologin:")
say("Tut mir leid..")
say("Ich habe die Untersuchung noch nicht ")
say("abgeschlossen, warte bitte.")
say("")
return
end
end
end
state key_item begin
when letter begin
send_letter("Sagyis Seelenstein")
if pc.count_item(30222)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Biologe Chaerigrab")
end
end
end
when button or info begin
if pc.count_item(30222) >0 then
say_title("Sagyis Seelenstein gesammelt")
say("")
--- l solang ist ingame das quest fenster
say("Du hast den Sagyis Seelenstein endlich gesammelt.")
say("Gehe zu Biologe Chaerigrab und gib ihm den Sagyis")
say("Seelenstein.")
say("")
return
end
say_title("Sagyis Seelenstein")
say("")
--- l
say("Du hasst dem Biologe Chaerigrab alle 15")
say("Dämonenandenken gebracht.Um seine Arbtei zubeenden")
say("benötigt er einen Sagyis Seelenstein!")
say_item_vnum(30222)----------Sagyis Seelenstein
say("Der legendäre Stein, der die")
say("Seele der Sagyis Adligen enthält.")
say("")
end
when 1031.kill or
1032.kill or
1033.kill or
1034.kill begin
local s = number(1, 500)
if s == 1 and pc.count_item(30222)==0 then
pc.give_item2(30222, 1)
send_letter("Spezialauftrag sammle Sagyis Seelenstein")
end
end
when __TARGET__.target.click or
20084.chat."Sagyis Seelenstein" with pc.count_item(30222) > 0 begin
target.delete("__TARGET__")
say("Biologe Chaerigrab:")
say("Du hast ihn gesammelt!")
say("Als dank für deine Hilfe werde ich dich verstärken")
say("Ich gebe dir das Rezept für einen Trank")
say("der dich stärken wird. Gehe am besten zum Doktor")
say("er wird dir deine Belohnung geben. ")
say("Und sei vorsichtig,")
say("dank dir verstehe ich die Sagyis adligen und Dämonen nun besser.")
say("")
pc.remove_item(30222,1)
set_state(__reward)
end
end
state __reward begin
when letter begin
send_letter("Infos des Biologe Chaerigrab")
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("Zugang zu des Biologe Chaerigrab!")
--- l
say("Du hast hart garbeitet und musst dir")
say("nurnoch beim Arzt Baek-Go deine Belohnung holden")
say("Er wird dich mit einem Trank verstärken.")
say("")
end
when __TARGET__.target.click or
20018.chat."Die Formel ansehen?" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("Ah! Ich sehe")
say("Du hast dem Biologen geholfen. Und ich")
say("soll dir deine Belohnunh geben.")
say("Okay, hier hast du deine Belohnung.")
say("")
say_reward("Du trinkst den Trank den Baek-Go dir gibt.")
say_reward("Und fühlst dich aufeinmal erleichter und sicherer.")
say_reward("+60 Verteidigung, daurhaft.")
say("")
affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60) ----- 60 Jahre
clear_letter()
set_quest_state("collect_quest_lv60", "run")
set_state(__complete)
end
end
state __complete begin
end
end
|
Es könnte sein das ich manches Falsch habe aber mein english is nicht so gut xD |
