[SERVICE] Die Questkontrolle

when 71114.use begin
if pc.is_polymorphed() then
chat("Du kannst nicht reiten, wenn du verwandelt bist.")
else
if pc.getqf("reiten") == 1 then
pc.unmount()
affect.remove_collect()
pc.setqf("reiten", 0)
else
if horse.get_level() < 11 then
say("Du hast leider nicht genug Erfahrung")
say("Im Umgang mit Pferden")
return
else
chat("Du hast dein Reittier gerufen!")
pc.mount(20110,300)
pc.remove_item(71114, 1)
affect.add_collect(apply.DEF_GRADE_BONUS,75,300)
end
end
end

quest Seelenstein begin
state start begin
when 50513.use begin
say_title("Seelenstein")

if pc.get_skill_group() == 0 then
say("Du hast keine Skills"..pc.get_skill_group())
return
end

if get_time() < pc.getqf("next_time") then -- and not is_test_server() then
if pc.is_skill_book_no_delay() then
say("Hiermit kannst du eine")
say("Fertigkeit perfektionieren.")
say("")
wait()
say_title("Seelenstein")
else
say("Du musst noch warten.")
return
end
end

local result = training_grandmaster_skill.BuildGrandMasterSkillLi st(pc.get_job(), pc.get_skill_group())

local vnum_list = result[1]
local name_list = result[2]

if table.getn(vnum_list) == 0 then
say("Deine Fertigkeiten sind bereits perfekt!")
return
end

say("Wähle eine Fertigkeit aus.")
say("")

local menu_list = {}
table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
table.insert(menu_list, "Abbrechen")

local s=select_table(menu_list)
if table.getn(menu_list) == s then
return
end

local skill_name=name_list[s]
local skill_vnum=vnum_list[s]
local skill_level = pc.get_skill_level(skill_vnum)
local cur_alignment = pc.get_real_alignment()
local need_alignment = 1000+500*(skill_level-30)

test_chat("Deine Rangpunkte:"..cur_alignment)
test_chat("Benötigte Rangpunkte:"..need_alignment)

local title=string.format("%s Perfektionieren", skill_name, skill_level-30+1)

say_title(title)
say("Beim lesen des Seelensteins")
say("verlierst du Rangpunkte!")
say("")

if cur_alignment<-19000+need_alignment then
say_reward("Zu wenig Rangpunkte.")
return
end

if cur_alignment<0 then
say_reward(string.format("Benötigte Rangpunkte: %d -> %d", need_alignment, need_alignment*2))
say_reward("(®ö¤H¥H¤Uªº¸Ü, µ½´c*È®ø¯Ó2*¿)")
need_alignment=need_alignment*2
elseif cur_alignment<need_alignment then
say_reward(string.format("Benötigte Rangpunkte:: %d", need_alignment))
say_reward("Zu wenige Rangpunkte")
else
say_reward(string.format("Benötigte Rangpunkte: %d", need_alignment))
end
say("")

local s=select("Weiter", "Abbrechen")
if s==2 then
return
end


if cur_alignment>=0 and cur_alignment<need_alignment then
say_title(string.format("%s ½T©w", title))
say("Es ist soweit!")
say("Um zu trainieren,")
say("gib bitte ein:")
say("")
say("")
say_reward("Metin45")
say("")
say("¦pªG¤£·Q*×½mªº¸Ü, ½Ð«ö¤U½T©w")
local s=input()
if s!="Metin45" then
return
end
end

if get_time() < pc.getqf("next_time") then -- and not is_test_server() then
if pc.is_skill_book_no_delay() then
pc.remove_skill_book_no_delay()
else
say("[°ª¯Åµ¥¯Å]§Þ¯à*×½m¿ù»~: ¥ð®§¤¤")
return
end
end

pc.setqf("next_time", get_time()+time_hour_to_sec(number(8, 12)))

if need_alignment>0 then
if pc.learn_grand_master_skill(skill_vnum) then
pc.change_alignment(-need_alignment)


say_title(string.format("%s ", title))
if 40 == pc.get_skill_level(skill_vnum) then
say(string.format("%s ist schon Perfekt", skill_name))
else
say(string.format("%s Erfolgreich gestiegen", skill_name, skill_level-30+1+1))
end
say("")
say_reward("Erfolgreich!")
say_reward(string.format("Verbrauchte Rangpunkte %d ", need_alignment))
say("")
else
say_title(string.format("%s ", title))
say("Das hat leider nicht geklappt.")
say("")
say_reward("Fehlgeschlagen!")
say("")
pc.change_alignment(-number(need_alignment/3, need_alignment/2))
end
end

item.remove()
end
function BuildGrandMasterSkillList(job, group)
GRAND_MASTER_SKILL_LEVEL = 30
PERFECT_MASTER_SKILL_LEVEL = 40

local skill_list = special.active_skill_list[job+1][group]
local ret_vnum_list = {}
local ret_name_list = {}

-- test_chat(string.format("job=%d, group=%d", job, group))

table.foreach(skill_list,
function(i, skill_vnum)
local skill_level = pc.get_skill_level(skill_vnum)

-- test_chat(string.format("[%d]=%d", skill_vnum, skill_level))
if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then

table.insert(ret_vnum_list, skill_vnum)
local name=locale.GM_SKILL_NAME_DICT[skill_vnum]
if name == nil then name=skill_vnum end
table.insert(ret_name_list, name)
end
end)
return {ret_vnum_list, ret_name_list}


--return {ret_vnum_list, ret_name_list}
end
end
end

quest regenbogen begin
state start begin
when 50512.use begin
pc.removeitem("50512", 1)
say_title("Regenbogenstein:")
say("Du möchtest deine Skills direkt auf")
say("Perfekter-Meister setzen?")

if pc.job ==0 then
say("Wähle deine Lehre aus")

local s=select("Körper","Mental")

if s==1 then
--Körper
pc.set_skill_group(1)
pc.set_skill_level(1 ,59)
pc.set_skill_level(2 ,59)
pc.set_skill_level(3 ,59)
pc.set_skill_level(4 ,59)
pc.set_skill_level(5 ,59)
say("Deine Skills sind auf Perfekter Meister")
end

if s==2 then
--Mentalo
pc.set_skill_group(2)
pc.set_skill_level(16 ,59)
pc.set_skill_level(17 ,59)
pc.set_skill_level(18 ,59)
pc.set_skill_level(19 ,59)
pc.set_skill_level(20 ,59)
say("Deine Skills sind auf Perfekter Meister")
end

elseif pc.job ==1 then
say("Wähle deine Lehre aus")

local s=select("Nahkampf","Bogen")

if s==1 then
--Nahkampf
pc.set_skill_group(3)
pc.set_skill_level(31 ,59)
pc.set_skill_level(32 ,59)
pc.set_skill_level(33 ,59)
pc.set_skill_level(34 ,59)
pc.set_skill_level(35 ,59)
say("Deine Skills sind auf Perfekter Meister")
end

if s==2 then
--Fernkampf
pc.set_skill_group(4)
pc.set_skill_level(46 ,59)
pc.set_skill_level(47 ,59)
pc.set_skill_level(48 ,59)
pc.set_skill_level(49 ,59)
pc.set_skill_level(50 ,59)
say("Deine Skills sind auf Perfekter Meister")
end

elseif pc.job ==2 then
say("Wähle deine Lehre aus")
local s=select("Magie","Waffe")

if s==1 then
--Magie
pc.set_skill_group(5)
pc.set_skill_level(76 ,59)
pc.set_skill_level(77 ,59)
pc.set_skill_level(78 ,59)
pc.set_skill_level(79 ,59)
pc.set_skill_level(80 ,59)
pc.set_skill_level(81, 59)
say("Deine Skills sind auf Perfekter Meister")
end

if s==2 then
--Waffe
pc.set_skill_group(6)
pc.set_skill_level(61 ,59)
pc.set_skill_level(62 ,59)
pc.set_skill_level(63 ,59)
pc.set_skill_level(64 ,59)
pc.set_skill_level(65 ,59)
pc.set_skill_level(66 ,59)
say("Deine Skills sind auf Perfekter Meister")
end

elseif pc.job ==3 then
say("Wähle deine Lehre aus")
local s=select("Heil","Drachen")

if s==1 then
--Heil
pc.set_skill_group(7)
pc.set_skill_level(106 ,59)
pc.set_skill_level(107 ,59)
pc.set_skill_level(108 ,59)
pc.set_skill_level(109 ,59)
pc.set_skill_level(110 ,59)
pc.set_skill_level(111 ,59)
say("Deine Skills sind auf Perfekter Meister")
end

if s==2 then
--Drachen
pc.set_skill_group(8)
pc.set_skill_level(91 ,59)
pc.set_skill_level(92 ,59)
pc.set_skill_level(93 ,59)
pc.set_skill_level(94 ,59)
pc.set_skill_level(95 ,59)
pc.set_skill_level(96 ,59)
say("Deine Skills sind auf Perfekter Meister")
end
end
end
end
end