[SERVICE] Die Questerstellung

Page 78 of 248

03/10/2014 22:41 Rofelmau#1156

Quote:

Originally Posted by Kilroy.

Hab mir nen kleines Zeitfeature geg�nnt.
Ich hab versucht eine zu machen, bei mir spackt die bei pc.getqf("On_Map") ab, kein plan warum, es wird auf 1 gesetzt und trotzdem nach erneutem Login sagt er das man 2h Zeit hat.. komisch^^ Probiers einfach mal aus vielleicht liegts nur an meinem Server^^

Spoiler

PHP Code:

quest Map_item_2h begin state start begin when login with pc.get_map_index() == 41 begin if pc.getqf("On_Map") == 0 then cleartimer("Check_for_Time") pc.setqf("On_Map", 1) pc.setqf("Time_for_Map", get_time()+ 60) loop_timer("Check_for_Time", 1) say("Du hast 2 Stunden Zeit.") say("Danach gibt es nen Back-Teleport.") say("") say("Um zu schauen wie lange dir noch") say("bleibt, �ffne dein Missionsfenster.") else cleartimer("Check_for_Time") loop_timer("Check_for_Time", 1) end if pc.getqf("Time_for_Map") < get_time() and pc.getqf("On_Map") == 1 then cleartimer("Check_for_Time") say("Die Zeit ist um, du wirst nun") say("rausteleportiert.") wait() pc.setqf("On_Map", 0) pc.warp(X,X) end end when letter with pc.get_map_index() == 41 begin q.set_title("Back-Teleport in") q.set_clock("ca. ", pc.getqf("Time_for_Map")-get_time()) end when button or info with pc.get_map_index() == 41 begin end when Check_for_Time.timer with pc.get_map_index() == 41 begin if pc.getqf("Time_for_Map") < get_time() then cleartimer("Check_for_Time") say("Die Zeit ist um, du wirst nun") say("rausteleportiert.") wait() pc.setqf("On_Map", 0) pc.warp(X,X) end end when 20011.chat."Warp To Map" begin say_title("Warp To Map") say("") say("Ich lass dich nur auf diese Map") say("wenn du mir ein XXXXX ITEM bringst.") say("") say("Hast du's dabei?") if select("Ja","Nein")==2 then return end if pc.count_item(19) > 0 then say_title("Warp To Map") say("") say("Okay ich gewehre dir Zutritt.") wait() pc.remove_item(ITEMID, 1) pc.warp(X,X) else say_title("Warp To Map") say("") say("Du hast dieses Item gar nicht bei dir, so") say("lass ich dich nicht weiter. Komm mit ") say("diesem Item wieder.") return end end end end

Da kein NPC name etc. genannt wurde hab ich Uriel genommen.

PHP Code:

quest delete_rangpunkte begin state start begin when 20011.chat."Rangpunkte" begin say_title("Rangpunkte") say("") say("Ich setzt dir deine Rangpunkte zur�ck.") say("") say("Willst du?") if select("Ja","Nein")==2 then return end pc.change_alignment(-pc.get_alignment()) end end end

vlt solltest du dein timer auch nicht auf 60 sekunden setzen
was h�llste von pc.setqf("Time_for_Map", get_time()+ 60*60*2) f�r 2h?!

03/11/2014 00:00 Noa_#1157

Quote:

Originally Posted by .Weezy

Naja es gibt verschiedene Dragonballs: es gibt insgesamt 7 verschiedene Dragonballs der eine Dragoball hat z.b. 2 Sterne der andere 5 Sterne, diese farmt man auf einer Farmmap und danach soll man sie bei einem NPC umtauschen k�nnen gegen Datenbank Coins.

Vnums von den Dragonballs: 9990, 9991, 9992, 9993, 9994, 9995, 9996

die query sollte so �hnlich aussehen

PHP Code:


			
quest dragontrade begin
    state start begin
        when 9009.chat."Dragonballs Tauschen" begin
            local tab = {{9990, 9991, 9992, 9993, 9994, 9995, 9996},{}}
            local balls = tab[1]
            for i =1,table.getn(balls) do
                table.insert(tab[2],item_name(balls[i]))
            end
            local names = tab[2]
            table.insert(names,'Abbrechen')
            say_title(mob_name(npc.get_race()))
            say''
            say'Welches Dragonball m�chtest du tauschen?'
            say_reward'W�hle aus!'
            say''
            local s = select_table(names)
            if s == table.getn(names) then return end
            say_title(mob_name(npc.get_race()))
            say''
            reward_table = {
            --  vnum = coins
                [9990]= 100,
                [9991]= 200,
                [9992]= 300,
                [9993]= 400,
                [9994]= 500,
                [9995]= 600,
                [9996]= 700,
            }
            local vnum = balls[s]
            if pc.count_item(vnum) >= 200 then
                local coins = reward_table[vnum]
                say('200x '..names[s]..' gegen '..coins..' Tauschen?')
                say''
                if select('Ja','Nein') == 1 then
                    mysq_query('update account.account set coins = coins+'..coins..' where account_id='..pc.get_account_id()..';')
                    say('Du hast '..coins..' bei dem Tausch erhalten')
                    pc.remove_item(vnum,200)
                else
                    return
                end
            else
                say('Du hast keine 200 '..names[s])
                say'Komm erst wieder wenn du von der gew�hlten Sorte 200 hast.'
            end
        end
    end
end

03/11/2014 06:58 Noa_#1158

Quote:

Originally Posted by .Weezy

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

Ich sagte ja so �hnlich, weis schlie�lich nicht wie deine Tabelle aussieht.

Wie hei�t deine spalte wo die Coins stehen und in welche tabelle steht es, mach mal kurz ein screen von einem testspieler oder sowas.
Damit ich dir die query richtig schreiben kann

03/11/2014 17:27 [SA]Hiz#1159

quest devildown begin
state start begin
when 20092.chat."Farmmap" begin
if pc . get_level ( ) < 1 then
say ("Du hast noch nicht genuegend Erfahrung gesammelt. Komme wieder, wenn du Level 105 bist!")
else
say_title("W�chter:")
say("")
say("Sollte ein PvP-Event stattfinden, wird dies hier ausgetragen. ")
say("")
say_reward("Soll ich dich in die PVP-Arena teleportieren?")

local s = select("Teleportieren", "Hier bleiben")
if s == 1 then
pc.warp(844800, 844800)
else
return
end
end
end
end
end

Kann mir hier jemand einbauen, dass wenn Rotes, Gelbes und Blaues Reich ist auf verschiedene Koordinaten teleportiert wird?

03/11/2014 17:45 Noa_#1160

i-wo muss du doch die coins eintragen, diese tabelle brauche ich

03/11/2014 18:18 ExoBiTe�#1161

Hey Leute ich br�uchte eine Levelbelohnung Quest ab lvl 40 in Zehnerschritten bis level 150. Habe Selber auch eine geschrieben, welche aber nicht funktionieren will :/

Quest

PHP Code:


			
quest levelbelohnung begin
    state start begin
        when login or levelup with pc.get_level() >= 40 begin
            pc.setqf("lvl40",1)
        end
        
        when login or levelup with pc.get_level() >= 50 begin
            pc.setqf("lvl50",1)
        end
        
        when login or levelup with pc.get_level() >= 60 begin
            pc.setqf("lvl60",1)
        end
        
        when login or levelup with pc.get_level() >= 70 begin
            pc.setqf("lvl70",1)
        end
        
        when login or levelup with pc.get_level() >= 80 begin
            pc.setqf("lvl80",1)
        end
        
        when login or levelup with pc.get_level() >= 90 begin
            pc.setqf("lvl90",1)
        end
        
        when login or levelup with pc.get_level() >= 100 begin
            pc.setqf("lvl100",1)
        end
        
        when login or levelup with pc.get_level() >= 110 begin
            pc.setqf("lvl110",1)
        end
        
        when login or levelup with pc.get_level() >= 120 begin
            pc.setqf("lvl120",1)
        end
        
        when login or levelup with pc.get_level() >= 130 begin
            pc.setqf("lvl130",1)
        end
        
        when login or levelup with pc.get_level() >= 140 begin
            pc.setqf("lvl140",1)
        end
        
        when login or levelup with pc.get_level() >= 150 begin
            pc.setqf("lvl150",1)
        end
        
        
        
        when login or levelup with pc.getqf("lvl40") == 1 begin
            when letter begin
                send_letter("Level 40 Belohnung")
            end
            when button or info begin
                say_title("Level 40 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 40 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl40", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl50") == 1 begin
            when letter begin
                send_letter("Level 50 Belohnung")
            end
            when button or info begin
                say_title("Level 50 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 50 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl50", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl60") == 1 begin
            when letter begin
                send_letter("Level 60 Belohnung")
            end
            when button or info begin
                say_title("Level 60 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 60 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl60", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl70") == 1 begin
            when letter begin
                send_letter("Level 40 Belohnung")
            end
            when button or info begin
                say_title("Level 70 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 70 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl70", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl80") == 1 begin
            when letter begin
                send_letter("Level 80 Belohnung")
            end
            when button or info begin
                say_title("Level 80 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 80 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl80", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl90") == 1 begin
            when letter begin
                send_letter("Level 90 Belohnung")
            end
            when button or info begin
                say_title("Level 90 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 90 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl90", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl100") == 1 begin
            when letter begin
                send_letter("Level 100 Belohnung")
            end
            when button or info begin
                say_title("Level 100 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 100 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl100", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl110") == 1 begin
            when letter begin
                send_letter("Level 110 Belohnung")
            end
            when button or info begin
                say_title("Level 110 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 110 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl10", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl120") == 1 begin
            when letter begin
                send_letter("Level 120 Belohnung")
            end
            when button or info begin
                say_title("Level 120 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 120 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl120", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl130") == 1 begin
            when letter begin
                send_letter("Level 130 Belohnung")
            end
            when button or info begin
                say_title("Level 130 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 130 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl130", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl140") == 1 begin
            when letter begin
                send_letter("Level 140 Belohnung")
            end
            when button or info begin
                say_title("Level 140 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 140 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl140", 2)
            end
        end
        
        when login or levelup with pc.getqf("lvl150") == 1 begin
            when letter begin
                send_letter("Level 150 Belohnung")
            end
            when button or info begin
                say_title("Level 150 Belohnung")
                say("Herzlichen Gl�ckwunsch, du hast Level 150 erreicht!")
                say("Deine Belohnung ist:")
                say("")
                say("")
                say_reward("1x Wei�e Perle")
                say_reward("1x Blaue perle")
                say_reward("1x Rote Perle")
                pc.give_item2(WeissP, 1)
                pc.give_item2(BlauP, 1)
                pc.give_item2(RotP, 1)
                pc.setqf("lvl150", 2)
            end
        end
    end
end

Da steht extra noch WeissP etc. trage die Vnums sp�ter ein.

03/11/2014 18:27 .yorliK#1162

Quote:

Originally Posted by Rofelmau

vlt solltest du dein timer auch nicht auf 60 sekunden setzen
was h�llste von pc.setqf("Time_for_Map", get_time()+ 60*60*2) f�r 2h?!

ich wei� das 2*60*60 2H sind! Es ist zu Testzwecken, damit ich keine 2h warten muss!?

Quote:

Originally Posted by [SA]Hiz

quest devildown begin
state start begin
when 20092.chat."Farmmap" begin
if pc . get_level ( ) < 1 then
say ("Du hast noch nicht genuegend Erfahrung gesammelt. Komme wieder, wenn du Level 105 bist!")
else
say_title("W�chter:")
say("")
say("Sollte ein PvP-Event stattfinden, wird dies hier ausgetragen. ")
say("")
say_reward("Soll ich dich in die PVP-Arena teleportieren?")

local s = select("Teleportieren", "Hier bleiben")
if s == 1 then
pc.warp(844800, 844800)
else
return
end
end
end
end
end

Kann mir hier jemand einbauen, dass wenn Rotes, Gelbes und Blaues Reich ist auf verschiedene Koordinaten teleportiert wird?

Koordinaten musste nur oben in diese Tabelle eintragen.

PHP Code:


			
quest devildown begin

    state start begin

        when 20092.chat."Farmmap" begin

            Warps = { [1] = { 844800, 844800 }, -- Rot

                    [2] = { 844800, 844800 }, -- Gelb

                    [3] = { 844800, 844800 } -- Blau

                    }

            if pc . get_level ( ) < 105 then

                say ("Du hast noch nicht genuegend Erfahrung gesammelt. Komme wieder, wenn du Level 105 bist!")

                return

            end

            say_title("W�chter:")

            say("")

            say("Sollte ein PvP-Event stattfinden, wird dies hier ausgetragen. ")

            say("")

            say_reward("Soll ich dich in die PVP-Arena teleportieren?")

            if select("Teleportieren", "Hier bleiben")==2 then return end

            pc.warp(Warps[pc.get_empire()][1], Warps[pc.get_empire()][2])

        end

    end

end

____________________________________________

Quote:

Originally Posted by Streetkillah98

Hey Leute ich br�uchte eine Levelbelohnung Quest ab lvl 40 in Zehnerschritten bis level 150. Habe Selber auch eine geschrieben, welche aber nicht funktionieren will :/

Quest

PHP Code:

quest levelbelohnung begin state start begin when login or levelup with pc.get_level() >= 40 begin pc.setqf("lvl40",1) end when login or levelup with pc.get_level() >= 50 begin pc.setqf("lvl50",1) end when login or levelup with pc.get_level() >= 60 begin pc.setqf("lvl60",1) end when login or levelup with pc.get_level() >= 70 begin pc.setqf("lvl70",1) end when login or levelup with pc.get_level() >= 80 begin pc.setqf("lvl80",1) end when login or levelup with pc.get_level() >= 90 begin pc.setqf("lvl90",1) end when login or levelup with pc.get_level() >= 100 begin pc.setqf("lvl100",1) end when login or levelup with pc.get_level() >= 110 begin pc.setqf("lvl110",1) end when login or levelup with pc.get_level() >= 120 begin pc.setqf("lvl120",1) end when login or levelup with pc.get_level() >= 130 begin pc.setqf("lvl130",1) end when login or levelup with pc.get_level() >= 140 begin pc.setqf("lvl140",1) end when login or levelup with pc.get_level() >= 150 begin pc.setqf("lvl150",1) end when login or levelup with pc.getqf("lvl40") == 1 begin when letter begin send_letter("Level 40 Belohnung") end when button or info begin say_title("Level 40 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 40 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl40", 2) end end when login or levelup with pc.getqf("lvl50") == 1 begin when letter begin send_letter("Level 50 Belohnung") end when button or info begin say_title("Level 50 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 50 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl50", 2) end end when login or levelup with pc.getqf("lvl60") == 1 begin when letter begin send_letter("Level 60 Belohnung") end when button or info begin say_title("Level 60 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 60 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl60", 2) end end when login or levelup with pc.getqf("lvl70") == 1 begin when letter begin send_letter("Level 40 Belohnung") end when button or info begin say_title("Level 70 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 70 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl70", 2) end end when login or levelup with pc.getqf("lvl80") == 1 begin when letter begin send_letter("Level 80 Belohnung") end when button or info begin say_title("Level 80 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 80 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl80", 2) end end when login or levelup with pc.getqf("lvl90") == 1 begin when letter begin send_letter("Level 90 Belohnung") end when button or info begin say_title("Level 90 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 90 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl90", 2) end end when login or levelup with pc.getqf("lvl100") == 1 begin when letter begin send_letter("Level 100 Belohnung") end when button or info begin say_title("Level 100 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 100 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl100", 2) end end when login or levelup with pc.getqf("lvl110") == 1 begin when letter begin send_letter("Level 110 Belohnung") end when button or info begin say_title("Level 110 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 110 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl10", 2) end end when login or levelup with pc.getqf("lvl120") == 1 begin when letter begin send_letter("Level 120 Belohnung") end when button or info begin say_title("Level 120 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 120 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl120", 2) end end when login or levelup with pc.getqf("lvl130") == 1 begin when letter begin send_letter("Level 130 Belohnung") end when button or info begin say_title("Level 130 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 130 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl130", 2) end end when login or levelup with pc.getqf("lvl140") == 1 begin when letter begin send_letter("Level 140 Belohnung") end when button or info begin say_title("Level 140 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 140 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl140", 2) end end when login or levelup with pc.getqf("lvl150") == 1 begin when letter begin send_letter("Level 150 Belohnung") end when button or info begin say_title("Level 150 Belohnung") say("Herzlichen Gl�ckwunsch, du hast Level 150 erreicht!") say("Deine Belohnung ist:") say("") say("") say_reward("1x Wei�e Perle") say_reward("1x Blaue perle") say_reward("1x Rote Perle") pc.give_item2(WeissP, 1) pc.give_item2(BlauP, 1) pc.give_item2(RotP, 1) pc.setqf("lvl150", 2) end end end end

Da steht extra noch WeissP etc. trage die Vnums sp�ter ein.

Sollten verschiedene Items ausgegeben werden, kontaktiere mich doch per PN ^^

PHP Code:


			
quest levelbelohnung begin

    state start begin

        when login or levelup with pc.level> 39 begin

            if pc.get_level() == 40 or 50 or 60 or 70 or 80 or 90 or 100 or 110 or 120 or 130 or 140 or 150 then

                if pc.getqf("Level") != pc.get_level() then

                    pc.setqf("Level", pc.get_level())

                    set_state(give_present)

                else

                    return 

                end

            end

        end

    end

    state give_present begin

        when letter begin

            send_letter("Level "..pc.getqf("Level").." Belohnung")

        end

        when button or info begin

            say_title("Level "..pc.getqf("Level").." Belohnung")

            say("Herzlichen Gl�ckwunsch, du hast Level "..pc.getqf("Level").." erreicht!")

            say("Deine Belohnung ist:")

            say("")

            say("")

            say_reward("1x Wei�e Perle")

            say_reward("1x Blaue perle")

            say_reward("1x Rote Perle")

            pc.give_item2(WeissP, 1)

            pc.give_item2(BlauP, 1)

            pc.give_item2(RotP, 1)

            set_state(start)

            clear_letter()

        end

    end

end

03/11/2014 19:27 [SA]Arius#1163

guten Abend

Ich br�uchte eine quest wo der Wei�e L�we 4 Stunden h�lt.Wir wollen ihn in der Belohnungquest einf�gen haben nur das Problem das der Wei�e L�we f�r den IS gedacht ist also halt 20 Tage und da wollen wir ein "Extra L�wen" sozusagen haben
der nur 4 Stunden h�lt.W�re nett wenn das einer machen kann.

mfg

03/11/2014 19:32 rollback#1164

Quote:

Originally Posted by [SA]Arius

guten Abend

Ich br�uchte eine quest wo der Wei�e L�we 4 Stunden h�lt.Wir wollen ihn in der Belohnungquest einf�gen haben nur das Problem das der Wei�e L�we f�r den IS gedacht ist also halt 20 Tage und da wollen wir ein "Extra L�wen" sozusagen haben
der nur 4 Stunden h�lt.W�re nett wenn das einer machen kann.

mfg

daf�r musst du einen neuen l�wen erstellen

03/11/2014 19:57 Antigene#1165

Hier die Quest will eine Funktion hinzuf�gen z.b alle 10 Sekunden darf man dieses Feruph�nix
Siegel benutzen

Quest ohne Zeitbeschr�nkung

PHP Code:


			
when 53001.use begin

            if pet.is_summon() then

                pet.unsummon()

                chat("Dein Haustier verabschiedet sich nun von dir!")

                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)

            else

                local old_level = horse.get_level()

                local old_name = horse.get_name()

                horse.set_level(22)

                horse.set_name(haustiere.get_pet_name())

                pet.summon()

                horse.set_level(old_level)

                horse.set_name(old_name)

                        affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)

Es ist nur ein ausschnitt meiner Quest

Suche:

die Quest blo� mit Zeitbeschr�nkung, dass man es nur alle 10 Sekunden benutzen kann w�re euch sehr dankbar

03/12/2014 17:35 Revanox#1166

Guten Tag

Bei dieser Quest geht es eigetlich nur um Flogenedes:

PHP Code:


			
quest Truhen begin 

    state start begin 

            when 50137.use begin 

                say_title("Mount-Box") 

                say("Du erhaelst nur ein Reittier!") 

                say("Diese Truhe verschwindet danach!") 

                say("Waehle mit Bedacht !") 

                local a = select("Wei�er L�we", "Kriegs-Keiler", "Streitwolf", "Sturmtiger", "Schlachtenl�we", "Abbrechen") 

                    if a == 1 then 

                        say_reward("Wei�er L�we !") 

                        say_reward("Herzlichen Gl�ckwunsch!")

                        say_reward("Viel Spa� mit deinem Reittier")

                        pc.give_item2(71124,1 ) 

                        pc.removeitem(50137, 1) 

                    end 

                    if a == 2 then 

                        say_reward("Kriegs-Keiler") 

                        say_reward("Herzlichen Gl�ckwunsch!")

                        say_reward("Viel Spa� mit deinem Reittier")

                        pc.give_item2(71125,1 ) 

                        pc.removeitem(50137, 1) 

                    end 

                    if a == 3 then 

                        say_reward("Streitwolf") 

                        say_reward("Herzlichen Gl�ckwunsch!")

                        say_reward("Viel Spa� mit deinem Reittier")

                        pc.give_item2(71126,1 ) 

                        pc.removeitem(50137, 1) 

                    end 

                    if a == 4 then 

                        say_reward("Sturmtiger") 

                        say_reward("Herzlichen Gl�ckwunsch!")

                        say_reward("Viel Spa� mit deinem Reittier")

                        pc.give_item2(71127,1 ) 

                        pc.removeitem(50137, 1) 

                    end 

                    if a == 5 then 

                        say_reward("Schlachtenl�we") 

                        say_reward("Herzlichen Gl�ckwunsch!")

                        say_reward("Viel Spa� mit deinem Reittier")

                        pc.give_item2(71128,1 ) 

                        pc.removeitem(50137, 1) 

                    end 

                    if a == 6 then 

                        return 

                    end 

                end 

            end 

        end

Ich will jetzt das man wenn man z.B. auf Keiler klickt noch ein Men� kommt mit den anderen Keiler die es gibt z.B. Normaler Keiler oder halt sowas.
W�re nett wenn mir des einer machen w�rde,

mfg

03/12/2014 18:08 rollback#1167

PHP Code:


			
quest Truhen begin   
    state start begin   
            when 50137.use begin   
                say_title("Mount-Box")   
                say("Du erhaelst nur ein Reittier!")   
                say("Diese Truhe verschwindet danach!")   
                say("Waehle mit Bedacht !")   
                local a = select("L�we", "Keiler", "Wolf", "Tiger", "Abbrechen")   
                    if a == 1 then  
                        local loewe = select("L�we1", "L�we2", "L�we3", "Abbrechen") 
                        if loewe == 1 then 
                            say_title("L�we1") 
                            say("") 
                            say("Du hast dich f�r den L�wen1 entschieden.") 
                            say("") 
                            say_reward("Du hast L�we1-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if loewe == 2 then 
                            say_title("L�we2") 
                            say("") 
                            say("Du hast dich f�r den L�wen2 entschieden.") 
                            say("") 
                            say_reward("Du hast L�we2-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if loewe == 3 then 
                            say_title("L�we3") 
                            say("") 
                            say("Du hast dich f�r den L�wen3 entschieden.") 
                            say("") 
                            say_reward("Du hast L�we3-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if loewe == 4 then 
                            return 
                        end
                    end
                    if a == 2 then   
                        local keiler = select("Keiler1", "Keiler2", "Keiler3", "Abbrechen") 
                        if keiler == 1 then 
                            say_title("Keiler1") 
                            say("") 
                            say("Du hast dich f�r den Keiler1 entschieden.") 
                            say("") 
                            say_reward("Du hast Keiler1-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if keiler == 2 then 
                            say_title("Keiler2") 
                            say("") 
                            say("Du hast dich f�r den Keiler2 entschieden.") 
                            say("") 
                            say_reward("Du hast Keiler2-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if keiler == 3 then 
                            say_title("Keiler3") 
                            say("") 
                            say("Du hast dich f�r den Keiler3 entschieden.") 
                            say("") 
                            say_reward("Du hast Keiler3-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if keiler == 4 then 
                            return 
                        end
                    end
                    if a == 3 then   
                        local wolf = select("Wolf1", "Wolf2", "Wolf3", "Abbrechen") 
                        if wolf == 1 then 
                            say_title("Wolf1") 
                            say("") 
                            say("Du hast dich f�r den Wolf1 entschieden.") 
                            say("") 
                            say_reward("Du hast Wolf1-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if wolf == 2 then 
                            say_title("Wolf2") 
                            say("") 
                            say("Du hast dich f�r den Wolf2 entschieden.") 
                            say("") 
                            say_reward("Du hast Wolf2-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if wolf == 3 then 
                            say_title("Wolf3") 
                            say("") 
                            say("Du hast dich f�r den Wolf3 entschieden.") 
                            say("") 
                            say_reward("Du hast Wolf3-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if wolf == 4 then 
                            return 
                        end
                    end
                    if a == 4 then   
                        local tiger = select("Tiger1", "Tiger2", "Tiger3", "Abbrechen") 
                        if tiger == 1 then 
                            say_title("Tiger1") 
                            say("") 
                            say("Du hast dich f�r den Tiger1 entschieden.") 
                            say("") 
                            say_reward("Du hast Tiger1-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if tiger == 2 then 
                            say_title("Tiger2") 
                            say("") 
                            say("Du hast dich f�r den Tiger2 entschieden.") 
                            say("") 
                            say_reward("Du hast Tiger2-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if tiger == 3 then 
                            say_title("Tiger3") 
                            say("") 
                            say("Du hast dich f�r den Tiger3 entschieden.") 
                            say("") 
                            say_reward("Du hast Tiger3-Siegel erhalten.") 
                            pc.give_item2(VNUM_SIEGEL, 1) 
                            pc.removeitem(50137, 1) 
                        end 
                        if tiger == 4 then 
                            return 
                        end
                    end
                    if a == 5 then   
                        return 
                    end   
                end   
            end   
        end 
    end 
end

03/12/2014 20:57 Noa_#1168

Quote:

Originally Posted by Revanox

Guten Tag

Bei dieser Quest geht es eigetlich nur um Flogenedes:

PHP Code:

quest Truhen begin state start begin when 50137.use begin say_title("Mount-Box") say("Du erhaelst nur ein Reittier!") say("Diese Truhe verschwindet danach!") say("Waehle mit Bedacht !") local a = select("Wei�er L�we", "Kriegs-Keiler", "Streitwolf", "Sturmtiger", "Schlachtenl�we", "Abbrechen") if a == 1 then say_reward("Wei�er L�we !") say_reward("Herzlichen Gl�ckwunsch!") say_reward("Viel Spa� mit deinem Reittier") pc.give_item2(71124,1 ) pc.removeitem(50137, 1) end if a == 2 then say_reward("Kriegs-Keiler") say_reward("Herzlichen Gl�ckwunsch!") say_reward("Viel Spa� mit deinem Reittier") pc.give_item2(71125,1 ) pc.removeitem(50137, 1) end if a == 3 then say_reward("Streitwolf") say_reward("Herzlichen Gl�ckwunsch!") say_reward("Viel Spa� mit deinem Reittier") pc.give_item2(71126,1 ) pc.removeitem(50137, 1) end if a == 4 then say_reward("Sturmtiger") say_reward("Herzlichen Gl�ckwunsch!") say_reward("Viel Spa� mit deinem Reittier") pc.give_item2(71127,1 ) pc.removeitem(50137, 1) end if a == 5 then say_reward("Schlachtenl�we") say_reward("Herzlichen Gl�ckwunsch!") say_reward("Viel Spa� mit deinem Reittier") pc.give_item2(71128,1 ) pc.removeitem(50137, 1) end if a == 6 then return end end end end

Ich will jetzt das man wenn man z.B. auf Keiler klickt noch ein Men� kommt mit den anderen Keiler die es gibt z.B. Normaler Keiler oder halt sowas.
W�re nett wenn mir des einer machen w�rde,

mfg

PHP Code:


			
quest Truhen begin  
    state start begin  
        when 50137.use begin  
            say_title("Mount-Box")  
            say("Du erhaelst nur ein Reittier!")  
            say("Diese Truhe verschwindet danach!")  
            say("Waehle mit Bedacht !")
            local auswahl = {
            ['Standard']= {"L�we", "Keiler", "Wolf", "Tigeriger",},
            ['Extravagant'] = {
                    {71124,71128},-- Wei�er L�we & Schlachtenl�we
                    {71125},-- Kriegskeiler
                    {71126},-- Streitwolf
                    {71127},-- Surmtiger
                }
            }
            table.insert(auswahl.Standard,'Abbrechen')
            local a = select_table(auswahl.Standard)
            if a == table.getn(auswahl.Standard) then return end
            local siegeln = auswahl.Extravagant[a]
            local namen = {}
            for i = 1, table.getn(siegeln) do
                table.insert(namen,item_name(siegeln[i]))
            end
            table.insert(namen,'Abbrechen')
            say_title("Mount-Box")  
            say''
            say'Waehle nun ein Siegel!'
            say''
            local s = select_table(namen)
            if s == table.getn(namen) then return end
            say_reward(namen[s].." erhalten.")  
            say_reward("Herzlichen Gl�ckwunsch!") 
            say_reward("Viel Spa� mit deinem Reittier.") 
            pc.give_item2(siegeln[s], 1)  
            item.remove()                  
        end  
    end
end

wenn du mehr Reittiere einf�gen willst, musst du sie in deren Kategorien eintragen.

zb.
{71124,101},-- Wei�er L�we und wildhund

ich weis das es nicht geht, ist nur ein beispiel weil ich die anderen vnum's nicht kenne

€dit. F�r deine Unterteilung eignet sich glaube ich diese Tabelle besser

PHP Code:


			
local auswahl = {
            ['Standard']= {"L�we", "Keiler", "Wolf", "Tiger",},
            ['Extravagant'] = {
                    {71124,71128},-- Wei�er L�we & Schlachtenl�we
                    {71125},-- Kriegskeiler
                    {71126},-- Streitwolf
                    {71127},-- Surmtiger
                }
            }

03/12/2014 21:52 rollback#1169

Quote:

Originally Posted by Noa_

PHP Code:

quest Truhen begin state start begin when 50137.use begin say_title("Mount-Box") say("Du erhaelst nur ein Reittier!") say("Diese Truhe verschwindet danach!") say("Waehle mit Bedacht !") local auswahl = { ['Standard']= {"L�we", "Keiler", "Wolf", "Tigeriger",}, ['Extravagant'] = { {71124,71128},-- Wei�er L�we & Schlachtenl�we {71125},-- Kriegskeiler {71126},-- Streitwolf {71127},-- Surmtiger } } table.insert(auswahl.Standard,'Abbrechen') local a = select_table(auswahl.Standard) if a == table.getn(auswahl.Standard) then return end local siegeln = auswahl.Extravagant[a] local namen = {} for i = 1, table.getn(siegeln) do table.insert(namen,item_name(siegeln[i])) end table.insert(namen,'Abbrechen') say_title("Mount-Box") say'' say'Waehle nun ein Siegel!' say'' local s = select_table(namen) if s == table.getn(namen) then return end say_reward(namen[s].." erhalten.") say_reward("Herzlichen Gl�ckwunsch!") say_reward("Viel Spa� mit deinem Reittier.") pc.give_item2(siegeln[s], 1) item.remove() end end end

wenn du mehr Reittiere einf�gen willst, musst du sie in deren Kategorien eintragen.

zb.
{71124,101},-- Wei�er L�we und wildhund

ich weis das es nicht geht, ist nur ein beispiel weil ich die anderen vnum's nicht kenne

�dit. F�r deine Unterteilung eignet sich glaube ich diese Tabelle besser

PHP Code:

local auswahl = { ['Standard']= {"L�we", "Keiler", "Wolf", "Tiger",}, ['Extravagant'] = { {71124,71128},-- Wei�er L�we & Schlachtenl�we {71125},-- Kriegskeiler {71126},-- Streitwolf {71127},-- Surmtiger } }

danke jetzt weiss ich auch endlich mal wie so eine tabelle funktioniert :D
er kann sich ja jetzt aussuchen welche quest er letzendlich benutz ... deine oder meine ^^

03/12/2014 23:21 MGC-NOM#1170

Servus ;)

ich br�uchte mal wieder ein paar quests

1. eine Autoumhang quest, wo der autoumhang 2,4,6,8 oder 10 minuten aktiv bleibt (je nach dem welchen man hat)

2. das man das pferd via rufbuch rufen kann und beim aufs rufbuch klicken automatisch aufsteigt und beim erneuten draufklicken absteigt und das pferd wegschickt

3. kann sich jemand mal meine FB quest anschauen?

Spoiler

Fehler in der Konsole beim Compilen

Code:

fb_read.quest:7:expecting 'when' or 'function'
Error occured on compile fb_read.quest

Page 78 of 248