PHP Code:
quest bioo begin
state start begin
when login or levelup with pc.get_level() >=94 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("__TARGET__", v, "Quest")
end
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Seon-Pyeongs Forschung")
say("")
say("Seon-Pyeongs sucht dich.")
say("Er wird in manchen Kreisen auch ")
say("OT-Sura genannt")
end
when __TARGET__.target.click or
20091.chat."Forschung" begin
target.delete("__TARGET__")
say("Seon-Pyeong:")
--- l
say("Hallo "..pc.get_name()..",")
say("Ich brauche deine Hilfe")
say("um meine Forschung fortzuführen,")
say("musst du mir 50 Juwel der Weisheit bringen!")
say("")
say("")
set_state(go_to_disciple)
end
end
state go_to_disciple begin
when letter begin
send_letter("Auftrag von Seon-Pyeong")
end
when button or info begin
say_title("Quest")
--- l
say("")
say("Seon-Pyeong gab euch den Auftrag")
say("50 Juwel der Weisheit zu sammeln!")
say("Das Item bekommt ihr von Setaou-Bogenschützen und Setaou-Kommandanten.")
say("Viel Glueck!")
say("")
say_item_vnum(30252)
say_reward(" Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
say("")
end
when 2412.kill or 2414.kill begin
if pc.count_item(30252)<50-pc.getqf("collect_count") then
pc.give_item2(30252, 1)
end
end
when 20091.chat."Forschung(2)" with pc.count_item(30252) >0 begin
pc.remove_item(30252, 1)
if pc.getqf("collect_count")< 49 then
local index = pc.getqf("collect_count")+1
pc.setqf("collect_count",index)
say("Seon-Pyeong:")
say("Perfekt! Das Item ist in Ordnung")
say("Du hast bis jetzt ".." "..50-pc.getqf("collect_count").. " abgegeben!")
say("Bring mir die restlichen!")
say("")
return
end
say("Seon-Pyeong:")
say("Yuhu! Du hast mir")
say("alle gebracht!")
say("Jetzt musst du mir nur noch einen Seelenstein des Drachen bringen!")
say("Du kriegst ihn vom Beran-Setaou!")
set_state(drachenstein)
end
end
state drachenstein begin
when letter begin
send_letter("Auftrag von Seon-Pyeong")
end
when button or info begin
say_title("Quest")
--- l
say("")
say("Seon-Pyeong gab euch den Auftrag")
say("Einen Seelenstein des Drachen zu holen!")
say("Das Item bekommst du vom Beran-Setaou.")
say("Viel Glueck!")
say("")
say_item_vnum(30219)
say("")
end
when 2493.kill or 2494.kill begin
if pc.count_item(30219)<1-pc.getqf("collect_count") then
pc.give_item2(30219, 1)
end
end
when 20091.chat."Forschung(2)" with pc.count_item(30219) >0 begin
pc.remove_item(30219, 1)
say("Seon-Pyeong:")
say("Yuhu! Du hast mir")
say("alles gebracht!")
say("Jetzt musst du mir nur noch einen Edelsteinstück bringen!")
say("Du kriegst ihn vom Beran-Setaou!")
say("Welche Belohnung möchtest du?")
local s = select ("5000 TP", "140 Verteidigung", "60 Angriffswert")
if s == 3 then
say_reward("Du erhälst 60 Angriffswert.")
affect.add_collect_point(POINT_ATT_BONUS,60,60*60*24*365*60)
set_state(__complete)
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(__complete)
end
if s == 1 then
say_reward("Du erhälst 5000 TP.")
affect.add_collect(apply.TP_GRADE_Bonus,5000,60*60*24*365*60)
set_state(__complete)
end
clear_letter()
return
end
end
state __complete begin
end
end
€ : Schon fixxed, danke
