[SERVICE] Die Questkontrolle

10/13/2012 23:15 Giulio999#6991
Quote:
Originally Posted by Sippe! View Post
1. Quest


2. Quest

geht immernoch nicht, bei der NPC!
Und wäre nice wenn du es mit PHP Code Posten könntest. Danke :D
10/13/2012 23:49 He3o Sippel#6992
Quote:
Originally Posted by Giulio999 View Post
geht immernoch nicht, bei der NPC!
Und wäre nice wenn du es mit PHP Code Posten könntest. Danke :D
So sollte jetzt klappen

PHP Code:
quest InfoNPC begin
    state start begin
        when 20090.chat
."Info NPC" begin
            local menu 
select("Duellarena""Handelsplatz""Chillplatz""Story""Teleporter""ServerInfos"Abbrechen)
            if 
menu == 1 then
                say_title
("Duellarena Infos")
                
say("Die Duellarena findest du")
                
say("wenn durch das Tor dort Vorne")
                
say("links gehst!")
            elseif 
menu == 2 then
                say_title
("Handelsplatz")
                
say("Der Handelsplatz befindet sich")
                
say("hier rechts.")
                
say("Dort kannst du mit einem Bündel,")
                
say("das du in Quest 4 der Story bekommst,")
                
say"(einen Laden eröffnen!"
            elseif 
menu == 3 then  
                say_title
("Chillplatz")
                
say("Den Chillplatz findest du, wenn")
                
say("du diesen Gang entlang gehst, und")
                
say("durch das Tor auf der linkes Seite gehst!")
                
say("Anschließen musst du nach rechts abbiegen!")
                
say("Bei den Wasserfällen ist der Chillplatz!")
            elseif 
menu == 4 then 
                say_title
("Story")
                
say("Wenn du mit der Story anfangen")
                
say("willst, sprich mit Asur!")
                
say("Du findest ihn am Ende dieses")
                
say("Ganges!")
            elseif 
menu == 5 then
                say_title
("Teleporter")
                
say("Der Teleporter ist am Ende dieses")
                
say("Ganges.")
                
say("Sein Name ist Herr der Dimensionen!")
                
say("Er teleportiert dich überall hin!")
            elseif 
menu == 6 then
                say_title
("Server Informationen")
                
say("Um Informationen zum Server zu bekommen")
                
say("musst du das "Server Informationen" Item")
                
say("in deinem Inventar benutzen!")
                
say("(Rechtsklick)")
                
say("Dort findest du Infos zu Bonis, ")
                
say("Maps, Rates, Uppsystem, etc.")
            elseif 
menu == 7 then
                
return
            
end
        end
    end 
end 
10/13/2012 23:50 yessiя#6993
Energiesystem...
Quote:
quest energy_sys begin
state start begin
when 20001.chat."Eine neue Technik" with (game.get_event_flag("energy") == 1 or pc.is_gm() == true) begin
say_title("Alchemist")
say("Ich habe es geschafft!")
say("Endlich konnte ich eine vollkommen neue Technik")
say("entwickeln.")
say("Ich habe es möglich gemacht, Gegenstände")
say("weiterzuverarbeiten und pure Energie aus ihnen zu")
say("ziehen. Absolut brillant!")
wait()
say_title("Alchemist")
say("Zerstört man einen Gegenstand mithilfe meiner")
say("Technik, erhält man Energiesplitter. Fügt man 30")
say("dieser Splitter zusammen, erhält man einen")
say("machtvollen Energiekristall! Reine, ungefilterte")
say("Energie, gebündelt in einem Edelstein. Diese")
say("Kraft fließt in deine gesamte Ausrüstung.")
say("Hast du Interesse daran?")
wait()
say_title("Alchemist")
say("Bring Ausrüstungsgegenstände wie Waffen, Schmuck")
say("und Kleidung, die du auf deiner")
say("Jagt findest, zu mir. Ich werde sie zu")
say("Energiesplittern verarbeiten.")
say("Zukunft und Hoffnung unseres Reiches liegen in")
say("dieser Technik. Wir werden unbesiegbar!")
set_state("make")
end
end
state make begin
when 20001.chat."Energiesplitter extrahieren" with (game.get_event_flag("energy") == 1 or pc.is_gm() == true) begin
say_title("Alchemist")
say("Hat es funktioniert? Hast du Energiesplitter")
say("bekommen?")
say("Bring mir mehr Gegenstände und ich werde ")
say("sie mithilfe der Alchemie zerbrechen.")
say("Meine Technik ist noch nicht ganz ausgefeilt.")
say("Deswegen kann ich dir nicht garantieren, wie")
say("viele Splitter du erhälst.")
wait()
say_title("Alchemist")
say("Es gibt eine Bedingung: Sowohl dein eigener als")
say("auch der Level des Gegenstandes muss")
say("mindestens 35 sein.")
say("Hm, schauen wir einfach mal...")
wait()
if pc.get_level() < 35 then
say_title("Alchemist")
say("Du bist noch nicht stark genug! Komm wieder,")
say("wenn du mindestens Level 35 erreicht hast.")
else -- NICHT DE
say_title("Alchemist")
say("Ok du bist Stark genug für meine neue")
say("Entdeckung.")
end

end

when 20001.chat."Energiekristall herstellen" with (game.get_event_flag("energy") == 1 or pc.is_gm() == true) begin
say_title("Alchemist")
say("Hast du deine Kraftreserven etwa schon")
say("aufgebraucht? Du solltest nicht so hart arbeiten")
say("und dein Leben leichtsinnig aufs Spiel setzen.")
say("Um einen Energiekristall herzustellen, benötige")
say("ich 30 Energiesplitter.")
wait()
if pc.get_level() < 35 then
say_title("Alchemist")
say("Du bist noch nicht stark genug! Komm wieder,")
say("wenn du mindestens Level 35 erreicht hast.")
else
if pc.count_item(51001) >= 30 then
say_title("Alchemist")
say("Sehr schön du hast alle benötigten 30")
say("Energiesplitter. Daraus kann ich einen")
say("Energiekristall herstellen.")
say("Warte bitte einen Moment. Ich werde es")
say("versuchen, aber ich kann nicht garantieren,")
say("dass es funktioniert.")
wait()
say_title("Alchemist")
say("Alles ist bereit, um die Splitter zu einem")
say("Energiekristall zu verschmelzen.")
say("Doch von irgendwas muss ich leben und")
say("meine Werkzeuge fallen nicht einfach so vom")
say("Himmel. Ich verlange einen kleinen")
say("Unkostenbeitrag von 1000 Yang. Bist du bereit, zu")
say("bezahlen?")
if select("Selbstverständlich!","Nein, jetzt nicht") == 2 then
return
end

pc.change_money(-1000)
pc.remove_item(51001,30)

if number(0,1) == 1 then
say_title("Alchemist")
say("Ich wusste meine Technik ist brilliant!")
say("Hier ist dein Energiekristall.")
say("Ein Prachtexemplar! Spürst du die Kraft?")
pc.give_item2(51002,1)
else -- NICHT DE
say_title("Alchemist")
say("Leider hat es nicht geklappt")
say("einen Energiekristall herzustellen!")
return
end

else -- NICHT DE
say_title("Alchemist")
say("Du hast leider nicht alle benötigten 30")
say("Energiesplitter. Daraus kann ich nichts")
say("herstellen.")
return
end

end
end

when 20001.take with (game.get_event_flag("energy") == 1 or pc.is_gm() == true) begin
if pc.get_level() < 35 then
say_title("Alchemist")
say("Du bist noch nicht stark genug, um die Kraft, die")
say("den Energiesplittern innewohnt, zu beherrschen.")
say("Komm wieder wenn du mindestens Level 35")
say("erreicht hast.")
return
end

if item.get_type() == 1 or item.get_type() == 2 then

-- 2070 - 2239
-- 80 - 369
-- 1040 - 1189
-- 3070 - 3249
-- 5040 - 5359
-- 4030 - 4069
-- 7070 - 7219
-- 11250 - 11299
-- 11450 - 11499
-- 11650 - 11699
-- 11850 - 11899
-- 12240 - 12699

local maxlvl = mysql_query("SELECT limitvalue0 FROM player.item_proto WHERE vnum='"..item.get_vnum().."' LIMIT 1;")
-- test_chat(maxlvl[1][1])
if tonumber(maxlvl[1][1]) < 35 then
-- NICHT DE
say_title("Alchemist")
say("Dieses Item ist nicht geeignet!")
return
end

say_title("Alchemist")
say(string.trim(item.get_name()))
say("Soll ich diesen Gegenstand zerstören?")
if select("Ja!","Nein, noch nicht!") == 2 then
return
else
local anzahl = number(0,15)
if anzahl > 0 then
say_title("Alchemist")
say("Sagenhaft! Ich konnte "..anzahl.." Energiesplitter finden.")
say("Bitte sehr.")
pc.give_item2(51001, anzahl)
else
say_title("Alchemist")
say("Ich habe versagt - leider konnte ich keinen")
say("Energiesplitter extrahieren. Vielleicht klappt es")
say("beim nächsten Versuch.")
return
end
item.remove()
end

else -- NICHT DE
say_title("Alchemist")
say("Dieses Item ist nicht geeignet!")
end
end

when login begin
if getenergytime() < 50000 then
-- test_chat("[Energy]Restzeit: "..getenergytime())
setenergytime(getenergytime() + get_time())
cmdchat("energysystem "..getenergytyp().."|"..getenergyvalue().."#"..get energytime())
end
end
when logout begin
if getenergytime() > get_time() then
local energy = getenergytime() - get_time()
if energy > 0 then
setenergytime(energy)
end
end
end

when 51002.use begin
if getenergytime() > get_time() then
chat("Du benutzst schon die Energie eines Energiekristalls!")
return
end

local anz = number(1,10)
boni_list = {}
boni_list [1] = {apply.ATTBONUS_HUMAN, 15}
boni_list [2] = {apply.ATTBONUS_MONSTER, 10}
boni_list [3] = {apply.CRITICAL_PCT, 10}
boni_list [4] = {apply.PENETRATE_PCT, 10}
boni_list [5] = {apply.MAX_HP, 1000}
boni_list [6] = {apply.MAX_SP, 2000}
boni_list [7] = {apply.HP_REGEN, 30}
boni_list [8] = {apply.STEAL_HP, 10}
boni_list [9] = {apply.ATT_GRADE_BONUS, 75}
boni_list [10] = {apply.ATT_GRADE_BONUS, 50}

-- test_chat(anz)
-- test_chat(boni_list[anz][1])
-- test_chat(boni_list[anz][2])

affect.add_collect(boni_list[anz][1],boni_list[anz][2],7200)
setenergy(anz,boni_list[anz][2],get_time() + 7200)

cmdchat("energysystem "..anz.."|"..boni_list[anz][2].."#"..(get_time() + 7200))

item.remove()
chat("Du spürst die Energie des Kristalls, die sich auf deinen Körper überträgt..")

end
end
end
10/14/2012 12:22 lfcmaus#6994
Hallo ich hab irgendwo nen fehler dirnne seh ihn aber leider nicht
könnte bitte einer drüber schauen wo er liegt und mir dann ne pn schicken oder in skype adden?


PHP Code:
quest day_n_night begin
    state start begin
        when 20355.chat
."Energieflüsse..." with pc.is_gm() begin
            say_title
(""..mob_name(20355)..".:")
            
say("")
            
say("Sei gegrüßt "..pc.get_name()..",")
            
say("bei mir erfährst du als GameMaster")
            
say("welche Einflüsse momentan auf das Leben")
            
say("unsere Siegeltiere herschen.")
            
say("")
            if 
game.get_event_flag("nacht"1then
                say_reward
("Die Energien der Metinsteine sind stark!")
            else
                
say_green("Die Energien der Metinsteine sind schwach!")
                
say("")
                
say("Möchtest du die Energieflüsse ändern?")
                
say("")
            
end
            local auswahl 
select ("Nein, lass das mal so","Ja, was ändern")

            if 
auswahl == 1 then
                chat
("Es wurden keine Änderungen am Energiefluss vorgenommen")
            elseif 
auswahl == 2 then
                say_title
(""..mob_name(20355)..".:")
                
say("")
                
say("Da dies nur hoch Rangigen Teammitgliedern")
                
say("erlaubt ist, benötige zur Sicherheit noch")
                
say("deine Unterschrift.")
                
say("")
                
say_reward("Unterschrift.:")
                
local answer input()

                if 
answer == "~Pheeno~" then
                    say_title
(""..mob_name(20355)..".:")
                    
say("")
                    
say("Okay "..pc.get_name()..",")
                    
say("Möchtest du wirklich Änderungen")
                    
say("vornehmen?Nagut dann lass uns die")
                    
say("Energieflüsse mal ändern!")
                    
say("")
                    
local energie select ("Ändern""Abbrechen")

                    if 
energie == 1 then
                        clear_server_timer
('nacht_timer'get_server_timer_arg())
                        
clear_server_timer('tag_timer'get_server_timer_arg())
                        
game.set_event_flag("nacht"0)
                        
say_title(""..mob_name(20355)..".:")
                        
say("")
                        
say("Bedenke das die Änderungen eine")
                        
say("bestimmte zeit benötigen!Wie schnell")
                        
say("sollen die Änderungen eintreten?")
                        
say("")
                        
zeit tonumber(input())
                        
real_time zeit*60

                        
if zeit 720 then
                            say_title
(""..mob_name(20355)..".:")
                            
say("")
                            
say("Der Zeitraum bis zur Wirkung ist zu groß!")
                            
say("")
                            
say_reward("Maximale Zeiteingabe beträgt 720min.")
                            
say("")
                            return
                        else
                            
say_title(""..mob_name(20355)..".:")
                            
say("")
                            
say("Okay die Eingaben wurden gespeichert.")
                            
say("Sag mir bitte noch,sollen sich die")
                            
say("Energieflüsse verstärken od. verschwächen?")
                            
say("")
                            
local a select ("Verstärken""Schwächen")

                            if 
== 1 then
                                say_title
(""..mob_name(20355)..".:")
                                
say("")
                                
say("Alle Eingaben wurden gespeichert!")
                                
say("Viel Spaß noch...")
                                
say("")
                                
server_timer('nacht_timer'real_timeget_server_timer_arg())
                                
notice_all("Starke Energieflüsse wurden vernommen Sie werden in "..zeit.." Minute(n) eintreten")
                                
chat("Energieflüsse werden in "..zeit.." Minuten verstärkt")
                            elseif 
== 2 then
                                say_title
(""..mob_name(20355)..".:")
                                
say("")
                                
say("Alle Eingaben wurden gespeichert!")
                                
say("Viel Spaß noch...")
                                
say("")
                                
server_timer('tag_timer'real_timeget_server_timer_arg())
                                
notice_all("Starke Energieflüsse wurden vernommen Sie werden in "..zeit.." Minute(n) eintreten")
                                
chat("Energieflüsse werden in "..zeit.." Minuten geschwächt")
                            
end
                        end
                    
elseif energie == 2 then
                        chat
("Es wurden keine Änderungen am Energiefluss vorgenommen")
                    
end
                
else
                    
say_title(""..mob_name(20355)..".:")
                    
say("")
                    
say("Entschuldige bitte, aber mit dieser")
                    
say("Unterschrift bist du nicht berechtigt")
                    
say("irgendwelche Energieflussänderungen")
                    
say("vorzunehmen.")
                    
say("")
                    return
                
end
            end
        end
        when nacht_timer
.server_timer begin
            clear_server_timer
('nacht_timer'get_server_timer_arg())
            
server_timer('tag_timer'60*60*12get_server_timer_arg())
            
game.set_event_flag("nacht"1)
            
notice_all("Extrem negative Energieflüsse treffen die Welt von Alleria")
        
end
        when tag_timer
.server_timer begin
            clear_server_timer
('tag_timer'get_server_timer_arg())
            
server_timer('nacht_timer'60*60*12get_server_timer_arg())
            
game.set_event_flag("nacht"0)
            
notice_all("Die negativen Energieflüsse in Alleria entspannen sich wieder")
        
end
    end
end 
10/14/2012 14:17 N!1CE#6995
Hey hab n kleines problem mit meiner quest ;) kann sie nicht ausführen
Fehler:

syntax error : [string "startpc . in_dungeon ( )"]:2: <name> expected near `('
test.quest:168:Error occured on compile test.quest

PHP Code:
quest test begin
    state start begin
        when 30175.chat
."Run betreten" begin
            say_title
("Wächter des Roten Welt")
            
say("Ihr müsst ganz schön mutig sein")
            
say("hierher zu kommen.")
            
say("")
            
say_title("Ihr seid stark genug??")
            
say("")
            
say("Wollt ihr das die welt des dunkelns betreten?.")
            
say("")

        
local s select("Aber klar!""Nein, lieber nicht.")

                if 
== 1 then
                
                    pc
.warp(18623132311)
                        
d.regen_file("data/dungeon/run/regen.txt")
                        
d.notice("Ungebetener Besuch!!")
                        
d.notice("Verschwindet aus meiner Welt!")
                        
d.notice("Wehe ihr berührt eines meiner Kinder!")
                if 
== 2 then
                    
return
                
end
            end
        end
        
        when 11507.kill begin   
            timer
("jump"5)
        
end
        
        when jump
.timer begin
            d
.new_jump_all(18624912326)  
            
d.regen_file("data/dungeon/run/regen1.txt")  
        
end 
        
    
        when 20181.kill with pc
.in_dungeon() begin
            local cont 
d.getf("30_plagenträger") + 1
            d
.setf("30_plagenträger"cont)

            if 
cont >= 30 then
                d
.setf("30_plagenträger"0)
                
d.notice(" Die 30 Giftblumen wurden besiegt... ")
                
d.notice(" Ohhh!! Es sind Riesige Plagenträger aufgetaucht!!!")
                
d.notice(" Tötet sie! Sie lieben es sich zu vermähren!")
                
timer("next99",10)
            
end
        end
        
        when next99
.timer begin
            d
.purge()
            
d.new_jump_all(18626232311
            
d.regen_file("data/dungeon/run/regen2.txt")
        
end        
        
        when 993.kill with pc
.in_dungeon() begin
            local cont 
d.getf("30_plagenträger") + 1
            d
.setf("30_plagenträger"cont)

            if 
cont >= 30 then
                d
.setf("30_plagenträger"0)
                
d.notice(" Die 30 Plagenträger wurden besiegt... ")
                
d.notice(" In 30 Sec geht´s weiter... ")
                
d.notice(" Zerstöre dann 6 Metins... ")
                
timer("next3",30)
            
end
        end

        when next3
.timer begin
            d
.purge()
            
d.new_jump_all(18626232473
            
d.regen_file("data/dungeon/run/regen3.txt")
        
end

        when 8022.kill with pc
.in_dungeon() begin
            local cont 
d.getf("5_steine") + 1
            d
.setf("5_steine"cont)

            if 
cont >= 5 then
                d
.setf("5_steine"0)
                
d.notice(" Die 5 Metins hier sind Zerstört ")
                
d.notice(" Auf der nächsten Ebene jedoch")
                
d.notice(" erwarten dich 15 weitere Metins ")
                
d.notice(" In 30 Sec geht´s weiter")
                
timer("next4",30)
            
end
        end

        when next4
.timer begin
            d
.purge()
            
d.new_jump_all(18626232473
            
d.regen_file("data/dungeon/run/regen4.txt")
        
end
        
        when 8021.kill with pc
.in_dungeon() begin
            local cont 
d.getf("15_metins") + 1
            d
.setf("15_metins"cont)

            if 
cont >= 15 then
                d
.setf("15_metins"0)
                
d.notice(" Die 15 Metins hier sind Zerstört ")
                
d.notice(" Auf der nächsten Ebene erwarten euch")
                
d.notice(" 3 weitere Metins ")
                
d.notice(" In 30 Sec geht´s weiter")
                
timer("next5",30)
            
end
        end

        when next5
.timer begin
            d
.purge()
            
d.new_jump_all(18626232473)
            
d.regen_file("data/dungeon/run/regen5.txt")
        
end
        
        when 8020.kill with pc
.in_dungeon() begin
            local cont 
d.getf("2_metin") + 1
            d
.setf("2_metin"cont)

            if 
cont >= 3 then
                d
.setf("2_metin"0)
                
d.notice(" Die 3 Metins hier sind Zerstört ")
                
d.notice(" Auf der nächsten Ebene erwarten euch noch ein paar")
                
d.notice(" verfl. Geisterbäume... tötet 20 Stk. davon !!! ")
                
d.notice(" In 30 Sec geht´s weiter")
                
timer("next6",30)
            
end
        end
        
        when next6
.timer begin
            d
.purge()
            
d.new_jump_all(18626062620
            
d.regen_file("data/dungeon/run/regen6.txt")
        
end
            
        when 7552.kill with pc
.in_dungeon() begin
            local cont 
d.getf("3_metins") + 1
            d
.setf("3_metins"cont)

            if 
cont >= 20 then
                d
.setf("3_metins"0)
                
d.new_jump_all(18624802608)
                
d.spawn_mob(5004420123)
                
d.spawn_mob(5004420123)
                
d.spawn_mob(5004420123)
                
d.spawn_mob(5004420123)
                
d.spawn_mob(5004420123)
                
d.spawn_mob(5004420123)
                
d.spawn_mob(5004420123)
                
d.spawn_mob(5004420123)
                
d.spawn_mob(5004420123)
                
d.spawn_mob(5004420123)
                
d.spawn_mob(5004420123)
            
end
        end
        

        when 5004.kill with pc
.in_dungeon() begin
            local cont 
d.getf("pirat") +1
            d
.setf.("pirat"cont)
            
            if 
cont >= 11 then
                d
.notice(" Du hast die ersten Gefangenen ermordet! "
                
d.spawn_mob(6541412119)
                
d.notice(" Es gibt noch viele andere Gefangenen also beeil dich!")
                
d.new_jump_all(18626342341)
            
end
        end

        
        when 6541.kill with pc
.in_dungeon() begin
                d
.notice("Du hast den 2. Gefangenen getötet!"
                
d.spawn_mob(1309378396)
                
d.notice(" Es gibt noch viele andere Gefangenen also beeil dich!")
                
d.new_jump_all(18626002618)
            
end
        
        
        when 1309.kill with pc
.in_dungeon() begin
                d
.notice(" Du hast den 3. Gefangenen getötet! "
                
d.spawn_mob(1095258386)
                
d.notice(" Es gibt noch viele andere Gefangenen also beeil dich!")
                
d.new_jump_all(18624802608)
            
end
        
        
        when 1095.kill with pc
.in_dungeon() begin
                d
.notice("Du hast den 4. Gefangenen getötet! "
                
d.spawn_mob(8033109406)
                
d.spawn_mob(803396421)
                
d.spawn_mob(803383413)
                
d.spawn_mob(8033100387)
                
d.notice(" Es gibt noch viele andere Gefangenen also beeil dich!")
                
d.new_jump_all(18623312628)
            
end
        
        
        when 8033.kill with pc
.in_dungeon() begin
            local cont 
d.getf("mob15") +1
            d
.setf.("mob15"0)
            
            if 
cont >= 4 then
                d
.notice(" Du hast die Steine getötet die der Drache beschworen hat! "
                
d.notice(" Wenn du es nicht rechtzeitig schaft ist der drache weg!")
                
d.spawn_mob(2207110255)
                
d.new_jump_all(18623322477)
            
end
        end
        
        when 2207.kill with pc
.in_dungeon() begin
                d
.notice(" Du hast den 5. Gefangenen getötet! "
                
d.notice(" Wenn du es nicht rechtzeitig schaft ist der drache weg!")
                
d.spawn_mob(8029198195)
                
d.new_jump_all(18624202417)
            
end
        
        
        when 8029.kill with pc
.in_dungeon() begin
                d
.notice(" Du hast schon wieder den Metin getötet? "
                
d.notice(" Der Wächter ist nun sehr sauer das du seine Welt so verändert hast!")
                
d.spawn_mob(1903309187)
                
d.new_jump_all(18625312409)
            
end
        
        when 1903.kill with pc
.in_dungeon() begin
                d
.notice(""
                
d.notice("")
                
d.spawn_mob(7568309187)
                
            
end
        
        when 7568.kill with pc
.in_dungeon() begin
            local cont 
d.getf("mob_15") +1
            d
.setf.("mob_15"0)
            
            if 
cont >= 1 then
                d
.notice(" Du hast schon wieder den Metin getötet? "
                
d.notice(" Der Wächter ist nun sehr sauer das du seine welt so verändert hast!")
                
d.spawn_mob(2507309187)
                
            
end
        end
        
        when 2507.kill with pc
.in_dungeon() begin
            local cont 
d.getf("mob_16") +1
            d
.setf.("mob_16"0)
            
            if 
cont >= 1 then
                d
.notice(" Du hast schon wieder den Metin getötet? "
                
d.notice(" Der Wächter ist nun sehr sauer das du seine welt so verändert hast!")
                
d.notice(" Achte immer im Run darauf das du min. 10 plätze im Inventar frei hast!")
                
                
d.spawn_mob(7571309187)
                
            
end
        end
        
        when 7571.kill with pc
.in_dungeon() begin
            local cont 
d.getf("mob_17") +1
            d
.setf.("mob_17"0)
            
            if 
cont >= 1 then
                d
.notice(" Du hast es geschaft, du hast dich gegenüber des Wächters bewissen! "
                
d.notice(" Du bekommst ein Item damit kannst du dich dan in die Fortsetzung des Runs Teleportieren!")
                
pc.give_item2(30999)
                
pc.give_item2(27992)
                
pc.give_item2(27992)
                
pc.give_item2(27993)
                
pc.give_item2(27993)
                
pc.give_item2(27994)
                
pc.give_item2(27994)
                
pc.give_item2(71120)
                
pc.give_item2(71120)
                
pc.give_item2(50512)
            
end
        end
        
    end
end 
Danke ;)

lg
10/14/2012 16:58 VKass1997#6996
Habe ein Problem mit der warpring.quest

Hab die Quest in Filezilla eingefügt, "warpring.quest" in der quest_list eingetragen.
Doch beim Befehl "m2 qc" kommt 'n Fehler:
[Only registered and activated users can see links. Click Here To Register...]

Hier noch die Quest :
PHP Code:
quest warpring begin
    state start begin
        when 70007.
use begin
            say_title
("Warpring"
            
say("Wohin möchtest du Teleportiert werden?")
        
local empire pc.get_empire() 
                    
local selectmap select("Map1","Map2","Orktal","Wüste","Eisland","Feuerland","Weiter","Abbrechen")
                    if 
selectmap == 8 then
                
return
                    elseif 
selectmap == 7 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
            
local selectmap2 select("Dämonenturm","Geisterwald","Roter Wald","Spinnendungeon","Grotte der Verbannung","Land der Riesen","Abbrechen")
                    if 
selectmap2 == 7 then
                        
return
                    elseif 
selectmap2 == 1 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
            
pc.warp(590500,110800)
                    elseif 
selectmap2 == 2 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
                    
local geisterselect select("Anfang","Ende","Abbrechen")
                    if 
geisterselect == 3 then
                        
return
                    elseif 
geisterselect == 1 then
            pc
.warp(290500,5700)
                    elseif 
geisterselect == 2 then
            pc
.warp(286400,44200)
            
end
                    
elseif selectmap2 == 3 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
                    
local roterselect select("Anfang","Ende","Abbrechen")
                    if 
roterselect == 3 then
                        
return
                    elseif 
roterselect == 1 then
            pc
.warp(1119900,70800)
                    elseif 
geisterselect == 2 then
            pc
.warp(1119100,7700)
            
end
                    
elseif selectmap2 == 4 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
            
pc.warp(91700525300)
                    elseif 
selectmap2 == 5 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
            
pc.warp(27600142700)
                    elseif 
selectmap2 == 6 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
            
pc.warp(819200716800)
            
end
                    
elseif selectmap == 1 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
                    
local map1select select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen")
                    if 
map1select == 4 then
                        
return
                    elseif 
map1select == 1 then
            pc
.warp(474300954800)
                    elseif 
map1select == 2 then
            pc
.warp(63800166400)
                    elseif 
map1select == 3 then
            pc
.warp(959900269200)
            
end
                    
elseif selectmap == 2 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
                    
local map2select select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen")
                    if 
map2select == 4 then
                        
return
                    elseif 
map2select == 1 then
            pc
.warp(353100882900)
                    elseif 
map2select == 2 then
            pc
.warp(145500240000)
                    elseif 
map2select == 3 then
            pc
.warp(863900246000)
            
end
                    
elseif selectmap == 3 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
                    
local otselect select("Anfang","Mitte","Abbrechen")
                    if 
otselect == 3 then
                        
return
                    elseif 
otselect == 1 then
            
if empire == 1 then
            pc
.warp(402100673900)
                    elseif 
empire == 2 then
            pc
.warp(270400739900)
                    elseif 
empire == 3 then
            pc
.warp(321300808000)
            
end
                    
elseif otselect == 2 then
            pc
.warp(332800745600)
            
end
                    
elseif selectmap == 4 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
                    
local wuesteselect select("Anfang","Mitte","Abbrechen")
                    if 
wuesteselect == 3 then
                        
return
                    elseif 
wuesteselect == 1 then
            
if empire == 1 then
            pc
.warp(217800627200)
                    elseif 
empire == 2 then
            pc
.warp(221900502700)
                    elseif 
empire == 3 then
            pc
.warp(344000502500)
            
end
                    
elseif wuesteselect == 2 then
            pc
.warp(296800547100)
            
end
                    
elseif selectmap == 5 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
                    
local eisselect select("Anfang","Mitte","Abbrechen")
                    if 
eisselect == 3 then
                        
return
                    elseif 
eisselect == 1 then
            
if empire == 1 then
            pc
.warp(434200290600)
                    elseif 
empire == 2 then
            pc
.warp(375200174900)
                    elseif 
empire == 3 then
            pc
.warp(491800173600)
            
end
                    
elseif eisselect == 2 then
            pc
.warp(436500215400)
            
end
                    
elseif selectmap == 6 then
                        say_title
("Warpring"
                        
say("Wohin möchtest du Teleportiert werden?")
                    
local feuerselect select("Anfang","Mitte","Abbrechen")
                    if 
feuerselect == 3 then
                        
return
                    elseif 
feuerselect == 1 then
            
if empire == 1 then
            pc
.warp(599400756300)
                    elseif 
empire == 2 then
            pc
.warp(597800622200)
                    elseif 
empire == 3 then
            pc
.warp(730700689800)
            
end
                    
elseif feuerselect == 2 then
            pc
.warp(600800687100)
            
end
                end
                    end
                        end
                            end 
Benutze die 1678 / Daroo Files.

Danke im Voraus ;)
10/15/2012 18:39 αωєsome#6997
Habe ein Problem mit der "Wer wird Milliadär" Quest ! Habe nun Fragen hinzugefügt aber er zeigt mir immer Fehler an !
PHP Code:
quest fragen begin 
    state start begin 
        when 20014.chat
."Wer wird Milliardär ?" begin 
            local i 

            local richtig 

            
if pc.getqf('verdienst') == 0 then pc.setqf('verdienst'1end 
            
if pc.get_money() >= 100000000 then say('Du hast zu viel Geld dabei!') return end 
            repeat 
                i 

                local fragen 
= { 
                -----------
frage---richtige-antwort---1-------2--------3----------4----- 
                    {
"Wo liegt Deutschland?"1"Europa""Asien""Afrika""Amerika"},
                    {
"Welchen Teamler gibt es wirklich?"2"Shina""Claude""Nextosa""Lollipop"},
                    {
"Welches Land ist nicht in der EU?"4"Estland""Italien""Zypern""Mazedonien"},
                    {
"Baumgartner ist wer?"1"Stratosphärenspringer""Mexicaner""Außerirdischer""Unbekannt"},
                    {
"Ohne Fleiß kein ....?"1"Preis""Metin2""Modern Warfare 3""S4 League"},
                    {
"Wer ist Muskulös und ist auf der Map 1"1"Schmied""NexT""Nexxx3""Crunk"}
                    {
"Wie viele Pferde, Pony's sind im Stall"4"2 Pferde 1 Pony""2 Pony's 1 Pferd""1 Pony 1 Pferd""2 Pferde 2 Pony's"},
                    {
"Wer nicht wagt der nicht ......?"3"verliert""versagt""gewinnt""siegt"},
                    {
"Aus wieviel % Wasser besteht der Mensch?"4"75%""85%""91%""90%"},
                    {
"Wolfgang Petry ist ......?"1"Liedmacher und Sänger""Sänger""Liedmacher""Schauspieler"},
                    {
"Dirk Bach verstarb am?"3"05. Oktober 2012""20. September""01. Oktober""03. Oktober"},
                    {
"Wieviel WM-Titel hat Michael Schumacher?"4"5 WM-Titel""8 WM-Titel""4 WM-Titel""7 WM-Titel"},
                    {
"Was trägt Ah-Yu am Rücken?"1"Baby""Gorilla""Kind""Affe"},
                    {
"Metin2 wurde am ........ eröffnet"3"12. Dezember 2006""05. Januar 2007""17. Dezember 2006""24. Dezember 2006"},
                    {
"Petri Heil ist ein .......?"1"Grußformel und Event""Grußformel""Fisch""Lebensmittel"},
                    {
"Jesus von Nazaret ist?"2"Eine Geschichte""Wahrheit""Lüge""Enttäuschung"},
                } 
                
local steigern = { 
                    {
5000},{10000},{20000},{30000},{500001},{100000},{200000}, 
                    {
400000},{800000},{1600001},{320000},{640000},{1250000}, 
                    {
5000000},{10000000}, 
                }     
                
local zufall fragen[number(1,table.getn(fragen))] 
                
say('Die '..i..'. Frage:[ENTER]'
                
say(zufall[1]) 
                
local s select(zufall[3],zufall[4],zufall[5],zufall[6]) 
                if 
~= zufall[2then 
                    richtig 
zufall[2
                    
say('Falsche Antwort[ENTER]')  
                    
say('Richtig wäre '..zufall[richtig]) 
                    
say('[ENTER]Du erhälst '..pc.getqf('zwischen_summe')..' Yang.'
                    
pc.change_money(pc.getqf('zwischen_summe')) 
                    
pc.setqf('zwischen_summe'0
                    return 
                
end 
                say
('Richtige Antwort.[ENTER]Du hast die '..steigern[i][1]..' Yang Frage absolviert!'
                if 
steigern[i][2] == 1 then say(steigern[i][1]..' Yang gesichert'pc.setqf('zwischen_summe'steigern[i][1]) end 
            until i 
>= 15 
            pc
.setqf('win'pc.getqf('win')+1
            
say('Du hast die 1 Milliarde geknackt!!!'
            
notice_all(pc.get_name()..' hat zum '..pc.getqf('win')..' mal die 1 Milliarde geknackt! Er/Sie ist ein Super-Brain.'
            
pc.change_money(100000000
        
end 
    end 
end 
10/15/2012 19:03 Sp0ngeb0b ist cool#6998
PHP Code:
{"Wer ist Muskulös und ist auf der Map 1"1"Schmied""NexT""Nexxx3""Crunk"
in
PHP Code:
{"Wer ist Muskulös und ist auf der Map 1"1"Schmied""NexT""Nexxx3""Crunk"}, 
ändern ;)

Ps: da müsste in den antwortmöglichkeiten 'sponge' stehen :p
10/15/2012 21:34 IceCreamx3#6999
kurze frage:

Code:
quest horse_getting begin
	state start begin
		when 20349.chat."Mein Millitärspferd" with horse.get_level()==11 and pc.get_level()>=1 begin
			say_title("Stallbursche")
			say("Hallo "..pc.get_name())
			say("Um ein Millitärspferd von mir zu bekommen")
			say("musst du mir etwas dafür geben.")
			say("Ich brauche 3.000.000 Yang von dir, um meine")
			say("Kunst an neuen Reittieren zu vollenden.")
			say_reward("Willst du den Tausch eingehen?")
			local s=select("Ja", "Nein")
			if s==2 then return	end
			say_title("Stallbursche")
			say("Danke, nett mir dir Geschäfte zu machen")						
			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
was muss ich dazu schreiben, um die 3 kk weg zu nehmen?

und:

problem mit der quest

fehler in vbox:

Code:
assertion failure : nested==0
information.quest:169:Error occured on compile information.quest
quest:
Code:
quest info begin 
    state start begin 
    when 20094.chat."Informationsschalter" begin 
            say_title("Informationsschalter") 
            say("") 
            say("Hallo:") 
            say("Da Natural 2 diverse neue Features") 
            say("zur Verfügung stellt, kennen") 
            say("sich viele Spieler hier nicht mehr aus.") 
            say("Genau deshalb bin ich hier.") 
            say("Ich erläutere dir div. Gegenstände näher") 
            say("und gebe dir sogar ein paar Tipps.") 
            say("Außerdem vergebe ich so manche Informationen") 
            say(", die du bestimmt noch nicht weißt.") 
            say("") 
            say_reward("Möchtest du dich über diesen Server Informieren?") 
            local s = select("Ja, gerne", "Nein, schon ok") 
             
            if s == 2 then 
            say_title("Informationsschalter") 
            say("Ok, denn nicht") 
            end 
             
            if s == 1 then 
            say_title("Informationsschalter") 
            say("") 
            say_reward("Wähle eine Frage:") 
            say("") 
            local s = select("Was bekomme ich aus den verzauberten Kisten?", "Was bekomme ich aus der Spezialtruhe", "Woher bekomme ich aus der Lehrtruhe?", "Was bekomme ich aus der Geiststeintruhe?", "Weiter") 
             
            if s == 1 then 
            say_title("Was bekomme ich aus den verzauberten Kisten?") 
            say("") 
            say("Aus der verzauberten Kiste kann man folgende") 
            say("Gegenstände bekommen:")
			say(" ")
			say("Gegenstand verstärken (5)") 
            say("Gegenstand verzaubern (5)")
			say("Segenskugel")
			say("")
            say("*Die Zahl in der Klammer steht für die Menge*")  
            end 
             
            if s == 2 then 
            say_title("Was bekomme ich aus der Spezialtruhe")
			say_tigle("Medaille des Glücks?")
            say("") 
            say("Aus der Spezialtruhe kann man folgende") 
            say("Gegenstände bekommen:")
			say(" ")
			say("Exp-Ring (30)") 
            say("Handschuhe des Diebes (30)") 
            say("Medaille des Glücks (30)")
			say("Drachengott Angriff (2)")
			say("Drachengott Verteidigung (2)")
			say("Drachengott Intelligenz (2)")
			say("Drachengott Leben (2)")
			say("Kritischer Kampf (2)")
			say("Durchbohrender Kampf (2)")
			say(" ")
			say("*Die Zahl in der Klammer steht für die Minuten*")
			say("*bzw. die Menge*")
            end 
             
            if s == 3 then 
            say_title("Woher bekomme ich aus der Lehrtruhe") 
            say("") 
            say("Aus der Lehrtruhe kann man folgende") 
            say("Gegenstände bekommen:") 
			say(" ")
            say("Exorzismus-Rollen (5)") 
            say("Konzentriertes Lesen (5)") 
            say("Zen-Bohnen (2)") 
            end 
             
            if s == 4 then 
            say_title("Was bekomme ich aus der Geiststeintruhe?") 
            say("") 
            say("Aus der Geiststeintruhe kann man folgende") 
            say("Geiststeine bekommen:") 
            say(" ") 
			say("alle Steine von +0 bis +4")
            end 
             
            if s == 5 then 
            say_title("Informationsschalter") 
            say("") 
            say_reward("Wähle eine Frage:") 
            say("") 
            local s = select("Woher bekomme ich Fb`s bzw. Seelensteine?", "Woher bekomme ich Perlen?", "Gibt es hier neue Maps?", "Gibt es hier neue Waffen/Rüstungen/Schmuck?", "Weiter") 
             
            if s == 1 then 
            say_title("Woher bekomme ich Fb`s bzw. Seelensteine?") 
            say("") 
            say("Fb`s sowie Seelensteine bekommst du von") 
            say("jedem Metinstein bzw. vom IS. Die Metinsteine droppen") 
            say("von 2 bis zu 5 Fb`s. Die schwächeren (") 
            say("Metinsteine droppen daher 2-3 und die")
			say("stärkeren 4-5. Außerdem kannst du auch")
			say("divere Geiststeine von allen Metins droppen")
            end 
             
            if s == 2 then 
            say_title("Woher bekomme ich Perlen?") 
            say("") 
            say("Perlen bekommst du aus Muscheln bzw. aus dem IS!") 
            say("Muscheln bekommst du als Alternativdropp von jedem") 
            say("Monster bzw. Metinstein.") 
            say("Die Chance, eine zu bekommen, ist jedoch") 
            say("nicht all zu hoch, aber auch nicht") 
            say("all zu niedrig") 
            end 
             
            if s == 3 then 
            say_title("Gibt es hier neue Maps?") 
            say("") 
            say("Neue Maps findest du hier nicht.") 
            say("Natural 2 beinhaltet das .de Feeling, sprich") 
            say("Farmen und Spielspaß werden hier großgeschrieben.") 
            end 
             
            if s == 4 then 
            say_title("Gibt es hier neue Waffen/Rüstungen/Schmuck?") 
            say("") 
            say("Neue Waffen, Rüstungen und Schmuck findest") 
            say("du hier nicht. Jedoch gibt es eine einzige") 
            say("Ausnahme. Es gibt die 50 King-Rüstung, die") 
            say("für jeden Charakter im IS erhältlich ist.") 
            end 
             
            if s == 5 then 
            say_title("Informationsschalter") 
            say("") 
            say_reward("Wähle eine Frage:") 
            say("") 
            local s = select("Wie hoch sind hier die Upprates?", "Gibt es hier genügend Metinsteine?", "Abbrechen")
             
            if s == 1 then
			say_title("Wie hoch sind hier die Upprates?")
			say("")
			say("Die Upprates betragen wie folgt:")
			say("")
			say("+7 --> 50 %")
			say("+8 --> 35 %")
			say("+9 --> 25 %")
			say("")
			say("Jedoch sind die Upprates für Gegenstände, mit")
			say("einer niedrigeren Levelbegrenzung, höher, als")
			say("für Gegenstände, mit einer höheren Levelbegrenzung")
			end
			
			if s == 2 then
			say_title("Gibt es hier genügend Metinsteine?")
			say("")
			say("Die Metinsteine wurden auf Natural 2")
			say("vervielfacht. D.h. man findet hier genügend")
			say("Metins. Außerdem gibt es hier auch neue")
			say("Metinsteine, die auf besonderen Orten")
			say("spawnen. Welche Orte das sind, musst du selbst")
			say("herausfinden. Sei ein Abenteurer!")
            end 
			
			if s == 3 then
			end 
			end
        end     
    end 
end 
end
10/17/2012 09:18 Mijago#7000
1: pc.change_money(-3000000)
2: Füg ans Ende mal ein weiteres End an, da fehlt auf jeden Fall eins. & Bitte nutze niemals gleiche variablennamen für überlappende locales. Man könnte auf die locales des Partentblocks zwar über die debug-Methoden zugreifen, doch ist der Code ziemlich unübersichtlich.
10/17/2012 14:21 vıo#7001
Bräuchte einmal hier Hilfe :D

Fehler der Maschine:

expecting "when" or "Function"
belohnungquest1.quest:52:ERROR occured on compile Belohung1.quest

Hier die Quest

Code:
quest Belohnung1 begin
   state start begin 
        when login or levelup with pc.get_level()>=10 begin 
            setstate(bl1) 
        end 
    end 
    state bl1 begin 
        when letter begin 
            send_letter("Die 1.Belohnung") 
            local v=find_npc_by_vnum(20355) 
            if 0!=v then 
                target.vid("target", v, "Hauptmann") 
            end 
        end 
		  when button or info begin
            say_title("Die 1. Belohnung")
            say("")
            say("Ich bin Ranjid der Belohnungs NPC")
            say("Ich hab Von Oberster Stelle erfahren,")
            say("das du hier Neu bist und Reich belohnt")
            say("werden sollst.")
            say("Komm doch einfach das nächste Mal bei mir vorbei")
			say("")
            say("Mit freundlichen Gruß")
			say("Dein Ranjid")
        end
		    when 20355.chat."Meine 1. Belohnung abholen" begin
            say_title("Die 1. Belohnung")
            say("")
            say("Halluhhh, schön dich kennen zulernen.")
            say("Erzähl mir etwas von dir")
            say("[DELAY value;500]. . . . . . . . .[/DELAY]")
			say("Jaja, das is schon echt hart so als Suchti")
			wait()
			say_title("Die 1. Belohnung")
			say("")
			say("Nun Gut,")
			say("Du musst jetzt gehen und weiter LvLn")
			say("Möglicherweise sehen wir uns, ja mal wieder")
			say("")
			say_reward("Du hast soeben 10 Vit erhalten")
			say_reward("Du hast soeben 10 Str erhalten")
			say_reward("Du hast soeben 10 Int erhalten")
			say_reward("Du hast soeben 10 Dex erhalten")
			say("")
			say("Man sieht sich:D")
			affect.add_collect(apply.INT,10,60*60*24*365*4)
			affect.add_collect(apply.STR,10,60*60*24*365*4)
			affect.add_collect(apply.VIT,10,60*60*24*365*4)
			affect.add_collect(apply.DEX,10,60*60*24*365*4)
            end 
            clear_letter() 
            target.delete("target") 
            setstate(complete) 
        end         
    end 
    state complete begin 
    end 
end
10/17/2012 17:40 plechito#7002
Hello,i have error on line 186.
Help me please

10/17/2012 20:08 arenor100#7003
[Only registered and activated users can see links. Click Here To Register...] Wichtig!
10/17/2012 21:04 loll444555#7004
Ich bekomms einfach ned hin -.-

PHP Code:
quest Reittier begin
        state start begin
                when 20349.chat
."Reittier 1" with pc.level>=10 begin                     
                          say_reward
("Willkommen,")
                          
say_reward("Was benötigst du,"..pc.get_name().."?")
                             
say("")
                                
local main_set select("Löwen Level 40","Tieger Level 10","Keiler Level 30","Wolf Level 20","Beenden")
                                    if 
main_set == 4 then
                                    say
("Bis später, vielleicht ein anderes mal")
                                    return
                                    if 
main_set == 1 then
                                            pc
.level>=10
                                                say_title
("Ersteller:")
                                                
say(""
                                                
say("Moechtest du ein Tiger kaufen?"
                                                
say("Das kostet dich 500.000 Yang"
                                                        
local s select("Ja""Nein"
                                                    if 
== 1 then
                                                    
if pc.money>=50000 then
                                                     pc
.give_item2(71118 
                                                    
pc.changemoney(-500000)
                                                else
                                                    
say("Du hast nicht genug Yang")
                                                return
                                            
end
                                        end
                                    
if == 2 then
                                                    
return
                                                
end
                                            end
                                         end
                                      end    
                                  end 
                                        
if main_set == 2 then
                                                pc
.level>=20
                                         
                                            say_title
("Stallbursche:"
                                            
say(""
                                            
say("Moechtest du ein Wolf kaufen?"
                                            
say("Das kostet dich 1.000.000 Yang"
                                            
                                        
local s select("Ja""Nein"
                                            if 
== 1 then
                                            
if pc.money>=1000000 then
                     
                                            pc
.give_item2(71116
                                            
pc.changemoney(-1000000)
                                        else
                                            
say("Du hast nicht genug Yang")
                                        return
                                    
end
                                end
                                        
if == 2 then
                                            
return
                                        
end
                                        
                            
if == 3 then
                            pc
.level>=30
                                        say_title
("Stallbursche:"
                                        
say(""
                                        
say("Moechtest du ein Keiler kaufen?"
                                        
say("Das kostet dich 10.000.000 Yang"
                                    
local s select("Ja""Nein"
                                    if 
== 1 then
                                        
if pc.money>=10000000 then
                     
                                        pc
.give_item2(71114
                                        
pc.changemoney(-10000000)
                                    else
                                        
say("Du hast nicht genug Yang")
                                    return
                                
end
                            end
                                    
if == 2 then
                                    
return
                                
end
                            
if == 3 then
                                    say_title
("Stallbursche:"
                                    
say(""
                                    
say("Moechtest du ein Löwe kaufen?"
                                    
say("Das kostet dich 100.000.000 Yang"
                                
local s select("Ja""Nein"
                                    if 
== 1 then
                                    
if pc.money>=100000000 then
                     
                                    pc
.give_item2(71120
                                    
pc.changemoney(-100000000)
                                else
                                    
say("Du hast nicht genug Yang")
                                return
                            
end
                        end
                                
if == 2 then
                                    
return
                                
end
                            end
                        end
                    end 
Frage kann ich die level begrenzung so setzen ???
10/18/2012 22:14 Screft 2-Support#7005
PHP Code:
quest Beweise deinen Mut  begin
    state start begin
        when login 
or levelup with pc.get_level() >=50  begin
            set_state
(information)
        
end    
    end

    state information begin
        when letter begin
            local v 
find_npc_by_vnum(20084)
            if 
!= 0 then
                target
.vid("__TARGET__"v"Quest")
            
end
            send_letter
("Beweise deinen Mut!")
        
end

        when button 
or info begin
            say_title
("Beweise deinen Mut!")
            
say("")
            
say("Der Biologe hat dich darum gebeten,")
            
say("der Plage der Metinsteine")
            
say("vorzubeugen!")
            
say("Zerstöre 8 Metin des Todes und")
            
say("erhalte deine unglaubliche ")
            
say("Belohnung!")
            
say("")
        
end

        when __TARGET__
.target.click or
            
20084.chat."Quest" begin
            target
.delete("__TARGET__")
            
say("Biologe:")
            ---                                                   
l
            say
("Hallo, tapferer Held.")
            
say("Die Metin-Steine bedrohen unser")
            
say("Land und all die wunderbaren")
            
say("Geschöpfe der Kathedrale")
            
say("des Lichts! Befolge die Mission")
            
say("auf dem Pergament!")
            
say("")    
            
set_state(go_to_disciple)
            
pc.setqf("collect_count",0)
            
pc.setqf("drink_drug",0
        
end
    end

    state go_to_disciple begin
        when letter begin
            send_letter
("Auftrag von Biologe")

        
end
        when button 
or info begin
            say_title
("Quest")
            ---                                                   
l
            say
("")
            
say("Der Biologe hat Euch darum gebeten")
            
say("8 Notizen zu sammeln!")
            
say("Das Item findet ihr beim Metin des Todes")
            
say("Viel Glück!")
            
say("")
            
say_item_vnum(30160)
            
say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
            
say("")
        
end

        when 71035.
use begin --°g´bÃĤô
            
if pc.getqf("drink_drug")==1 then
                say
("")
                
say("Bessere Droppchance!")
                
say("")

                return
            
end
            
if pc.count_item(30160)==0 then
                say
("")
                
say("Du hast keine!")
                
say("Lauf los und besorg mir welche!")
                
say("")
                return
            
end
            item
.remove()    
            
pc.setqf("drink_drug",1)
        
end


        when 8013.kill begin
            
if pc.count_item(30160)<8-pc.getqf("collect_count"then
                pc
.give_item2(301601)
            
end
        end

        when 20084.chat
."Quest" with pc.count_item(30160) >0   begin
                say
("Einen Moment!")
                ---                                                   
l
                say
("Ich werde die Notiz nun lesen")
                
say("und überprüfen!")
                
say("Hoffentlich ist sie gut erhalten!")
                
say("")
                
pc.remove_item(301601)
                
wait()

                
local pass_percent
                
if pc.getqf("drink_drug")==0 then
                    pass_percent
=50512
                
else        
                    
pass_percent=50512
                end

                local s
number(1,100)
            if 
s<= pass_percent  then
               
if pc.getqf("collect_count")< 7 then     --5*Ó¥H¤U 
                        local index 
=pc.getqf("collect_count")+
                        pc
.setqf("collect_count",index)     --¨ú±o¤@*Ӯɠ+1
                        say
("Biologe:")
                        
say("Wow. Welch unglaubliche Wissenssammlung!")
                        
say("Ich durfte jetzt schon ".." "..8-pc.getqf("collect_count").. " lesen")
                        
say("Bitte bring mir die restlichen möglichst schnell!")
                        
say("")
                        
pc.setqf("drink_drug",0)     --ÃĤôªì©l¤Æ
                        
return
                    
end
                    say
("Biologe:")
                    
say("Unglaublich")
                    
say("Dieser perfekte Zusammenhang")
                    
say("Für deine Mühen sollst du")
                    
say("belohnt werden!")
                    
say("")
                    
say_reward("Du bekommst ein Regenbogenstein!")
                    
say_reward("Du bekommst ein Verlobungsring!")
                    
say_reward("Du bekommst ein Rüstung!!")
                    
say_reward("Du bekommst 10000000 Yang!")
                    
say_reward("Du bekommst 75000 Erfahrung!")
                    
pc.setqf("collect_count",0)
                    
pc.setqf("drink_drug",0)
                    
clear_letter()
                    
set_state(__complete)

                    if 
pc.job == 0 then
                    pc
.give_item2(112691)
                    
pc.give_item2(505121)
                    
pc.give_item2(703011)
                    
setqf(get) == 1
                    
elseif pc.job == 1 then
                    pc
.give_item2(114691)
                    
pc.give_item2(703011)
                    
pc.give_item2(505121)
                    
setqf(get) == 1
                    
elseif pc.job == 2 then
                    pc
.give_item2(116691)
                    
pc.give_item2(505121)
                    
pc.give_item2(703011)
                    
setqf(get) == 1
                    
elseif pc.job == 3 then
                    pc
.give_item2(118691)
                    
pc.give_item2(505121)
                    
pc.give_item2(703011)
                    
pc.change_money(10000000)
                    
pc.give_exp2(75000)
                    
set_quest_state("levelup","run")


                    return
                else                                
                
say("Biologe:")
                
say("Es tut mir Leid.. ")
                
say("Meine Augen können das nicht mehr lesen!")
                
say("Bitte hol mir ein neues!")
                
say("")
                
pc.setqf("drink_drug",0)     --ÃĤôªì©l¤Æ
                
return
                
endturn
                
else                                
                
say("Biologe:")
                
say("Dieses Item ist von schlechter Qualität!")
                
say("Es kann nicht verwendet werden.")
                
say("Hole mir ein neues!")
                
say("")
                
pc.setqf("drink_drug",0)     --ÃĤôªì©l¤Æ
                
return
                
end
    end
end


        
    state __complete begin
    end
end