[SERVICE] Die Questkontrolle

-- Teleporter
quest map_warp begin
state start begin
when 9012.chat."Möchtest du reisen?" begin
say_title("Teleporter:")
say("Dies ist eine faszinierende Gegend. Aber")
say("passiert hier denn auch mal etwas")
say("Außergewöhnliches? Eher wohl nicht. In anderen")
say("Teilen des Landes sieht es mitunter ganz anders.")
say("aus! Es gibt daher sicher einen intressanten")
say("Ort, an den ich dich teleportieren könnte. Da")
say("jedoch die Kräfte des Bösen wieder stärker")
say("geworden sind, wurden Raum und Zeit ins Chaos")
say("gestürzt. Dadurch kann es passieren, dass deine")
say("Rückkehr nicht immer augenblicklich funktioniert.")
say("Möchtest du dennoch teleportiert werden?")

local main_set = select("Ja","Nein")
if main_set == 2 then
return
end

if pc.get_level() <= 10 then
say_title("Teleporter:")
say("Hm… Mit deinem derzeitigen Level bist du noch")
say("zu schwach für die Reise durch Zeit und Raum.")
say("Komm wieder, wenn du höher als Level 10 bist.")
return
end

local map = pc.get_map_index()
local empire = pc.get_empire()
local level = pc.get_level()
local cost = math.floor(level / 5) * 1000

-- ?? ????
if cost < 1000 then
cost = 1000
end

say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
say_reward(string.format("Das kostet dich %d Yang.", cost))

-- ?? ?? ???? ?? ?? (? ?? 1,2 ??)
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then

local guild_map_names = {
"Gildenzone",
"Gildenzone",
"Gildenzone",
}

guild_map_name = guild_map_names[empire]
local empire_castle={
"Burgschlacht",
"Burgschlacht",
"Burgschlacht",
}
empire_castle =empire_castle[empire]
local sub_set = 0
if level < 60 then -- 60?? : ?????, ???, ????, ???
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
return
end

else -- 61?? : ????, ???, ????, ????
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
say_reward(string.format("Das kostet dich %d Yang.", cost))
sub_set = select("Doyyumhwaji", "Dämonenturm", "Spinnendungeon", "Lungsam", "Roter Wald", "Land der Riesen", "Grotte1", "Grotte2", "Zurück", "Abbrechen") + 7
if sub_set == 15 then -- ??
return
end
if sub_set == 14 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
--- l
say_reward(string.format("Das kostet dich %d Yang.", cost))
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
say_reward(string.format("Das kostet dich %d Yang.", cost))
sub_set = select("Doyyumhwaji", "Dämonenturm", "Spinnendungeon", "Lungsam", "Roter Wald", "Land der Riesen", "Grotte1", "Grotte2", "Abbrechen") + 7
if sub_set == 14 then -- ??
return
end
end
end
end
end

if pc.gold < cost then
say("Du hast nicht genug Geld,")
say_title("Teleporter:")
say("Ich würde dich auch kostenlos teleportieren,")
say("aber ich habe eine große Familie. Um sie zu")
say("ernähren, muss ich Geld verdienen.")
say_reward(string.format("Es kostet %d Yang.", cost))
return
end

pc.changegold(-cost)

local warp = {
-- guild_map
{
{ 128500, 1000 },
{ 179500, 1000 },
{ 271800, 13000 },
},
-- 64 map_n_threeway
{
{ 402100, 673900 },
{ 270400, 739900 },
{ 321300, 808000 },
},
-- 63 metin2_map_n_desert_01
{
{ 217800, 627200 },
{ 221900, 502700 },
{ 344000, 502500 },
},
-- 61 map_n_snowm_01
{
{ 434200, 290600 },
{ 375200, 174900 },
{ 491800, 173600 },
},
{--empire_castle
{975200, 133000},
{977200, 185000},
{923900, 183600},

} ,
-- 62 metin2_map_n_flame_01
{
{ 599400, 756300 },
{ 597800, 622200 },
{ 730700, 689800 },
},
-- devil_tower
{
{ 590500, 110500 },
{ 590500, 110500 },
{ 590500, 110500 },
},
-- 104 metin2_map_spiderdungeon
{
{ 60000, 496000 },
{ 60000, 496000 },
{ 60000, 496000 },
},
-- 67 metin2_map_trent
{
{ 288700, 5700 },
{ 288700, 5700 },
{ 288700, 5700 },
},
-- 68 metin2_map_trent02
{
{ 1119900, 70800 },
{ 1119900, 70800 },
{ 1119900, 70800 },
},
-- 70 metin2_map_nusluck01
{
{ 845100, 745900 },
{ 845100, 745900 },
{ 845100, 745900 },
},
-- 72 metin2_map_skipia_dungeon_01
{
{ 9, 12078 },
{ 9, 12078 },
{ 9, 12078 },
},
-- 73 metin2_map_skipia_dungeon_02
{
{ 2413, 12755 },
{ 2413, 12755 },
{ 2413, 12755 },
},
}
test_chat(warp[sub_set][empire][1]..warp[sub_set][empire][2])
say_title("Teleporter:")
say("Achtung, ich teleportiere dich jetzt. Du wirst")
say("an einem gefährlichen Ort landen, also pass auf")
say("dich auf. Viel Glück!")
wait()
pc.warp(warp[sub_set][empire][1], warp[sub_set][empire][2])


else -- ? ?? 1,2 ? ??? ?????? ? ?? 1,2 ? ??? ?? ??
local sub_set2 = 3

--sub_set2 = select(locale.vileage1_name[empire], locale.vileage2_name[empire], locale.cancel)
if empire==1 then
sub_set2 = select("Yongan","Jayang" , locale.cancel)
elseif empire ==2 then
sub_set2 = select("Joan","Bokjung" , locale.cancel)
elseif empire ==3 then
sub_set2 = select("Pyungmoo","Bakra" , locale.cancel)
end
if sub_set2 != 3 then
if pc.gold < cost then
say_title("Teleporter:")
say("Ich würde dich auch umsonst teleportieren,")
say("aber ich habe eine große Familie. Um sie zu")
say("ernähren, muss ich Geld verdienen.")
say_reward(string.format("Es kostet %d Yang.", cost))
else
if sub_set2 == 1 then
say_title("Teleporter:")
say("Ich teleportiere dich dorthin.")
wait()

if empire == 1 then
pc.warp(474300,954800)
elseif empire == 2 then
pc.warp(63800,166400)
elseif empire == 3 then
pc.warp(959900,269200)
end
elseif sub_set2 == 2 then
say_title("Teleporter:")
say("Ich teleportiere dich dorthin.")

wait()
if empire == 1 then
pc.warp(353100,882900)
elseif empire == 2 then
pc.warp(145500,240000)
elseif empire == 3 then
pc.warp(863900,246000)
end
end

pc.changegold(-cost)
end
end
end
end -- end_of_chat
end -- end_of_state
end -- end_of_quest

-- Teleporter
quest map_warp begin
state start begin
when 9012.chat."Möchtest du reisen?" begin
say_title("Teleporter:")
say("Dies ist eine faszinierende Gegend. Aber")
say("passiert hier denn auch mal etwas")
say("Außergewöhnliches? Eher wohl nicht. In anderen")
say("Teilen des Landes sieht es mitunter ganz anders.")
say("aus! Es gibt daher sicher einen intressanten")
say("Ort, an den ich dich teleportieren könnte. Da")
say("jedoch die Kräfte des Bösen wieder stärker")
say("geworden sind, wurden Raum und Zeit ins Chaos")
say("gestürzt. Dadurch kann es passieren, dass deine")
say("Rückkehr nicht immer augenblicklich funktioniert.")
say("Möchtest du dennoch teleportiert werden?")

local main_set = select("Ja","Nein")
if main_set == 2 then
return
end

if pc.get_level() <= 10 then
say_title("Teleporter:")
say("Hm… Mit deinem derzeitigen Level bist du noch")
say("zu schwach für die Reise durch Zeit und Raum.")
say("Komm wieder, wenn du höher als Level 10 bist.")
return
end

local map = pc.get_map_index()
local empire = pc.get_empire()
local level = pc.get_level()
local cost = math.floor(level / 5) * 1000

-- ?? ????
if cost < 1000 then
cost = 1000
end

say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
say_reward(string.format("Das kostet dich %d Yang.", cost))

-- ?? ?? ???? ?? ?? (? ?? 1,2 ??)
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then

local guild_map_names = {
"Gildenzone",
"Gildenzone",
"Gildenzone",
}

guild_map_name = guild_map_names[empire]
local empire_castle={
"Burgschlacht",
"Burgschlacht",
"Burgschlacht",
}
empire_castle =empire_castle[empire]
local sub_set = 0
if level < 60 then -- 60?? : ?????, ???, ????, ???
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
return
end

else -- 61?? : ????, ???, ????, ????
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
say_reward(string.format("Das kostet dich %d Yang.", cost))
sub_set = select("Doyyumhwaji", "Dämonenturm", "Spinnendungeon", "Lungsam", "Roter Wald", "Land der Riesen", "Grotte1", "Grotte2", "Zurück", "Abbrechen") + 7
if sub_set == 15 then -- ??
return
end
if sub_set == 14 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
--- l
say_reward(string.format("Das kostet dich %d Yang.", cost))
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
say_reward(string.format("Das kostet dich %d Yang.", cost))
sub_set = select("Doyyumhwaji", "Dämonenturm", "Spinnendungeon", "Lungsam", "Roter Wald", "Land der Riesen", "Grotte1", "Grotte2", "Abbrechen") + 7
if sub_set == 14 then -- ??
return
end
end
end
end
end

if pc.gold < cost then
say("Du hast nicht genug Geld,")
say_title("Teleporter:")
say("Ich würde dich auch kostenlos teleportieren,")
say("aber ich habe eine große Familie. Um sie zu")
say("ernähren, muss ich Geld verdienen.")
say_reward(string.format("Es kostet %d Yang.", cost))
return
end

pc.changegold(-cost)

local warp = {
-- guild_map
{
{ 128500, 1000 },
{ 179500, 1000 },
{ 271800, 13000 },
},
-- 64 map_n_threeway
{
{ 402100, 673900 },
{ 270400, 739900 },
{ 321300, 808000 },
},
-- 63 metin2_map_n_desert_01
{
{ 217800, 627200 },
{ 221900, 502700 },
{ 344000, 502500 },
},
-- 61 map_n_snowm_01
{
{ 434200, 290600 },
{ 375200, 174900 },
{ 491800, 173600 },
},
{--empire_castle
{975200, 133000},
{977200, 185000},
{923900, 183600},

} ,
-- 62 metin2_map_n_flame_01
{
{ 599400, 756300 },
{ 597800, 622200 },
{ 730700, 689800 },
},
-- devil_tower
{
{ 590500, 110500 },
{ 590500, 110500 },
{ 590500, 110500 },
},
-- 104 metin2_map_spiderdungeon
{
{ 60000, 496000 },
{ 60000, 496000 },
{ 60000, 496000 },
},
-- 67 metin2_map_trent
{
{ 288700, 5700 },
{ 288700, 5700 },
{ 288700, 5700 },
},
-- 68 metin2_map_trent02
{
{ 1119900, 70800 },
{ 1119900, 70800 },
{ 1119900, 70800 },
},
-- 70 metin2_map_nusluck01
{
{ 845100, 745900 },
{ 845100, 745900 },
{ 845100, 745900 },
},
-- 72 metin2_map_skipia_dungeon_01
{
{ 9, 12078 },
{ 9, 12078 },
{ 9, 12078 },
},
-- 73 metin2_map_skipia_dungeon_02
{
{ 2413, 12755 },
{ 2413, 12755 },
{ 2413, 12755 },
},
}
test_chat(warp[sub_set][empire][1]..warp[sub_set][empire][2])
say_title("Teleporter:")
say("Achtung, ich teleportiere dich jetzt. Du wirst")
say("an einem gefährlichen Ort landen, also pass auf")
say("dich auf. Viel Glück!")
wait()
pc.warp(warp[sub_set][empire][1], warp[sub_set][empire][2])


else -- ? ?? 1,2 ? ??? ?????? ? ?? 1,2 ? ??? ?? ??
local sub_set2 = 3

--sub_set2 = select(locale.vileage1_name[empire], locale.vileage2_name[empire], locale.cancel)
if empire==1 then
sub_set2 = select("Yongan","Jayang" , locale.cancel)
elseif empire ==2 then
sub_set2 = select("Joan","Bokjung" , locale.cancel)
elseif empire ==3 then
sub_set2 = select("Pyungmoo","Bakra" , locale.cancel)
end
if sub_set2 != 3 then
if pc.gold < cost then
say_title("Teleporter:")
say("Ich würde dich auch umsonst teleportieren,")
say("aber ich habe eine große Familie. Um sie zu")
say("ernähren, muss ich Geld verdienen.")
say_reward(string.format("Es kostet %d Yang.", cost))
else
if sub_set2 == 1 then
say_title("Teleporter:")
say("Ich teleportiere dich dorthin.")
wait()

if empire == 1 then
pc.warp(474300,954800)
elseif empire == 2 then
pc.warp(63800,166400)
elseif empire == 3 then
pc.warp(959900,269200)
end
elseif sub_set2 == 2 then
say_title("Teleporter:")
say("Ich teleportiere dich dorthin.")

wait()
if empire == 1 then
pc.warp(353100,882900)
elseif empire == 2 then
pc.warp(145500,240000)
elseif empire == 3 then
pc.warp(863900,246000)
end
end

pc.changegold(-cost)
end
end
end
end -- end_of_chat
end -- end_of_state
end -- end_of_quest

quest Die Rufe der Schlacht begin
state start begin
when login or levelup or enter with pc.get_level() >= 86 begin
setstate( gototeacher )
end
end
state gototeacher begin
when letter begin
send_letter("Der Ruf des D\195\164mon")

local v=find_npc_by_vnum(20011)
if 0==v then
else
target.vid("__TARGET__", v, "Gehe zu Uriel")
end
end
when button or info begin
say_title("Uriel:")
say("Hallo mutiger Krieger,
[ENTER]wie du sicher wei\195\159t gibt es seit einigen Jahren die Probleme am Berg der D\195\164monen und nun ist es passiert,das Siegel ist zerst\195\182rt und die D\195\164monen brechen aus.")
end
when __TARGET__.target.click begin
target.delete("__TARGET__")

say_title("Uriel:") l
say("Hallo Krieger,
[ENTER]es ist nun soweit.
[ENTER]Die D\195\164monen machen sich auf den Vormarsch...
[ENTER]Ich erhalte gerade einen Nachricht,die D\195\164monen sind fast in der Stadt.")
wait()
say("Wer h\195\164tte jemals gedacht das sie soweit zu uns sto\195\159en w\195\188rden.")
say_reward("Ich bitte dich im Namen unseres Dorfes,vernichte den Sensenmann.
[ENTER]Er haust im D\195\164monenturm,in der obersten Etage.
[ENTER]Es wird ein langer Weg vor dir liegen,deswegen suche dir Gef\195\164hrten die dir helfen oder versuche es alleine.
[ENTER]Nun denn ich liegt in deiner Macht.")
say("")
set_state(kill)

pc.setqf("state", 0)
q.set_counter("Restanzahl Sensenmann", 0)
end

end

state kill begin
when letter begin
send_letter("")
end
when button or info begin
say_title(":")
say("Du musst 1 Sensenmann t\195\182ten")
say("")

say_reward(..pc.getqf("state").." von 1 der Art Sensenmann get\195\182tet")
say("")
end
when 1093.kill begin
local count = pc.getqf("state") + 1

if count <= 1 then
pc.setqf("state", count)
q.set_counter("Restanzahl Sensenmann", 10 - count)

if count == 1 then
say_title("Uriel:")
say("")
say("Komm nun bitte zu mir.")
set_state(gototeacher2)
end
end
end
when 20011.chat."Sensenmann Jagen erledigt." with pc.getf("main_quest_lv2","state") < 10 begin
say_title("Uriel:")
say("Bist du noch bei Sinne?
[ENTER]Geh zum D\195\164monenturm und t\195\182te den Sensenmann!")

if pc.is_gm() then
wait()
say_title("Uriel:")
say("Aufgabe \195\188berspringen?")
local s = select("Ja", "Nein")
if s == 1 then
set_state(gototeacher2)
end
end
end
when 20011.chat."Sensenmann Jagen erledigt." with pc.getf("main_quest_lv2","state") >= 10 begin
say_title("Uriel:")
say("Die Schlacht ist gewonnen.
[ENTER]Wir haben,dank dir,gesiegt.")
set_state(gototeacher2)
end
end
state gototeacher2 begin
when letter begin
local v=find_npc_by_vnum(20011)
if 0==v then
else
target.vid("__TARGET__", v, "Gehe zu Uriel")
end
end
when letter begin
send_letter("Der D\195\164mon")
end
when button or info begin
say_title("Der D\195\164mon")
say("Der Sensenmann ist gefallen.
[ENTER]Kehre zur\195\188ck ins Dorf und ich werde dich g\195\182ttlich belohnen.")
end
when __TARGET__.target.click begin
target.delete("__TARGET__")
say("Der Sensenmann ist gefallen.
[ENTER]Kehre zur\195\188ck ins Dorf und ich werde dich g\195\182ttlich belohnen.")
say_reward("EXP 700000000")
pc.give_exp2( 700000000 )
set_quest_state("levelup","run")
pc.change_money( 10000000 )
say_reward("Yang 10000000")
)
say_reward("Metinstein (Schwer) 50 mal")
)
say_reward("Pferd Level 30")
clear_letter()
set_state( __COMPLETE__ )

pc.setqf("state", 0)
end
end
state __COMPLETE__ begin
end
end