da ich hier gesucht habe und nichts gefunden, dachte ich mir ich release mal die 92er bioquest.
PHP Code:
quest seon_pyeongs_forschung begin
state start begin
when login or levelup with pc.get_level() >= 92 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Seon-Pyeongs Forschung")
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("target1", v,"seon_pyeong")
end
end
when info or button begin
say_title("Seon-Pyeongs Forschung")
say("Da der Biologe nun keine Aufgaben mehr")
say("für dich hat mussten wir überall nach ")
say("jemandem suchen der dir neue Aufträge ")
say("geben kann. Bei der Suche bin ich auf")
say("Seon-Pyeong gestoßen. Er sagte, dass er")
say("eine Aufgabe für dich habe.")
say("")
say_reward("Gehe zu Seon-Pyeong und hole deine Aufgabe ab.")
end
when target1.target.click or 20091.chat."Juwelen der Missgunst" begin
target.delete("target1")
say_title("Seon-Pyeong:")
say("Hallo, der Hauptmann hat mir schon")
say("berichtet, dass du kommen würdest.")
say("Ich übernehme ab jetzt deine Ausbildung.")
wait()
say_title("Seon-Pyeong:")
say("Ich möchte von dir, dass du mir 10")
say("Juwelen der Missgunst besorgst und")
say("ein NEIN lasse ich nicht durch.")
set_state(go_to_disciple)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end
state go_to_disciple begin
when letter begin
send_letter("Seon-Pyeongs Forschung")
end
when button or info begin
say_title("Seon-Pyeongs Forschung")
say("Da der Biologe keine Aufträge mehr hatte,")
say("ist nun Seon-Pyeong für deine Ausbildung")
say("zuständig. Der erste Auftrag den du von")
say("ihm bekommen hast, ist die Juwelen der")
say("Missgunst zu suchen.")
say("")
say_reward("Die Juwelen der Missgunst bekommst du von")
say_reward("den Unterwelt-Eisgolems und den ")
say_reward("Unterwelt-Eismann aus der Grotte der Verbannung.")
say("")
say_item_vnum(30251)
say("")
say_reward("Du hast schon ".." "..pc.getqf("collect_count").." gesammelt.")
end
when 71035.use begin
if get_time() < pc.getqf("duration") then
say("BLA BLA BLA")
return
end
if pc.getqf ("drink_drug") == 1 then
say("BLUB BLUB BLUB")
return
end
if pc.count_item(30251) == 0 then
say("Biologe:~:")
say("¥ý§ä¨ìÆF»îªº«Hª«¥H«á")
say("¤~¨Ï¥Î°g´bÃĤô¤]¤£·|¦³°ÝÃD")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 1137.kill or 1135.kill begin
local s = number(1,100)
if s <= 25 then
pc.give_item2(30251, 1)
end
end
when 20091.chat."Juwelen der Missgunst" with pc.count_item(30251) > 0 begin
if get_time() > pc.getqf("duration") then
say_title("Seon-Pyeong:")
say("Oh!!!! Wie ich sehe hast du ein")
say("Exemplar. Gib es mir, damit ich es")
say("untesuchen kann.")
say("")
pc.remove_item(30251, 1)
pc.setqf("duration",get_time()+0*0*22)
wait()
local pass_percent
if pc.getqf("drink_drug") == 0 then
pass_percent = 60
else
pass_percent = 90
end
local s = number(1,100)
if s <= pass_percent then
if pc.getqf("collect_count") < 9 then
local index = pc.getqf("collect_count") + 1
pc.setqf("collect_count",index)
say("Seon-Pyeong:")
say("Das Juwel ist von guter Qualität.")
say("Es wäre schön wenn du mir")
say("noch".." "..10-pc.getqf("collect_count").. " bringen würdest.")
say("")
pc.setqf("drink_drug",0)
return
end
say_title("Seon-Pyeong")
say("Gut gemacht!")
say("Du hast alle 10 Juwelen gesammelt.")
say("")
say("Um deine Aufgabe nun zu beenden")
say("gehen zu Baek-Go.")
set_state(baekgo)
else
say_title("Seon-Pyeong:")
say("Oh dieses Juwel ist nicht in so")
say("gutem Zustand, bitte bring mir noch")
say("eins.")
pc.setqf("drink_drug",0)
return
end
else
say_title("Seon-Pyeong:")
say("Es tut mir leid aber ich habe")
say("meine Forschungen noch nicht ")
say("abgeschlossen. Bitte komm später")
say("noch einmal wieder.")
return
end
end
end
state baekgo begin
when letter begin
send_letter("Aufgabe abschließen")
local v = find_npc_by_vnum(20018)
if v != 0 then
target.vid("target2", v, "baekgo")
end
end
when info or button begin
say_title("Aufgabe abschließen")
say("Um deine Aufgabe abzuschließen musst")
say("du zu Baek-Go gehen.")
end
when target2.target.click or 20018.chat."Aufgabe abschließen" begin
target.delete("target2")
say_title("Baek-Go:")
say("")
say("Seon-Pyeong hat mich bereits über deine")
say("Tat informiert. Aber bei dieser Belohnung")
say("gibt es eine Ängerung.")
say("Diesmal kannst du zwischen 3 Belohnungen")
say("wählen.")
say("")
say_reward("Welche Belohnung hättest du denn gerne?")
say("")
local s = select ("1000 TP", "120 Verteidigung", "51 Angriffswert")
if s == 1 then
affect.add_collect(apply.MAX_HP,1000,60*60*24*365*60)
set_state(finish)
elseif s == 2 then
affect.add_collect(apply.DEF_GRADE_BONUS,120,60*60*24*365*60)
set_state(finish)
elseif s == 3 then
affect.add_collect(apply.ATT_GRADE_BONUS,51,60*60*24*365*60)
set_state(finish)
end
end
end
state finish begin
end
end
xBlix
Und wenn es doch schon welche pub geben sollte, tuts mir leid, habe aber nichts gefunden





