[SERVICE] Die Questkontrolle

Page 554 of 845 « First 54454504544552553 554 555556564604654 Last »
06/16/2013 10:38 Noisy-Boy#8296
PHP Code:
quest truhen_zero begin 
    state start begin 
        when login begin
            pc.give_item2(50187)
            set_state(truhen)
        end
    end
    state truhen begin
        when 50187.use begin
            local item_vnum = 16 --Schwert+0
            if pc.get_job() == 1 then
                item_vnum = 1006 --Dolche+0
            elseif pc.get_job() == 2 then                
                item_vnum = 16   --Schwert+0
            elseif pc.get_job() == 3 then
                item_vnum = 7000 --Fächer+0            
            local item_vnum2 = 11206 --Mönchspp+6
            if pc.get_job() == 1 then
                item_vnum2 = 11406 --Azur+6
            elseif pc.get_job() == 2 then                
                item_vnum2 = 11606   --Reliqiuem+6
            elseif pc.get_job() == 3 then
                item_vnum2 = 11806 --purpur+6                
            local item_vnum3 = 12206 --tradi+6
            if pc.get_job() == 1 then
                item_vnum3 = 12346 --Leder+6
            elseif pc.get_job() == 2 then                
                item_vnum3 = 12486  --blutiger+6
            elseif pc.get_job() == 3 then
                item_vnum3 = 12626 --Mönchs+6
            end
            pc.give_item2(item_vnum) --lvl 1er waffe je nach rasse
            pc.give_item2(item_vnum2) --lvl 1er rüssi je rasse
            pc.give_item2(item_vnum3) --lvl 1er helm je nach rasse
            pc.give_item2(14006, 1) --Holzarmband+6
            pc.give_item2(16006, 1) --Holzhalskette+6
            pc.give_item2(17006, 1) --Holzohringe+6
            pc.give_item2(13006, 1) --Schlachschild+6
            pc.give_item2(15006, 1) --Lederschuhe+6
            pc.give_item2(27001, 200) --Roter Trank(K)
            pc.give_item2(27004, 100) --Blauer Trank(K)
            pc.give_item2(27110, 10)  --Grüner Trank(K)
            pc.give_item2(27113, 10)  --Violetter Trank(K)
            pc.remove_item(50187, 1) --Lehrlingstruhe I verschwindet
        end 
        when 50188.use with pc.get_level() >= 10 begin 
            pc.give_item2(72723, 1)  --Elixier der Sonne (K)
            pc.give_item2(27111, 3)  --Grüner Trank(M) 
            pc.give_item2(27113, 3)  --Geschwindigkeits Trank(K)
            pc.give_item2(76008, 3)  --Medaille des Drachen 
            pc.give_item2(50189, 1)  --Lehrlingstruhe III
            pc.remove_item(50188, 1) --Lehrlingstruhe II verschwindet
        end 
        when 50189.use with pc.get_level() >= 20 begin 
            pc.give_item2(72727, 1)  --Elixier des Mondes (K)
            pc.give_item2(27111, 3)  --Grüner Trank(M)
            pc.give_item2(27113, 3)  --Geschwindigkeits Trank(K) 
            pc.give_item2(76006, 1)  --Kompass des Metinsteins 
            pc.give_item2(76024, 3)  --Grüner Zauber
            pc.give_item2(76025, 3)  --Grüne Stärke
            pc.give_item2(50190, 1)  --Expertentruhe I
            pc.remove_item(50189, 1) --Lehrlingstruhe III verschwindet
        end 
        when 50190.use with pc.get_level() >= 30 begin 
            pc.give_item2(27113, 3)  --Geschwindigkeits Trank(K) 
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(25040, 5)  --Segenschriftrollen
            pc.give_item2(70003, 1)  --Buch des Anführers            
            pc.give_item2(50191, 1)  --Expertentruhe II
            pc.remove_item(50190, 1) --Expertentruhe I verschwindet
        end 
        when 50191.use with pc.get_level() >= 40 begin 
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(71153, 1)  --Trank der Weisheit
            pc.give_item2(70003, 1)  --Buch des Anführers
            pc.give_item2(50192, 1)  --Expertentruhe III
            pc.remove_item(50191, 1) --Expertentruhe II verschwindet
        end 
        when 50192.use with pc.get_level() >= 50 begin 
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(70038, 20)  --Tapferkeitsümhänge
            pc.give_item2(71095, 5)  --Passierschein
            pc.give_item2(70058, 1)  --Teleportationsring
            pc.give_item2(50193, 1)  --Meistertruhe I
            pc.remove_item(50192, 1) --Expertentruhe III verschwindet
        end 
        when 50193.use with pc.get_level() >= 60 begin 
            pc.give_item2(71032, 3)  --Schriftrolle des Drachen
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(76000, 5)  --Pfirsichblütenwein
            pc.give_item2(50194, 1)  --Meistertruhe II
            pc.remove_item(50193, 1) --Meistertruhe I verschwindet
        end 
        when 50194.use with pc.get_level() >= 70 begin
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(76001, 2)  --Status-Neuverteilung
            pc.give_item2(71084, 3)  --Gegenstand verstärken
            pc.give_item2(71085, 3)  --Gegenstand verzaubern
            pc.give_item2(50195, 1)  --Meistertruhe III
            pc.remove_item(50194, 1) --Meistertruhe II verschwindet
        end 
        when 50195.use with pc.get_level() >= 80 begin
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(72728, 1)  --Elixier des Mondes (M)
            pc.give_item2(72728, 3)  --Elixier des Forschers
            pc.give_item2(50196, 1)  --Großmeistertruhe
            pc.remove_item(50195, 1) --Meistertruhe III verschwindet
        end 
        when 50196.use with pc.get_level() >= 90 begin
            pc.give_item2(39004, 1)  --Segenskugel
            pc.give_item2(72724, 1)  --Elixier der Sonne (M)
            pc.give_item2(76010, 3)  --Blutstein
            pc.give_item2(30319, 3)  --Schrumpfkopf
            pc.give_item2(50127, 1)  --Grüne Zaubertruhe
            pc.remove_item(50196, 1) --Großmeistertruhe verschwindet
        end 
    end 
end 
Es kommt immer Syntaxerror unexpected symbol near when.
Was ist falsch ich sehe keinen fehler :D
06/16/2013 11:04 ProfessorEnte#8297
Quote:
Originally Posted by Noisy-Boy View Post
PHP Code:
quest truhen_zero begin 
    state start begin 
        when login begin
            pc.give_item2(50187)
            set_state(truhen)
        end
    end
    state truhen begin
        when 50187.use begin
            local item_vnum = 16 --Schwert+0
            if pc.get_job() == 1 then
                item_vnum = 1006 --Dolche+0
            elseif pc.get_job() == 2 then                
                item_vnum = 16   --Schwert+0
            elseif pc.get_job() == 3 then
                item_vnum = 7000 --Fächer+0            
            local item_vnum2 = 11206 --Mönchspp+6
            if pc.get_job() == 1 then
                item_vnum2 = 11406 --Azur+6
            elseif pc.get_job() == 2 then                
                item_vnum2 = 11606   --Reliqiuem+6
            elseif pc.get_job() == 3 then
                item_vnum2 = 11806 --purpur+6                
            local item_vnum3 = 12206 --tradi+6
            if pc.get_job() == 1 then
                item_vnum3 = 12346 --Leder+6
            elseif pc.get_job() == 2 then                
                item_vnum3 = 12486  --blutiger+6
            elseif pc.get_job() == 3 then
                item_vnum3 = 12626 --Mönchs+6
            end
            pc.give_item2(item_vnum) --lvl 1er waffe je nach rasse
            pc.give_item2(item_vnum2) --lvl 1er rüssi je rasse
            pc.give_item2(item_vnum3) --lvl 1er helm je nach rasse
            pc.give_item2(14006, 1) --Holzarmband+6
            pc.give_item2(16006, 1) --Holzhalskette+6
            pc.give_item2(17006, 1) --Holzohringe+6
            pc.give_item2(13006, 1) --Schlachschild+6
            pc.give_item2(15006, 1) --Lederschuhe+6
            pc.give_item2(27001, 200) --Roter Trank(K)
            pc.give_item2(27004, 100) --Blauer Trank(K)
            pc.give_item2(27110, 10)  --Grüner Trank(K)
            pc.give_item2(27113, 10)  --Violetter Trank(K)
            pc.remove_item(50187, 1) --Lehrlingstruhe I verschwindet
        end 
        when 50188.use with pc.get_level() >= 10 begin 
            pc.give_item2(72723, 1)  --Elixier der Sonne (K)
            pc.give_item2(27111, 3)  --Grüner Trank(M) 
            pc.give_item2(27113, 3)  --Geschwindigkeits Trank(K)
            pc.give_item2(76008, 3)  --Medaille des Drachen 
            pc.give_item2(50189, 1)  --Lehrlingstruhe III
            pc.remove_item(50188, 1) --Lehrlingstruhe II verschwindet
        end 
        when 50189.use with pc.get_level() >= 20 begin 
            pc.give_item2(72727, 1)  --Elixier des Mondes (K)
            pc.give_item2(27111, 3)  --Grüner Trank(M)
            pc.give_item2(27113, 3)  --Geschwindigkeits Trank(K) 
            pc.give_item2(76006, 1)  --Kompass des Metinsteins 
            pc.give_item2(76024, 3)  --Grüner Zauber
            pc.give_item2(76025, 3)  --Grüne Stärke
            pc.give_item2(50190, 1)  --Expertentruhe I
            pc.remove_item(50189, 1) --Lehrlingstruhe III verschwindet
        end 
        when 50190.use with pc.get_level() >= 30 begin 
            pc.give_item2(27113, 3)  --Geschwindigkeits Trank(K) 
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(25040, 5)  --Segenschriftrollen
            pc.give_item2(70003, 1)  --Buch des Anführers            
            pc.give_item2(50191, 1)  --Expertentruhe II
            pc.remove_item(50190, 1) --Expertentruhe I verschwindet
        end 
        when 50191.use with pc.get_level() >= 40 begin 
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(71153, 1)  --Trank der Weisheit
            pc.give_item2(70003, 1)  --Buch des Anführers
            pc.give_item2(50192, 1)  --Expertentruhe III
            pc.remove_item(50191, 1) --Expertentruhe II verschwindet
        end 
        when 50192.use with pc.get_level() >= 50 begin 
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(70038, 20)  --Tapferkeitsümhänge
            pc.give_item2(71095, 5)  --Passierschein
            pc.give_item2(70058, 1)  --Teleportationsring
            pc.give_item2(50193, 1)  --Meistertruhe I
            pc.remove_item(50192, 1) --Expertentruhe III verschwindet
        end 
        when 50193.use with pc.get_level() >= 60 begin 
            pc.give_item2(71032, 3)  --Schriftrolle des Drachen
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(76000, 5)  --Pfirsichblütenwein
            pc.give_item2(50194, 1)  --Meistertruhe II
            pc.remove_item(50193, 1) --Meistertruhe I verschwindet
        end 
        when 50194.use with pc.get_level() >= 70 begin
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(76001, 2)  --Status-Neuverteilung
            pc.give_item2(71084, 3)  --Gegenstand verstärken
            pc.give_item2(71085, 3)  --Gegenstand verzaubern
            pc.give_item2(50195, 1)  --Meistertruhe III
            pc.remove_item(50194, 1) --Meistertruhe II verschwindet
        end 
        when 50195.use with pc.get_level() >= 80 begin
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(72728, 1)  --Elixier des Mondes (M)
            pc.give_item2(72728, 3)  --Elixier des Forschers
            pc.give_item2(50196, 1)  --Großmeistertruhe
            pc.remove_item(50195, 1) --Meistertruhe III verschwindet
        end 
        when 50196.use with pc.get_level() >= 90 begin
            pc.give_item2(39004, 1)  --Segenskugel
            pc.give_item2(72724, 1)  --Elixier der Sonne (M)
            pc.give_item2(76010, 3)  --Blutstein
            pc.give_item2(30319, 3)  --Schrumpfkopf
            pc.give_item2(50127, 1)  --Grüne Zaubertruhe
            pc.remove_item(50196, 1) --Großmeistertruhe verschwindet
        end 
    end 
end 
Es kommt immer Syntaxerror unexpected symbol near when.
Was ist falsch ich sehe keinen fehler :D
Hey,
wenn du nach elseif wieder mit einem if anfaengst, sollte dazwischen ein "end" sein sonst gehts nicht.

PHP Code:
quest truhen_zero begin 
    state start begin 
        when login begin
            pc.give_item2(50187)
            set_state(truhen)
        end
    end
    state truhen begin
        when 50187.use begin
            local item_vnum = 16 --Schwert+0
            if pc.get_job() == 1 then
                item_vnum = 1006 --Dolche+0
            elseif pc.get_job() == 2 then                
                item_vnum = 16   --Schwert+0
            elseif pc.get_job() == 3 then
                item_vnum = 7000 --Fächer+0        
            end
            local item_vnum2 = 11206 --Mönchspp+6
            if pc.get_job() == 1 then
                item_vnum2 = 11406 --Azur+6
            elseif pc.get_job() == 2 then                
                item_vnum2 = 11606   --Reliqiuem+6
            elseif pc.get_job() == 3 then
                item_vnum2 = 11806 --purpur+6     
            end
            local item_vnum3 = 12206 --tradi+6
            if pc.get_job() == 1 then
                item_vnum3 = 12346 --Leder+6
            elseif pc.get_job() == 2 then                
                item_vnum3 = 12486  --blutiger+6
            elseif pc.get_job() == 3 then
                item_vnum3 = 12626 --Mönchs+6
            end
            pc.give_item2(item_vnum) --lvl 1er waffe je nach rasse
            pc.give_item2(item_vnum2) --lvl 1er rüssi je rasse
            pc.give_item2(item_vnum3) --lvl 1er helm je nach rasse
            pc.give_item2(14006, 1) --Holzarmband+6
            pc.give_item2(16006, 1) --Holzhalskette+6
            pc.give_item2(17006, 1) --Holzohringe+6
            pc.give_item2(13006, 1) --Schlachschild+6
            pc.give_item2(15006, 1) --Lederschuhe+6
            pc.give_item2(27001, 200) --Roter Trank(K)
            pc.give_item2(27004, 100) --Blauer Trank(K)
            pc.give_item2(27110, 10)  --Grüner Trank(K)
            pc.give_item2(27113, 10)  --Violetter Trank(K)
            pc.remove_item(50187, 1) --Lehrlingstruhe I verschwindet
        end 
        when 50188.use with pc.get_level() >= 10 begin 
            pc.give_item2(72723, 1)  --Elixier der Sonne (K)
            pc.give_item2(27111, 3)  --Grüner Trank(M) 
            pc.give_item2(27113, 3)  --Geschwindigkeits Trank(K)
            pc.give_item2(76008, 3)  --Medaille des Drachen 
            pc.give_item2(50189, 1)  --Lehrlingstruhe III
            pc.remove_item(50188, 1) --Lehrlingstruhe II verschwindet
        end 
        when 50189.use with pc.get_level() >= 20 begin 
            pc.give_item2(72727, 1)  --Elixier des Mondes (K)
            pc.give_item2(27111, 3)  --Grüner Trank(M)
            pc.give_item2(27113, 3)  --Geschwindigkeits Trank(K) 
            pc.give_item2(76006, 1)  --Kompass des Metinsteins 
            pc.give_item2(76024, 3)  --Grüner Zauber
            pc.give_item2(76025, 3)  --Grüne Stärke
            pc.give_item2(50190, 1)  --Expertentruhe I
            pc.remove_item(50189, 1) --Lehrlingstruhe III verschwindet
        end 
        when 50190.use with pc.get_level() >= 30 begin 
            pc.give_item2(27113, 3)  --Geschwindigkeits Trank(K) 
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(25040, 5)  --Segenschriftrollen
            pc.give_item2(70003, 1)  --Buch des Anführers            
            pc.give_item2(50191, 1)  --Expertentruhe II
            pc.remove_item(50190, 1) --Expertentruhe I verschwindet
        end 
        when 50191.use with pc.get_level() >= 40 begin 
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(71153, 1)  --Trank der Weisheit
            pc.give_item2(70003, 1)  --Buch des Anführers
            pc.give_item2(50192, 1)  --Expertentruhe III
            pc.remove_item(50191, 1) --Expertentruhe II verschwindet
        end 
        when 50192.use with pc.get_level() >= 50 begin 
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(70038, 20)  --Tapferkeitsümhänge
            pc.give_item2(71095, 5)  --Passierschein
            pc.give_item2(70058, 1)  --Teleportationsring
            pc.give_item2(50193, 1)  --Meistertruhe I
            pc.remove_item(50192, 1) --Expertentruhe III verschwindet
        end 
        when 50193.use with pc.get_level() >= 60 begin 
            pc.give_item2(71032, 3)  --Schriftrolle des Drachen
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(76000, 5)  --Pfirsichblütenwein
            pc.give_item2(50194, 1)  --Meistertruhe II
            pc.remove_item(50193, 1) --Meistertruhe I verschwindet
        end 
        when 50194.use with pc.get_level() >= 70 begin
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(76001, 2)  --Status-Neuverteilung
            pc.give_item2(71084, 3)  --Gegenstand verstärken
            pc.give_item2(71085, 3)  --Gegenstand verzaubern
            pc.give_item2(50195, 1)  --Meistertruhe III
            pc.remove_item(50194, 1) --Meistertruhe II verschwindet
        end 
        when 50195.use with pc.get_level() >= 80 begin
            pc.give_item2(71101, 3)  --Trank der Hast
            pc.give_item2(27112, 3)  --Trank des Angriffs
            pc.give_item2(72728, 1)  --Elixier des Mondes (M)
            pc.give_item2(72728, 3)  --Elixier des Forschers
            pc.give_item2(50196, 1)  --Großmeistertruhe
            pc.remove_item(50195, 1) --Meistertruhe III verschwindet
        end 
        when 50196.use with pc.get_level() >= 90 begin
            pc.give_item2(39004, 1)  --Segenskugel
            pc.give_item2(72724, 1)  --Elixier der Sonne (M)
            pc.give_item2(76010, 3)  --Blutstein
            pc.give_item2(30319, 3)  --Schrumpfkopf
            pc.give_item2(50127, 1)  --Grüne Zaubertruhe
            pc.remove_item(50196, 1) --Großmeistertruhe verschwindet
        end 
    end 
end 
Mfg,
ProfessorEnte
06/16/2013 11:10 Vali2222#8298
Quote:
Originally Posted by swamswam View Post
Haste nicht nen Fehler der ausgespuckt wird?
und nächstes mal bitte in php sonst kann man kaum den fehler finden xD

uncleart funktion(funktion exestiert nicht):
pc.change_money_for_other_pc

vllt hast du die ja bei dir definiert aber ich hab dich nicht xD

und beim 2ten say_reward ist am ende ein ! das zuviel ist
Mach ich ;)
Ja hab ich definiert :)
OMG wo kommt das Rufzeichen her? :D Aba ja danke das war der Fehler :s
06/16/2013 11:11 dedicite#8299
PHP Code:
quest player_kill1 begin
    state start begin
        when login or levelup with pc.level >= 110 begin
            set_state(player_kill1)
        end
    end

    state player_kill1 begin
        when letter begin
            send_letter("PvP - SplitterQuest")
        end

        when button or info begin
            say("Nun wie du weißt gibt es Energie-Splitter.")
            say("Diese Verstärken deine Rüstung enorm")
            say("Um diesen Splitter zu Bekommen , musst du beweisen was du eannst!")
            say("Deine Energie wird enorm!")
            say("Töte 500 Spieler um einen Splitter zu Bekommen")
            say_reward("Töte und werde Belohnt!")
            say("")
            pc.setqf("state", 500)
            q.set_counter("kills", 500)
            set_state(kill)
        end
    end
      
    state kill begin
        when letter begin
            send_letter("Töte Spieler")
        end
        
        when button or info begin
            say_title("Spieler:")
            say_reward("Du musst noch "..pc.getqf("state").." von 500 töten")
            say("")
        end

        when kill begin
            if npc.is_pc() and npc.empire != pc.empire then 
                local count = pc.getqf("state") - 1
                if count <= 500 then
                    pc.setqf("state", count)
                    q.set_counter("kills", -count)
                end
                if count == 0 then
                    say("Sehr schön, du hast es geschafft!")
                    say("Nach langem kämpfen hast du nun endlich")
                    say("deinen 500. Kill gemacht! Gratulation")
                    say("Diese Mühen sollen natürlich nicht unbelohnt")
                    say("bleiben, deshalb Bekommst du deinen Energie-Splitter")
                    say("Bitte Klick auf Auf deinen Preis:")
                    
                if count <= 0 then
                        
                        local s = select("Energie-Splitter")
                        pc.give_item2(51001, 1)
                    
                        end
                    end
                end
                
                clear_letter()
            end
        end
    end
    end
end 
Geht das so?
06/16/2013 11:14 ProfessorEnte#8300
Quote:
Originally Posted by Acon™ View Post
Ich hab mal wieder n Problem ^^ meine GM-Online spackt rum !! :D ich bin als
[SL]Yoda eingeloggt und werd nich angezeigt un hab ne andere Farbe als alle
anderen, sowie der SA ... Notixx wird IMMER als Online angezeigt egal ob er es is
oder nicht....

hier ein Screen:

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

hier die Quest:
PHP Code:
quest gmonline begin
    state start begin
        when login begin
            set_state(information)
        end
    end
    state information begin 
        when letter begin 
            send_letter("Team") 
        end
        when button or info begin
            say("Name                                     Status")
            say("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
            if game.get_event_flag("[SL]Yoda")== 1 then
                say_reward("SL Yoda                                online")
            else
                say("SL Yoda                            offline")
            end
            if game.get_event_flag("[SA]Sm4rt")== 1 then
                say_reward("SA Sm4rt                                online")
            else
                say("SA Sm4rt                       offline")
            end
            if game.get_event_flag("[CSA]Notixx")== 1 then
                say_reward("CSA Notixx                                online")
            else
                say("CSA Notixx                                offline")
            end
            if game.get_event_flag("[GM]Angel")== 1 then
                say_reward("GM Angel                                online")
            else
                say("GM Angel                                offline")
            end
            if game.get_event_flag("[TGM]Scream")== 1 then
                say_reward("TGM Scream                            online")
            else
                say("TGM Scream                            offline")
            end
            if game.get_event_flag("[TGM]Shinobi")== 1 then
                say_reward("TGM Shinobi                    online")
            else
                say("TGM Shinobi                      offline")
            end
        end
    end
end 

Mfg Acon
Hey,
ich weiß echt nichtmehr weiter mit dir! xD

Liest du denn nicht deinen alten Thread richtig durch?
Du hast doch schonmal ein geoeffnet gehabt.
Undzwar den hier:
[Only registered and activated users can see links. Click Here To Register...]

Du hast dort direkt 2 Quest's bekommen die genau das bewirken was du willst.

Hier nocheinmal fuer dich:

PHP Code:
quest gm_online_immer begin
    state start begin
        when login with pc.is_gm() begin
            game.set_event_flag(pc.get_name(), 1)
        end
        
        when logout with pc.is_gm() begin
            game.set_event_flag(pc.get_name(), 0)
        end

        when letter begin
            send_letter("Welcher Teamler ist online?")
        end
        
        when button or info begin
            say_title("Welcher Teamler ist Online?")
            say("Du möchtest wissen, welche Teamler online sind?")
            say("Bitte beachte, das GMs grün markiert sind und")
            say("Klammern vor den Namen haben.")
            say("")
            if game.get_event_flag("[SA]Yoda") == 1 then
                say("[SA]Yoda: Online")
            else
                say("[SA]Yoda: Offline")
            end
        
            if game.get_event_flag("[SA]Sm4rt") == 1 then
                say("[SA]Sm4rt: Online")
            else
                say("[SA]Sm4rt: Offline")
            end

            if game.get_event_flag("[CSA]Notixx") == 1 then
                say("[CSA]Notixx: Online")
            else
                say("[CSA]Notixx: Offline")
            end
                
            if game.get_event_flag("[GM]Angel") == 1 then
                say("[GM]Angel: Online")
            else
                say("[GM]Angel: Offline")    
            end
        end
    end
end 
Und jetzt noch als erklärung warum deine Quest nicht geht:
Nach dem Login wird weder ein Eintrag gemacht, dass nen gm sich eingelogt oder ausgelogt hat. Demzufolge fragst du nur nach leeren flags ab, bzw einer wo 1 drin steht ( welche den einen dann als online anzeigt ).

Leere die flag in der questtable und vergleiche meine Quest mit deiner. Oder fueg meine direkt ein und mach deine anderen Namen dazu.

Mfg,
ProfessorEnte
06/16/2013 11:25 Acon™#8301
Danke ente :3 ^^ aber ich hab die Quest hier nich ausm Alten Tread, weil wir uns darauf
geeinigt haben das die andere nich so gut war, weil die Namen nicht Richtig "gekenzeichnet"
waren un bei der Quest eig schon :)

Mfg Acon
06/16/2013 11:32 ProfessorEnte#8302
Quote:
Originally Posted by Acon™ View Post
Danke ente :3 ^^ aber ich hab die Quest hier nich ausm Alten Tread, weil wir uns darauf
geeinigt haben das die andere nich so gut war, weil die Namen nicht Richtig "gekenzeichnet"
waren un bei der Quest eig schon :)

Mfg Acon
PHP Code:
quest gmonline begin
    state start begin
        when login with pc.is_gm() begin
            game.set_event_flag(pc.get_name(), 1)
        end
        
        when logout with pc.is_gm() begin
            game.set_event_flag(pc.get_name(), 0)
        end

        when letter begin
            send_letter("Team")
        end
        
        when button or info begin
            say("Name                                     Status")
            say("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
            if game.get_event_flag("[SL]Yoda")== 1 then
                say_reward("SL Yoda                                online")
            else
                say("SL Yoda                            offline")
            end
            if game.get_event_flag("[SA]Sm4rt")== 1 then
                say_reward("SA Sm4rt                                online")
            else
                say("SA Sm4rt                       offline")
            end
            if game.get_event_flag("[CSA]Notixx")== 1 then
                say_reward("CSA Notixx                                online")
            else
                say("CSA Notixx                                offline")
            end
            if game.get_event_flag("[GM]Angel")== 1 then
                say_reward("GM Angel                                online")
            else
                say("GM Angel                                offline")
            end
            if game.get_event_flag("[TGM]Scream")== 1 then
                say_reward("TGM Scream                            online")
            else
                say("TGM Scream                            offline")
            end
            if game.get_event_flag("[TGM]Shinobi")== 1 then
                say_reward("TGM Shinobi                    online")
            else
                say("TGM Shinobi                      offline")
            end
        end
    end
end 
;)

Mfg,
ProfessorEnte
06/16/2013 15:24 Red Firestar#8303
Quote:
Originally Posted by swamswam View Post
also ich habe keinen fehler :) denke das liegt daran das du in questlist nicht einmal enter am ende gedrückt hast :)
Nein geht leider immer noch nicht wer kann noch helfen ? :D
Könnte mal jemand die Quest durch checken und die Sachen die in quest_functions kommen rausschreiben ? entweder liegt es and der quest_functions oder an einer anderen Sache aber wenn ich die Quest einfüge kommt immer: Abort trap (core dumped)
PHP Code:
quest howtolevel begin
    state start begin
        when login or levelup with pc.get_level() > 115 begin
            set_state(information)
        end
    end
    state information begin
        when letter begin
            send_letter("PvP Quest - Leveln (How2)")
        end
        when button or info begin
            say_title("Guten Tag Tapferer Kaempfer.")
            say("Du hast nun das Level 115 erreicht und bist somit bereit zu kämpfen.")
            say("Hallo, Du fragst dich wie du dich hier Leveln kannst?")
            say("Ganz einfach , Durch Duelle oder Toetungen aus anderen Reichen")
            say("Bei einer Toetung von einen Spieler aus deinem Reich bekommst du viel Exp!!")
            say("Bei Spielern aus anderen Reichen bekommst du weniger Exp!!")
            say("Viel Spass noch beim Leveln wuenscht euch das gesamte Pedobär2 Team.")
        end
        when kill begin
        if npc.is_pc() then
                    if npc_is_same_empire() then
                    pc.give_exp2(5783437)
                else                      
                    pc.give_exp2(11566875)
                end
            end
        end
    end
end 
06/16/2013 15:58 GenerationAzzlack#8304
Code:
WHEN  : 20093.chat ("Der Weg des Ninjas.")
        with ( pc . get_level ( ) == 24 and pc . get_job ( ) == 1 )
expecting 'when' or 'function'
WegdesNinjas_quest/wegdesn4.quest:59:Error occured on compile WegdesNinjas_quest/wegdesn4.quest
Code:
	end
			set_state(start_4)
			end
		end
	state start_4 begin
		when letter begin
            send_letter("Rai-Ku braucht dich")
        end
Das ist Zeile 59, aber ich sehe da kein Error?

Hoffe reicht dieser ausschnitt der quest, wenn nicht bescheid geben :0
06/16/2013 17:01 AfterTheSky#8305
Code:
quest vipshop begin
	state start begin
		when 70252.use begin
				say_title("Shopping-Funktion:")
				say("Mit dieser Funktion kannst einen")
				say("VIP Shop herbeirufen.")
				say("Dieser Shop hat das zu bieten ,was du bestellst")
				say("Also probier es einfach mal aus!")
				say()
				say("Aber denk dran:")
				say()
				say("Der Shop muss einmal geöffnet werden!")
				say_reward("Sonst funktioniert das item nichtmehr!")
				local s=select("Ok", "Verlassen")
				if 1==s then
					say("Shopping-Funktion:")
					say_reward("Welchen Shop möchtes du öffnen?")
					local shop=select("150iger Krieger", "150iger Shami", "150iger Sura", "150iger Ninja", "Schmuckhandel", "Mehr Shops", "Beenden")
					if 1==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						npc.open_shop(101)
						pc.remove_item(70252,1)
						cmdchat(purge)
					elseif 2==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						npc.open_shop(100)
						pc.remove_item(70252,1)
						cmdchat(purge)
					elseif 3==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						npc.open_shop(99)
						pc.remove_item(70252,1)
						cmdchat(purge)
					elseif 4==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						npc.open_shop(98)
						pc.remove_item(70252,1)
						cmdchat(purge)
					elseif 5==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						npc.open_shop(31)
						pc.remove_item(70252,1)
						cmdchat(purge)
					elseif 6==shop then
						say_title("Shopping-Funktion")
						say_reward("Welchen Shop möchtest du öffnen?")
						local shop2=select("Pfeilhandel", "Pfeilhandel", "Pfeilhandel", "Beenden")
						if 1==shop2 then
							mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
							npc.open_shop(31)
							pc.remove_item(70252,1)
							cmdchat(purge)
						if 2==shop2 then
							mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
							npc.open_shop(31)
					     	pc.remove_item(70252,1)
					     	cmdchat(purge)
						if 3==shop2 then
							mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
							npc.open_shop(31)
							pc.remove_item(70252,1)
							cmdchat(purge)
						elseif 4==shop2 then
							return
						end
					elseif 7==shop then
						return
					end
				elseif 2==s then
					return
				end
				
				end
			end
		end
	end
end

Fehler meldung,
must start with 'quest'
vipshop.quest:1:Abort trap (core dumped)

Kann mir die quest einer verbessern oder Fehler beheben?!
06/16/2013 17:46 ProfessorEnte#8306
Quote:
Originally Posted by PrinzVito View Post
Nein geht leider immer noch nicht wer kann noch helfen ? :D
Könnte mal jemand die Quest durch checken und die Sachen die in quest_functions kommen rausschreiben ? entweder liegt es and der quest_functions oder an einer anderen Sache aber wenn ich die Quest einfüge kommt immer: Abort trap (core dumped)
PHP Code:
quest howtolevel begin
    state start begin
        when login or levelup with pc.get_level() > 115 begin
            set_state(information)
        end
    end
    state information begin
        when letter begin
            send_letter("PvP Quest - Leveln (How2)")
        end
        when button or info begin
            say_title("Guten Tag Tapferer Kaempfer.")
            say("Du hast nun das Level 115 erreicht und bist somit bereit zu kämpfen.")
            say("Hallo, Du fragst dich wie du dich hier Leveln kannst?")
            say("Ganz einfach , Durch Duelle oder Toetungen aus anderen Reichen")
            say("Bei einer Toetung von einen Spieler aus deinem Reich bekommst du viel Exp!!")
            say("Bei Spielern aus anderen Reichen bekommst du weniger Exp!!")
            say("Viel Spass noch beim Leveln wuenscht euch das gesamte Pedobär2 Team.")
        end
        when kill begin
        if npc.is_pc() then
                    if npc_is_same_empire() then
                    pc.give_exp2(5783437)
                else                      
                    pc.give_exp2(11566875)
                end
            end
        end
    end
end 
Hey,
bei mir kommt bei der Quest auch kein Error.

hier hast du mal die function aus der questlib von mir:

PHP Code:
function npc_is_same_empire()
    if pc.get_empire()==npc.empire then
        return true
    else
        return false
    end
end 

Quote:
Originally Posted by GenerationAzzlack View Post
Code:
WHEN  : 20093.chat ("Der Weg des Ninjas.")
        with ( pc . get_level ( ) == 24 and pc . get_job ( ) == 1 )
expecting 'when' or 'function'
WegdesNinjas_quest/wegdesn4.quest:59:Error occured on compile WegdesNinjas_quest/wegdesn4.quest
Code:
	end
			set_state(start_4)
			end
		end
	state start_4 begin
		when letter begin
            send_letter("Rai-Ku braucht dich")
        end
Das ist Zeile 59, aber ich sehe da kein Error?

Hoffe reicht dieser ausschnitt der quest, wenn nicht bescheid geben :0
Dir hab ich ja schon geschrieben! :D


Quote:
Originally Posted by AfterTheSky View Post
Code:
quest vipshop begin
	state start begin
		when 70252.use begin
				say_title("Shopping-Funktion:")
				say("Mit dieser Funktion kannst einen")
				say("VIP Shop herbeirufen.")
				say("Dieser Shop hat das zu bieten ,was du bestellst")
				say("Also probier es einfach mal aus!")
				say()
				say("Aber denk dran:")
				say()
				say("Der Shop muss einmal geöffnet werden!")
				say_reward("Sonst funktioniert das item nichtmehr!")
				local s=select("Ok", "Verlassen")
				if 1==s then
					say("Shopping-Funktion:")
					say_reward("Welchen Shop möchtes du öffnen?")
					local shop=select("150iger Krieger", "150iger Shami", "150iger Sura", "150iger Ninja", "Schmuckhandel", "Mehr Shops", "Beenden")
					if 1==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						npc.open_shop(101)
						pc.remove_item(70252,1)
						cmdchat(purge)
					elseif 2==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						npc.open_shop(100)
						pc.remove_item(70252,1)
						cmdchat(purge)
					elseif 3==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						npc.open_shop(99)
						pc.remove_item(70252,1)
						cmdchat(purge)
					elseif 4==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						npc.open_shop(98)
						pc.remove_item(70252,1)
						cmdchat(purge)
					elseif 5==shop then
						mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
						npc.open_shop(31)
						pc.remove_item(70252,1)
						cmdchat(purge)
					elseif 6==shop then
						say_title("Shopping-Funktion")
						say_reward("Welchen Shop möchtest du öffnen?")
						local shop2=select("Pfeilhandel", "Pfeilhandel", "Pfeilhandel", "Beenden")
						if 1==shop2 then
							mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
							npc.open_shop(31)
							pc.remove_item(70252,1)
							cmdchat(purge)
						if 2==shop2 then
							mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
							npc.open_shop(31)
					     	pc.remove_item(70252,1)
					     	cmdchat(purge)
						if 3==shop2 then
							mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
							npc.open_shop(31)
							pc.remove_item(70252,1)
							cmdchat(purge)
						elseif 4==shop2 then
							return
						end
					elseif 7==shop then
						return
					end
				elseif 2==s then
					return
				end
				
				end
			end
		end
	end
end

Fehler meldung,
must start with 'quest'
vipshop.quest:1:Abort trap (core dumped)

Kann mir die quest einer verbessern oder Fehler beheben?!
Hey,
paar end Fehler und if/elseif Fehler.
Die Funktion der Quest hab ich mir nicht angeschaut, nur die Fehler rausgehauen.

PHP Code:
quest vipshop begin
    state start begin
        when 70252.use begin
            say_title("Shopping-Funktion:")
            say("Mit dieser Funktion kannst einen")
            say("VIP Shop herbeirufen.")
            say("Dieser Shop hat das zu bieten ,was du bestellst")
            say("Also probier es einfach mal aus!")
            say()
            say("Aber denk dran:")
            say()
            say("Der Shop muss einmal geöffnet werden!")
            say_reward("Sonst funktioniert das item nichtmehr!")
            local s=select("Ok", "Verlassen")
            if 1==s then
                say("Shopping-Funktion:")
                say_reward("Welchen Shop möchtes du öffnen?")
                local shop=select("150iger Krieger", "150iger Shami", "150iger Sura", "150iger Ninja", "Schmuckhandel", "Mehr Shops", "Beenden")
                if 1==shop then
                    mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
                    npc.open_shop(101)
                    pc.remove_item(70252,1)
                    cmdchat(purge)
                elseif 2==shop then
                    mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
                    npc.open_shop(100)
                    pc.remove_item(70252,1)
                    cmdchat(purge)
                elseif 3==shop then
                    mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
                    npc.open_shop(99)
                    pc.remove_item(70252,1)
                    cmdchat(purge)
                elseif 4==shop then
                    mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
                    npc.open_shop(98)
                    pc.remove_item(70252,1)
                    cmdchat(purge)
                elseif 5==shop then
                    mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
                    npc.open_shop(31)
                    pc.remove_item(70252,1)
                    cmdchat(purge)
                elseif 6==shop then
                    say_title("Shopping-Funktion")
                    say_reward("Welchen Shop möchtest du öffnen?")
                    local shop2=select("Pfeilhandel", "Pfeilhandel", "Pfeilhandel", "Beenden")
                    if 1==shop2 then
                        mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
                        npc.open_shop(31)
                        pc.remove_item(70252,1)
                        cmdchat(purge)
                    elseif 2==shop2 then
                        mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
                        npc.open_shop(31)
                        pc.remove_item(70252,1)
                        cmdchat(purge)
                    elseif 3==shop2 then
                        mob.spawn(20024, pc.get_local_x(),  pc.get_local_y(), 1, 1, 1)
                        npc.open_shop(31)
                        pc.remove_item(70252,1)
                        cmdchat(purge)
                    elseif 4==shop2 then
                        return
                    end
                elseif 7==shop then
                    return
                end
            elseif 2==s then
                return
            end
        end
    end
end 
Mfg,
ProfessorEnte
06/16/2013 20:15 rakuz123456#8307
Fehler in der quest
expecting "when" pr "function"
Abort trap (core dumped)

PHP Code:
quest player_kill1 begin  
    state start begin  
        when login with pc.level >= 90 begin  
            set_state(player_kill1)  
        end  
    end  

    state player_kill1 begin  
        when letter begin  
            send_letter("Beruf Ausbildung Level 2")  
        end  

        when button or info begin  
            say("Gratuliere!!") 
            say("Das ist Unsere Beruf Quest Level 2,") 
            say("dass ist zu beachten.") 
            say_reward("3 Spieler toeten = 10% Halbmenschen , 2.000 TP") 
            say_reward("4 Spieler toeten = 20% Halbmenschen , 3.000 TP")
            pc.setqf("level", 1) 
        end 
        when kill with npc.is_pc() begin 
            if get_time() < pc.getqf("kill_time") then  
                chat("Die 2 Minuten sind derzeit noch nicht vergangen") 
                chat("Du erhielst keinen Punkt") 
                return 
            end     
            chat("Du hast einen Punkt erhalten Gratuliere du hast derzeit ") 
            chat("Einen weiteren Punkt erhaelst du in erst 2 Minuten") 
            chat("Derzeit besitz du "..pc.getqf("kill_punkte").." Punkt(e)") 
            pc.setqf("kill_punkte", pc.getqf("kill_punkte")+1) 
            pc.setqf("kill_time", get_time() + 60*2)  
            if pc.getqf("kill_punkte") == 3 then 
                affect.add_collect(apply.ATTBONUS_HUMAN,20,60*60*24*365*60) 
                affect.add_collect(apply.MAX_HP,3000,60*60*24*365*60) 
                say("Du hast soeben 3 Leute getoetet") 
                say("Dafuer kriegst du 10% Halbmenschen") 
                say("Und 3000 TP") 
            if pc.getqf("kill_punkte") == 4 then 
                affect.add_collect(apply.ATTBONUS_HUMAN,20,60*60*24*365*60) 
                affect.add_collect(apply.MAX_HP,3000,60*60*24*365*60) 
                say("Du hast soeben 3 Leute getoetet") 
                say("Dafuer kriegst du 20% Halbmenschen") 
                say("Und 3000 TP") 
                set_state(player_kill_end) 
            end 
        end 
    end
    state player_kill_end begin
    end
end 
06/16/2013 21:06 ProfessorEnte#8308
Quote:
Originally Posted by rakuz123456 View Post
Fehler in der quest
expecting "when" pr "function"
Abort trap (core dumped)

PHP Code:
quest player_kill1 begin  
    state start begin  
        when login with pc.level >= 90 begin  
            set_state(player_kill1)  
        end  
    end  

    state player_kill1 begin  
        when letter begin  
            send_letter("Beruf Ausbildung Level 2")  
        end  

        when button or info begin  
            say("Gratuliere!!") 
            say("Das ist Unsere Beruf Quest Level 2,") 
            say("dass ist zu beachten.") 
            say_reward("3 Spieler toeten = 10% Halbmenschen , 2.000 TP") 
            say_reward("4 Spieler toeten = 20% Halbmenschen , 3.000 TP")
            pc.setqf("level", 1) 
        end 
        when kill with npc.is_pc() begin 
            if get_time() < pc.getqf("kill_time") then  
                chat("Die 2 Minuten sind derzeit noch nicht vergangen") 
                chat("Du erhielst keinen Punkt") 
                return 
            end     
            chat("Du hast einen Punkt erhalten Gratuliere du hast derzeit ") 
            chat("Einen weiteren Punkt erhaelst du in erst 2 Minuten") 
            chat("Derzeit besitz du "..pc.getqf("kill_punkte").." Punkt(e)") 
            pc.setqf("kill_punkte", pc.getqf("kill_punkte")+1) 
            pc.setqf("kill_time", get_time() + 60*2)  
            if pc.getqf("kill_punkte") == 3 then 
                affect.add_collect(apply.ATTBONUS_HUMAN,20,60*60*24*365*60) 
                affect.add_collect(apply.MAX_HP,3000,60*60*24*365*60) 
                say("Du hast soeben 3 Leute getoetet") 
                say("Dafuer kriegst du 10% Halbmenschen") 
                say("Und 3000 TP") 
            if pc.getqf("kill_punkte") == 4 then 
                affect.add_collect(apply.ATTBONUS_HUMAN,20,60*60*24*365*60) 
                affect.add_collect(apply.MAX_HP,3000,60*60*24*365*60) 
                say("Du hast soeben 3 Leute getoetet") 
                say("Dafuer kriegst du 20% Halbmenschen") 
                say("Und 3000 TP") 
                set_state(player_kill_end) 
            end 
        end 
    end
    state player_kill_end begin
    end
end 
Hey,
das letzte if ist falsch, da sollte elseif hin.

PHP Code:
quest player_kill1 begin  
    state start begin  
        when login with pc.level >= 90 begin  
            set_state(player_kill1)  
        end  
    end  

    state player_kill1 begin  
        when letter begin  
            send_letter("Beruf Ausbildung Level 2")  
        end  

        when button or info begin  
            say("Gratuliere!!") 
            say("Das ist Unsere Beruf Quest Level 2,") 
            say("dass ist zu beachten.") 
            say_reward("3 Spieler toeten = 10% Halbmenschen , 2.000 TP") 
            say_reward("4 Spieler toeten = 20% Halbmenschen , 3.000 TP")
            pc.setqf("level", 1) 
        end 
        when kill with npc.is_pc() begin 
            if get_time() < pc.getqf("kill_time") then  
                chat("Die 2 Minuten sind derzeit noch nicht vergangen") 
                chat("Du erhielst keinen Punkt") 
                return 
            end     
            chat("Du hast einen Punkt erhalten Gratuliere du hast derzeit ") 
            chat("Einen weiteren Punkt erhaelst du in erst 2 Minuten") 
            chat("Derzeit besitz du "..pc.getqf("kill_punkte").." Punkt(e)") 
            pc.setqf("kill_punkte", pc.getqf("kill_punkte")+1) 
            pc.setqf("kill_time", get_time() + 60*2)  
            if pc.getqf("kill_punkte") == 3 then 
                affect.add_collect(apply.ATTBONUS_HUMAN,20,60*60*24*365*60) 
                affect.add_collect(apply.MAX_HP,3000,60*60*24*365*60) 
                say("Du hast soeben 3 Leute getoetet") 
                say("Dafuer kriegst du 10% Halbmenschen") 
                say("Und 3000 TP") 
            elseif pc.getqf("kill_punkte") == 4 then 
                affect.add_collect(apply.ATTBONUS_HUMAN,20,60*60*24*365*60) 
                affect.add_collect(apply.MAX_HP,3000,60*60*24*365*60) 
                say("Du hast soeben 3 Leute getoetet") 
                say("Dafuer kriegst du 20% Halbmenschen") 
                say("Und 3000 TP") 
                set_state(player_kill_end) 
            end 
        end 
    end
    state player_kill_end begin
    end
end 
Mfg,
ProfessorEnte
06/16/2013 21:07 terron#8309
PHP Code:
quest arena_manager begin
    state start begin
        when 20017.chat." Боевая подготовка " begin
            if game.get_event_flag("arena_close") > 0 then
                say_title(" Ю - Хван: ")
                say(" Боевая подготовка сейчас отключена. ")
                return
            end
            if not npc.lock() then
                say_title(" Ю - Хван: ")
                say("")
                say(" Боевая подготовка проходит на данный момент. ")
                return
            end
            local useMinLevel = game.get_event_flag("arena_use_min_level")
            if useMinLevel == 0 then
                useMinLevel = 50 ;
            end
            if pc.get_level() < useMinLevel then
                say_title(" Ю - Хван: ")
                say(" Вы не достигли нужного уровня - "..useMinLevel.." ")
                say(" вы не можете принять участие в боевой подготовке. ")
                npc.unlock()
                return
            else
                say_title(" Ю - Хван: ")
                say(" Пожалуйста, введите имя игрока с которым вы бы хотели ")
                say(" провести боевую подготовку. ")
                local sname = input()
                if sname == "" then
                    say_title(" Ю - Хван: ")
                    say(" Вы не знаете, с кем хотите сражаться? ")
                    npc.unlock()
                    return
                else
                    say_title(" Ю - Хван: ")
                    say(pc.name.." зарегистрирован для участия в бою. ")
                    say(sname.." ")
                    wait()
                    local opp_vid = find_pc_by_name(sname)
                    if opp_vid == 0 then
                        say_title(" Ю - Хван: ")
                        say(sname.." сейчас недоступен. ")
                        npc.unlock()
                        return
                    elseif opp_vid == pc.get_vid() then
                        say_title(" Ю - Хван: ")
                        say(" Вы уверенны, что хотите сражатся с самим собой? :D ")
                        npc.unlock()
                        return
                    end
                local old = pc.select(opp_vid)
                local opp_level = pc.get_level()
                pc.select(old)
                    if opp_level < useMinLevel then
                        say_title(" Ю - Хван: ")
                        say(" Уровень вашего оппонетна меньше требуемого - "..useMinLevel.." ")
                        npc.unlock()
                        return
                    end
                    if not npc.is_near_vid(opp_vid, 10) then
                        say_title(" Ю - Хван: ")
                        say(" Для успешной организации боя ")
                        say(sname.." должен подойти ближе ко мне. ")
                        npc.unlock()
                        return 
                    end
                local a = arena.is_in_arena(opp_vid)
                    if a == 0 then
                        say_title(" Ю - Хван: ")
                        say("")
                        say(sname.."  уже на тренировочном бою. ")
                        npc.unlock()
                        return 
                    end
                say_title(" Определение ")
                say("")
                say(pc.name.." Ожидается принятие игрока: ")
                say(""..sname.." ")
                local agree = confirm(opp_vid, sname.." вы готовы принять бой от "..pc.name.."? ", 30)
                    if agree!= CONFIRM_OK then
                        say_title(" Ю - Хван: ")
                        say("")
                        say(sname.." отказался от битвы с тобой. ")
                        npc.unlock()
                        return
                    end
                s = arena.start_duel(sname, 3)
                    if s == 0 then
                        say_title(" Ю - Хван: ")
                        say("")
                        say(" Существует проблема... ")
                        say(" Возможно, вы бы хотели зарегистрироватся позже?... ")
                        say("")
                    elseif s == 2 then
                        say_title(" Ю - Хван: ")
                        say("")
                        say(" Другая группа уже сражается, подождите пока они закончат. ")
                        say("")
                    elseif s == 3 then
                        say_title(" Ю - Хван: ")
                        say("")
                        say(" Другая группа уже сражается, подождите пока они закончат. ")
                        say("")
                    end
                end
            end
            npc.unlock()
        end

                when 20017.chat." Смотреть битву " begin
                        local g = arena.get_duel_list()
                        local arena_name = {}
                        local arena_observer = {}

                        table.foreachi(g,
                                function(n, p)
                                        arena_name[n] = p[1].." против "..p[2]
                                        arena_observer[n] = { p[3], p[4], p[5] }
                                end
                        )

                        table.insert(arena_name, " Закрыть ")
                        table.insert(arena_observer, 0)

                        local count = table.getn(g)
                        if count == 0 then
                        say_title(" Ю - Хван: ")
                        say("")
                        say(" Сейчас нет активных битв. ")
                        say("")
                        return 
                        else
                        say_title(" Ю - Хван: ")
                        say("")
                        say(" Сейчас проходит "..count.." битв. ")
                        say("")
                        wait()
                        end

                        if table.getn(g)!= 0 then
                                local s = select_table(arena_name)

                                if table.getn(arena_observer) == s then
                                        return 
                                end

                                if table.getn(arena_observer) >= s then
                                        arena.add_observer(arena_observer[s][1], arena_observer[s][2], arena_observer[s][3])
                                end
                        end
                end
        end
end 
EN: When players enter the arena, then kick them out. What is the problem?

DE (google translate): Wenn die Spieler die Arena betreten, dann wirft sie aus. Was ist das Problem?
06/16/2013 23:12 eimer92#8310
Hallo, ich habe ein problem undzwar ich komme nicht in die sd3 bosskammer wurde geportet und hatte kick aber die kammer gibt es war schon so mal drin, und nun steht die ganze zeit da "der raum ist noch nicht frei" hier die quest

PHP Code:
quest sd3_bruthoehle begin
    state start begin
        when 20361.chat."In die Bruthöhle" with pc.get_level() > 49 begin
            say_title(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
            if game.get_event_flag("sd3_frei") == 1 then
                say("Die Bruthöhle ist zur Zeit besetzt.")
                return
            end
            if not party.is_party() then
                say("Du kannst nur in einer Gruppe die")
                say("Bruthöhle betreten.")
                return
            end
            if not party.is_leader() then
                say("Nur der Gruppenleiter kann das")
                say("Portal zur Bruthöhle öffnen.")
                return
            end
            say("Möchtet ihr die Bruthöhle betreten?")
            if select("Ja","Nein") == 2 then return end
            d.join(191)
            game.set_event_flag("sd3_frei",1)
            server_timer("exit",60*20)
        end
        when login with pc.get_map_index() == 191 and party.is_party() begin
            d.set_regen_file("data/dungeon/sd3/eier.txt")
            d.regen_file("data/dungeon/sd3/boss.txt")
            d.notice("Ihr habt 20 Minuten Zeit, um den Spinnenbaron zu töten.")
        end
        when exit.server_timer begin
            d.exit_all()
            server_timer("sd3_set_free",60*60)
        end
        when 2094.kill with party.is_party() and pc.get_level() > 49 begin
            local count = tonumber(party.get_near_count()-1)
            notice_all(string.format("%s und %d weitere Mitglieder haben den Spinnenbaron besiegt!", pc.get_name(), count))
            server_timer("sd3_set_free", 60*60)
            server_timer("exit",60*5)
            d.notice("In 5 Minuten werdet ihr hinausteleportiert")
        end
        when sd3_set_free.server_timer begin
            game.set_event_flag("sd3_frei",0)
        end
    end
end 
Page 554 of 845 « First 54454504544552553 554 555556564604654 Last »