REGENBOGEN QUEST
Ich habe mich mal drangesezt und das "Regenbogenstein Quest" geschrieben
Gebt es nicht als euer eigenes aus und ladet es NIRGENDWO anders ohne meine Erlaubnis hoch!
Nun hier das ergebnis:
Regenbogenquest V1 (Alle Skills von egal welche Stufe auf P)
PHP Code:
----------------------------------
-- Regenbogenstein Quest by bjoern.ebert17
-- (c) by DarkSide 2010
----------------------------------
quest regenbogen begin
state start begin
when 50512.use begin
say_title("Regenbogenstein:")
say("Du möchtest also deine Skills 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
Regenbogenquest V2 (Nur 1 Skill von G auf P)
quest regenbogen begin
state start begin
when 50512.use begin
say_title ( "Regenbogenstein" )
say ( "Hiermit kannst du eine" )
say ( "Fertigkeit perfektionieren." )
say ( "" )
wait ( )
say_title ( "Regenbogenstein" )
local result = BuildSkillList(pc.get_job(), pc.get_skill_group())
local vnum_list = result[1]
local name_list = result[2]
if table.getn(vnum_list) < 2 then
say("Es gibt keine Fertigkeiten!")
say("")
return
end
say("Welche Fertigkeit willst du auf P bringen?")
say("")
local i = select_table(name_list)
if table.getn(name_list) == i then
return
end
local name = name_list[i]
local vnum = vnum_list[i]
say_title("Regenbogenstein:")
say_reward("Dieser Stein ermöglicht es dir,")
say_reward("deine Fertigkeit auf P zu bringen!")
say(string.format("%s auf Perfekten Meister?", name))
say("")
local s = select("Ja", "Nein")
if 2 == s then
return
end
if 1 == s then
say_title("Regenbogenstein:")
say("Einmal benutzt, ist dies nicht mehr Rückgängig zu machen.")
say("Trotzdem benutzen?")
say("")
local c = select("Ja", "Nein")
if 2 == c then
return
end
if 1 == c then
pc.set_skill_level((vnum) ,59)
say_reward("Deine Fertigkeit wurde auf P gesetzt.")
say_reward("Viel Spaß weiterhin auf Ironyu.")
pc.removeitem("50512", 1)
end
end
end
state start begin
when 50512.use begin
say_title ( "Regenbogenstein" )
say ( "Hiermit kannst du eine" )
say ( "Fertigkeit perfektionieren." )
say ( "" )
wait ( )
say_title ( "Regenbogenstein" )
local result = BuildSkillList(pc.get_job(), pc.get_skill_group())
local vnum_list = result[1]
local name_list = result[2]
if table.getn(vnum_list) < 2 then
say("Es gibt keine Fertigkeiten!")
say("")
return
end
say("Welche Fertigkeit willst du auf P bringen?")
say("")
local i = select_table(name_list)
if table.getn(name_list) == i then
return
end
local name = name_list[i]
local vnum = vnum_list[i]
say_title("Regenbogenstein:")
say_reward("Dieser Stein ermöglicht es dir,")
say_reward("deine Fertigkeit auf P zu bringen!")
say(string.format("%s auf Perfekten Meister?", name))
say("")
local s = select("Ja", "Nein")
if 2 == s then
return
end
if 1 == s then
say_title("Regenbogenstein:")
say("Einmal benutzt, ist dies nicht mehr Rückgängig zu machen.")
say("Trotzdem benutzen?")
say("")
local c = select("Ja", "Nein")
if 2 == c then
return
end
if 1 == c then
pc.set_skill_level((vnum) ,59)
say_reward("Deine Fertigkeit wurde auf P gesetzt.")
say_reward("Viel Spaß weiterhin auf Ironyu.")
pc.removeitem("50512", 1)
end
end
end
Wie man Quest-Files einfügt wisst ihr ja denke ich mal?!?
wenn nicht dann hier:
Im anhang ist das quest nochmal.
MfG DarkSide by FireMt2 und DarkSide
(c) by DarkSide 2010
