[SERVICE] Die Questkontrolle

Page 66 of 845 « First 16566465 66 676876116166566 Last »
12/04/2010 12:41 .Jack#976
Quote:
Originally Posted by CoreDump View Post
achte auf die zeilenumbrüche!
und du hast mehrmals die "local b select"
Die End-Fehler ausgebessert
Jaa die ganzen flüchtigkeitsfehler wie 2 mal local b oder das ich ein paar mal die " vergessen hab hab ich heute morgen selber schon gelöst das war einfach weil ich mich nachts nichtmehr kozentrieren kann^^

Teste es jetzt gleich mal wenns klappt kriegstn Thx =)
€: Klappt nicht :( hab oben noch schnell die " nachgetragen aber trotzdem nicht
ist Vielleicht eine quest funktion falsch benutzt oder so?

Naja aber Kriegst trotzdem ein thx dafür das du den ganzen rest berichtigt has :)

€2: Quest sieht jetzt so aus: (hab unten noch was ausgebessert)

12/04/2010 14:08 FreshDevil#977
[Only registered and activated users can see links. Click Here To Register...]

Kann jemand weiterhelfen?^^
12/04/2010 14:34 CoreDump#978
@ JackTheOne
ja du hast immernoch einen end fehler. wenn du die select´s und die if´s richtig hättest, könnte ich dir weiterhelfen.
€dit: hab die select´s und die if und end´s richtig gestellt. müsste jetzt gehen.


@ FreshDevil
Deine 3-Fachpost - Threads kannst dir sonstwo hinstecken. Das ist die Questkontrolle. Ich schreib für dich sicher keine quest um. ich habe meinen Dt selber erweitert und verändert.
Mit leichtigkeit
12/04/2010 23:54 CoreDump#979
gib das ganze in PHP-Code an -.-
also so eine quest in normalen Code. Und du meinst du kanntest dich mal aus? o.o
viel an denken is da ja nicht drin.
12/05/2010 00:17 MrSkyNexT#980
hi ich hoffen ihr könnt mir helfen

PHP Code:
quest collect_quest_lv90  begin
    state start begin
        when login or levelup with pc.level >= 90 begin
            set_state("information")
        end
    end
    
    state information begin
        when letter begin
            local v = find_npc_by_vnum(20084)
            if v != 0 then
                target.vid("__TARGET__", v, "Biologe Chaegirab")
            end
            send_letter("Die Forschung des Biologen 7")
        end
        
        when button or info begin
            say_title("Die Forschung des Biologen 7")
            say("")
            say("Der Biologe sucht dich!")
            say("Gehe zu ihm.")
            say("Er sagte, dass er hat eine weitere Aufgabe für dich.")
            say("")
        end
        
        when __TARGET__.target.click begin
            target.delete("__TARGET__")
            say_title("Biologe Chaegirab")
            say("")
            say("Oh..")
            ---                                                   l
            say("Sehr schön!!! Ich freue mich, dass du")
            say("Mir wieder unter die Arme greifen willst.")
            say("Da ich deine letzte Aufgabe, etwas zu leicht")
            say("Fand, gebe ich dir nun eine ")
            say("Schwerere Aufgabe..Du hast bestimmt")
            say("Schoneinmal vom Ebenen von Cidios")
            say("gehört, oder?")
            wait()
            say("Biologe:")
            say("Nunja, ich habe dort etwas gefunden,")
            say("Was ich gerne untersuchen würde.")
            say("Aber dieses Etwas bekommt man nur von")
            say("Den dort ansässigen Gnome!")
            say("Würdest du für mich dort hin gehen")
            say("Und mir Pelziger Anorak bringen?")
            say("Aber bitte pass auf, denn diese Anorak")
            say("Sind schon sehr alt und werden gut")
            say("Von den Riesen verteidigt!")
            say("")
            wait()
            say("Biologe:")
            say("Ich benötige Pelziger Anorak")
            say("Und zwar, um eine genaue Analyse")
            say("Dieser Anoraks zu machen, 30 Stück!")
            say("Wärst du so freundlich?")
            say("Danke!!")
            say("")                                                                                                                                                          
            set_state(los_gehts)
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0)
            pc.setqf("drink_drug",0) 
        end
    end
    state los_gehts begin
        when letter begin
            send_letter("Spezialauftrag sammle Anorak!")
            
        end
        when button or info begin
            say_title("Pelziger Anorak")
            ---                                                   l
            say("")
            say("Der Biologe verlangt von mir," )
            say("Dass ich zu den Gnomen")
            say("gehe und dort")
            say("20 Pelziger Anorak besorge..")
            say("Das wird bestimmt lustig...")
            say("")
            say_item_vnum(91801) 
            say_reward("Du hast".." "..pc.getqf("collect_count").."abgegeben")
            say("")
        end
        
        when 2601.kill or
             2602.kill or
             2603.kill or 
             2605.kill begin
            local s = number(1, 100)
            if s <= 5 and pc.count_item(91801)==0 then
                pc.give_item2(91801, 1)
            end    
        end
        
        when 20084.chat."Pelziger Anorak" with pc.count_item(91801) >0   begin
            if get_time() > pc.getqf("duration") then
                say("Biologe:")
                ---                                                   l
                say("Vielen Dank, dass du mir")
                say("Eine Tafel gebracht hast.")
                say("Ich werde sie jetzt untersuchen.")
                say("")
                pc.remove_item(91801, 1)
                pc.setqf("duration",get_time()+60*60)
                wait()
                
                local pass_percent
                if pc.getqf("drink_drug")==0 then
                    pass_percent=70
                else        
                    pass_percent=90
                end
    
                local s= number(1,100)
                if s<= pass_percent  then
                    if pc.getqf("collect_count")< 19 then      
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)    
                        say("Biologe:")
                        say("Ich muss sagen, eine sehr schönen Anorak.")
                        say("Du hast bis jetzt".." "..20-pc.getqf("collect_count").. "*abgegeben!")
                        say("Ich brauche mehr!")
                        say("")
                        pc.setqf("drink_drug",0)     
                        return
                    end
                    say("Biologe:")
                    say("Super du hast 20 Stück gesammelt!")
                    say("Meine Untersuchungen des Anoraks")
                    say("Ist abgeschlossen!")
                    say("Nun brauche ich: Ein Edelsteinstück!")
                    say("")
                    say("")
                    pc.setqf("collect_count",0)
                    pc.setqf("drink_drug",0)    
                    pc.setqf("duration",0) 
                    set_state(key_item)
                    return
                else                                
                say("Biologe:")
                say("Es tut mir Leid, aber")
                say("Dieser Anorak ist zu alt,")
                say("als dass ich sie untersuchen kann.")
                say("Hast du noch eine?")
                say("")                   
                pc.setqf("drink_drug",0)    
                return
                end
            else
            say("Biologe:")
            say("Die Untersuchungen des letzten")
            say("Anoaraks sind noch nicht abgeschlossen.")
            say("Warte bitte und komme später wieder.")
            say("Guck nicht wie eine ")
            say("heulende Katze und warte..")
            return
            end
        end

    end
end

    state key_item begin
        when letter begin
            send_letter("Pelziger Anorak")
            
            if pc.count_item(30210)>0 then    
                local v = find_npc_by_vnum(20084)
                if v != 0 then
                    target.vid("__TARGET__", v, "Bioquest")
                end
            end

        end
        when button or info begin
            if pc.count_item(30210) >0 then
                say_title("Edelsteinstück")
                say("")
                ---                                                   l
                say("Der Biologin hat eine Aufgabe..")
                say("Gehe zu ihr.")
                say("")
                return
            end

            say_title("Edelsteinstück")
            say("")
            ---                                                   l
            say("Nun, da du mir alle meine 20")
            say("Anoraks geholt hast, benötige")
            say("Ich noch das Edelsteinstück.")
            say_item_vnum(30210)---------- Tugyis Seelenstein
            say("Ein Legendäre Stein, ")
            say("der die Seele eines königlichen Gnoms enthält.")
            say("")
        end

        when 2604  begin
            local s = number(1, 70)
            if s == 1 and pc.count_item(30210)==0 then
                pc.give_item2(30210, 1)
                send_letter("Edelsteinstück")        
            end    
        end



        
        when __TARGET__.target.click  or
            20084.chat."Edelsteinstück" with pc.count_item(30210) > 0  begin
            target.delete("__TARGET__")
            say("Biologe:")
            say("Nundenn, du hast die Aufgabe")
            say("Schnell und sauber gemeistert!")
            say("Ich danke dir dafür.")
            say("Um deine Belohnung abzuholen,")
            say("Gehe bitte zu mir")
            say("Ich werde sie dir geben!")
            say("")
            say("")
            pc.remove_item(30210,1)
            set_state(__reward)
        end
        
    end
    
    state __reward begin
        when letter begin
            send_letter("Gehe zum Biologen")
            
            local v = find_npc_by_vnum(20084)
            if v != 0 then
                target.vid("__TARGET__", v, "Biologe")
            end

        end
        when button or info begin
            say_title("Der Weg zur Belohnung")
            ---                                                   l
            say("Die Quest des Biologen ist")
            say("Beendet und alle 20 Anorags und")
            say("Das Edelsteinstück wurden abgegeben.")
            say("Nun muss ich noch zum Biologen")
            say("Und die Belohnung holen!")
            say("")
        end
        
        when __TARGET__.target.click  or
            20084.chat."Belohnung"  begin
            target.delete("__TARGET__")
            say("Biologe:")
            say("Ich hoffe, dass ich dich")
            say("Nichtmehr oft sehen werde, denn")
            say("Immer dieses Zaubern nervt mich")
            say("Langsam...")
            say("")
            say_reward("Auftrag erfolgreich beendet.")
            say_reward("Du erhälst deine Belohnung.")
            say_reward("+6% Angriffgeschwindigkeit")
            say_reward("+10% Schadenserhöhung")
            
            affect.add_collect(apply.ATT_SPEED,6,60*60*24*365*60) --¡V60¦~        
            affect.add_collect_point(POINT_ATT_BONUS,10,60*60*24*365*60) --60³â    
            clear_letter()
            set_state(__complete)
        end
            
    end

    
    state __complete begin
    end
end 
fehler sind :
must start with "quest"
und collect_quest_lv90.quest:163:Abort trap (core dumped )
12/05/2010 00:27 CoreDump#981
erstmal die bio quests gibts überall! lad dir die fertige runter.
die gibts schon so lange und ihr kommt wohl einfach nicht drauf.
und du hast einen überaus deutlichen "-fehler. schau auf die rot-blau-schrift.
12/05/2010 13:24 »Xc3llênT#982
#edit

Fehler alle behoben.
12/05/2010 15:23 lfcmaus#983
PHP Code:
quest kaiserrun begin 
    state start begin
        when 20083.chat."Prüfung des Kaiser's" begin
        
        say_title("Hofherr Joan:")
        say("")
        say("Du schaust Stark aus!")
        say("Jedoch bist du es auch?Schon viele")
        say("deiner Sorte waren hier und sind am Ende")
        say("gescheitert.Eine Kaiserliche Prüfung")
        say("ist *Schwer* und kann durch aus")
        say("deinen Tod fordern!Bist du dir sicher das")
        say("du Dich dieser Prüfung unterziehen willst?")
        say("")
        say("Wenn ja dann kostet dich die Teilnahme")
        say("10.000.000 Yang,diese werden Verwendet")
        say("im Falle deines Todes, dir ein Prächtiges")
        say("Begräbnis zukommen zulassen,wenn du")
        say("die sache überlebst geht das Geld in")
        say("die Schatzkammer des Kaiser's")
        if pc.getqf("vrfirstentry") == 0 then
            pc.setqf("next_warp_vr_time", get_time() - 60)
            pc.setqf("vrfirstentry", 1)
            say("")
        else
            say("")
        end
        wait()
        say_title("Joan:")
        say("")
        if get_time() > pc.getqf("next_warp_vr_time") then
        say("Bereit für die Prüfung?")
            local a=select("Ja", "Nein")
                if a == 1 then
                    pc.changegold(-10000000)
                    pc.warp(474700, 484800)
                    pc.setqf("next_warp_vr_time", get_time() + 60 * 60 *24)                
                else
                    return
                end
        else
            say("Du kannst die Prüfung nur")
            say("nach einer Zeit der Erholung wieder-")
            say("holen,komm in *Zeit* wieder!")
        end    
    end
end 
das ist mein problemkind fehler wäre:

assertion failure: nested==0
kaiserun.quest:47:abort trap (core dumped)
12/05/2010 15:34 lfcmaus#984
okay fehler wurde gefunden es war ein end zu wenig am ende
12/05/2010 16:13 CoreDump#985
editieren kennst?
12/05/2010 18:47 derkiler#986
hi leute ich versuche zurzeit den warp ring 70007 so zu scripten, dass er funktioniert wie ehering => also nur das ich den Namen des spielers eingeben kann

Hab das mal so versucht würd mich über Hilfen ... freun


quest warpring begin
state start begin
when 70007.use begin
say_title("Teleportring:")
say("Hallo ich kann dich teleportieren")
say("Wohin möchtest du teleportiert werden?")
say("Bitte gib hier den Namen des Spielers ein,")
say("zu dem du dich teleportieren willst!")
local player= input()
pc.warp("player")
end
end
say("Der Spieler ist nicht online!")
end
12/05/2010 19:12 elfat12#987
ey keine p-server hier posten
12/05/2010 19:42 CoreDump#988
wer postet hier server? hast du was auf den augen?
schau mal in die regeln, neuling.
da steht nix über links zu andern servern in einer signatur.
und überhaupt ist das ein forum. (zu einem server der bald online ist)
12/05/2010 21:08 Lowwer#989
Huhu,
also ich habe sofort bei 3 Quest's Problemen... :D

PHP Code:
-- ????? -> ??
-- ???+4 -> ???????
-- ????? -> ?????
quest stash begin
    state start begin -- ???? ??? ??
    when 9005.click begin
        local l = game.get_safebox_level()
        --syschat(l) -- for debug

        if l == 0 then
            say("Haruko:")
            say("Ah, du bist bestimmt der Neue!")
            say("Bist anscheinend an meine großen")
            say("Lager interessiert!")
            say("")
            say("Haha, aber nicht zu voreilig!")
            say("Eine kleine Spende verlange ich immerhin.")
            say("Zwar ist es nicht viel, aber damit kann")
            say("ich leben!")
            say("")
            say_reward("Es kostet 500 Yang!")

            if pc.gold < 500 then
                say("Haruko:")
                say("Ja, nun werd mir aber nicht frech!")
                say("Du wirst bestimmt diese kleine")
                say("Anzahl an Yang irgendwo anscheffeln")
                say("können. Woher ist mir egal!")
                say("")
                say_reward("Es kostet 500 Yang!")
            else
                local s = select("Erstellen", "Doch noch nicht")
                if s == 1 then
                --stash.setlevel(1)
                pc.changegold(-500)
                game.set_safebox_level(1)
                say("Haruko:")
                say("Ah, geht doch. Danke für das Yang.")
                say("Dein Lager hab ich nun zurecht gelegt.")
                say("Du kannst es erreichen, indem du mich")
                say("anklickst und auf "Lager öffnen" gehst.")
                say("Dein Startpasswort lautet 00000. Dieses")
                say("kannst du aber ändern.")
                else
                say("Naja, dann viel Spaß damit!")
                end
            end
        elseif l == 1 then 
            say("Herzlich Willkommen!")
            say("Anscheinend wieder viel gearbeitet")
            say("und hast viel zum Lagern nun dabei.")
            say("")
            say("Naja, sag wieso du hier bist...")

            if pc.getqf("open_count") < 3 then
                pc.setqf("open_count",pc.getqf("open_count")+1)
            end

            local s = select("Lager öffnen", "Itemshop-Lager öffnen", "Schließen")

            if s == 1 then
                game.open_safebox()
            elseif s == 2 then
                -- ?? ?? ??? ?? ??,?? ????
                if pc.getqf("gold_bar_say_count") < 3 then
                pc.setqf("gold_bar_say_count",pc.getqf("gold_bar_say_count")+1)
                wait()
                end
                npc.open_shop()
                say("Hmmm....")
                say("Unsere Goldvorräte sind sehr knapp...")
                say("Doch trotzdem biete ich sie dir zu einem fairen Preis an!")
                say("Ich hoffe das du auch mein Angebot nutzen wirst!!")
                say("Nun gut...sieh dich um in meinem Laden!")
                say("")
                q.done()
            elseif s == 3 then
                game.open_mall()
            end
        elseif l == 2 then
            say("Herzlich Willkommen [3]")

            local f = pc.getqf("recommendation")
            local s = 0

            if f <= 1 then
                s = select("Test", "Lager", "Itemshop Lager", "Schließen")
            elseif f == 2 then
                s = select("Nicht Bezahlen!", "Lager", "Itemshop Lager", "Schließen")
            elseif f == 3 then
                s = select("Bezahlen", "Lager", "Itemshop Lager", "Schließen")
            end

            if s == 1 then
                if f == 1 then
                    say("AGAIN")
                    q.set_title(locale.stash.enlarge_2_title)
                    if pc.countitem(locale.stash.enlarge_2_item) < 1 then
                        pc.give_item2(locale.stash.enlarge_2_item)
                    end
                elseif f == 2 then
                    say("KEIN GELD")
                    pc.setqf("recommendation", 0)
                    q.done()
                elseif f == 3 then
                    -- ??? ??? ?? ??
                    if pc.countitem(locale.stash.enlarge_2_mark_item) == 0 then
                        say("SIE HABEN YANG! 2")
                        q.set_title(locale.stash.enlarge_2_title)
                        q.start()
                        pc.setqf("recommendation", 1)
                    else
                        say("SIE HABEN YANG! 3")
                        game.set_safebox_level(3)
                        pc.removeitem(locale.stash.enlarge_2_mark_item)
                        q.done()
                    end
                else
                    say(locale.stash.enlarge_2_msg1,pc.name,math.mod(pc.job,2)==0 and locale.man_postfix or locale.woman_postfix,locale.stash.enlarge_2_msg2)
                    if pc.countitem(locale.stash.enlarge_2_item)<1 then
                        pc.give_item2(locale.stash.enlarge_2_item)
                    end
                    pc.setqf("recommendation",1)
                    q.set_title(locale.stash.enlarge_2_title)
                    q.start()
                end
            elseif s == 2 then
                game.open_safebox()
            elseif s == 3 then
                --npc.open_shop()
                -- ?? ??? ?? ?? ??
                say("Haruko:")
                say("Hmm...")
                say("Du hast das Itemshop-Lager geöffnet...")
                say("Wenn du hier was auffinden willst, musst")
                say("du natürlich zuerst was im Itemshop gekauft")
                say("haben!")
                say("")
                q.done()
            elseif s == 4 then
                game.open_mall()
            end
        elseif l == 3 then
            say("Herzlich Willkommen!")
            local s = select("Lager", "Itemshop Lager", "Schließen")

            if s == 1 then
                game.open_safebox()
            elseif s == 2 then
                npc.open_shop()
                -- ?? ??? ?? ?? ??
                say("Haruko:")
                say("Hmm...")
                say("Du hast das Itemshop-Lager geöffnet...")
                say("Wenn du hier was auffinden willst, musst")
                say("du natürlich zuerst was im Itemshop gekauft")
                say("haben!")
                say("")
                q.done()
            elseif s == 3 then
                game.open_mall()
            end
        --local s = select("TEST ENTLARGE 3", "Lager", "Itemshop Lager", "Schließen")
        --if s == 1 then
        --    say("Herein Spaziert in die gute Stube!")

        --    local s = select("Ja", "Nein")
        --    if s == 1 then
        --    say(locale.stash.enlarge_try_ok_answer)
        --    setstate("enlarge_3")
        --    pc.setqf("3_left_time", 30*60)
        --    loop_timer("enlarge_3_kill_esoteric",3)
        --    pc.setqf("3_left_count",100)
        --    q.set_title(locale.stash.enlarge_3_title)
        --    q.set_counter_name(locale.stash.enlarge_3_counter)
        --    q.set_counter_value(100)
        --    q.set_clock_name(locale.stash.enlarge_3_timer)
        --    q.set_clock_value(30 * 60)
        --    q.start()
        --    else
        --    say("Kein Gebrauch!")
        --    end
        --elseif s == 2 then
        --    game.open_safebox()
        --end
        elseif l >= 3 then
            say("Herzlich Willkommen")

            local s = select("Lager", "Barren", "Itemshop Lager", "Schließen")

            if s == 1 then
                game.open_safebox()
            elseif s == 2 then
                npc.open_shop()
                -- ?? ??? ?? ?? ??
                say("Haruko:")
                say("Hmm...")
                say("Du hast das Itemshop-Lager geöffnet...")
                say("Wenn du hier was auffinden willst, musst")
                say("du natürlich zuerst was im Itemshop gekauft")
                say("haben!")
                say("")
                q.done()
            elseif s == 3 then
                game.open_mall()
            end
        end
    end

    when oldwoman.chat.locale.stash.enlarge_2_recommendation with pc.getf("stash","recommendation") == 1 begin
        say(locale.stash.enlarge_2_oldwoman_greet)
        say(delay(400), ". . . [/DELAY]")

        if pc.level < 25 then
        -- ??? 25?? ??? ?????? ?? ???.
        say(locale.stash.enlarge_2_oldwoman_reject)
        pc.setqf("recommendation", 2)
        q.set_title(locale.stash.enlarge_2_oldwoman_title1)
        else
        -- ?????? ??.. ?????? ??? ?? ?.
        say(locale.stash.enlarge_2_oldwoman_accept)
        pc.setqf("recommendation", 3)
        pc.give_item2(locale.stash.enlarge_2_mark_item)
        q.set_title(locale.stash.enlarge_2_oldwoman_title2)
        end

        pc.removeitem(locale.stash.enlarge_2_item)
    end 
    end

    state enlarge_stash1 begin
    when info begin
        setskin(SCROLL)
        setbgimage("level_bg.tga")
        addimage(20,12,special.levelup_quest[8][4])
        setcolor(0,0,0)
        say(locale.stash.enlarge_1_info1,item_name(pc.job<3 and locale.stash.enlarge_item1 or locale.stash.enlarge_item2),locale.stash.enlarge_1_info2)
        if pc.get_map_index() > 0 and pc.get_map_index() <= table.getn(special.lvq_map) then
        for j,i in {8,9,10,11,17} begin
            table.foreachi(
            special.lvq_map[pc.get_map_index()][i], 
            function (n,p) addmapsignal(p[1]*100, p[2]*100) end
            )
        end
        setmapcenterposition(200, 0)
        end
        select(locale.confirm)
        clearmapsignal()
        setskin(NOWINDOW)
    end

    when warehouse_keeper.click begin
        say("Herzlich Willkommen bei mir!")
        local s = select(locale.stash.enlarge_1_take_bear,"Lager", "Itemshop Lager", "Schließen");
        if s == 1 then
        -- ????? ???? ??
        if pc.countitem(locale.stash.enlarge_1_item)>=30 then
            say(locale.stash.enlarge_1_success)
            pc.removeitem(locale.stash.enlarge_1_item,30)
            game.set_safebox_level(2)
            setstate(start)
            q.done()
            cleartimer("enlarge_1_kill_bear")
        else
            say(locale.stash.enlarge_1_notyet)
        end
        elseif s == 2 then
        game.open_safebox()
        elseif s == 3 then
        game.open_mall()
        end
    end

    when kill begin
        if npc.race >= 112 and npc.race <= 116 and -- ?????
        (pc.weapon == 50 or pc.weapon == 5030) then
        if math.random(5) == 1 then
            -- ?? ??!
            syschat(locale.stash.enlarge_1_getone)
            pc.give_item2(locale.stash.enlarge_1_item)
            if pc.countitem(locale.stash.enlarge_1_item) == 30 then
            q.set_counter_value(0)
            chat(pc.name,locale.stash.enlarge_1_complete)
            elseif pc.countitem(locale.stash.enlarge_1_item) < 30 then
            q.set_counter_value(30 - pc.countitem(locale.stash.enlarge_1_item))
            end
        end
        end
    end

    when enlarge_1_kill_bear.timer begin
        setstate(enlarge_1_fail)
    end

    when login begin
        if game.get_safebox_level() == 1 then
        setstate(enlarge_1_fail)
        else
        setstate(start)
        end
    end
    end

    state enlarge_1_fail begin
    when info begin
        say(locale.stash.enlarge_1_fail_info)
    end

    when warehouse_keeper.click begin
        say(locale.stash.enlarge_1_fail_ms)
        q.done()
        setstate("start")
    end
    end

    state enlarge_3 begin
    when info begin
    end

    when warehouse_keeper.click begin
        say("Herzlich Willkommen, Abenteurer!")
        local s = select(locale.stash.enlarge_3_complete, "Lager", "Itemshop Lager", "Schließen")
        if s == 1 then
        -- ????? ???? ??
        if pc.getqf("3_left_count")<=0 then
            say(locale.stash.enlarge_3_success)
            game.set_safebox_level(4)
            setstate(start)
            q.done()
            cleartimer("enlarge_3_kill_esoteric")
        else
            say(locale.stash.enlarge_3_notyet)
        end
        elseif s == 2 then
        game.open_safebox()
        elseif s == 3 then
        game.open_mall()
        end
    end

    when kill begin
        if npc.race >= 601 and npc.race <= 609 then-- ??????
        local n = pc.getqf("3_left_count")-1
        pc.setqf("3_left_count",n)
        q.set_counter_name(locale.stash.enlarge_3_counter)
        q.set_counter_value(n)
        end
    end

    when enlarge_3_kill_esoteric.timer begin
        local t = pc.getqf("3_left_time")
        if t <= 0 then
        setstate(enlarge_3_fail)
        cleartimer("enlarge_3_kill_esoteric")
        else
        pc.setqf("3_left_time",t-3);
        end
    end

    when login begin
        local t = pc.getqf("3_left_time")
        if t <= 0 then
        setstate(enlarge_3_fail)
        else
        loop_timer("enlarge_3_kill_esoteric",3)

        q.set_counter_name(locale.stash.enlarge_3_counter)
        q.set_counter_value(pc.getqf("3_left_count"))
        q.set_clock_name(locale.stash.enlarge_3_timer)
        q.set_clock_value(t)
        q.start()
        end
    end
    end

    state enlarge_3_fail begin
    when warehouse_keeper.click begin
        say(locale.stash.enlarge_1_fail_msg)
        q.done()
        setstate("start")
    end
    end
end 
PHP Code:
quest map3 begin
    state start begin
        when login begin
            if pc.getqf("basic_weapon") == 0 then
                pc.setqf("basic_weapon", 1)
                    
                    if pc.get_level() == 1 then
                    say_title("Willkommensgruß")
                    say("")
                    say("Hallo Neuling!")
                    say("Viele spannende Abenteuer und starke")
                    say("Monster werden dich hier in der Welt")
                    say("von Phorio erwarten. Hier wirst du")
                    say("in einer angenehmen Atmosphäre spielen")
                    say("können und Spaß haben. Am Besten")
                    say("beginnst du deine Reise sofort, und suchst")
                    say("Herausforderungen. Zum Start haben wir dir")
                    say("ein kleines Starterpaket gegeben.")

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

    state player_kill1 begin
        when letter begin
            send_letter("Töte Mitspieler")
        end

        when button or info begin
            say("Es wird Zeit, dass du zeigst wie stark du bist!")
            say("")
            say("Hier haben wir fnr dich eine passende Aufgabe.")
            say("")
            say("Töte 100 Mitspieler. Das Reich ist dabei egal.")
            say("Du wirst eine Belohnung erhalten, wenn du diese")
            say("Mission erfolgreich abschliesen wirst.")
            say("")
            say_reward("Töte 100 Mitspieler.")
            say("")
            pc.setqf("state", 100)
            q.set_counter("kills", 100)
            set_state (kill)
        end
    end
      
        state kill begin
        when letter begin
            send_letter("Töte deine Mitspieler")
        end
        
        when button or info begin
            say_title("Info:")
            say_reward( "Du musst noch ".." "..pc.getqf("state").." Mitspieler töten")
            say("")
        end

        when kill begin
            if npc.is_pc() and npc.empire != pc.empire then 
            local count = pc.getqf("state") - 1
            if count <= 100 then
                pc.setqf("state", count)
                q.set_counter("kills", -count)
            end
            if count == 0 then
                say_title("Du hast es geschafft!")
                say("Du hast 100 Mitspieler getötet.")
                say("Wie versprochen hier deine Belohnung:")
                say_reward("Militärpferd")
                say_reward("Militär-Pferdebuch")
                say_reward("Roter Ginseng x200")
                say_reward("Kraut des schweren Affen")
                horse.set_level("21")
                pc.give_item2(50053, 1)
                pc.give_item2(50056, 200)
                pc.give_item2(50059, 1)
                clear_letter()
                set_state(__COMPLETE__)

            end
        end
    end
    end

    state __COMPLETE__ begin
    end
end 
12/05/2010 21:43 Flasher2#990
Hier paar kaputte Quests (Viele xD)

Quest 1 - Geschenk vom Weihnachtsmann:

Quest 2 - Buch des Pferdes:

Quest 3 - Geldschein



Quest 4 - Starterset


Quest 5 - Violletter Stein:

Bitte um Hilfe auch wenns viel ist ^-^
Page 66 of 845 « First 16566465 66 676876116166566 Last »