[SERVICE] Die Questkontrolle

07/03/2013 22:07 Astro.#8446
Quote:
Originally Posted by vbacoder View Post
quest premium_user begin
state start begin
when login with pc.getqf("premium_user")==1 and not npc.is_pc() begin
end
when 70010.use with pc.getqf("premium_user")==0 begin
say_title("Novo-World MT2")
say(" ")
say("Mit diesem Item kannst du den VIP Status")
say("aktivieren. Der VIP Status bleibt")
say("Permanent! Du Kannst dieses Item nur einmal")
say("benutzen und nicht weiter handeln.")
say("Die Krone wurde beim Team beantragt."
say("Es kann bis zu 4 Werktage dauern, bis du"
say("sie Ingame Siehst. Wenn dein Name zu lang"
say("ist, wird er ggf. vom Team gekürtzt!."
say(" ")
say_title("Willst du den Premium Status Aktivieren?")

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

if s == 1 then
pc.setqf("premium_user", 1)

else
return
end
end
end
end



Ist bestimmt nur ein kleiner fehler, aber ich finde ihn nicht :S

Klammer schließen
07/04/2013 00:10 Acon™#8447
Hey leute, ich wollte mir heute mal den Premium Rang + den Shop für meinen Server holen, es
hat auch alles wunderbar Funktioniert, nur die Tatsache das die Quest selbst nicht Funktioniert
macht mich nich soo Happy ^^ hier sind die Beiden Quests:


Shop:

Premium Rang:


Folgendes Passiert wenn ich Rechtsklick aufs Item mach: nix ...
Typ 18 und Quest alles Reloaded :)

Folgendes Passiert wenn ich den NPC Anklicke: nix ...
Typ 5 und onklick is auf 2



was is der Fehler ??


Mfg Acon
07/04/2013 05:15 PlayaStylee#8448
Hallo hab ein Problemm mit DC wenn ich 2te ebene bin portet der mich stadt anstadt auf der 2te ebene zu bleiben hier ist die quest könnt ihr mir helfen bitte

PHP Code:
quest devilscave begin
    state start begin
--Konfiguration   
        when 20351.chat
."DC Configuration!" with game.get_event_flag("block_dc_config") == 0 and pc.is_gm begin
            game
.set_event_flag("dc_is_ok",1)
            
game.set_event_flag("block_dc_config",1)
            
game.set_event_flag("dc_versuche",1)
        
end
--Eintritt fehlgeschlagen
        
--when 20351.chat."The Devils Catacomb" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 and pc.get_level() > 80 begin
            
--say_title("Wächter der Katakombe")
            --
say("")
            --
say_reward("Du darfst noch nicht in die Devils Catacomb!")
            --
say("")
            --
say_reward("Bring mir ein Sensenmannrelikt zieh es einfach auf mich!")
            --
say_reward("und du darfst Passieren!")
        --
end
        
--when 20351.chat."Devils Catacomb (lv.80)" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 1 and pc.get_level() < 80 begin
            
--say_title("Wächter der Katakombe")
            --
say("")
            --
say_reward("Du bist noch zu Schwach!")
            --
say("")
        --
end
--Sensenmannrelikt Abgabe!
        --
when 20351.take with item.vnum == 30122 and pc.getqf("can_in_dc") == 0 begin
            
--if pc.get_level() < 80 then
                
--say_title("Wächter der Katakombe")
                --
say("")
                --
say_reward("Du musst lv.80 sein um ein Sensenmannrelikt abzugeben!")
                --
say("")
            --else
                --
item.remove()
                --
say_title("Wächter der Katakombe")
                --
say("")
                --
say_reward("Du darfst nun die Devils Catacomb betreten!")
                --
say("")
                --
pc.setqf("can_in_dc", 1)
            --
end
        
--end
--Eintritt    
        when 20351.chat
."The Devils Catacomb" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 begin
            
if pc.get_level() < 80 then 
                say_title
("Wächter der Katakombe")
                
say("")
                
say_reward("Du bist noch zu schwach für die Katakomben!")
                
say("")
            else
                
say_title("Wächter der Katakombe")
                
say("")
                
say("Bisher haben "..game.get_event_flag("dcgamer").." Soldaten es versucht ")
                
say("und "..game.get_event_flag("dc_geschaft").." haben es tatsächlich geschaft")
                
say("Azrael zu besiegen!")
                
wait()
                
say_title("Wächter der Katakombe")
                
say("")
                
say_reward("Willst du es versuchen?")
                
say_reward("du wärst der "..game.get_event_flag("dc_versuche")..". Kämpfer der es")
                
say_reward("versucht!")
                
say("")
                
pc.setqf("Ebene", 1)
                
local dc_login = select("Betreten", "Abbrechen")
                if 
dc_login == 1 then
                    pc
.warp(415200, 4209200)
                elseif 
dc_login == 2 then
                    
return
                
end
            end
        end            
--Ebene 1        

        
        when login with pc
.get_map_index() == 209 begin
            game
.set_event_flag(("dcgamer"), game.get_event_flag("dcgamer")+1)
            
game.set_event_flag(("dc_versuche"), game.get_event_flag("dc_versuche")+1)
            if 
pc.getqf("Ebene") == 1 then
            say_title
("Devils Catacomb")
            
say("Um in die 2.Ebene zu kommen, musst du")
            
say_item("Seelenkristall-Schlüssel", 30311, "") --Die "--" vor say_item entfernen wenn beim Login text das Item als Bild angezeigt werden soll das man braucht
            say
("auf die Statue des Kud ziehen!")
            
say("Du droppst ihn bei den Monstern.")
            
say("Ihr habt ingesamt 90 Minuten Zeit!")
            
say("")
            
say_reward("Viel Glück!")
            
say("")
            
timer("dc10", 600)
            
pc.setqf("sksgedroppt", 0)
        else
            
warp_all_to_village()
            
end
        end
        when kill with not npc
.is_pc() and pc.get_map_index() == 209 begin 
            local sks 
= number(1,15)
            if 
sks==1 and pc.getqf("sksgedroppt")==0 then
                pc
.setqf("sksgedroppt", 1)
                
chat("Du hast den Seelenkristall-Schlüssel gedroppt!")
                
game.drop_item(30311, 1)
            else
                
chat("Dieses Monster hatte keinen Schlüssel.")
            
end
        end
        when 30101.take with item
.vnum == 30311 begin
            chat
("Du wirst jetzt in die 2. Ebene gebracht.")
            
pc.remove_item("30311")
            
d.new_jump_all(209, 4632, 42082)
            
d.regen_file("data/dungeon/devilcave/dc_regen_ebene2.txt")
            
d.regen_file("data/dungeon/devilcave/dc_regen_tore_unten.txt")
            
d.regen_file("data/dungeon/devilcave/dc_regen_tore_left.txt")
            
d.spawn_mob(30103, 741, 221)
            
d.setf("Ebene", 2)
        
end    
        
        when login with pc
.in_dungeon() begin
            
if d.getf("Ebene") == 2 then
            chat
("Ihr befindet euch jetzt in der 2. Ebene!")
            
chat("Schlagt euch zum Schildkrötenfels durch!")
            
chat("Ihr habt nur 10 minuten Zeit!")
            
timer("dc1", 600)
        
end
            
if d.getf("Ebene") == 3 then
            chat
("Findet und zerstört den richtigen Metin der Vergeltung.")
            
chat("Ihr habt 20 Minuten Zeit.")
            
timer("dc2", 1200)
        
end
            
if d.getf("Ebene") == 4 then
            chat
("Findet den Weg aus dem Labyrinth.")
            
chat("Und findet die Inschrift am Runenpfahl.")
            
chat("Ihr habt 15 Minuten Zeit.")
            
timer("dc3", 900)
            
d.spawn_mob(30104, 500, 800)
            
d.spawn_mob(10800, 328, 779)
            
d.spawn_mob(10801, 70, 672)
            
d.spawn_mob(10802, 142, 865)
            
d.spawn_mob(10803, 433, 935)
            
d.spawn_mob(10804, 243, 854)
            
d.spawn_mob(10805, 182, 667)
        
end
            
if d.getf("Ebene") == 5 then
            chat
("Findet und tötet Tartaros um das Fratzen-Totem zu bekommen!")
            
chat("Zieht es anschließend auf den Basalt-Obelisk auf dem Berg.")
            
chat("Ihr habt 15 Minuten Zeit.")
            
timer("dc4", 900)
            
d.spawn_mob(30104, 500, 800)
        
end
            
if d.getf("Ebene") == 6 then
            chat
("Tötet Charon um zur letzten Ebene zu kommen!")
            
chat("Ihr habt 15 Minuten Zeit.")
            
timer("dc5", 900)
            
d.spawn_mob(30104, 500, 800)
        
end
            
if d.getf("Ebene") == 7 then
            chat
("Tötet Azrael und setzt dem Unheil ein Ende!")
            
chat("Ihr habt 15 Minuten Zeit!")
            
timer("dc6", 900)
            
d.spawn_mob(30104, 500, 800)
        
end
        end
        
        
        when dc1
.timer begin
            chat
("Die Zeit ist Abgelaufen!")
            
warp_all_to_village( pc.get_map_index() , 5 )
        
end     


        when dc10
.timer begin
            chat
("Ihr habt noch 80 Minuten Zeit, Azrael zu finden und zu töten!")
            
timer("dc20", 600)
        
end
        
        when dc20
.timer begin
            chat
("Ihr habt noch 70 Minuten zeit!")
            
timer("dc30", 600)
        
end    
        when dc30
.timer begin
            chat
("Ihr habt noch 60 Minuten zeit!")
            
timer("dc40", 600)
        
end        
        when dc40
.timer begin
            chat
("Ihr habt noch 50 Minuten zeit!")
            
timer("dc50", 600)
        
end        
        when dc50
.timer begin
            chat
("Ihr habt noch 40 Minuten zeit!")
            
timer("dc60", 600)
        
end        
        when dc60
.timer begin
            chat
("Ihr habt noch 30 Minuten zeit!")
            
timer("dc70", 600)
        
end        
        when dc70
.timer begin
            chat
("Ihr habt noch 20 Minuten zeit!")
            
timer("dc80", 600)
        
end        
        when dc80
.timer begin
            chat
("Ihr habt noch 10 Minuten zeit!")
            
timer("dc110", 600)
        
end
        when dc110
.timer begin
            chat
("Die Zeit ist Abgelaufen!")
            
warp_all_to_village( pc.get_map_index() , 5 )
        
end                     
--Ebene 2
        when 30103.chat
."Weiter zur 3. Ebene" begin
            npc
.purge()
            
say_reward("Inschrift:")
            
say("Es ist noch ein weiter weg.")
            
wait()
            
d.new_jump_all(209, 5427, 42282)
            
d.setf("Ebene", 3)
            
d.regen_file("data/dungeon/devilcave/dc_regen_ebene3.txt")
            
local metindv = number(1,4)
            if 
metindv==1 then
                d
.spawn_mob(8029, 1351, 348)
                
d.spawn_mob(8029, 1148, 350)
                
d.spawn_mob(8029, 1151, 155)
                
d.spawn_mob(8028, 1351, 149)
            
end
            
if metindv==2 then
                d
.spawn_mob(8029, 1351, 348)
                
d.spawn_mob(8029, 1148, 350)
                
d.spawn_mob(8028, 1151, 155)
                
d.spawn_mob(8029, 1351, 149)
            
end
            
if metindv==3 then
                d
.spawn_mob(8029, 1351, 348)
                
d.spawn_mob(8028, 1148, 350)
                
d.spawn_mob(8029, 1151, 155)
                
d.spawn_mob(8029, 1351, 149)
            
end
            
if metindv==4 then
                d
.spawn_mob(8028, 1351, 348)
                
d.spawn_mob(8029, 1148, 350)
                
d.spawn_mob(8029, 1151, 155)
                
d.spawn_mob(8029, 1351, 149) 
            
end
        
        end
        
        when 8029.kill with pc
.in_dungeon() begin
            chat
("Ein Falscher Metin wurde zerstört.")
        
end
        when 8028.kill with pc
.in_dungeon() begin
            chat
("Der richtige Metin wurde zerstört.")
            
chat("Ihr kommt nun in die 4. Ebene.")
            
timer("devils_catacomb_goto_ebene4", 2)
        
end    
        when dc2
.timer begin
            chat
("Die Zeit ist Abgelaufen!")
            
warp_all_to_village( pc.get_map_index() , 5 )
        
end    

        
--Ebene 4 (Labyrinth)
        
when devils_catacomb_goto_ebene4.timer begin
            d
.new_jump_all(209, 4143, 42657)
            
d.setf("Ebene", 4)
        
end
        
        when 30104.chat
."Inschrift" with pc.in_dungeon() begin
            say_title
("Ihr seid schon ziemlich weit gekommen.")
            
timer("dc3", 6000)
            
chat("Ihr habt den richtigen Weg gefunden.")
            
chat("Ihr kommt jetzt in die 5. Ebene.")
            
timer("devils_catacomb_goto_ebene5", 5)
        
end
        when dc3
.timer begin
            chat
("Die Zeit ist Abgelaufen!")
            
warp_all_to_village( pc.get_map_index() , 5 )
        
end    
--Ebene 6 (Tartaros)
        
when devils_catacomb_goto_ebene5.timer begin
            d
.new_jump_all(209, 4917, 42925)
            
d.spawn_mob(30102, 848, 739)
            
d.setf("Ebene", 5)
            
d.regen_file("data/dungeon/devilcave/dc_regen_ebene5.txt")
            
local tartaros = number(1,4)
            if 
tartaros==1 then
                d
.spawn_mob(2593, 991, 848)
            
end
            
if tartaros==2 then
                d
.spawn_mob(2593, 999, 652)
            
end
            
if tartaros==3 then
                d
.spawn_mob(2593, 848, 577)
            
end
            
if tartaros==4 then
                d
.spawn_mob(2593, 703, 644)
            
end
            
if tartaros==5 then
                d
.spawn_mob(2593, 692, 817)
            
end
        end        
        
        when 2593.kill with pc
.in_dungeon() begin
            chat
("Tartaros wurde besiegt und das Fratzen-Totem wurde Fallengelassen!")
            
chat("Begebt euch mit dem Fratzen-Totem auf den Berg in der Mitte.")
            
game.drop_item(30312, 1)
        
end    
        when 30102.take with item
.vnum == 30312 begin
            timer
("dc4", 6000)
            
item.remove()
            
npc.purge()
            
say_reward("...")
            
chat("Ihr werdet jetzt in die 6. Ebene gebracht.")
            
timer("devils_catacomb_goto_ebene6", 5)
        
end
        when dc4
.timer begin
            chat
("Die Zeit ist Abgelaufen!")
            
warp_all_to_village( pc.get_map_index() , 5 )
        
end    
--Ebene 7 (Charon)
        
when devils_catacomb_goto_ebene6.timer begin
            d
.new_jump_all(209, 5422, 42782)
            
d.setf("Ebene", 6)
            
d.regen_file("data/dungeon/devilcave/dc_regen_ebene6.txt")
        
end
        
        when 2597.kill with pc
.in_dungeon() begin
            timer
("dc5", 6000)
            
d.kill_all()
            
chat("Ihr habt Charon besiegt!")
            
chat("Bereitet euch auf den Kampf mit Azrael vor!")
            
timer("devils_catacomb_goto_ebene7", 10)
        
end
        when dc5
.timer begin
            chat
("Die Zeit ist Abgelaufen!")
            
warp_all_to_village( pc.get_map_index() , 5 )
        
end    
--Ebene 8 (Azrael)
        
when devils_catacomb_goto_ebene7.timer begin
             d
.new_jump_all(209, 4147, 43191)
            
d.setf("Ebene", 7)
            
d.regen_file("data/dungeon/devilcave/dc_regen_ebene7.txt")
        
end
    
        when 2598.kill with pc
.in_dungeon() begin
            game
.set_event_flag(("dc_geschaft"), game.get_event_flag("dc_geschaft")+1)
            
local level = pc.get_level()            
            
chat("Ihr habt ihn Besiegt und das Böse vertrieben.")
            
chat("Ihr werdet in 2 Minuten herrausteleportiert!")
            
chat("Sammelt schnell die Schätze ein, bevor es zu spät ist.")
            
d.kill_all()
            
d.kill_all()
            
notice_all("Die Gruppe von "..pc.get_name().." hat Azrael besiegt!")
            
timer("goout_from_dc", 120)
            
d.spawn_mob(9012, 74, 1159)    
        
end
        
        when dc6
.timer begin
            chat
("Die Zeit ist Abgelaufen!")
            
warp_all_to_village( pc.get_map_index() , 5 )
            
end
        when goout_from_dc
.timer begin
            warp_all_to_village
( pc.get_map_index() , 3 )
            
end
    end
end 
Quote:
Originally Posted by Acon™ View Post
Hey leute, ich wollte mir heute mal den Premium Rang + den Shop für meinen Server holen, es
hat auch alles wunderbar Funktioniert, nur die Tatsache das die Quest selbst nicht Funktioniert
macht mich nich soo Happy ^^ hier sind die Beiden Quests:


Shop:

Premium Rang:


Folgendes Passiert wenn ich Rechtsklick aufs Item mach: nix ...
Typ 18 und Quest alles Reloaded :)

Folgendes Passiert wenn ich den NPC Anklicke: nix ...
Typ 5 und onklick is auf 2



was is der Fehler ??


Mfg Acon
Setz mal One Klick auf 1 denn npc ^^ und villt ist in den item nicht die sachen drine prüf mal und schau mal in der sysrr villt ist da ein fehler mehr kann ich nicht sagen
07/04/2013 20:14 Bro' ken<3#8449
PHP Code:
quest kill_mobs begin
    state start begin
        when login 
or levelup with pc.get_level() >= 85 begin
            set_state
(information)
        
end
    end
    
    state information begin
        when letter begin
            local v 
= find_npc_by_vnum(30101)
            if 
v != 0 then
                target
.vid("__TARGET__", v, "Kill")
            
end
            send_letter
("Der alte Kud")
        
end
        
        when button 
or info begin
            say_title
("Das Schicksal des Kuds")
            
say("Die Stimme des Kuds sucht nach dir,")
            
say("folge ihr und frage nach ihrem Begehren")
        
end
        
        when __TARGET__
.target.click begin
            target
.delete("__TARGET__")
            
say("")
            
say("Statue des Kud:")
            
say("")
            
say("Mein lieber Freund, du fragst dich sicherlich,")
            
say("wie ich zu diesem Schicksal kam..)
            wait()
            say("
Diese roten Monster aus Steinen, Geschosse des Himmels,")
            say("
und dann dieser riesige Drache, ein Dämon, ein... ")
            say("
Du musst mich rächen, so bitte ich dich:")
            say("
Töte 25 Metin Jeon-Un (Level 90)")
            say("
Töte 5 Wasserdrachen")
            pc.setqf("
metin", 0)
            pc.setqf("
drache", 0)
            q.set_counter("
Metin Jeon-Un", 0)
            q.set_counter("
Wasserdrache", 0)
            set_state(killmonster)
        end
    end
    
    state killmonster begin
        when letter begin
            send_letter("
Rache des Kud")
        end
        
        when button or info begin
            say_title("
Rache des Kud")
            say("
Der Kud gab dir die Aufgabe 25 Metin Jeon-Un")
            say("
zu zerstören und danach 5 Wasserdrachen zu töten")
            say_reward("
Du hast schon"..." "..pc.getqf("metin") .."Metinsteine zerstört")
            say_reward("
Du hast schon"..." "..pc.getqf("drache") .. " Drachen getötet")
        end
        
        
        when 2493.kill or 8027.kill begin
            local count = pc.getqf("
metin") + 1
            local count2 = pc.getqf("
drache") + 1
            
                if count < 26 then
                    pc.setqf("
metin", count)
                    q.set_counter("
Metin Jeon-Un", 25 - count)
                end
                
                if count2 < 6 then
                    pc.setqf("
drache", count)
                    q.set_counter("
drache", 5 - count)
                end
                
                if count >= 25 and count2 >= 5 then
                    set_state(gotokud)
                end
        end
    end
    
    state gotokud begin
        when letter begin
            local v = find_npc_by_vnum(30101)
            if v != 0 then
                target.vid("
__TARGET__", v, "Kill")
            end
            send_letter("
Kehre zurück zum Kud")
        end
        
        when button or info begin
            say_title("
Kehre zurück zum Kud")
            say("
Du hast alle Monster getötet.")
            say("
Der Geist des Kuds empfängt dich bereits ..")
        end
        
        when __TARGET__.target.click or
            30101.chat."
Kill" begin
            target.delete("
__TARGET__")
            say("
Geist des Kud:")
            say("")
            say("
Hast du es geschafft alle Monster zu töten?")
            wait()
            say("
Hervorragend, ich bin dir zu großem Dank verpflichtet.")
            say("
Hier, nimm meinen alten Wegbegleiter,")
            say("
er solle dir auf deinen Wegen beistehen.")
            wait()
            say_reward("
Du erhälst Schlachtenlöwe (8h)")
            say_reward("
Du erhälst 5.000.000 Yang")
            say_reward("
3.000.000 XP")
            pc.give_exp2(3000000)
            pc.change_money(5000000)
            pc.give_item2(71128,1)
            
            clear_letter()
            pc.setqf("
rache", 1)
            set_state(__complete)
        end
    end
    
    state __complete begin
        end
    end
            
            
            
            
    
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        25 90iger Metin2
        5 Wasserdrachen 

Wollte fragen ob dies so richtig ist!
07/04/2013 20:39 chillerkiller112#8450
PHP Code:
quest battle_arena begin
    state start begin
        when 20020.chat
."To defeat the monsters~" begin
            say
(mob_name(20020))
            
say("")

            if 
pc.is_dead() == true then
                say
("Holy!! Dead man is talking!!")
                
say("")
                return
            
end

            local map_index 
= game.get_event_flag("battle_arena")

            if 
map_index == 190 or map_index == 191 or map_index == 192 then
                local gogo 
= true
                
if map_index == 190 then
                    
if pc.get_map_index() != 3 then
                        gogo 
= false
                    end
                
elseif map_index == 191 then
                    
if pc.get_map_index() != 23 then
                        gogo 
= false
                    end
                
elseif map_index == 192 then
                    
if pc.get_map_index() != 43 then
                        gogo 
= false
                    end
                end

                
if gogo == false then
                    say
("I've heard the news that the monsters attacked other kingdom's castles.")
                    
say("It's unable to go there from here.")
                    
say("")
                    return
                
end

                say
("In the castle of kingdom far away")
                
say("there are so many Boss mobs ")
                
say("We can be rich if we kill all those mobs")
                
say("Do you want to try?")
                
say("")

                
local s = select("Participate", "Cancel")

                if 
s == 1 then
                    local can_enter 
= false ;
                    
                    if 
pc.get_premium_remain_sec(PREMIUM_EXP) > 0 then
                        can_enter 
= true ;
                    else
                        if 
pc.count_item(71095) > 0 then
                            can_enter 
= true ;
                            
pc.remove_item(71095)
                        
end
                    end

                    
if can_enter == true then
                        say
(mob_name(20020))
                        
say("haha, Are you joining?")
                        
say("Then I'll let you go.")
                        
say("")

                        if 
map_index == 190 then
                            pc
.warp(668000,261000)
                        elseif 
map_index == 191 then
                            pc
.warp(719100,260400)
                        elseif 
map_index == 192 then
                            pc
.warp(772400,261800)
                        
end
                    
else
                        
say(mob_name(20020))
                        
say("Darn!! You can't pass if you do not have the pass")
                        
say("")
                        return
                    
end
                end
            
else
                
say("The monsters have already occupied the entrance way")
                
say("It's too dangerous to move to that location. ")
                
say("I wish people in the castle are safe")
                
say("")
            
end
        end 
--w
    end 
--s
end 
--q 
Ohne diese Quest, kacken alle Quests ab!!!
07/04/2013 21:00 .Seriously#8451
PHP Code:
quest teleportation_ring begin
    state start begin
        when 70058.
use begin
            
if pc.get_level() < 50 then
                say
("Du musst mehr Trainieren um ")
                
say("diesen Ring benutzen zu können!")
            elseif 
pc.getqf("time_reuse") > get_time() then
                local time_next_use 
= math.floor(((pc.getqf("time_reuse") - get_time()) / 60)+0.5)
                
say("Du kannst den Ring erst in "..time_next_use.." Minuten nutzen!")
            elseif 
pc.getqf("teleportationsring") < 50 then
                say
("Wohin möchtest du teleportiert werden?")
                
local empire = pc.get_empire()
                
local map = pc.get_map_index()
                if 
map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 or map == 4 or map == 24 or map == 44 then
                    local empire1_map_names 
= {
                        
"Yongan",
                        
"Joan",
                        
"Pyungmoo",
                    }
                    
empire_map_name = empire_map_names[empire]
                    
local empire2_map_names = {
                        
"Jayang",
                        
"Bokjung",
                        
"Bakra",
                    }
                    
empire2_map_name = empire2_map_names[empire]
                    
local guild_map_names = {
                        
"Jungrang",
                        
"Waryong",
                        
"Imha",
                    }
                    
guild_map_name = guild_map_names[empire]
                    
local s = select(empire_map_names, empire2_map_names, guild_map_names, "Tal von Seugryong", "Yongbi-Wüste", "Doyyumhwan", "Abbruch")
                    if 
s == 7 then
                        
return
                    elseif 
s == 6 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        
pc.warp(588800,614400)
                    elseif 
s == 5 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        
pc.warp(204800,486400)
                    elseif 
s == 4 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        
pc.warp(256000,665600)
                    elseif 
s == 3 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        if 
empire == 1 then
                            pc
.warp(128000,0)
                        elseif 
empire == 2 then
                            pc
.warp(179200,0)
                        elseif 
empire == 3 then
                            pc
.warp(230400,0)
                        
end
                    
elseif s == 2 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        if 
empire == 1 then
                            pc
.warp(307200,819200)
                        elseif 
empire == 2 then
                            pc
.warp(102400,204800)
                        elseif 
empire == 3 then
                            pc
.warp(819200,204800)
                        
end    
                    
elseif s == 1 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        if 
empire == 1 then
                            pc
.warp(409600,896000)
                        elseif 
empire == 2 then
                            pc
.warp(0,102400)
                        elseif 
empire == 3 then
                            pc
.warp(921600,204800)
                        
end
                    end
                end
            end
        end

        when login 
or enter begin
            
if pc.getqf("teleportationsring") >= 50 then
                pc
.remove_item(70058,1)
                
pc.delqf("time_reuse")
                
pc.delqf("teleportationsring")
                
syschat("Der Teleportationsring scheint sich aufzulösen und verschwindet!")
            
end
        end
    end
end 
Fehler:Er gibt mir keine Option wo ich mich hinporten will da steht dann nur wo ich hin möchte mehr nicht.
07/05/2013 01:04 Noa_#8452
Quote:
Originally Posted by .WhiteBoss™ View Post
PHP Code:
quest teleportation_ring begin
    state start begin
        when 70058.
use begin
            
if pc.get_level() < 50 then
                say
("Du musst mehr Trainieren um ")
                
say("diesen Ring benutzen zu können!")
            elseif 
pc.getqf("time_reuse") > get_time() then
                local time_next_use 
= math.floor(((pc.getqf("time_reuse") - get_time()) / 60)+0.5)
                
say("Du kannst den Ring erst in "..time_next_use.." Minuten nutzen!")
            elseif 
pc.getqf("teleportationsring") < 50 then
                say
("Wohin möchtest du teleportiert werden?")
                
local empire = pc.get_empire()
                
local map = pc.get_map_index()
                if 
map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 or map == 4 or map == 24 or map == 44 then
                    local empire1_map_names 
= {
                        
"Yongan",
                        
"Joan",
                        
"Pyungmoo",
                    }
                    
empire_map_name = empire_map_names[empire]
                    
local empire2_map_names = {
                        
"Jayang",
                        
"Bokjung",
                        
"Bakra",
                    }
                    
empire2_map_name = empire2_map_names[empire]
                    
local guild_map_names = {
                        
"Jungrang",
                        
"Waryong",
                        
"Imha",
                    }
                    
guild_map_name = guild_map_names[empire]
                    
local s = select(empire_map_names, empire2_map_names, guild_map_names, "Tal von Seugryong", "Yongbi-Wüste", "Doyyumhwan", "Abbruch")
                    if 
s == 7 then
                        
return
                    elseif 
s == 6 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        
pc.warp(588800,614400)
                    elseif 
s == 5 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        
pc.warp(204800,486400)
                    elseif 
s == 4 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        
pc.warp(256000,665600)
                    elseif 
s == 3 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        if 
empire == 1 then
                            pc
.warp(128000,0)
                        elseif 
empire == 2 then
                            pc
.warp(179200,0)
                        elseif 
empire == 3 then
                            pc
.warp(230400,0)
                        
end
                    
elseif s == 2 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        if 
empire == 1 then
                            pc
.warp(307200,819200)
                        elseif 
empire == 2 then
                            pc
.warp(102400,204800)
                        elseif 
empire == 3 then
                            pc
.warp(819200,204800)
                        
end    
                    
elseif s == 1 then
                        pc
.setqf("time_reuse", get_time() + 1800)
                        
pc.setqf("teleportationsring",pc.getqf("teleportationsring") +1)
                        if 
empire == 1 then
                            pc
.warp(409600,896000)
                        elseif 
empire == 2 then
                            pc
.warp(0,102400)
                        elseif 
empire == 3 then
                            pc
.warp(921600,204800)
                        
end
                    end
                end
            end
        end

        when login 
or enter begin
            
if pc.getqf("teleportationsring") >= 50 then
                pc
.remove_item(70058,1)
                
pc.delqf("time_reuse")
                
pc.delqf("teleportationsring")
                
syschat("Der Teleportationsring scheint sich aufzulösen und verschwindet!")
            
end
        end
    end
end 
Fehler:Er gibt mir keine Option wo ich mich hinporten will da steht dann nur wo ich hin möchte mehr nicht.
wenn im "select" nichts angezeigt wird, ist der Fehler bei der Variablendeklaration denn sie ist vor dem select da.

PHP Code:
empire_map_names[empire] 
zu
PHP Code:
empire1_map_names[empire] 
ändern
07/05/2013 01:41 .Seriously#8453
Funktioniert nicht bekomme nichts angezeigt.
07/05/2013 02:29 Noa_#8454
Quote:
Originally Posted by .WhiteBoss™ View Post
Funktioniert nicht bekomme nichts angezeigt.
du hast auch noch überall "names" stehen
PHP Code:
select(empire_map_names, empire2_map_names, 
die variablen enden aber bei dir immer mit "name"
dh. so umändern
PHP Code:
local s = select(empire_map_name, empire2_map_name, guild_map_name, "Tal von Seugryong", "Yongbi-Wüste", "Doyyumhwan", "Abbruch") 
und variablen
PHP Code:
local empire1_map_names = {"Yongan","Joan","Pyungmoo"}                    
                    
empire_map_name = empire1_map_names[empire] 
                    
local empire2_map_names = {"Jayang","Bokjung","Bakra"} 
                    
empire2_map_name = empire2_map_names[empire] 
                    
local guild_map_names = {"Jungrang","Waryong","Imha"} 
                    
guild_map_name = guild_map_names[empire] 
wobei ich dir sagen muss das du sie nicht global schreiben musst, local würde auch reichen
07/05/2013 02:37 .Seriously#8455
Läuft nicht und bei der zweiten soll er nur eins von den drei items removen.


07/05/2013 02:45 Noa_#8456
screen von der ersten quest select: [Only registered and activated users can see links. Click Here To Register...]
screen erste auswahl: [Only registered and activated users can see links. Click Here To Register...]

bei deiner 2ten quest weis ich nicht was du damit meinst, laut Code sollen alle Items in der Tabelle ein Blutstein sein, dann entfernst du sie alle.
kannst mich auch gerne in skype adden dort kann ich wesentlich schneller helfen.
07/05/2013 10:59 Scarified#8457
#PUSH
Quote:
Da kommt
Quote:
syntax error : [string "start"]:13: unexpected symbol near 'when'
pet_city.quest:284:Error occured on compile pet_city.quest
07/05/2013 16:38 .Leykas#8458
Code:
quest heiligertrank begin
    state start begin
        when login or levelup with pc.level >= 55 begin
            set_state(information)
        end    
    end
    state information begin
        when letter begin
            local v = find_npc_by_vnum(20023)
            if v != 0 then
                target.vid("__TARGET__", v, "Soon")
            end
            send_letter("Der heilige Trank")
        end
        
        when button or info begin
            say_title("Der heilige Trank")
            say("Du solltest mal zu Soon gehen.")
            say("Er braucht deine Hilfe.")
            say(""
        end
        when __TARGET__.target.click or
            20023.chat."Der heilige Trank" begin
            say("Sei gegrüßt, "..pc.get_name().."!")
            say("Ich brauche einen Heiligen Trank.")
            say("Es ist sehr wichtig. Du wirst auch belohnt *hehe*.")
            say("Willst du mir denn helfen??")
            local s = select("Ja", "Nein, keine Zeit!")
            if s == 1 then
                say("Vielen Dank. Versuch dein Glück.")
                say("Der heilige Tarok wartet im Orktal auf dich.")
				say_reward("Töte den heiligen Tarok")
                set_state(weiter)
            end
        end
    end    
    state weiter begin
        when letter begin
            send_letter("Der heilige Trank")            
        end
        when button or info begin
            say_title("Der heilige Trank")
            say("Soon möchte, dass du ihm einen heiligen Trank besorgst.")
            say("Im Orktal wirst du den heiligen Tarok finden, der diesen Trank droppt!")
            say_item_vnum(70013)
        end
        when 693.kill begin
            local x = number(1, 100)
            if x == 1 then
                game.drop_item(70013, 1)
            end    
        end      
        when 20023.chat."Der heilige Trank" with pc.count_item(70013) > 0 begin
            say("Hey du hast den Trank!")
            say("Vielen Dank!")
            pc.remove_item(70013, 1)
            say("Als Belohnung erhälst du:")
			say_reward("- 10Mio Yang")
			say_reward("- 10x Spezial-Truhe")
            pc.give_item2(50130, 10)
			pc.change_money(10000000)
            clear_letter()
            set_state(__complete)
        end
    end
    state __complete begin
    end
end
:( Geht einfach ned
07/05/2013 17:21 depa95#8459
Quote:
Originally Posted by LeykasRecordz View Post
Code:
quest heiligertrank begin
    state start begin
        when login or levelup with pc.level >= 55 begin
            set_state(information)
        end    
    end
    state information begin
        when letter begin
            local v = find_npc_by_vnum(20023)
            if v != 0 then
                target.vid("__TARGET__", v, "Soon")
            end
            send_letter("Der heilige Trank")
        end
        
        when button or info begin
            say_title("Der heilige Trank")
            say("Du solltest mal zu Soon gehen.")
            say("Er braucht deine Hilfe.")
            say(""
        end
        when __TARGET__.target.click or
            20023.chat."Der heilige Trank" begin
            say("Sei gegrüßt, "..pc.get_name().."!")
            say("Ich brauche einen Heiligen Trank.")
            say("Es ist sehr wichtig. Du wirst auch belohnt *hehe*.")
            say("Willst du mir denn helfen??")
            local s = select("Ja", "Nein, keine Zeit!")
            if s == 1 then
                say("Vielen Dank. Versuch dein Glück.")
                say("Der heilige Tarok wartet im Orktal auf dich.")
				say_reward("Töte den heiligen Tarok")
                set_state(weiter)
            end
        end
    end    
    state weiter begin
        when letter begin
            send_letter("Der heilige Trank")            
        end
        when button or info begin
            say_title("Der heilige Trank")
            say("Soon möchte, dass du ihm einen heiligen Trank besorgst.")
            say("Im Orktal wirst du den heiligen Tarok finden, der diesen Trank droppt!")
            say_item_vnum(70013)
        end
        when 693.kill begin
            local x = number(1, 100)
            if x == 1 then
                game.drop_item(70013, 1)
            end    
        end      
        when 20023.chat."Der heilige Trank" with pc.count_item(70013) > 0 begin
            say("Hey du hast den Trank!")
            say("Vielen Dank!")
            pc.remove_item(70013, 1)
            say("Als Belohnung erhälst du:")
			say_reward("- 10Mio Yang")
			say_reward("- 10x Spezial-Truhe")
            pc.give_item2(50130, 10)
			pc.change_money(10000000)
            clear_letter()
            set_state(__complete)
        end
    end
    state __complete begin
    end
end
:( Geht einfach ned
So sollte sie funken:

ps: wenn du nächstes mal eine beschreibung vom Putty-Fehler dazuschreibst hilft es ungemein :D
07/05/2013 18:46 .Leykas#8460
Code:
quest infoitem begin
	state start begin
		when 50904.use begin
			local a = select("Die Projektleitung", "Unser Support", "Unsere Features", "Das Aktuelle Team", "Alternativ Dropps", "Abrechen")
		if a == 1 then
			say_title("Die Projektleitung")
			say("")
			say("~")
			say("~V.")
			say("~S")
			say("~W")
			say("")
			say("[")
			say("~S")
			say("")
			say("")
			say("~")
			say("~r")
			end
		if a == 2 then
			say("Drops")
			say("")
			say("")
		end
		if a == 3 then
			say_title("Unsere Features!")
			say("~Max Lv 99")
			say("~O")
			say("~")
			say("~")
			say("~")
			say("")
			end
		if a == 4 then
			say_title("Das aktuelle Team")
			say("")
			end
		if a == 5 then
			say("Teamerliste")
			say("")
			say("")
			end
		if a == 6 then
		return
		end
	end
end
Hier geht nix.. Typ 18 ist eingestellt.