
			
quest stallbursche begin

    state start begin

        when 20349.chat."Information" begin

            local s=number(1, 7)

            say_title("Stallbursche")

            if 1>=s then

                say("F�ttere dein Pferd regelm�ssig sonst")

                say("stirbt es.")

            elseif 2>=s then 

                say("Das Anf�ngerpferd ist sehr schnell ersch�pft.")

                say("Bleibe nicht auf seinem R�cken stehen.")

            elseif 3>=s then 

                say("Wenn dein Pferd gestorben ist gibt es mehrere")

                say("Kr�uter von der Stadth�ndlerin um ")

                say("sie Wiederzubeleben.")

            elseif 4>=s then 

                say("Es gibt 3 verschiedene Pferde.")

                say("Ohne Gilde, mit Gilde und als Leader.")

            elseif 5>=s then 

                say("Das Anf�ngerpferd isst gerne Heu.")

                say("Das Kampfpferd isst gerne Karotten.")

                say("Das Milit�rpferd isst gerne Roten Ginseng.")

            elseif 6>=s then 

                say("Lese Handbuch Pferde Z�hmen")

                say("um dein Pferd schneller zu rufen.")

            end

        end 

        when 20349.chat."Pferd beleben" begin

            say_title("Stallbursche")

            say("")

            say("Du kannst dein Pferd nur wiederbeleben, wenn du ein")

            say("spezielles Kraut hast.Dieses Kraut kriegst du von")

            say("der Stadth�ndlerin f�r wenig Gold.")

            say_yellow("Besorge mir dieses Kraut von der Stadth�ndlerin")

            return

            if not horse.is_dead() then

                say("Dein Pferd lebt noch, du brauchst das Kraut nicht.")

                return

            end

            if horse.get_level()==21 then

                say("Dein Milit�rpferd wurde wiederbelebt!")

                pc.removeitem("50059", 1)

                horse.revive()

            else

                chat("Du besitzt das falsche Kraut.")

                return

            end

        end

        when 20349.chat."Pferde beleben" begin

            if not horse.is_dead() then

                say("Dein Pferd lebt noch, du brauchst das Kraut nicht.")

                return

            end

            if horse.get_level()==11 then

                say("Dein Kampfpferd wurde wiederbelebt!")

                pc.removeitem("50058", 1)

                horse.revive()

            else

                say("Du besitzt das falsche Kraut.")

                return

            end

        end

        when 20349.chat."Pferde beleben" begin

            if not horse.is_dead() then

                say("Dein Pferd lebt noch, du brauchst das Kraut nicht.")

                return

            end

            if horse.get_level()==1 then

                say("Dein Ponny wurde wiederbelebt!")

                pc.removeitem("50057", 1)

                horse.revive()

            else

                say("Du besitzt das falsche Kraut.")

                return

            end

        end

        when 20349.chat."Pferdebuch verloren" with horse.get_grade()==1 and pc.countitem("50051")<1 begin

            say_title("Stallbursche")

            say("Du kannst bei mir 3 Pferdeb�cher kaufen.")

            say("Denke daran das du nur ein Pferd reiten kannst,")

            say("wenn du auch von mir vorher eins bekommen hast.")

            local f = select("Pferdebild", "Waffen-Pferdebuch", "Milit�r-Pferdebuch")

            if f == 1 then

                say_title("Stallbursche")

                say("Du bist nicht sehr vorsichtig...")

                say("Du solltest dein Pferdebild nicht zu oft verlieren!")

                say("")

                say_reward("M�chtest du f�r 100.000 Yang ein")

                say_reward("neues Pferdebild kaufen?")

                local b=select("Kaufen", "Nicht Kaufen")

                if 1==b then

                    say_title("Stallbursche")

                    if pc.money>=100000 then

                        pc.changemoney(-100000)

                        say("Hier bitte.")

                        say("Verliere es so schnell nicht wieder!")

                        pc.give_item2("50051", 1)

                    else

                    say("Du hast nicht genug Yang...")

                end            

                elseif f == 2 then

                    say_title("Stallbursche")

                    say("Du bist nicht sehr vorsichtig...")

                    say("Du solltest dein Waffen-Pferdebuch nicht zu oft verlieren!")

                    say("")

                    say_reward("M�chtest du f�r 500.000 Yang ein")

                    say_reward("neues Waffen-Pferdebuch kaufen?")

                    local b=select("Kaufen", "Nicht Kaufen")

                    if 1==b then

                        say_title("Stallbursche")

                        if pc.money>=500000 then

                            pc.changemoney(-500000)

                            say("Hier bitte.")

                            say("Verliere es so schnell nicht wieder!")

                            pc.give_item2("50052", 1)

                        else

                        say("Du hast nicht genug Yang...")

                    end

                end

                elseif f == 3 then

                    say_title("Stallbursche")

                    say("Du bist nicht sehr vorsichtig...")

                    say("Ein neues Millit�r-Pferdebuch ist teuer")

                    say("und nicht leicht zu bekommen!")

                    say("")

                    say_reward("M�chtest du f�r 10.000.000 Yang ein")

                    say_reward("neues Waffen-Pferdebuch kaufen?")

                    local b=select("Kaufen", "Nicht Kaufen")

                    if 1==b then

                        say_title("Stallbursche")

                        if pc.money>=10000000 then

                            pc.changemoney(-10000000)

                            say("Hier bitte.")

                            say("Verliere es so schnell nicht wieder!")

                            pc.give_item2("50053", 1)

                        else

                        say("Du hast nicht genug Yang...")

                    end

                end            

            end

        end

        when 50051.use with horse.get_level()==0 begin

            chat("Du besitzt kein Pferd!")

        end

        when 50051.use with horse.get_level()==1 begin

            if pc.getsp()>=100 then                                    

                horse.summon()

                chat("Pferderufen erfolgreich!")

                pc.change_sp(-100)

            else

                chat("Du hast nicht genug Mana um dein Pferd zu rufen.")

                chat("Du ben�tigst 100 Mana.")

            end

        end

        when 50051.use with horse.get_level()==11 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50051.use with horse.get_level()==30 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50051.use with horse.get_level()==21 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50052.use with horse.get_level()==0 begin

            chat("Du besitzt kein Pferd!")

        end

        when 50052.use with horse.get_level()==1 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50052.use with horse.get_level()==30 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50052.use with horse.get_level()==11 begin

            if pc.getsp()>=200 then                

                chat("Pferderufen erfolgreich.")

                horse.summon()                

                pc.change_sp(-200)

            else

                chat("Du hast nicht genug Mana um dein Pferd zu rufen.")

                chat("Du ben�tigst 200 Mana.")

            end

        end

        when 50052.use with horse.get_level()==21 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50053.use with horse.get_level()==0 begin

            chat("Du besitzt kein Pferd!")

        end

        when 50053.use with horse.get_level()==1 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50053.use with horse.get_level()==30 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50053.use with horse.get_level()==11 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50053.use with horse.get_level()==21 begin

            if pc.getsp()>=300 then                

                chat("Pferderufen erfolgreich.")

                horse.summon()

                pc.change_sp(-300)

            else

                chat("Du hast nicht genug Mana um dein Pferd zu rufen.")

                chat("Du ben�tigst 300 Mana.")

            end

        end        

        when 50063.use with horse.get_level()==0 begin

            chat("Du besitzt kein Pferd!")

        end

        when 50063.use with horse.get_level()==1 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50063.use with horse.get_level()==21 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50063.use with horse.get_level()==11 begin

            chat("Du benutzt ein falsches Pferdebild.")

        end

        when 50063.use with horse.get_level()==30 begin

            if pc.getsp()>=500 then                

                chat("Pferderufen erfolgreich.")

                horse.summon()

                pc.change_sp(-500)

            else

                chat("Du hast nicht genug Mana um dein Pferd zu rufen.")

                chat("Du ben�tigst 500 Mana.")

            end

        end

        when 20349.chat."Mein Pferd" with horse.get_level()==0 begin

            say_title("Stallbursche")

            say("Hallo "..pc.get_name())

            say("Um ein Pferd von mir zu bekommen")

            say("muss du mir Essen f�r")

            say("Pferde abgeben.")

            say_item_vnum(50083)            

            if pc.count_item("50083")==0 then

                say("Bitte hole mir Essen f�r Pferde, dann werde")

                say("ich dir ein Pferd schenken.Das droppst du ")

                say("in deinem Heimat Dorf.")

                return

            end

            say("M�chtest du mir den geben?")

            local s=select("Ja", "Nein")

            if s==2 then

                say_title("Stallbursche")

                say("Schade, dann geh bitte wieder.")

                return

            end

            if pc.count_item("50083")==0 then

                chat("ERROR!!!!")

                return

            end

            pc.remove_item("50083", 1)

            pc.give_item2("50051", 1)            

            say_title("Stallbursche")

            say("Oh danke! Hier kriegst du ein Pferd.")

            say("Pass gut drauf auf!")

            pc.set_skill_level(131, 10)

            horse.set_level(1)

            horse.summon()    

            horse.ride()                

        end

        when 20349.chat."Mein Kampfpferd" with horse.get_level()==1 and pc.get_level()>=20 begin

            say_title("Stallbursche")

            say("Hallo "..pc.get_name())

            say("Um ein Kampfpferd von mir zu bekommen")

            say("musst du mir etwas Yang bezahlen.")

            say("Die Pferde pflegen sich nicht von")

            say("alleine und mir geht bald das Futter")

            say("aus. Wenn du mir ein Kampfpferd f�r")

            say("7kk Yang abkaufst w�hre ich dir sehr")

            say("dankbar.")

            local s = select("Kaufen", "Nicht kaufen")

            if s==2 then return end

            say_title("Stallbursche")

            if pc.get_gold()<7000000 then

                say("Du hast zu wenig Yang um mir")

                say("eines abzukaufen.")

                return

            end            

            say("Oh danke! Hier kriegst du ein Kampfpferd.")

            say("Pass gut drauf auf!")

            pc.change_gold(-7000000)

            pc.give_item2("50052", 1)

            pc.remove_item("50051", 1)

            horse.unride()

            horse.set_level(11)

            horse.summon()    

            horse.ride()

        end

        when 20349.chat."Mein Millit�rspferd" with horse.get_level()==11 and pc.get_level()>=35 begin

            say_title("Stallbursche")

            say("Hallo "..pc.get_name())

            say("Um ein Millit�rspferd von mir zu bekommen")

            say("musst du mir einen Gefallen tun.")

            say("Der Oberork hat letztens eines meiner")

            say("Pferde get�tet. Um ihn zu r�chen w�nsche")

            say("ich mir von dir, dass du ihn t�test.")

            say_reward("Willst du das f�r mich machen?")

            local s=select("Ja", "Nein")

            if s==2 then return    end

            say_title("Stallbursche")

            say("Danke, komme wieder wenn er erledigt")

            say("ist.")

            set_state(obi)

        end

    end

    state obi begin

        when 691.kill begin

            pc.setqf("obi", 1)

        end

        when 20349.chat."Mein Millit�rspferd" begin    

            if pc.getqf("obi")==0 then

                say_title("Stallbursche")

                say("Hallo "..pc.get_name())

                say("Um ein Millit�rspferd von mir zu bekommen")

                say("musst du mir einen Gefallen tun.")

                say("Der Oberork hat letztens eines meiner")

                say("Pferde get�tet. Um ihn zu r�chen w�nsche")

                say("ich mir von dir, dass du ihn t�test.")

                say_reward("Willst du das f�r mich machen?")

                local s=select("Ja", "Nein")

                if s==2 then

                    return

                end            

                say_title("Stallbursche")

                say("Danke, komme wieder wenn er erledigt")

                say("ist.")

                return

            end

            say_title("Stallbursche")

            say("Oh danke, du hast ihn get�tet!")

            say("Hier kriegst du ein Millit�rspferd")

            say("Pass gut drauf auf!")                            

            pc.give_item2("50053", 1)

            pc.remove_item("50052", 1)

            horse.unride()

            horse.set_level(21)

            horse.summon()

            horse.ride()

            set_state(ende)            

        end

    end

    state ende begin

    end

end

Es wird in VB ein fehler angezeigt namens:Syntax error : [string "start"]:8: unexpected symbol near 'if'.Stallbursche.quest:48:Error occured on compile stallbursche.quest

Ich hoffe jemand schaut sich mal die quest an...

Danke

01/26/2014 18:28 1stAntonio#9619

My windows is empty<without armor and weapons..Where is error<plz give me the work quest

Spoiler

01/26/2014 20:13 Yiv#9620

Quote:

Originally Posted by 1stAntonio

My windows is empty<without armor and weapons..Where is error<plz give me the work quest

Spoiler

state start begin
function cube_open(vnum)
local cube_results = {
[20018] = "50801,1/50802,1/50803,100/50804,100",
[20017] = "50801,1/50802,1/50803,100/50804,100/50813,1/50814,1/50815,100/50816,100",
[20022] = "50801,1/50802,1/50803,100/50804,100/50813,1/50814,1/50815,100/50816,100/50817,1/50818,1/50819,1/50820,1/50821,10/50822,10/50823,10/50824,10/50825,10/50826,10"
}
local cube_needs = {
[20018] = "50721,1@50722,1@50723,1@50724,1",
[20017] = "50721,1@50722,1@50723,1@50724,1@50801,1&50725 ,1@5 0802,1&50725,1@50803,100&50726,1@50804,100&50726,1 ",
[20022] = "50721,1@50722,1@50723,1@50724,1@50801,1&50725 ,1@5 0802,1&50725,1@50803,100&50726,1@50804,100&50726,1 @50813,1&50727,1@50814,1&50727,1@50815,100&50728,1 @50816,100&50728,1@50901,10&50814,20@50901,10&5081 3,20@50901,10&50820,20@50901,10&50819,20@50901,10& 50817,20@50901,10&50818,20"
}
cmdchat("cube_npc_id "..vnum)
cmdchat("cs_result "..cube_results[vnum])
cmdchat("cs_need "..cube_needs[vnum])
command("cube open")
end
when 20018.chat."Gy�gyn�v�ny tan" with pc.level >= 15 begin
say_title(mob_name(20018)..":")
say("Hello, hogy vagy?")
say("�rdekel tal�n a k�l�nb�ző italok elő�ll�t�sa,")
say("amik megerős�teni, vagy gy�gy�tani tudnak t�ged?")
say("�n orvosk�nt az italkever�ssel foglalkozok.")
say("Kital�ltam n�h�ny receptet. Ki akarod őket")
say("pr�b�lni?")
wait()
setskin(NOWINDOW)
cube.cube_open(npc.get_race())
end

when 20017.chat."Gy�gyn�v�ny tan" with pc.level >= 30 begin
say_title(mob_name(20017)..":")
say("Mostan�ban el�gg� h�res lett a gy�gyn�v�ny tan.")
say("�rdekel? Megmutatom n�h�ny receptem, nagyon")
say("hasznosak a k�l�nb�ző j�l ismert erősebb")
say("b�jitalok elő�ll�t�s�n�l.")
wait()
setskin(NOWINDOW)
cube.cube_open(npc.get_race())
end

when 20022.chat."Titkos recept" with pc.level >=45 begin
say_title(mob_name(20022)..":")
say("Tal�ltam egy titkos csal�di receptet.")
say("Ezzel szinte sebezhetetlen vagy!")
say("Hahaha!")
say("�ll�t�lag �n vagyok az egyetlen, aki ezt ismeri.")
say("Ezekkel az italokkal szinte semmi rossz nem")
say("t�rt�nhet veled.")
say("Ki akarod pr�b�lni?")
wait()
setskin(NOWINDOW)
cube.cube_open(npc.get_race())
end
end
end

I think the error is not in the quest. Maybe at the python part.

Mein Fehler:
[Only registered and activated users can see links. Click Here To Register...]

Und die Funktion:

PHP Code:


			
function cube_open(vnum)

    cube_results = {}

    cube_needs = {}



    cube_results[20018] = "50801,1/50802,1/50803,100/50804,100"

    cube_needs[20018] = "50721,1@50722,1@50723,1@50724,1"

    cube_results[20017] = "50801,1/50802,1/50803,100/50804,100/50813,1/50814,1/50815,100/50816,100"

    cube_needs[20017] = "50721,1@50722,1@50723,1@50724,1@50801,1&50725,1@50802,1&50725,1@50803,100&50726,1@50804,100&50726,1"

    cube_results[20022] = "50801,1/50802,1/50803,100/50804,100/50813,1/50814,1/50815,100/50816,100/50817,1/50818,1/50819,1/50820,1/50821,10/50822,10/50823,10/50824,10/50825,10/50826,10"

    cube_needs[20022] = "50721,1@50722,1@50723,1@50724,1@50801,1&50725,1@50802,1&50725,1@50803,100&50726,1@50804,100&50726,1@50813,1&50727,1@50814,1&50727,1@50815,100&50728,1@50816,100&50728,1@50901,10&50814,20@50901,10&50813,20@50901,10&50820,20@50901,10&50819,20@50901,10&50817,20@50901,10&50818,20"

    cmdchat("cube_npc_id "..vnum.."")

    cmdchat("cs_result "..cube_results[vnum].."")

    cmdchat("cs_need "..cube_needs[vnum].."")

    command("cube open")

    return

end

Wer kann helfen? :o

MfG

01/27/2014 13:26 Mijago#9621

Quote:

Originally Posted by DaJuBi

I think the error is not in the quest. Maybe at the python part.

Mein Fehler:
[Only registered and activated users can see links. Click Here To Register...]

Und die Funktion:

PHP Code:

function cube_open(vnum) cube_results = {} cube_needs = {} cube_results[20018] = "50801,1/50802,1/50803,100/50804,100" cube_needs[20018] = "50721,1@50722,1@50723,1@50724,1" cube_results[20017] = "50801,1/50802,1/50803,100/50804,100/50813,1/50814,1/50815,100/50816,100" cube_needs[20017] = "50721,1@50722,1@50723,1@50724,1@50801,1&50725,1@50802,1&50725,1@50803,100&50726,1@50804,100&50726,1" cube_results[20022] = "50801,1/50802,1/50803,100/50804,100/50813,1/50814,1/50815,100/50816,100/50817,1/50818,1/50819,1/50820,1/50821,10/50822,10/50823,10/50824,10/50825,10/50826,10" cube_needs[20022] = "50721,1@50722,1@50723,1@50724,1@50801,1&50725,1@50802,1&50725,1@50803,100&50726,1@50804,100&50726,1@50813,1&50727,1@50814,1&50727,1@50815,100&50728,1@50816,100&50728,1@50901,10&50814,20@50901,10&50813,20@50901,10&50820,20@50901,10&50819,20@50901,10&50817,20@50901,10&50818,20" cmdchat("cube_npc_id "..vnum.."") cmdchat("cs_result "..cube_results[vnum].."") cmdchat("cs_need "..cube_needs[vnum].."") command("cube open") return end

Wer kann helfen? :o

MfG

Try
cmdchat("cs_result "..(cube_results[vnum] or "").."")
cmdchat("cs_need "..(cube_needs[vnum] or "").."")

01/29/2014 15:18 .Namikaze#9622

Hallo hab ein problem mit der quest sobald ich das quest spider begin nach oben versetzte kriege ich einen fehler

Spoiler

[Only registered and activated users can see links. Click Here To Register...] erster fehler
[Only registered and activated users can see links. Click Here To Register...] 2ter fehler

01/30/2014 12:58 1stAntonio#9623

[Only registered and activated users can see links. Click Here To Register...] Hwo have quest for offcial system..Plz giveeeeeeeeeeee

01/30/2014 13:20 vpser#9624

Quote:

Originally Posted by 1stAntonio

[Only registered and activated users can see links. Click Here To Register...] Hwo have quest for offcial system..Plz giveeeeeeeeeeee

If you want use official crafting system you should use 40k game.

01/30/2014 14:37 Mijago#9625

Quote:

Originally Posted by Naero1

Hallo hab ein problem mit der quest sobald ich das quest spider begin nach oben versetzte kriege ich einen fehler

Spoiler

----------------------------------
-- �Ẕ́� 3��
-- 2012.2.3 ��
----------------------------------
define lair_time 1200
define lair_enter_wait_time 300
define king_kill_wait_time 180
define access_limit_time 3600

quest spider_dungeon_3floor_boss begin
state start begin
--2, �� ð�.
when spider_end_timer.server_timer with game.get_event_flag("spider_dead"..get_channel_id( )) == 0 begin --
warp_all_in_area_to_area(82700, 612700, 93700,625700, 69100, 614800, 69100, 614800)
game.set_event_flag("spider_lair_ongoing_"..get_ch annel_id(),0)
game.set_event_flag("spider_lair_leader_"..get_cha nnel_id(), 0)
game.set_event_flag("spider_dead"..get_channel_id( ),0)
purge_area(82700, 612700, 93700,625700)
end

when spider_dead_timer.server_timer begin
warp_all_in_area_to_area(82700, 612700, 93700,625700, 69100, 614800, 69100, 614800)
game.set_event_flag("spider_lair_ongoing_"..get_ch annel_id(), 0)
game.set_event_flag("spider_lair_leader_"..get_cha nnel_id(), 0)
game.set_event_flag("spider_dead"..get_channel_id( ),0)
purge_area(82700, 612700, 93700,625700)
end

when login or levelup or enter with pc.get_level() >= 50 begin
set_state( step1 )
end

when 30130.chat.gameforge.spider_dungeon_3floor_boss._1 0_npcChat begin
say(gameforge.spider_dungeon_3floor_boss._20_say)
end
end

state step1 begin
when 20011.chat.gameforge.spider_dungeon_3floor_boss._3 0_npcChat with is_test_server() begin --�׽�Ʈ��
set_state(start)
say(gameforge.spider_dungeon_3floor_boss._40_say)
end

when 30130.chat.gameforge.spider_dungeon_3floor_boss._1 0_npcChat begin
say(gameforge.spider_dungeon_3floor_boss._20_say)
end

when 20355.chat.gameforge.spider_dungeon_3floor_boss._5 0_npcChat begin --��忡�� ɾ� ��Ʈ�� Ѵ�.

say_title(mob_name(20355))
----"1234567890123456789012345678901234567890123456789 0"|
say(gameforge.spider_dungeon_3floor_boss._60_say)
set_state( step2 )
pc.give_item2(76019)
end
end

state step2 begin --�񼮿� Ź�� ߷� ��Ѵ�.
when 20011.chat.gameforge.spider_dungeon_3floor_boss._3 0_npcChat with is_test_server() begin --�׽�Ʈ��
set_state(start)
say(gameforge.spider_dungeon_3floor_boss._40_say)
end

-----------��Ʈ��2------------
when letter begin
send_letter(gameforge.spider_dungeon_3floor_boss._ 70_sendLetter)

local v = find_npc_by_vnum(30130)
if 0 != v then
target.vid("__TARGET__", v, mob_name(30130))
end
end

when button or info begin
say_title(gameforge.spider_dungeon_3floor_boss._70 _sendLetter)
say(gameforge.spider_dungeon_3floor_boss._80_say)
say("")
end

when 30130.chat.gameforge.spider_dungeon_3floor_boss._7 0_sendLetter begin
target.delete("__TARGET__")

say_title(pc.getname())
----"1234567890123456789012345678901234567890123456789 0"|
say(gameforge.spider_dungeon_3floor_boss._90_say)
set_state(step3)
end

when 30130.chat.gameforge.spider_dungeon_3floor_boss._1 0_npcChat begin
say(gameforge.spider_dungeon_3floor_boss._20_say)
end

when 20355.chat.gameforge.spider_dungeon_3floor_boss._5 0_npcChat begin

say_title(mob_name(20355))
----"1234567890123456789012345678901234567890123456789 0"|
say(gameforge.spider_dungeon_3floor_boss._100_say)
end

end

state step3 begin --Ź�� 񿡰� ��ư��.
when 20011.chat.gameforge.spider_dungeon_3floor_boss._3 0_npcChat with is_test_server() begin --�׽�Ʈ��
set_state(start)
say(gameforge.spider_dungeon_3floor_boss._40_say)
end

when 30130.chat.gameforge.spider_dungeon_3floor_boss._1 0_npcChat begin
say(gameforge.spider_dungeon_3floor_boss._20_say)
end

when letter begin
send_letter(gameforge.spider_dungeon_3floor_boss._ 110_sendLetter)

--�� Ų��.
local v = find_npc_by_vnum(20355)
if 0 != v then
target.vid("__TARGET__", v, mob_name(20355))
end
end

when button or info begin
say_title(gameforge.spider_dungeon_3floor_boss._11 0_sendLetter)
say(gameforge.spider_dungeon_3floor_boss._120_say)
say("")
end

--�� ϸ� �ش� ��Ʈ�� õ� ��*�� * �� ִ�.
when 20355.chat.gameforge.spider_dungeon_3floor_boss._1 10_sendLetter begin
say_title(mob_name(20355))
say(gameforge.spider_dungeon_3floor_boss._130_say)
set_state(step4)
end

end

state step4 begin --�� Ź�� ñ��.
when 20011.chat.gameforge.spider_dungeon_3floor_boss._3 0_npcChat with is_test_server() begin --�׽�Ʈ��
set_state(start)
say(gameforge.spider_dungeon_3floor_boss._40_say)
end

when 30130.chat.gameforge.spider_dungeon_3floor_boss._1 0_npcChat begin
say(gameforge.spider_dungeon_3floor_boss._20_say)
end

-----------��Ʈ��2------------
when letter begin
send_letter(gameforge.spider_dungeon_3floor_boss._ 110_sendLetter)

-- �� Ų��.
local v = find_npc_by_vnum(20011)
if 0 != v then
target.vid("__TARGET__", v, mob_name(20011))
end
end

when button or info begin
say_title(gameforge.spider_dungeon_3floor_boss._11 0_sendLetter)
say(gameforge.spider_dungeon_3floor_boss._140_say)
say("")
end

when 20011.chat.gameforge.spider_dungeon_3floor_boss._1 10_sendLetter begin
target.delete("__TARGET__")

say_title(mob_name(20011))
say(gameforge.spider_dungeon_3floor_boss._150_say)
say("")

set_state(step5)
end

when 20355.chat.gameforge.spider_dungeon_3floor_boss._1 10_sendLetter begin
say_title(mob_name(20355))
say(gameforge.spider_dungeon_3floor_boss._130_say)
end
end

state step5 begin --��
when 20011.chat.gameforge.spider_dungeon_3floor_boss._3 0_npcChat with is_test_server() begin --�׽�Ʈ��
set_state(start)
say(gameforge.spider_dungeon_3floor_boss._40_say)
end

when 30130.chat.gameforge.spider_dungeon_3floor_boss._1 0_npcChat begin
say(gameforge.spider_dungeon_3floor_boss._20_say)
end

when letter begin
send_letter(gameforge.spider_dungeon_3floor_boss._ 110_sendLetter)

-- �� Ų��.
local v = find_npc_by_vnum(20355)
if 0 != v then
target.vid("__TARGET__", v, mob_name(20355))
end
end

when button or info begin
say_title(gameforge.spider_dungeon_3floor_boss._17 0_sayTitle)
say(gameforge.spider_dungeon_3floor_boss._180_say)
say("")
end

when 20355.chat.gameforge.spider_dungeon_3floor_boss._1 90_npcChat begin
target.delete("__TARGET__")
say_title(mob_name(20355))
----"1234567890123456789012345678901234567890123456789 0"|
say(gameforge.spider_dungeon_3floor_boss._200_say)
say("")

set_state(step6) pc.give_item2(76019)
end

when 20011.chat.gameforge.spider_dungeon_3floor_boss._1 10_sendLetter begin
say_title(mob_name(20011))
say(gameforge.spider_dungeon_3floor_boss._160_say)
say("")
end

end

state step6 begin --�� Ͻ�Ų��. �� .
when 20011.chat.gameforge.spider_dungeon_3floor_boss._3 0_npcChat with is_test_server() begin --�׽�Ʈ��
set_state(start)
say(gameforge.spider_dungeon_3floor_boss._40_say)
end

when 30130.chat.gameforge.spider_dungeon_3floor_boss._1 0_npcChat begin
say(gameforge.spider_dungeon_3floor_boss._20_say)
end

when letter begin
send_letter(gameforge.spider_dungeon_3floor_boss._ 190_npcChat)

-- �� Ų��.
local v = find_npc_by_vnum(20011)
if 0 != v then
target.vid("__TARGET__", v, mob_name(20011))
end
end

when button or info begin
say_title(gameforge.spider_dungeon_3floor_boss._19 0_npcChat)
say(gameforge.spider_dungeon_3floor_boss._200_say)
say("")
end

--�� ϸ� �ش� ��Ʈ�� õ� ��*�� * �� ִ�.
when 20011.chat.gameforge.spider_dungeon_3floor_boss._1 90_npcChat begin
target.delete("__TARGET__")
say_title(mob_name(20011))
say(gameforge.spider_dungeon_3floor_boss._230_say)

set_state(boss_ok)

end

end

state boss_ok begin -- �*�踦 �� ְ� �� . �� Ẕ́� ��뿡 �� ִ�.
when 20011.chat.gameforge.spider_dungeon_3floor_boss._3 0_npcChat with is_test_server() begin --�׽�Ʈ��
set_state(start)
say(gameforge.spider_dungeon_3floor_boss._40_say)
end

when 20011.chat.gameforge.spider_dungeon_3floor_boss._2 10_npcChat begin

if pc.count_item(30025) > 0 and pc.count_item(30056) > 0 and pc.count_item(30057) > 0 and pc.count_item(30058) > 0 and pc.count_item(30059) > 0 and pc.count_item(30326) > 0 then
say_title(mob_name(20011))
say(gameforge.spider_dungeon_3floor_boss._250_say)
pc.remove_item(30025, 1)
pc.remove_item(30056, 1)
pc.remove_item(30057, 1)
pc.remove_item(30058, 1)
pc.remove_item(30059, 1)
pc.remove_item(30326, 1)
if math.random(1,2000) <= 1000 then
say(gameforge.spider_dungeon_3floor_boss._260_say)
pc.give_item2(30324, 1)
else
say(gameforge.spider_dungeon_3floor_boss._270_say)
end
else
say_title(mob_name(20011))
say(gameforge.spider_dungeon_3floor_boss._280_say)
end
end

when 30130.chat.gameforge.spider_dungeon_3floor_boss._1 0_npcChat begin

if game.get_event_flag("spider_lair_ongoing_"..get_ch annel_id()) == 1 then

local starttime = game.get_event_flag("spider_lair_start_time_"..get _channel_id())
local current_time = get_global_time()

if party.get_leader_pid() == game.get_event_flag("spider_lair_leader_"..get_cha nnel_id()) then

if starttime + lair_enter_wait_time >= current_time and party.get_leader_pid() == game.get_event_flag("spider_lair_leader_"..get_cha nnel_id()) and game.get_event_flag("spider_lair_ongoing_"..get_ch annel_id()) == 1 then
say(gameforge.spider_dungeon_3floor_boss._300_say) -- �׽�Ʈ��
local warp = select(locale.confirm,locale.cancel)
if warp == 1 then
pc.setqf("firstIn",1)
pc.setqf("retry_limit_time", starttime + lair_time + access_limit_time )
set_state(inLair)
pc.warp(88100,614800)
return
end
else
say(gameforge.spider_dungeon_3floor_boss._310_say) -- �׽�Ʈ��
return
end
else
local remain_time = (game.get_event_flag("spider_lair_end_time_"..get_ channel_id() ) - get_global_time()) / 60
if remain_time < 0 then
say(gameforge.spider_dungeon_3floor_boss._410_say)
game.set_event_flag("spider_lair_ongoing_"..get_ch annel_id(),0)
game.set_event_flag("spider_lair_leader_"..get_cha nnel_id(), 0)
game.set_event_flag("spider_dead"..get_channel_id( ),0)
return
end
say(gameforge.spider_dungeon_3floor_boss._320_say)
--- here we should change to string.format %s key
say(string.format(gameforge.spider_dungeon_3floor_ boss._330_say, math.ceil(remain_time)))
return
end
elseif pc.getqf("retry_limit_time") > get_global_time() then
local access_limit = (pc.getqf("retry_limit_time") - get_global_time()) / 60
say(gameforge.spider_dungeon_3floor_boss._340_say)
-- here we should also change to string.format %s key
say(string.format(gameforge.spider_dungeon_3floor_ boss._350_say, math.ceil(access_limit)))
return
elseif party.is_leader() then
if false == pc.can_warp() then
say(gameforge.spider_dungeon_3floor_boss._360_say)
return
end
if pc.count_item(30324) > 0 then
say(gameforge.spider_dungeon_3floor_boss._370_say)
local warp = select(locale.confirm,locale.cancel)
if warp == 1 then

set_state(inLair)

pc.remove_item(30324, 1)

mob.spawn(2094,369,551,0,0)

--�� .
game.set_event_flag("spider_lair_ongoing_"..get_ch annel_id() , 1)
game.set_event_flag("spider_lair_start_time_"..get _channel_id() , get_global_time())
game.set_event_flag("spider_lair_end_time_"..get_c hannel_id() , get_global_time() + lair_time)
game.set_event_flag("spider_lair_leader_"..get_cha nnel_id() , party.get_leader_pid())

pc.setqf("retry_limit_time", get_global_time() + lair_time + access_limit_time )
pc.setqf("firstIn",1)

server_timer("spider_end_timer", lair_time )

pc.warp(88100,614800)
end
return
else
say(gameforge.spider_dungeon_3floor_boss._380_say)
return
end
else --�� ƴϴ�.
say(gameforge.spider_dungeon_3floor_boss._390_say)
return
end

end

end

state inLair begin
when 20011.chat.gameforge.spider_dungeon_3floor_boss._3 0_npcChat with is_test_server() begin --�׽�Ʈ��
set_state(start)
say(gameforge.spider_dungeon_3floor_boss._40_say)
end

when login begin
-- �� 뿡 ��.
--if pc.getqf("firstIn") == 1 and party.get_leader_pid() == game.get_event_flag("spider_lair_leader_"..get_cha nnel_id()) then
if get_global_time() < pc.getqf("retry_limit_time") - access_limit_time and party.get_leader_pid() == game.get_event_flag("spider_lair_leader_"..get_cha nnel_id()) then
pc.setqf("firstIn",0)
elseif pc.getx() >= 827 and pc.getx() <= 937 and pc.gety() >= 6127 and pc.gety() <= 6257 then
pc.warp(95900,571000)
pc.remove_item(30327, 1)
else -- ��* �ðܳ� �� ۿ��* �α�� ϰ� �Ǹ�, �� ð�� .
pc.remove_item(30327, 1)
set_state( boss_ok )
local limit = pc.getqf("retry_limit_time")

if limit > ( get_global_time() + access_limit_time ) then
limit = ( get_global_time() + access_limit_time )
end
pc.setqf("retry_limit_time", limit )

local duration = limit - get_global_time()
end
end

when 30130.chat.gameforge.spider_dungeon_3floor_boss._1 0_npcChat begin
if game.get_event_flag("spider_lair_ongoing_"..get_ch annel_id()) == 1 then
local starttime = game.get_event_flag("spider_lair_start_time_"..get _channel_id())
local current_time = get_global_time()

if party.get_leader_pid() == game.get_event_flag("spider_lair_leader_"..get_cha nnel_id()) then
if starttime + lair_enter_wait_time >= current_time and party.get_leader_pid() == game.get_event_flag("spider_lair_leader_"..get_cha nnel_id()) and game.get_event_flag("spider_lair_ongoing_"..get_ch annel_id()) == 1 then
say(gameforge.spider_dungeon_3floor_boss._300_say) -- �׽�Ʈ��
local warp = select(locale.confirm,locale.cancel)
if warp == 1 then
pc.warp(88100,614800)
return
end
end
end
end
end

when 2092.kill begin --��հŹ� ��
server_timer("spider_dead_timer", king_kill_wait_time)
game.set_event_flag("spider_dead"..get_channel_id( ), 1)
notice_multiline(gameforge.spider_dungeon_3floor_b oss._400_say,notice_in_map)
end

when 2095.kill begin --�Ź̾� ��
local kingVid = game.get_event_flag("king_vid")
local remain_egg = game.get_event_flag("remain_egg"..get_channel_id() )
notice_multiline(gameforge.spider_dungeon_3floor_b oss._420_notice,notice_in_map)

if remain_egg > 0 then
remain_egg = remain_egg - 1
game.set_event_flag("remain_egg"..get_channel_id() , remain_egg)
end

--�Ź�� ݷ� ��
npc.set_vid_attack_mul(kingVid, 10/(remain_egg + 1))

--�Ź̰� �޴� ��ط� ��
npc.set_vid_damage_mul(kingVid, 10/(remain_egg + 1))
end

-- 2012.4.5 �̻�� ġ ��
when 30327.use with pc.getx() >= 827 and pc.get_map_index() == 217 and pc.getx() <= 937 and pc.gety() >= 6127 and pc.gety() <= 6257 begin
--say("�ʹ�ȣ : "..pc.get_map_index())
pc.remove_item(30327, 1)
i = mob.spawn(2095,400,566,0,0)
mob.spawn(2095,400,594,0,0)
mob.spawn(2095,362,600,0,0)
mob.spawn(2095,337,599,0,0)
mob.spawn(2095,335,581,0,0)
mob.spawn(2095,344,562,0,0)
mob.spawn(2095,364,588,0,0)
mob.spawn(2095,379,562,0,0)
mob.spawn(2095,368,525,0,0)

local kingVid = mob.spawn(2092,367,588,0,0)
game.set_event_flag("king_vid",kingVid)
--game.set_event_flag("remain_egg",9)
game.set_event_flag("remain_egg"..get_channel_id() , 9)
end

end
end

[Only registered and activated users can see links. Click Here To Register...] erster fehler
[Only registered and activated users can see links. Click Here To Register...] 2ter fehler

Seit wann gibt es define in M2Lua? Hab ich was verpasst?

01/30/2014 14:53 .Namikaze#9626

Quote:

Originally Posted by Mijago

Seit wann gibt es define in M2Lua? Hab ich was verpasst?

Das ist die quest von de

01/30/2014 14:54 .Inya#9627

Quote:

Originally Posted by Mijago

Seit wann gibt es define in M2Lua? Hab ich was verpasst?

Die neuen GF Quests haben das drin. Daf�r gibt es nun einen Precompiler der die defines �berall einzeln eintr�gt und dann normal compiled

01/30/2014 15:12 Mijago#9628

Achso, dachte mir schon sowas in der Art :D
Da ich inaktiv bin, bin ich auch nicht mehr so up2date - Muss ich ja zum Gl�ck nicht mehr sein ^-^

01/30/2014 17:34 nOa##9629

Hey Leute ich ben�tige Hilfe bei einer Quest. W�re nett wenn mir einer den/die Fehler nennen k�nnte.

Quest

Spoiler

PHP Code:


			
quest drxavion begin

    state start begin

        when login begin

            if pc.get_map_index() == 73 then

            if pc.get_level() < 120 then

            d.exit_all_to_start_position()

            elseif pc.get_level() >= 120 then

            pc.set_warp_location(402, 3917, 12931)

        end

        when 20094.chat."Die Gem�cher des Drachen" begin

            if pc.get_level() < 120 then

                say ("Du hast noch nicht genuegend Erfahrung gesammelt. Komme wieder, wenn du Level 120 bist!") 

            else

                say_title("Der blaue Drache")

                say("")

                say("Als alle 3 Reiche noch eins,")

                say("waren lebten alle Menschen in Harmonie")

                say("zusammen. Doch eines Tages brach")

                say("Dunkelheit �ber diesen Ort herein.")

                say("")

                say("Pl�tzlich kam dunkle Kreaturen zu diesem Ort")

                say("um ihn zu bewachen.")

                say("Keiner wusste wieso, doch eines Tages")

                say("Der Mond verdunkelte die Sonne und da sah")

                say("ich ihn. Den blauen Drachen.")

                say("Herscher der Dunkelheit und des B�sen.")

                say("")

                wait()

                say_title("Der blaue Drache")

                say("")

                say("Damit wieder Freiden herschen kann muss")

                say("der Drache sterben. Meinst du, du bist")

                say("dieser Aufgabe gewachsen? ")

                say("Ich kann dich zu diesem Ort bringen wenn du willst.")

                say("")

                say_reward("Soll ich dich zum diesem geheimen")

                say_reward("Ort Teleportieren?")

                

                local t = select("Ja los!", "Nein lieber nicht")

                    if t == 1 and party.is_party() then

                        pc.warp(843200, 1066900)

                    else

                        return

            end

        end

        when 11506.kill with pc.get_map_index() == 73 and pc.in_dungeon() begin    --Ebene 1

            local c = 4

            local m = d.getf("erstercount") + 1

            d.setf("erstercount", m) 

            d.notice("Noch "..4-n.." Mobs killen bis zur n�chsten Ebene.")

            if n == m then

                d.setf("drachenebene", 2)

                d.setf("erstercount", 0)

                d.notice("Ihr werdet nun in die n�chste Ebene teleportiert.")

                d.jump_all(843200, 1066900)                

            end

        end

        when login with pc.in_dungeon() and d.getf("drachenebene") == 2 begin     --Ebene2

            d.notice("Ihr habt 5 Minuten Zeit den W�chter des Tores zu t�ten")

            d.spawn_mob(2604, 843200, 1066900)

            timer("torw�chter1", 120)

        end

        when torw�chter1.timer begin

            if d.getf("drachenebene") == 2 then

                d.notice("Verbleibende Zeit: 3 Minuten")

                timer("torw�chter2", 180)

        end

        when torw�chter2.timer begin

            if d.getf(drachenebene") == 2 then

                d.notice("Surageist1: Verbleibende Zeit: 1 Minute")

                timer("torw�chter3", 60)

        end

        when torw�chter3.timer  begin

            if d.getf("drachenebene") == 2 then

                d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert")

                d.notice("Ihr habt es leider nicht geschafft!")

                timer("devildown_escapetimer", 3)

        end

        when 2604.kill with pc.in_dungeon() begin

            d.setf("drachenebene", 3)

            cleartimer("torw�chter1") 

            cleartimer("torw�chter2") 

            cleartimer("torw�chter3") 

            d.notice("Ihr habt es geschafft!");    

            d.notice("Ihr werdet nun weiter in die n�chste Ebene teleportiert")

            timer("drjumper1", 2)

        end

        when drjumper1.timer begin                                          --Ebene3

            d.jump_all(843200, 1066900)

            d.setf("count", 0)

            d.setf("counti", 0)

            d.spawn_mob(11506, 843200, 1066900)

            d.spawn_mob(11506, 843200, 1066900)

            d.spawn_mob(11506, 843200, 1066900)

            d.spawn_mob(11506, 843200, 1066900)

            d.spawn_mob(11506, 843200, 1066900)

            timer("mob_down", 8)

            timer("mobkill1", 120)

            d.notice("Ihr m�sst 20 Monster innerhalb von 5 Minuten t�ten um weiter zu kommen!");

            d.notice("Die Zeit l�uft! Viel Gl�ck!");

        end

        when mob_down.timer begin

            d.regen_file("data/dungeon/dd_regen4.txt")

        end

        when mobkill1.timer begin

        if d.getf("drachenebene") == 3 then

            d.notice("Verbleibende Zeit: 3 Minuten")

            timer("mobkill2", 120)

        end

        when mobkill2.timer begin

        if d.getf("drachenebene") == 3 then

            d.notice("Verbleibende Zeit: 1 Minute")

            timer("mobkill3", 60)

        end

        when mobkill3.timer begin

        if d.getf("drachenebene") == 3 then

            d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert")

            d.notice("Ihr habt es leider nicht geschafft!")

            timer("devildown_escapetimer", 3)

        end

        when 11506.kill with pc.in_dungeon() and d.getf("drachenebene") == 3 begin

            local Dropsiegel = 18

            local n = d.getf("count") + 1

            d.setf("count", n) 

            d.notice("Noch "..18-n.." Mobs killen bis Siegeldrop.")

            if n == Dropsiegel then

                game.drop_item(71158, 1)

                d.setf("count", 0)

                d.spawn_mob(20371, 843200, 1066900)

            end

        end

        when 20371.take with item.vnum == 71158 and d.getf("drachenebene") == 3 begin

            npc.purge()

            item.remove()

            d.setf("drachenebene", 4)

            cleartimer("mobkill1")

            cleartimer("mobkill2")

            cleartimer("mobkill3")

            d.notice("Ihr habt es geschafft, ihr habt das alte Siegel zerst�rt.")

            d.notice("Das Portal zur n�chsten Ebene hat sich ge�ffnet.")

            timer("steine2", 3)

        end

        when steine2.timer begin                                        --Ebene4

            d.jump_all(843200, 1066900)

            d.spawn_mob(8013, 843200, 1066900)

            d.spawn_mob(8013, 843200, 1066900)

            timer("metinkill1", 300)

            d.notice("Ihr m�sst die beiden Metins innerhalb von 10 Minuten t�ten um weiter zu kommen!");

            d.notice("Die Zeit l�uft! Viel Gl�ck!");

        end

        when metinkill1.timer begin

        if d.getf("drachenebene") == 4 then

            d.notice("Verbleibende Zeit: 5 Minuten")

            timer("metinkill2", 240)    

        end

        when metinkill2.timer begin

        if d.getf("drachenebene") == 4 then

            d.notice("Verbleibende Zeit: 1 Minute")

            timer("metinkill3", 60)    

        end

        when metinkill3.timer begin

        if d.getf("drachenebene") == 4 then

            d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert")

            d.notice("Ihr habt es leider nicht geschafft!")

            timer("devildown_escapetimer", 3)    

        end

        when 8013.kill with pc.in_dungeon() begin

            local u = 2

            local o = d.getf("metincount") + 1

            d.setf("metincount", o) 

            d.notice("Noch "..2-n.." Mobs killen bis zur n�chsten Ebene.")

            if u == o then

                d.setf("metincount", 0)

                d.setf("drachenebene", 5)

                d.notice("Der Drache spawnt nun!!!")

                timer("drachespawn", 3)

            end

        end

        when drachenspawn.timer begin                            --Ebene5 (Drachenebene)

            d.spawn_mob(2493, 843200, 1066900)

        end

        when 2493.kill with pc.in_dungeon() and d.getf("drachenebene") == 5 begin

            d.notice("Ihr habt den Drachen get�tet! Euch steht eine sch�ne Belohnung bevor!")

            d.notice("Ihr werdet in 20Sekunden zu Map1 zur�ck teleportiert")

            timer("ende", 20)

        end

        when ende.timer begin

            if d.getf("drachenebene") == 5 then

            timer("devildown_escapetimer", 1)

        end

        when devildown_escapetimer.timer begin

        d.exit_all_to_start_position()

        end

    end

end

Danke im voraus.

Kind Regarts
nOa/KDT

01/30/2014 17:41 mister41#9630

Appear in all mobs kill

syser Fehler auftritt, es ist die quest blazing purgatory

SYSERR: Jan 29 11:27:39 :: dungeon_get_flag: no dungeon !!!
SYSERR: Jan 29 11:27:39 :: dungeon_get_flag: no dungeon !!!

Code:

    quest flamenrun begin
       state start begin
          when 20373.chat."Flammenrun" with pc.get_level() < 90 begin
             say_title("W�chter des Flammenruns:")
             say("Du kannst den Flammenrun nur betreten")
             say("wenn du Level 90 bist.")
             say_reward("Komm zur�ck wenn du level 90 erreicht hast.")
          end
          when 20373.chat."In den Flammenrun" with pc.get_level() >= 90 begin
             say_title("W�chter des Flammenruns:")
             say("")
             say("Willst du den Flammenrun betreten?")
             say("")
             local s = select("Ja, ich m�chte", "Nein, m�chte ich nicht")
             if s == 1 then
                pc.warp(777327, 668731)
             elseif s == 2 then
                return
             end
          end

          when 20385.chat."Flammenrun starten" begin
             say_title("Flammenrun Starten")
             say("Dein Team und du seid bereit")
             say("f�r einen langen Kampf?")
             say("Wenns so ist, dann lasst uns starten!")
             say_reward("Es kostet den Gruppenleiter 500 Rangpunkte!")
             say("Fangt an, indem Ihr alle Monster im Norden t�tet.")
             local a =select("Ja wir sind bereit","Nein wir sind noch nicht bereit")
             if a == 2 then
                return
             elseif a == 1 then
                if not party.is_party() then
                   say("Du musst dich in einer Gruppe befinden")
                   say("um inden Falmmenrun zu kommen.")
                   return
                elseif not party.is_leader() then
                   say("Es kann nur der Gruppenleader")
                   say("den run starten.")
                   say("")
                   return
                end
                if pc.get_alignment() >= 500 then
                   pc.change_alignment(-500)
                   d.join(208)
                   d.setf("flammenrun", 1)
                   d.setf("killf1", 0)
                   d.regen_file("data/dungeon/uleiaalex/regen1.txt")
                elseif pc.get_alignment() < 500 then
                   say("Du hast nicht gen�gend Rangpunkte")
                   return
                end
             end
          end


          when kill with d.getf("flammenrun") == 1 begin
           if d.getf("killf1") <= 170 then -- 170
             d.setf("killf1", d.getf("killf1") + 1)
           elseif d.getf("killf1") >= 170 then -- 170
             d.kill_all()
             d.clear_regen()
             d.setf("flammenrun", 2)
             d.spawn_mob(8023, 513, 487)
             d.set_regen_file("data/dungeon/uleiaalex/regen2.txt")
             d.notice("1. Aufgabe geschafft!")
             d.notice("Findet nun eure 2. Aufgabe")
           end
          end


          when kill with npc.get_race() == 8023 and d.getf("flammenrun") == 2 begin
             d.kill_all()
             d.clear_regen()
             d.notice("Der Kaiserfelsen wurde zerst�rt")
             d.notice("Die 3. Aufgabe wartet nun auf euch")
             d.setf("flammenrun", 3)
             d.setf("killf2", 0)
             d.set_regen_file("data/dungeon/uleiaalex/regen3.txt")
          end


          when kill with npc.get_race() == 6051 and d.getf("flammenrun") == 3 begin
           if d.getf("killf2") <= 9 then
              d.setf("killf2", d.getf("killf2") + 1)
              d.notice("Ihr habt einen Boss gekillt.")
              d.notice("Ihr habt bereits "..d.getf("killf2").." get�tet")
           elseif d.getf("killf2") == 10 then
              d.kill_all()
              d.clear_regen()
              d.notice("Ihr habt alle Boss gekillt.")
              d.notice("T�tet nun 130 Monster im anderen Raum")
              d.setf("flammenrun", 4)
              d.getf("killf3", 0)
              d.set_regen_file("data/dungeon/uleiaalex/regen4.txt")
           end
          end


          when kill with d.getf("flammenrun") == 4 begin
           if d.getf("killf3") <= 135 then
             d.setf("killf3", d.getf("killf3") + 1)
           elseif d.getf("killf3") == 136 then
             d.kill_all()
             d.clear_regen()
             d.notice("Aufgabe gemeistert!")
             d.notice("Die Aufgabe mit den S�ulen wartet auf euch")
             d.setf("flammenrun", 5)
             d.setf("flammenseulen", 6)
             d.set_regen_file("data/dungeon/uleiaalex/regen5.txt")
             d.spawn_mob(20386, 488, 353)
             d.spawn_mob(20386, 524, 350)
             d.spawn_mob(20386, 513, 337)
             d.spawn_mob(20386, 492, 338)
             d.spawn_mob(20386, 496, 363)
             d.spawn_mob(20386, 513, 363)
           end
          end


          when kill with d.getf("flammenrun") == 5 begin
             if number(1, 100) <= 3 then
                game.drop_item(50084, 1)
             end
          end
          when 20386.take with item.vnum == 50084 and d.getf("flammenrun") == 5 begin
           if d.getf("flammenseulen") > 1 then
             if number(1, 100) <= 20 then
                npc.purge()
                item.remove()
                d.setf("flammenseulen", d.getf("flammenseulen") - 1)
                say("Es hat funktioniert")
             elseif number(1, 100) > 50 then
                say("Etwas ging schief.. Versuche es erneut")
                item.remove()
                return
             end
           elseif d.getf("flammenseulen") == 1 then
             if number(1, 100) <= 50 then
                npc.purge()
                item.remove()
                d.kill_all()
                d.clear_regen()
                d.setf("flammenseulen", d.getf("flammenseulen") - 1)
                say("Es hat funktioniert, die letzte S�ule wurde entfernt")
                say("Gibt jetzt blo� nicht auf. Ihr habts fast geschafft")
                d.notice("Die letzte S�ule wurde entfernt")
                d.notice("Geht nun nach Westen")
                d.setf("flammenrun", 6)
                d.set_regen_file("data/dungeon/uleiaalex/regen6.txt")
                d.spawn_mob(20386, 194, 354)
                local _count = pc.count_item(50084)
                pc.remove_item(50084,_count)
             elseif number(1, 100) > 50 then
                say("Etwas ging schief.. Versuche es erneut")
                item.remove()
                return
             end
           end
          end


          when kill with d.getf("flammenrun") == 6 begin
             if number(1, 100) <= 3 then
                game.drop_item(50084, 1)
             end
          end
          when 20386.take with item.vnum == 50084 and d.getf("flammenrun") == 6 begin
             if number(1, 100) <= 5 then
                npc.purge()
                item.remove()
                d.kill_all()
                d.clear_regen()
                say("Der Stein hat funktioniert")
                say("Gibt jetzt blo� nicht auf. Ihr habts fast geschafft")
                d.notice("Ihr habt es geschafft")
                d.notice("Ihr werdet in 10 Sekunden zur Kammer")
                d.notice("von Yamachun hineingebracht")
                d.spawn_mob(6091, 685, 603)
                d.set_regen_file("data/dungeon/uleiaalex/regen7.txt")
                d.setf("flammenrun", 7)
                local _count = pc.count_item(50084)
                pc.remove_item(50084,_count)
                timer("flame_boss", 10)
             elseif number(1, 100) > 6 then
                say("Etwas ging schief.. Versuche es erneut")
                item.remove()
                return
             end
          end


          when flame_boss.timer begin
             d.jump_all(8110, 6859)
          end
          when kill with npc.get_race() == 6091 and d.getf("flammenrun") == 7 begin
             d.kill_all()
             d.clear_regen()
             notice_all("Das Team von "..pc.get_name().." hat den Flammenrun gemeistert")
             d.notice("Ihr habt den Flammenrun geschafft")
             d.notice("In 20 Sekunden werdet Ihr raus gebracht")
             timer("flame_exit", 20)
          end
          when flame_exit.timer begin
             d.exit_all()
          end

       end
    end

Page 642 of 845

642