[SERVICE] Die Questkontrolle

Page 231 of 845

231

09/12/2011 13:26 ScarBoy#3451

K�nnte mir einer mal bitte eine Funktionierende warehouse.quest posten? w�re sehr hilfreich....

09/12/2011 14:19 .Karuzo#3452

Quote:

Originally Posted by Bear Grylls

PHP Code:

elseif k == 4 then say_title("Team-Status") say("GMs") say("") if game.get_event_flag("[GM]xXxXXXx")== 1 then say_reward("[GM]xXxXXXx ist online") end else say("[GM]xXxXXXx ist offline") end if game.get_event_flag("[GM]DdddDDDDd")== 1 then say_reward("[GM]DdddDDDDd ist online") else say("[GM]DdddDDDDd ist offline") say("") end

Das ist halt ein Item, das benutzt wird. Und ich wei� nicht, wie ich es zum laufen bringe, dass ich das Ding drin hab und ZUS�TZLICH die select-optionen.
Hilfe w�r nett ;) Gibt auch etwas e*gold

Bitte ganze Quest posten :)

Und hier ist die warehouse.quest

Spoiler

PHP Code:


			
 quest stash begin

    state start begin

    when warehouse_keeper.click begin

        local l = game.get_safebox_level()

        --syschat(l) -- for debug



        if l == 0 then

            say(locale.stash.greet1)



            if pc.gold < 0 then

                say(locale.stash.not_enough_money)

            else

                local s = select(locale.stash.pay_ok, locale.stash.pay_no)

                if s == 1 then

                --stash.setlevel(1)

                game.set_safebox_level(1)

                say(locale.stash.first_open)

                else

                say(locale.stash.dont_open)

                end

            end

        elseif l == 1 then 

            say(locale.stash.greet2)



            if pc.getqf("open_count") < 3 then

                say(locale.stash.beginner_info)

                pc.setqf("open_count",pc.getqf("open_count")+1)

            end



            local s = select(locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)



            if s == 1 then

                game.open_safebox()

            elseif s == 2 then

                -- ?? ?? ??? ?? ??,?? ????

                --if pc.getqf("gold_bar_say_count") < 3 then

                --say(locale.stash.gold_bar_beginner_info)

                --pc.setqf("gold_bar_say_count",pc.getqf("gold_bar_say_count")+1)

                --wait()

                --end

                npc.open_shop()

                say("Die Minen sind inzwischen alle abgebaut worden.")

                say("Es ist sehr schwer, Gold oder Silber zu finden.")

                say("Solange keine neue Erzader entdeckt wird,")

                say("gibt es kein Gold oder Silber.")

                q.done()

            elseif s == 3 then

                game.open_mall()

            end

        elseif l == 2 then

            say(locale.stash.greet3)



            local f = pc.getqf("recommendation")

            local s = 0



            if f <= 1 then

                s = select(locale.stash.enlarge, locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

            elseif f == 2 then

                s = select(locale.stash.enlarge_2_no_mark, locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

            elseif f == 3 then

                s = select(locale.stash.enlarge_2_have_mark, locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

            end



            if s == 1 then

                if f == 1 then

                    say(locale.stash.enlarge_2_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(locale.stash.enlarge_2_no_mark2)

                    pc.setqf("recommendation", 0)

                    q.done()

                elseif f == 3 then

                    -- ??? ??? ?? ??

                    if pc.countitem(locale.stash.enlarge_2_mark_item) == 0 then

                        say(locale.stash.enlarge_2_have_mark2)

                        q.set_title(locale.stash.enlarge_2_title)

                        q.start()

                        pc.setqf("recommendation", 1)

                    else

                        say(locale.stash.enlarge_2_have_mark3)

                        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()

                -- Lagerverwalter:

                say("Die Minen sind inzwischen alle abgebaut worden.")

                say("Es ist sehr schwer, Gold oder Silber zu finden.")

                say("Solange keine neue Erzader entdeckt wird,")

                say("gibt es kein Gold oder Silber.")

                q.done()

            elseif s == 4 then

                game.open_mall()

            end

        elseif l == 3 then

            say(locale.stash.greet4)

            local s = select(locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)



            if s == 1 then

                game.open_safebox()

            elseif s == 2 then

                --npc.open_shop()

                -- Lagerverwalter:

                say("Die Minen sind inzwischen alle abgebaut worden.")

                say("Es ist sehr schwer, Gold oder Silber zu finden.")

                say("Solange keine neue Erzader entdeckt wird,")

                say("gibt es kein Gold oder Silber.")

                q.done()

            elseif s == 3 then

                game.open_mall()

            end

        --local s = select(locale.stash.enlarge, locale.stash.open_stash, locale.stash.open_mall, locale.stash.nomatter)

        --if s == 1 then

        --    say(locale.stash.enlarge_3_msg1)



        --    local s = select(locale.stash.enlarge_try_ok, locale.stash.enlarge_try_no)

        --    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(locale.stash.enlarge_no_need)

        --    end

        --elseif s == 2 then

        --    game.open_safebox()

        --end

        elseif l >= 3 then

            say(locale.stash.greet2)



            local s = select(locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)



            if s == 1 then

                game.open_safebox()

            elseif s == 2 then

                --npc.open_shop()

                -- Lagerverwalter:

                say("Die Minen sind inzwischen alle abgebaut worden.")

                say("Es ist sehr schwer, Gold oder Silber zu finden.")

                say("Solange keine neue Erzader entdeckt wird,")

                say("gibt es kein Gold oder Silber.")

                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(locale.stash.greet2)

        local s = select(locale.stash.enlarge_1_take_bear,locale.stash.open_stash, locale.stash.open_mall, locale.stash.nomatter);

        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(locale.stash.greet2)

        local s = select(locale.stash.enlarge_3_complete, locale.stash.open_stash, locale.stash.open_mall, locale.stash.nomatter)

        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

09/12/2011 14:23 spielmitmir#3453

Syran. k�nntest du vill noch mal �ber die Startserset quest gucken?

09/12/2011 14:23 F O R S E N B O Y S#3454

@Syran

Es liegt nur an dem einen Abschnitt.. geht halt von k 1 - k 4 und jede Option zeigt was anderes (Informationen).

Wenn ich den Abschnitt entferne, geht alles wunderbar.

09/12/2011 14:25 .Karuzo#3455

spielmitmir probier diesen Quest:

Spoiler

PHP Code:


			
 quest give_basic_weapon begin
    state start begin
        when login with pc.getqf("basicweapon") == 0 begin
            local klasse
            if pc.job == 0 then
               pc.give_item2 ("11209" , 1)
    pc.give_item2 ("12209" , 1)
    pc.give_item2 ("13009" , 1)
    pc.give_item2 ("17009" , 1)
    pc.give_item2 ("14009" , 1)
    pc.give_item2 ("15009" , 1)
    pc.give_item2 ("16009" , 1)
    pc.give_item2 ("19" , 1) 
            elseif pc.job == 1 then    
               pc.give_item2 ("11409", 1)
pc.give_item2 ("12349", 1)
pc.give_item2 ("13009", 1)
pc.give_item2 ("17009", 1)
pc.give_item2 ("14009", 1)
pc.give_item2 ("15009", 1)
pc.give_item2 ("16009", 1)
pc.give_item2 ("1009", 1) 
            elseif pc.job == 2 then
               pc.give_item2("11609" , 1)
pc.give_item2("12489" , 1)
pc.give_item2("13009" , 1)
pc.give_item2("17009" , 1)
pc.give_item2("14009" , 1)
pc.give_item2("15009" , 1)
pc.give_item2("16009" , 1)
pc.give_item2("19" , 1) 
            elseif pc.job == 3 then
                pc.give_item2 ("11809" , 1)
pc.give_item2 ("12629" , 1)
pc.give_item2 ("13009" , 1)
pc.give_item2 ("17009" , 1)
pc.give_item2 ("14009" , 1)
pc.give_item2 ("15009" , 1)
pc.give_item2 ("16009" , 1)
pc.give_item2 ("7009" , 1) 
            end
           pc.give_item2 ("27003" , 200)
pc.give_item2 ("27006" , 200)
pc.give_item2 ("27112" , 50)
pc.give_item2 ("27115" , 50)
pc.give_item2 ("72701" , 1)
pc.give_item2 ("70038" , 50)
pc.give_item2 ("71027" , 10)
pc.give_item2 ("71028" , 10)
pc.give_item2 ("71029" , 10)
pc.give_item2 ("71030" , 10)
notice_all(" "..pc.get_name().." ist neu auf dem Server") 
            say_title("Willkommen auf Fantasy2!")
say( "______________________________________" )
say_reward( "Willkommen auf unserem Server." )
say_reward( "Unsere momentane Homepage befindet" )
say_reward( "Sich in Bearbeitung. Alle Informationen" )
say_reward( "Bekommt ihr Ingame zu h�ren." )
say("______________________________________" )
say_reward( "Viel Spa�" )
say( "" ) 
            pc.setqf("basicweapon", 1)
            set_state(__complete)
        end
    end
    state __complete begin
    end
end

09/12/2011 16:15 F4m0uZStYle#3456

PHP Code:


			
 elseif k == 4 then
    local r = select ("Ja" , "Nein")
        if r == 1 then
                    say_title("Team-Status")
                    say("GMs")
                    say("")
                if game.get_event_flag("[GM]xXxXXXx")== 1 then
                    say_reward("[GM]xXxXXXx ist online")
                end
                else
                    say("[GM]xXxXXXx ist offline")
                end
            elseif r == 2 then
                return
 elseif k == 5 then
        local t = select ("Ja" , "Nein")
            if t == 1 then
                if game.get_event_flag("[GM]DdddDDDDd")== 1 then
                    say_reward("[GM]DdddDDDDd ist online")
                end
                else
                    say("[GM]DdddDDDDd ist offline")
                    say("")
                end
            elseif t == 2 then
                return

meinst du das so? sonst h�tt ich keine ahnung was ich mit den kleine abschnitt anfangen solll

09/12/2011 16:26 F O R S E N B O Y S#3457

Hier die komplette (teils zensierte [nur Text]) Quest

Spoiler

PHP Code:


			
quest userpanel begin
    state start begin
        when 70030.use begin
            say_title("User Panel")
            say("Seite 1")
            say("Schau dich einfach um.")
            local s = select("Rates","Teamliste","TeamSpeak3","Homepage","Forum","N�chste Seite")
                if s == 1 then
                    say_reward("Text")
                    say("Text")
                    say("Text")
                    say("Text")
                elseif s == 2 then
                    say_reward("Text")
                    say("Text")
                    say("Text")
                    say("Text")
                elseif s == 3 then
                    say_title("TeamSpeak 3")
                    say_reward("Text")
                    say("Text")
                    say("Text")
                    say("Text")
                elseif s == 4 then
                    say_reward("Die Homepage lautet")
                    say("www.vipmt2-reloaded.com")
                    return
                elseif s == 5 then
                    say_reward("Das Forum lautet")
                    say("www.nightforge.de/board")
                    return
                elseif s ==6 then
                    say_title("User Panel")
                    say("Seite 2")
                    say("Schau dich einfach um.")
            local k = select("Metinmaps","Pferde","Metinmap Regeln","Team-Status","Ende")
                if k == 1 then
                    say_reward("Text")
                    say("Text")
                    say("Text")
                    say("Text")    
                elseif k == 2 then
                    say_reward("Text")
                    say("Text")
                    say("Text")
                    say("Text")
                elseif k == 3 then
                    say_reward("Text")
                    say("Text")
                    say("Text")
                    say("Text")
                elseif k == 4 then
                    say_title("Team-Status")
                    say("GMs")
                    say("")
                    if game.get_event_flag("[GM]xXxXXXx")== 1 then
                    say_reward("[GM]xXxXXXx ist online")
                    end
                    else
                    say("[GM]xXxXXXx ist offline")
                    end
                    if game.get_event_flag("[GM]DdddDDDDd")== 1 then
                    say_reward("[GM]DdddDDDDd ist online")
                    else
                    say("[GM]DdddDDDDd ist offline")
                    say("")
                    end
                elseif k == 5 then
                    return    
                    end
                    end        
                    end        
                    end

Es scheitert nur am elseif k == 4 .. Beim Rest geht es ja wunderbar

09/12/2011 16:35 F4m0uZStYle#3458

wenn sie nur als offline angezeigt werden liegts daran.

PHP Code:


			
quest gmlogin begin

    state start begin

        when login with pc.is_gm() begin

            local name = pc.get_name()

            game.set_event_flag(name, 1)

            setskin(NOWINDOW)  

        end

    end

end

kopier das in eine neue quest datei rein.

wenn das auch nicht klappt.
kopier das auch nochmal in eine neue quest datei rein.

PHP Code:


			
quest gmlogout begin

    state start begin

        when logout with pc.is_gm() begin

            local name = pc.get_name()

            game.set_event_flag(name, 0)

            setskin(NOWINDOW)

        end

    end

end

09/12/2011 16:38 F O R S E N B O Y S#3459

Ich krieg beim make.sh 'nen Fehler.. "must start with quest"... hei�t ja eigentlich, dass ein "end" zu viel vorhanden ist...aber in dem Fall eben nicht

09/12/2011 16:48 .Delta#3460

unten eins zuwenig, daf�r beim Teamstatus zwischendrin eins zuviel ;)

PHP Code:


			
quest userpanel begin
    state start begin
        when 70030.use begin
            say_title("User Panel")
            say("Seite 1")
            say("Schau dich einfach um.")
            local s = select("Rates","Teamliste","TeamSpeak3","Homepage","Forum","N�chste Seite")
            if s == 1 then
                say_reward("Text")
                say("Text")
                say("Text")
                say("Text")
            elseif s == 2 then
                say_reward("Text")
                say("Text")
                say("Text")
                say("Text")
            elseif s == 3 then
                say_title("TeamSpeak 3")
                say_reward("Text")
                say("Text")
                say("Text")
                say("Text")
            elseif s == 4 then
                say_reward("Die Homepage lautet")
                say("www.vipmt2-reloaded.com")
            elseif s == 5 then
                say_reward("Das Forum lautet")
                say("www.nightforge.de/board")
            elseif s ==6 then
                say_title("User Panel")
                say("Seite 2")
                say("Schau dich einfach um.")
                local k = select("Metinmaps","Pferde","Metinmap Regeln","Team-Status","Ende")
                if k == 1 then
                    say_reward("Text")
                    say("Text")
                    say("Text")
                    say("Text")    
                elseif k == 2 then
                    say_reward("Text")
                    say("Text")
                    say("Text")
                    say("Text")
                elseif k == 3 then
                    say_reward("Text")
                    say("Text")
                    say("Text")
                    say("Text")
                elseif k == 4 then
                    say_title("Team-Status")
                    say("GMs")
                    say("")
                    if game.get_event_flag("[GM]xXxXXXx")== 1 then
                        say_reward("[GM]xXxXXXx ist online")
                    else
                        say("[GM]xXxXXXx ist offline")
                    end
                    if game.get_event_flag("[GM]DdddDDDDd")== 1 then
                        say_reward("[GM]DdddDDDDd ist online")
                    else
                        say("[GM]DdddDDDDd ist offline")
                        say("")
                    end
                elseif k == 5 then
                    return    
                end
            end        
        end        
    end
end

09/12/2011 17:05 F O R S E N B O Y S#3461

Quote:

Originally Posted by .Delta

unten eins zuwenig, daf�r beim Teamstatus zwischendrin eins zuviel ;)

PHP Code:

quest userpanel begin state start begin when 70030.use begin say_title("User Panel") say("Seite 1") say("Schau dich einfach um.") local s = select("Rates","Teamliste","TeamSpeak3","Homepage","Forum","N�chste Seite") if s == 1 then say_reward("Text") say("Text") say("Text") say("Text") elseif s == 2 then say_reward("Text") say("Text") say("Text") say("Text") elseif s == 3 then say_title("TeamSpeak 3") say_reward("Text") say("Text") say("Text") say("Text") elseif s == 4 then say_reward("Die Homepage lautet") say("www.vipmt2-reloaded.com") elseif s == 5 then say_reward("Das Forum lautet") say("www.nightforge.de/board") elseif s ==6 then say_title("User Panel") say("Seite 2") say("Schau dich einfach um.") local k = select("Metinmaps","Pferde","Metinmap Regeln","Team-Status","Ende") if k == 1 then say_reward("Text") say("Text") say("Text") say("Text") elseif k == 2 then say_reward("Text") say("Text") say("Text") say("Text") elseif k == 3 then say_reward("Text") say("Text") say("Text") say("Text") elseif k == 4 then say_title("Team-Status") say("GMs") say("") if game.get_event_flag("[GM]xXxXXXx")== 1 then say_reward("[GM]xXxXXXx ist online") else say("[GM]xXxXXXx ist offline") end if game.get_event_flag("[GM]DdddDDDDd")== 1 then say_reward("[GM]DdddDDDDd ist online") else say("[GM]DdddDDDDd ist offline") say("") end elseif k == 5 then return end end end end end

Herzlichen Dank.. Kein Fehler mehr vorhanden. 30 e*gold an dich versendet ;)

09/12/2011 17:48 Brodan#3462

Quote:

Originally Posted by Brodan

Nabend,

habe mich nochmals an 2 meiner Quests gesetzt.
Das Ergebnis war, dass die Quests nicht mehr richtig funktionieren.

Quest 1:

Spoiler

PHP Code:

quest change_gold begin state start begin when 30122.chat."Geldgeschenk" begin say_title(""..mob_name(30122)..":") say("") say("Heyho, du willst dir etwas kaufen aber dir fehlt") say("das n�tige Yang?") say("") say("Du hast Gl�ck, denn ich habe vor ein paar Tagen") say("eine hohe Menge Yang gewonnen!") say("") say("Ich werde dir 250 Mio. Yang schenken.") say("") say_reward("Achtung: Wenn du mehr als 1'749'999'999 Yang") say_reward("hast wirst du einen Bug bekommen!") say("") local s = select("Ja, bitte gib mir Yang!","Nein, ich habe genug Yang.") if s == 2 then say_title(""..mob_name(30122)..":") say("") say("Na dann, bis bald!") say("") return elseif s == 1 then if pc.get_money <= 1749999999 then say_title(""..mob_name(30122)..":") say("") say("Hier bitte!") say("") say_reward("Du hast 250'000'000 Yang erhalten!") pc.change_money ( 250000000 ) else say_title(""..mob_name(30122)..":") say("") say("Ich kann dir kein Yang geben, da du") say("ansonsten den Maximal-Wert �berschreiten w�rdest!") end end end end end

Quest 2:

Spoiler

PHP Code:

quest geldspeicher_quest begin state start begin when 70010.use begin say_title("Lagerschein") say("") say("Du m�chtest also deine 500 mio. Yang") say("Zur�ckbekommen?") say("") local s = select("Ja","Nein") if s == 2 then return elseif s == 1 then if pc.get_money <= 1499999999 then pc.change_money(500000000) pc.remove_item(70010, 1) say_title("Lagerschein") say("") say("Hier bitte!") say("") say_reward("Du hast 500'000'000 Yang zur�ckbekommen!") say("") else say_title("Lagerschein") say("") say("Du kannst kein Yang zur�ckbekommen,") say("da du ansonsten den Maximal-Wert �berschreiten w�rdest!") say("Komm wieder wenn du weniger als") say("1'500'000'000 Yang hast!") say("") end end end end end

Danke im Voraus :3

W�rde sich das bitte jemand ansehen?

09/12/2011 20:01 DarkSilenceX#3463

quest Waffenh�ndler begin

state start begin
when 9001.chat."Krieger Waffen" begin
npc.open_shop(5558)
say("Hier kannst du deine Waffen f�r Krieger kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9002.chat."Krieger R�stungen" begin
npc.open_shop(5554)
say("Hier kannst du deine R�stung f�r Krieger kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9001.chat."Ninja Waffen" begin
npc.open_shop(5555)
say("Hier kannst du deine Waffen f�r Ninjas kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9002.chat."Ninja R�stungen" begin
npc.open_shop(5556)
say("Hier kannst du deine R�stungen f�r Ninjas kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9001.chat."Schamanen Waffen" begin
npc.open_shop(5557)
say("Hier kannst du deine Waffen f�r Schamanen kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9002.chat."Schamanen R�stungen" begin
npc.open_shop(5559)
say("Hier kannst du deine R�stungen f�r Schamanen kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9001.chat."Sura Waffen" begin
npc.open_shop(5560)
say("Hier kannst du deine Waffen f�r Suras kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9002.chat."Sura R�stungen" begin
npc.open_shop(5561)
say("Hier kannst du deine R�stungen f�r Suras kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
end

Das ist die Quest f�r Shops stappeln mache das bei den daroofiles es komtm fehler
Waffen_Rusten.quest :44 Abort trap ( core dumbed)
"Error occured on compile Waffen_Rusten.quest"

Hab cih mir gedacht schaut euch einer bitte die quest an ?

09/12/2011 20:23 RedKing2#3464

PHP Code:


			
quest Waffenhaendler begin

    state start begin

        when 9001.chat."Krieger Waffen" begin

            npc.open_shop(5558)    

            setskin(NOWINDOW)

        end

        

        when 9002.chat."Krieger R�stungen" begin

            npc.open_shop(5554)

            setskin(NOWINDOW)

        end

        

        when 9001.chat."Ninja Waffen" begin

            npc.open_shop(5555)

            setskin(NOWINDOW)

        end

        

        when 9002.chat."Ninja R�stungen" begin

            npc.open_shop(5556)

            setskin(NOWINDOW)

        end

        when 9001.chat."Schamanen Waffen" begin

            npc.open_shop(5557)

            setskin(NOWINDOW)

        end

        

        when 9002.chat."Schamanen R�stungen" begin

            npc.open_shop(5559)

            setskin(NOWINDOW)

        end

            

        when 9001.chat."Sura Waffen" begin

            npc.open_shop(5560)

            setskin(NOWINDOW)

        end

        

        when 9002.chat."Sura R�stungen" begin

            npc.open_shop(5561)

            setskin(NOWINDOW)

        end

    end

end

09/12/2011 20:53 F O R S E N B O Y S#3465

Quote:

Originally Posted by DarkSilenceX

quest Waffenh�ndler begin

state start begin
when 9001.chat."Krieger Waffen" begin
npc.open_shop(5558)
say("Hier kannst du deine Waffen f�r Krieger kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9002.chat."Krieger R�stungen" begin
npc.open_shop(5554)
say("Hier kannst du deine R�stung f�r Krieger kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9001.chat."Ninja Waffen" begin
npc.open_shop(5555)
say("Hier kannst du deine Waffen f�r Ninjas kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9002.chat."Ninja R�stungen" begin
npc.open_shop(5556)
say("Hier kannst du deine R�stungen f�r Ninjas kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9001.chat."Schamanen Waffen" begin
npc.open_shop(5557)
say("Hier kannst du deine Waffen f�r Schamanen kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9002.chat."Schamanen R�stungen" begin
npc.open_shop(5559)
say("Hier kannst du deine R�stungen f�r Schamanen kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9001.chat."Sura Waffen" begin
npc.open_shop(5560)
say("Hier kannst du deine Waffen f�r Suras kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
when 9002.chat."Sura R�stungen" begin
npc.open_shop(5561)
say("Hier kannst du deine R�stungen f�r Suras kaufen")
say("Mit dem steigenden Level verliert die + Zahl!")
end
end

Das ist die Quest f�r Shops stappeln mache das bei den daroofiles es komtm fehler
Waffen_Rusten.quest :44 Abort trap ( core dumbed)
"Error occured on compile Waffen_Rusten.quest"

Hab cih mir gedacht schaut euch einer bitte die quest an ?

Hab dir mal die 2 quests gemacht..

VNUM 9001

Spoiler

VNUM 9002

Spoiler

Page 231 of 845

231